Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
The Three-Body Problem

SSD Lenovo este recunoscut doar i...

Identificare eroare centrala

Interpretare vis !
 Premiera in Romania Sepsi - FCU ...

UPS se opreste/restarteaza subit.

Vecini insuportabili, violenti

Semafor și pentru dreapta sa...
 Problema PC nou

Colet prin posta din SUA - valoar...

Unifi Dream Machine, merita?

Achizitie componente PC Gaming
 "Caru cu Bere"

c ++ problema trepte

Este chiar o necesitate contestar...

Camera Sony cu probleme
 

Macrouri pt Excel

- - - - -
  • Please log in to reply
2 replies to this topic

#1
maciu1

maciu1

    Junior Member

  • Grup: Members
  • Posts: 131
  • Înscris: 25.09.2002
Salut!
Sint un foarte incepator in ale VBA-ului si din cauza asta am nevoie de ajutor in ceea ce priveste scrierea macrourilor pt Excel. Pt unii dintre voi probabil e "floare la ureche", eu "mi-am prins urechile".Nu stiu sa fac iteratia...Asa ca, imi trebuie codurile pt urmatoarele 2 probleme.

1) Se da o coloana (ex: A1:A100) cu valori cuprinse intre 1 si 20. Vreau ca macroul sa-mi coloreze valorile mai mari de 10 cu verde si cele mai mici de 10 cu albastru.

2) Se da o coloana de forma

1223355
releu
12554526
baterie
1548785
cablu

Vreau sa imi puna (cu "cut") valorile "text" pe coloana urmatoare, in dreptul valorilor de deasupra, corespunzatoare.
Sa apara astfel:
1223355    releu
12554526  baterie
1548785    cablu

Precizez ca pt ambele proleme este vorba de rinduri de ordinul miilor, altfel le faceam manual....

Multumesc frumos pt intelegere.

#2
mihaicris

mihaicris

    Junior Member

  • Grup: Members
  • Posts: 215
  • Înscris: 03.03.2003
macro1 pentru 1, macro2 pentru 2


Sub macro1()
Dim i As Long

For i = 1 To 100    'aici se inlocuieste 100 cu ultima linie, valorile se iau de pa coloana A
    If Cells(i, "A") > 10 Then
        Cells(i, "A").Font.Color = vbGreen ' asta are loc daca > 10
    Else
        Cells(i, "A").Font.Color = vbBlue ' asta are loc daca < sau = 10
    End If
    Application.StatusBar = i ' asta ca sa vezi ce se intampla
Next

End Sub

'____________________________________

Sub macro2()
Dim i As Long, txtnou As String
For i = 1 To 100    'aici se inlocuieste 100 cu ultima linie, valorile se iau de pa coloana A si se pun in B
    If IsNumeric(Cells(i, "A")) And Cells(i, "A") > 0 Then
        txtnou = Cells(i, "A") & " " & Cells(i + 1, "A")
        Cells(i, "A") = txtnou
        Cells(i + 1, "A") = ""
        txtnou = ""
    End If
    Application.StatusBar = i ' asta ca sa vezi ce se intampla
Next
End Sub

#3
maciu1

maciu1

    Junior Member

  • Grup: Members
  • Posts: 131
  • Înscris: 25.09.2002
Multumesc frumos, mihaicris!

Anunturi

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate