Chirurgia cranio-cerebrală minim invazivă
Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne. Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale. www.neurohope.ro |
Creare macro pt Excel
Last Updated: Jul 11 2010 08:04, Started by
maciu1
, Jun 26 2010 19:14
·
0
#1
Posted 26 June 2010 - 19:14
Salut!
Va cer ajutorul pentru crearea unui macro pt Excel. Ideea e urmatoarea: am o coloana cu x celule "pline". Vreau ca la "textul" (caracterele sau cum se numesc) ce se gaseste in fiecare celula, sa adaug (cu ajutorul comenzii alt+enter), un text predefinit (ex: subaru). Nu am tangenta cu programarea, incerc doar sa-mi usurez munca. Am cunostiinte foarte limitate de programare si nu reusesc sa creez macroul asa cum trebuie...nu imi iese reiteratia asa cum ar trebui... Sper ca din poza si din editarea macro-ului sa ma puteti ajuta Multumesc frumos! Sub Macro1() ' ' Macro1 Macro ' Macro recorded 6/26/2010 by User ' ' Keyboard Shortcut: Ctrl+m ' Dim i As Single For i = 1 To 8 Step 1 Range("D7").Select ActiveCell.FormulaR1C1 = "subaru" Cells(i, "a").Select ------------------------------------------------ aici cred ca e buba ActiveCell.FormulaR1C1 = "sadf" & Chr(10) & "subaru" ---------- si aici With ActiveCell.Characters(Start:=1, Length:=11).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Next i End Sub Attached Files |
#2
Posted 26 June 2010 - 19:45
De ce te complici cu macro atunci cand poti si cu formule.
Folosesti o formula care sa concateneze subaru cu textul din celelalte celule (vezi atasament). Trebuie doar sa pui alta masina in loc de subaru si formula face toata treaba. |
#3
Posted 26 June 2010 - 20:20
Stiu de efectul formulei "concatenate", dar pentru tabele multe si lungi ca numar de celule imi e mult mai util sa aplic un macro.
|
#4
Posted 30 June 2010 - 14:41
Sandstorm, on 26th June 2010, 20:45, said: De ce te complici cu macro atunci cand poti si cu formule. Folosesti o formula care sa concateneze subaru cu textul din celelalte celule (vezi atasament). Trebuie doar sa pui alta masina in loc de subaru si formula face toata treaba. sal, nu stiu daca e bine sa scriu aici, sunt nou si inca nu m-am obisnuit cu acest forum m-ar interesa daca poti sa ma ajuti sa modific un macro; am macro facut, tastez litera "a" si intr-o anumita coloana afiseaza ora Sub on_keypress_activate_a() u = 7 While Cells(u, 6) <> "" u = u + 1 Wend Cells(u, 6) = Time End Sub cum pot schimba sa afiseze ora,zi,luna, an? ms |
#5
Posted 02 July 2010 - 20:10
tibizar, on 30th June 2010, 15:41, said: sal, nu stiu daca e bine sa scriu aici, sunt nou si inca nu m-am obisnuit cu acest forum m-ar interesa daca poti sa ma ajuti sa modific un macro; am macro facut, tastez litera "a" si intr-o anumita coloana afiseaza ora Sub on_keypress_activate_a() u = 7 While Cells(u, 6) <> "" u = u + 1 Wend Cells(u, 6) = Time End Sub cum pot schimba sa afiseze ora,zi,luna, an? ms ciao! modifica Cells(u, 6) = Time cu Cells(u, 6) = Time & " - " & Date |
#6
Posted 11 July 2010 - 08:04
gabirds, on 2nd July 2010, 21:10, said: ciao! modifica Cells(u, 6) = Time cu Cells(u, 6) = Time & " - " & Date ms! a mers stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana? gabirds, on 2nd July 2010, 21:10, said: ciao! modifica Cells(u, 6) = Time cu Cells(u, 6) = Time & " - " & Date ms! a mers stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana? gabirds, on 2nd July 2010, 21:10, said: ciao! modifica Cells(u, 6) = Time cu Cells(u, 6) = Time & " - " & Date ms! a mers stii cum se poate face un macro ca fisierul sa se salveze singur dupa o saptamana? |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users