Neurochirurgie minim invazivă
"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv. Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice. 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