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 |
VB Excel
Last Updated: Dec 16 2013 09:28, Started by
tzuny
, Dec 16 2013 09:09
·
0
#1
Posted 16 December 2013 - 09:09
Pana la urma cred ca o sa fac varianta in VB. am incept sa ma uit pe net despre vb si o sa incerc sa imi fac excelul de care am nevoie in visual basic. Am scris acest cod nu imi da nici o eroare dar nu merge.
Sub activateSheet(sheetname As Long) 'activates sheet of specific name Worksheets(Sheet2).Activate End Sub Sub activateSheet(sheetname As Long) 'selects sheet of specific name Sheets(Sheet2).Select End Sub Subs ifs() If Columns( > 40 And Columns( < 50 Then Cells© = Range(.Value End If Ar trebui sa se updateze automat sau trebuie sa ii dau o comanda de auto. Sau sa atasez la un buton ? Edited by tzuny, 16 December 2013 - 09:16. |
#2
Posted 16 December 2013 - 09:18
ce vrei sa faci, de fapt?
pune codul intre taguri corespunzatoare altfel ni-l umple de smileys |
#3
Posted 16 December 2013 - 09:28
Vreau ca din Coloana A cand sunt introduse valori in coloana B sa imi afiseze valorile daca se incadreaza intre limite. gen
Coloana A: Coloana B(if A>40 and A < 50 show in 43 43 44 44 21 Nu 66 Nu Sub activateSheet(Sheet2 As Long) 'activates sheet of specific name Worksheets(Sheet2).Activate End Sub Sub activateSheet(Sheet2 As Long) 'selects sheet of specific name Sheets(Sheet2).Select End Sub Sub Test() Dim LastRow As Long Dim i As Long LastRow = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To LastRow If Range("A" & i).Value >40 and Range("A" & i).Value <50 Then Range("B" & i).Value = Range(A).value End If Next i End Sub Edited by tzuny, 16 December 2013 - 09:41. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users