Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...
 probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National
 Sub mobila de bucatarie si sub fr...

Rezultat RMN

Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...
 Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.

Cost abonament clinica privata

Tremura toata, dar nu de la ro...
 

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