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 |
Macrouri pt Excel
Last Updated: Nov 23 2005 16:40, Started by
maciu1
, Nov 23 2005 12:27
·
0
#1
Posted 23 November 2005 - 12:27
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
Posted 23 November 2005 - 13:15
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 |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users