Macrouri pt Excel

#1
maciu1

Posted 23 November 2005 - 12:27

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.

Back to top

#2
mihaicris

Posted 23 November 2005 - 13:15

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

Back to top

#3
maciu1

Posted 23 November 2005 - 16:40

Junior Member

Grup: Members
Posts: 131
Înscris: 25.09.2002

Multumesc frumos, mihaicris!

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

Macrouri pt Excel

#1 maciu1 Posted 23 November 2005 - 12:27

#2 mihaicris Posted 23 November 2005 - 13:15

#3 maciu1 Posted 23 November 2005 - 16:40

Anunturi

▶ 1 user(s) are reading this topic

Sign In

#1
maciu1

Posted 23 November 2005 - 12:27

#2
mihaicris

Posted 23 November 2005 - 13:15

#3
maciu1

Posted 23 November 2005 - 16:40