Chirurgia endoscopică a hipofizei
"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală. Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale. 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