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 |
Am nevoie de ajutor pentru problema in excel
Last Updated: Sep 14 2006 09:14, Started by
Yurian
, Sep 04 2006 10:24
·
0
#1
Posted 04 September 2006 - 10:24
am nevoie de putin ajutor in ceea ce priveste un macro in excel.. eu sunt inca la inceput si am facut urmatorul macrou
Sub ProgramFutut12() Dim i, nr As Long With Application .Calculation = xlCalculationManual .ScreenUpdating = False nr = ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Rows.Select For i = Selection.Rows.Count To 1 Step -1 If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then Selection.Rows(i).EntireRow.Delete End If Next i .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Subel trebuie in principiu sa imi stearga toate liniile goale dintr-un fisier de excel..el merge pe toate fisierele facute de mine dar nu merge pe un fisier excel care este un output al unui program de calcul.. acel fisier are linii goale dar nu pot sa le sterg.. aveti vreo sugestie... cu ce-as putea inlocui conditia de select? |
#2
Posted 14 September 2006 - 09:14
Sub Program12() Dim i As Long, nr As Long, j As Long nr = Selection.specialcells(xlLastCell).Row ' Nr preia numarul rindului pe care se afla ultima inregistrare de pe ' foaia curenta. Adica obtine nu numarul maxim de Rows dar ultimul Row ' pe care a fost introdus/contine ceva text. For i = nr To 1 Step -1 ' Parcurgi fiecare coloana in parte pina la numarul total de coloane ' sau daca ai un numar fix de coloane care trebuie verificate inlocuiesti ' limita din "ActiveSheet.Rows(i).Column.Count" in numarul fix de coloane For j = 1 to ActiveSheet.Rows(i).Column.Count If Len(ActiveSheet.Rows(i).Columns(j)) > 0 then ' Daca in celula de pe Row = i si Col = i, exista macar un caracter ' intreg row este sters si se continua cu urmatorul rind. ActiveSheet.Rows(i).Delete Exit For End If Next j 'Next Column Next i 'Next Row End Sub Edited by Hato0be, 14 September 2006 - 09:20. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users