Lab9


1) Stwórz plik tekstowy vba.txt o następującej zawartości
12
17
21
35
Na arkuszu umieść przycisk polecenia CommandButon1 i przypisz do niego następującą
procedurę:
Private Sub CommandButton1_Click()
Open "c:\jacek\vba\A_moje_testy\VBA.txt" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Data
Range("a" & i).Value = Data
i = i + 1
Loop
Close #1
End Sub
UWAGA na ścieżkę dostępu do pliku
2) W kolumnie B arkusza umieść formułę przeliczającą zawartość kolumny A, np.
B=2*A
Na arkuszu umieść przycisk polecenia CommandButon2 i przypisz do niego następującą
procedurę:
Private Sub CommandButton2_Click()
Open "c:\jacek\vba\A_moje_testy\VBA.txt" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Data
Range("a" & i).Value = Data
i = i + 1
Loop
Close #1
Open "c:\jacek\vba\A_moje_testy\VBA1.txt" For Output As #2
For j = 1 To i - 1
Data = Range("b" & j)
If IsNumeric(Data) Then Data = Val(Data)
Write #2, Data
Next j
Close #2
End Sub
3) Stwórz plik tekstowy vba2.txt o następującej zawartości
CO2 44 1.8
SO2 49 1.9
O2 32 2.1
N2 28 2.2
Na arkuszu umieść przycisk polecenia CommandButon3 i przypisz do niego następującą
procedurę:
Private Sub CommandButton3_Click()
Open "c:\jacek\vba\A_moje_testy\VBA2.txt" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Data
Range("j" & i).Value = Data
i = i + 1
Loop
Close #1
End Sub
4) Na arkuszu umieść przycisk polecenia CommandButon4 i przypisz do niego następującą
procedurę:
Private Sub CommandButton4_Click()
Open "c:\jacek\vba\A_moje_testy\VBA2.txt" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Data
All = Split(Data, " ")
Range("k" & i).Value = All(2)
i = i + 1
Loop
Close #1
End Sub


Wyszukiwarka

Podobne podstrony:
lab9
lab9
lab9
lab9
lab9 ReadMe
lab9
lab9 ZA
I9G1S1 Nadolny Michal Lab9
sr lab9
lab9
lab9 analiza II
09 LAB9
lab9
lab9 NHIP
Lab9 README
lab9
lab9
TM Asemb LAB9

więcej podobnych podstron