Private Function bulyuzde(metin As String) As Integer
On Error GoTo Err_hata
Dim index As Integer
Dim yuzde As Integer
yuzde = 0
index = InStr(metin, "%")
If (index = 1) Then
If (Mid(metin, index + 1, 1) = " ") Then
If IsNumeric(Mid(metin, 3, 2)) Then
yuzde = Mid(metin, 3, 2)
End If
Else
If IsNumeric(Mid(metin, 2, 2)) Then
yuzde = Mid(metin, 2, 2)
End If
End If
ElseIf (index = 3) Then
If IsNumeric(Mid(metin, 1, 2)) Then
yuzde = Mid(metin, 1, 2)
End If
ElseIf (index > 3) Then
If (Mid(metin, index - 1, 1) = " ") Then
If IsNumeric(Mid(metin, index - 3, 2)) Then
yuzde = Mid(metin, index - 3, 2)
End If
Else
If IsNumeric(Mid(metin, index - 2, 2)) Then
yuzde = Mid(metin, index - 2, 2)
End If
End If
End If
Exit_kod:
bulyuzde = yuzde
Exit Function
Err_hata:
yuzde = 0
MsgBox Err.Description
Resume Exit_kod
End Function
şöyle bir şey yazdım olmuş mu
Son Düzenleme: 08/04/2020, 19:27, Düzenleyen: accessman.