ABCDEFGHIJKLMNOPQRSTUVWXYZ
1
VBasic te kullanılan bazı fonksiyonlar
2
3
Sub and_()'VE
4
If Range("a1") = "ali" And Range("b1") = "ali" And Range("c1") = "ali" Then
5
MsgBox "üç hücredeki veride koşula uymaktadır."
6
Else
7
MsgBox "hücrelerdeki verilerden bir veya ikisi istenilen koşula uymamaktadır"
8
End If
9
End Sub
10
11
-----------------------------------------------------------------------------------------------------
12
Sub or_()'VEYA
13
If Range("a1") = "veli" Or Range("b1") = "selo" Or Range("c1") = "ahmet" Then
14
MsgBox "üç hücreden en az biri istenen koşula uymaktadır."
15
Else
16
MsgBox "üç koşuldan hiç birisi istenen koşula uymamaktadır."
17
End If
18
End Sub
19
20
-----------------------------------------------------------------------------------------------------
21
Sub if_()'EĞER
22
If Range("a1") = "Pazartesi" Then
23
MsgBox "haftanın birinci günü"
24
End If
25
If Range("a1") = "Salı" Then
26
MsgBox "haftanın ikinci günü"
27
End If
28
If Range("a1") = "Çarşamba" Then
29
MsgBox "haftanın üçüncü günü"
30
End If
31
If Range("a1") <> "Pazartesi" And Range("a1") <> "Salı" And Range("a1") <> "Çarşamba" Then
32
MsgBox "seçilen gün işlemede değil"
33
End If
34
End Sub
35
36
-----------------------------------------------------------------------------------------------------
37
Sub elseif_()'EĞER YOKSA
38
If Range("a1") = "1" Then
39
MsgBox "değer 1"
40
ElseIf Range("a1") <> "1" Then
41
MsgBox "değer 1 değil"
42
End If
43
End Sub
44
45
-----------------------------------------------------------------------------------------------------
46
Sub selectcase_()
47
Select Case Range("a1")
48
Case "1"
49
MsgBox "sonuç1"
50
Case "2"
51
MsgBox "sonuç2"
52
Case "3"
53
MsgBox "sonuç 3"
54
Case Else
55
MsgBox "istenen sonuç alınamadı"
56
End Select
57
End Sub
58
59
-----------------------------------------------------------------------------------------------------
60
Sub trim_()'SAĞDAN SOLDAN BOŞLUK KALDIRIR
61
Range("b1") = Trim(Range("a1"))
62
End Sub
63
64
-----------------------------------------------------------------------------------------------------
65
Sub len_()'UZUNLUK
66
Range("b1") = Len(Range("a1"))
67
MsgBox "uzunluk " & Range("b1")
68
End Sub
69
70
-----------------------------------------------------------------------------------------------------
71
Sub left_()'SOL
72
Range("b1") = Left(Range("a1"), 6)
73
MsgBox "alınan değer " & Range("b1")
74
End Sub
75
76
-----------------------------------------------------------------------------------------------------
77
Sub right_()'SAĞ
78
Range("b2") = Right(Range("a2"), 5)
79
MsgBox "alınan değer " & Range("b2")
80
End Sub
81
82
-----------------------------------------------------------------------------------------------------
83
Sub lcase_()'KÜÇÜK HARF
84
abir = LCase(Replace(Replace(Range("a1"), "I", "ı"), "İ", "i"))
85
Range("b1") = abir
86
End Sub
87
88
-----------------------------------------------------------------------------------------------------
89
Sub ucase_()'BÜYÜK HARF
90
abir = UCase(Replace(Replace(Range("a1"), "i", "İ"), "ı", "I"))
91
Range("b2") = abir
92
End Sub
93
94
-----------------------------------------------------------------------------------------------------
95
Sub mid_()'PARÇA AL
96
Range("b1") = Mid(Range("a1"), 4, 7)
97
End Sub
98
99
-----------------------------------------------------------------------------------------------------
100
Sub val_()'SAYISAL DEĞER