تابع inputbox

[night_secret]

سلام به دوستان مهربون من میخواستم وقتی inputbox از من مقدار میخواد من اونو خالی بدم پیش فرض 0 نباشه و مقدار null بگیره همتون خیلی خوبیین ممنون!
فقط بی زحمت سریع جواب بدین

[kuh_nur]

سلام
اینطوری از تابع استفاده کن

Private Sub Form_Load()
Me.Caption = InputBox("Enter Your Name:", "Ator System")
End Sub

[night_secret]

منظور من اینکه اگه تو command یک inputbox بگیرییم چه کار کنم مثلا من این کد رو نوشتم
Sub a(n As Variant)
Dim i As Variant
Dim tmp As Variant
For i = 1 To n
tmp = tmp + i
Next
If n = 1 Then
MsgBox "ÌãÚ ÚÏÏ 1 åãÇä í˜ ÇÓÊ", vbInformation
Else
MsgBox " ÌãÚ ÚÏÏ 1 ÊÇ " & n & " ÚÏÏ " & tmp & " ÇÓÊ "
End If
End Sub

Private Sub b_Click()
End
End Sub

Private Sub Command1_Click()
Dim x As Variant
x = Val(InputBox("ENTER YOUR NUMBER"))
Call a(x)
End Sub
:متفکر:

[night_secret]

من الان به این مقدار خالی میدم 0 میگیره میخوام خالی رو null بگیره که من پیغام مناسب بدم:متفکر:

[shedayat]

خوب خاصیت تابع val اینه دیگه!!!
یه تغییر کوچولو توی کدت دادم که فکر کنم مشکلت حل شد.

Sub a(n As String)
Dim i As Variant
Dim tmp As Variant
If n = "" Then MsgBox "Adad vared nashod": Exit Sub
For i = 1 To Val(n)
tmp = tmp + i
Next
If Val(n) = 1 Then
Call MsgBox("Sdfs", vbInformation)
Else
MsgBox ("sdgsgg")
End If
End Sub

Private Sub b_Click()
End
End Sub

Private Sub Command1_Click()
Dim x As String
x = InputBox("ENTER YOUR NUMBER")
Call a(x)
End Sub

موفق باشی.