یک فایل ضمیمه میکنم
در سلول a1 یک مقدار عددی صحیح وارد کنید زوج یا فرد بودن رو بصورت msgbox نشان خواهد
کد PHP:
Private Sub CommandButton1_Click()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 3
If Range("a1") Mod 2 = 1 Then
Select Case InfoBox.Popup("پنجره بعد از 3 ثانيه به طور اتوماتيک بسته خواهد شد", _
AckTime, "عدد فرد ميباشد", 0)
Case 1, -1
Exit Sub
End Select
Else
Select Case InfoBox.Popup("پنجره بعد از 3 ثانيه به طور اتوماتيک بسته خواهد شد", _
AckTime, "عدد زوج ميباشد", 0)
Case 1, -1
Exit Sub
End Select
End If
End Sub
فایل ضمیمه گردید
علاقه مندی ها (Bookmarks)