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 |
De ce nu functioneaza urmatorul macro?
Last Updated: Sep 10 2006 17:43, Started by
Yurian
, Sep 03 2006 13:19
·
0
#1
Posted 03 September 2006 - 13:19
explicati-mi si mie a rog frumos de ce nu functioneaza urmatorul macrou:
Private Sub CommandButton1_Click() Dim i, k As Integer Dim j As Integer Dim ok1 As Boolean Dim ok As Boolean Dim v(10) As String v(1) = "A" v(2) = "B" v(3) = "C" v(4) = "D" v(5) = "E" v(6) = "F" v(7) = "G" v(8) = "H" v(9) = "I" v(10) = "J" ok = True ok1 = False i = 1 Do Until (ok) And (ok1) For j = 1 To 5 If Cells(i, v(j)) > 0 Then ok = False Next j If ok Then Rows("13:13").Select Selection.Delete Shift:=xlUp End If If ok Then ok1 = True k = i + 1 For j = 1 To 5 If Cells(k, v(j)) > 0 Then ok1 = False Next j End If i = i + 1 Loop End End Subimi da o eroare de genu aplication defined or user defined error ___ mod edit: 1. Fi putin mai explicit atunci cand alegi numele topic-ului, "ajutoooooor" nu e un nume ... 2. foloseste tag-urile de cod Edited by RAZ, 04 September 2006 - 09:07. |
#2
Posted 10 September 2006 - 17:43
//Yurian, la mine functioneaza perfect codul, fara nici o eroare. Cu toate ca pe penultima linie - End este in plus.
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users