VBasic te kullanılan bazı fonksiyonlar

[Seceren]

VBasic te kullanılan bazı fonksiyonlar

Sub and_()'VE
If Range("a1") = "ali" And Range("b1") = "ali" And Range("c1") = "ali" Then
MsgBox "üç hücredeki veride koşula uymaktadır."
Else
MsgBox "hücrelerdeki verilerden bir veya ikisi istenilen koşula uymamaktadır"
End If
End Sub

-----------------------------------------------------------------------------------------------------
Sub or_()'VEYA
If Range("a1") = "veli" Or Range("b1") = "selo" Or Range("c1") = "ahmet" Then
MsgBox "üç hücreden en az biri istenen koşula uymaktadır."
Else
MsgBox "üç koşuldan hiç birisi istenen koşula uymamaktadır."
End If
End Sub

-----------------------------------------------------------------------------------------------------
Sub if_()'EĞER
If Range("a1") = "Pazartesi" Then
MsgBox "haftanın birinci günü"
End If
If Range("a1") = "Salı" Then
MsgBox "haftanın ikinci günü"
End If
If Range("a1") = "Çarşamba" Then
MsgBox "haftanın üçüncü günü"
End If
If Range("a1") <> "Pazartesi" And Range("a1") <> "Salı" And Range("a1") <> "Çarşamba" Then
MsgBox "seçilen gün işlemede değil"
End If
End Sub

-----------------------------------------------------------------------------------------------------
Sub elseif_()'EĞER YOKSA
If Range("a1") = "1" Then
MsgBox "değer 1"
ElseIf Range("a1") <> "1" Then
MsgBox "değer 1 değil"
End If
End Sub

-----------------------------------------------------------------------------------------------------
Sub selectcase_()
Select Case Range("a1")
Case "1"
MsgBox "sonuç1"
Case "2"
MsgBox "sonuç2"
Case "3"
MsgBox "sonuç 3"
Case Else
MsgBox "istenen sonuç alınamadı"
End Select
End Sub

-----------------------------------------------------------------------------------------------------
Sub trim_()'SAĞDAN SOLDAN BOŞLUK KALDIRIR
Range("b1") = Trim(Range("a1"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub len_()'UZUNLUK
Range("b1") = Len(Range("a1"))
MsgBox "uzunluk " & Range("b1")
End Sub

-----------------------------------------------------------------------------------------------------
Sub left_()'SOL
Range("b1") = Left(Range("a1"), 6)
MsgBox "alınan değer " & Range("b1")
End Sub

-----------------------------------------------------------------------------------------------------
Sub right_()'SAĞ
Range("b2") = Right(Range("a2"), 5)
MsgBox "alınan değer " & Range("b2")
End Sub

-----------------------------------------------------------------------------------------------------
Sub lcase_()'KÜÇÜK HARF
abir = LCase(Replace(Replace(Range("a1"), "I", "ı"), "İ", "i"))
Range("b1") = abir
End Sub

-----------------------------------------------------------------------------------------------------
Sub ucase_()'BÜYÜK HARF
abir = UCase(Replace(Replace(Range("a1"), "i", "İ"), "ı", "I"))
Range("b2") = abir
End Sub

-----------------------------------------------------------------------------------------------------
Sub mid_()'PARÇA AL
Range("b1") = Mid(Range("a1"), 4, 7)
End Sub

-----------------------------------------------------------------------------------------------------
Sub val_()'SAYISAL DEĞER
Range("b1") = Val(Range("a1"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub countA_()'DOLU SAY
Range("b1") = WorksheetFunction.CountA(Range("a1:a5"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub countblank_()'BOŞLUK SAY
Range("b1") = WorksheetFunction.CountBlank(Range("a1:a5"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub countif_()'EĞER SAY
Range("b1") = WorksheetFunction.CountIf(Range("a1:a5"), "1")
End Sub

-----------------------------------------------------------------------------------------------------
Sub vlookup_()'DÜŞEY ARA
On Error GoTo hata
For sut = 1 To 3
Range("d" & sut) = WorksheetFunction.vlookup(Range("c" & sut), Range("a:b"), 2, 0)
Next
Exit Sub
hata:
MsgBox "c sütununda verisiz hücreyi doldurmalısınız."
End Sub

-----------------------------------------------------------------------------------------------------
Sub max_()'BÜYÜK
Range("c1") = WorksheetFunction.max(Range("a1:a10"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub min_()'KÜÇÜK
Range("c2") = WorksheetFunction.Min(Range("a1:a10"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub sum_()'TOPLA
Range("b1") = WorksheetFunction.sum(Range("a1:a5"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub sumif_()'TOPLA EĞER
Range("b1") = WorksheetFunction.SumIf(Range("a1:a10"), ">4")
End Sub

-----------------------------------------------------------------------------------------------------
Sub sumif1_()'TOPLA EĞER
Range("b1") = WorksheetFunction.SumIf(Range("a1:a10"), "=ali", Range("c1:c10"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub find_()'BUL
Range("a1:a10").find("haziran").Select
End Sub

-----------------------------------------------------------------------------------------------------
Sub find1_()'BUL
On Error GoTo hata
deg = InputBox("aranacak değeri giriniz.")
Range("a1:a10").find(deg).Select
Exit Sub
hata:
MsgBox "aranılan değer bulunamadı."
End Sub

-----------------------------------------------------------------------------------------------------
Sub product_()'ÇARP
Range("b1") = WorksheetFunction.Product(Range("a1:a2"))
End Sub

-----------------------------------------------------------------------------------------------------
Sub sirala_a_z()'SIRALA
Range("a:b").Sort key1:=Range("a1"), order1:=xlAscending
End Sub

-----------------------------------------------------------------------------------------------------
Sub sirala_z_a()'SIRALA
Range("a:b").Sort key1:=Range("a1"), order1:=xlDescending
End Sub

-----------------------------------------------------------------------------------------------------
'topla.çarpım kullanımı
Sub topla_çarpım()
Range("d1") = Evaluate("=SumProduct(--(a1:a10=a1),--(b1:b10=b1),--(c1:c10))")
End Sub

-----------------------------------------------------------------------------------------------------
Split VE UBound
Sub AYIR()
For SUT = 1 To [A65536].End(3).Row
A = Split(Range("A" & SUT), "-")
Range("B" & SUT) = A(UBound(A))
Next
End Sub

Split verdiğimiz ayraç ile bir dizedeki değerleri bölerek stringlere atamamızı sağlar
UBound dizideki içerisindeki eleman sayısını verir,

-----------------------------------------------------------------------------------------------------

Ekli Dosyayı buradan indirebilirsiniz.

 

[Korhan Ayhan]

Paylaşımınız için teşekkürler.