Sprawdzian z visuala

[MagcikWarrior]

Cześc chłopaki potrzebuje poradnikow do visuala poniewaz musze zaliczyć sprawdzian. 

Chodzi o to że muszę ogarnąć jak robić podobne makra do tych. 

 

 

 

Sub suma()
Dim suma As Integer
For i = 1 To 5 Step 1
suma = suma + Sheets(1).Cells(i, 1).Value
Next i
Sheets(1).Cells(6, 1).Value = "Suma = " + CStr(suma)
End Sub
' ta linijka to komenatrz zaczyna się od '
' nazwa naszego makra
Sub Piramida()
' deklaracja zmiennych
Dim kroki As Integer
Dim szczyt As Integer
Dim ile As Integer
Dim wiersz As Integer
' inicjalizacja zmiennych
wiersz = 1
kroki = 5
ile = 1
szczyt = kroki / 2
' wyczysc wszystkie wiersze w kolumnie B czyli 2
Do While Sheets(1).Cells(wiersz, 2).Value <> ""
Sheets(1).Cells(wiersz, 2).Value = ""
wiersz = wiersz + 1
Loop
' jesli ilosc krokow jest parzysta
If kroki Mod 2 = 0 Then
For i = 1 To kroki + 1 Step 1
If i <= szczyt Then
Sheets(1).Cells(i, 2).Value = ile
ile = ile + 1
Else
Sheets(1).Cells(i, 2).Value = ile
ile = ile - 1
End If
Next i
' jesli ilosc krokow jest nieparzysta
Else
For i = 1 To kroki Step 1
If i <= szczyt Then
Sheets(1).Cells(i, 2).Value = ile
ile = ile + 1
Else
Sheets(1).Cells(i, 2).Value = ile
ile = ile - 1
End If
Next i
End If
End Sub
Sub LiczbaLosowa()
Randomize
Dim lowerbound As Integer
Dim upperbound As Integer
Dim suma As Double
lowerbound = 1
upperbound = 4
For i = 1 To 10 Step 1
Sheets(1).Cells(i, 1).Value = i
lowerbound = 1
upperbound = 4
Sheets(1).Cells(i, 2).Value = CInt(Int(((upperbound - lowerbound) * Rnd()) + lowerbound))
lowerbound = 100
upperbound = 500
Sheets(1).Cells(i, 3).Value = CInt(Int(((upperbound - lowerbound) * Rnd()) + lowerbound))
Sheets(1).Cells(i, 4).Value = Sheets(1).Cells(i, 3).Value + _
Sheets(1).Cells(i, 3).Value * 0.23
suma = suma + Sheets(1).Cells(i, 4).Value
If suma > 1000 Then
Sheets(1).Cells(i, 5).Value = "to tutaj Emotikon wink"
suma = 0
Else
Sheets(1).Cells(i, 5).Value = Null
End If
Next i
'For i = 1 To 10 Step 1
'piszemy tutaj
'Next i
'CzyPusta
End Sub
Sub CzyPusta()
If Sheets(1).Cells(1, 10).Value = "" Then
Sheets(1).Cells(1, 11).Value = "komórka po lewej jest pusta."
Else
Sheets(1).Cells(1, 11).Value = "komórka po lewej nie jest pusta."
End If
End Sub
Sub GenerujLP()
Sheets(2).Cells(1, 10).Value = "LP"
Sheets(2).Cells(2, 10).Value = "1"
Sheets(2).Cells(3, 10).Value = "2"
Sheets(2).Cells(4, 10).Value = "3"
End Sub
Sub suma(ByVal x As Double, ByVal y As Double)
suma = x + y
End Sub
Sub macierzZerowa()
For wiersz = 1 To 3 Step 1
For kolumna = 1 To 3 Step 1
Sheets(3).Cells(wiersz, kolumna).Value = 0
Next kolumna
Next wiersz
End Sub
Sub macierzJednostkowa()
For wiersz = 1 To 3 Step 1
For kolumna = 1 To 3 Step 1
If wiersz = kolumna Then
Sheets(3).Cells(wiersz, kolumna).Value = 1
Else
Sheets(3).Cells(wiersz, kolumna).Value = 0
End If
Next kolumna
Next wiersz
End Sub
Sub SumaWartosci()
Dim suma As Integer
suma = 0
For i = 1 To 3 Step 1
suma = suma + Sheets(1).Cells(i, 1).Value
Next i
Sheets(1).Cells(4, 1).Value = suma
End Sub

 

 

Sub tablica()
'deklaracja tablicy zawierającej teksty (5 elementów)
Dim Films(1 To 5) As String
'deklaracja zmiennej zawierającej rozmiar
Dim rozmiarTab As Integer
'wyznaczenie rozmiaru tablicy
rozmiarTab = UBound(Films, 1) - LBound(Films, 1) + 1
'przypisanie wartości do kolejnych elementów w tablicy
Films(1) = "Lord of the Rings"
Films(2) = "Speed"
Films(3) = "Star Wars"
Films(4) = "The Godfather"
Films(5) = "Pulp Fiction"
'wypisanie w pionie wartości kolejnych elementów tablicy
For i = 1 To rozmiarTab Step 1
Sheets(1).Cells(i, 1).Value = Films(i)
Next i
End Sub
Sub InfoNaTematTablicy()
Dim Films(1 To 5) As String
MsgBox "Nazwa tablicy: Films" & vbCrLf & _
"Dolna granica tablicy: " & LBound(Films, 1) & vbCrLf & _
"Gorna granica tablicy: " & UBound(Films, 1) & vbCrLf & _
"Ilość elementów: " & UBound(Films, 1) - LBound(Films, 1) + 1 & vbCrLf & _
"Typ elementów tablicy: " & TypeName(Films)
End Sub

 

 

 

Sub PoliczLiterki()
'deklarowanie zmiennych
Dim tekst As String
Dim licznik As Integer
Dim literka As String
'inicjowanie zmiennych
tekst = "ala ma kota."
literka = "a"
licznik = 0
' Len zwraca długość tekstu w zmiennej "tekst" (ile ma liter)
For i = 1 To Len(tekst) Step 1
' Mid pozwala na wycięcie części z orginalnego tekstu
' poniżej wycinana jest zawsze jedna literka
' Mid([tekst z którego wycinamy], [pozycja od której wycinamy], [ile liter wycinamy])
If Mid(tekst, i, 1) = literka Then
licznik = licznik + 1
End If
Next i
'MsgBox to okno komunikatów, CStr zamienia argument na tekst
'licznik to Integer, ale CStr zamieni do na String
MsgBox CStr(licznik)
End Sub

 

Z GÓRY DZIĘKI :*