textbox sayı formatı

  1. ExcelDepo

    Textboxa Rakam Girmeye Zorlama

    Sub Hesapla() ExcelDepo: z = InputBox("Zam oranını girin (Ondalık sayı ise virgülle ayırın)") If Not IsNumeric(z) Then msgbox "Sadece Sayı Giriniz." GoTo ExcelDepo End if Range("A1") = (z + 100) / 100 End Sub Uygulama Adımları Microsoft Visual Basic for Applications penceresini (Alt + F11)...
Üst