ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] InputBox°ÝÃD½Ð±Ð

¦^´_ 1# rouber590324


1 ¨Ï¥Î¼Æ¦r±K½X¹B§@µL°ÝÃD
2¨Ï¥Î ­^¤å+¼Æ¦r «h InputBox¨q¥X "¤£¥¿½T¤§¼Æ¦r"

¦Û¤v®M¬Ý¬Ý§a~~~~

Sub test()
A = InputBox("½Ð¿é¤J±K½X")
If Not IsNumeric(A) Then MsgBox "¤£¥¿½T¤§¼Æ¦r": Exit Sub
MsgBox "±K½X¥¿±`"
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 3# rouber590324


³á³á¡A¨º§A³]©wType«¬¦¡¬°¼Æ¦r¬O¦h¦¹¤@Á|¤F
¹w³]´N¬O¤å¦r

X = Application.InputBox("½Ð¿é¤J­ì±K½X", "¿é¤J·s±K½X")

qqq.png
2018-12-4 11:54
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD