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

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

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

DEAR  ALL ¤j¤j
1.¹Ï¤@¬°Åܧó±K½X¤§µ{¦¡.°ÝÃDÂI½Ð±Ð¦p¤U
1.1 ¨Ï¥Î¼Æ¦r±K½X¹B§@µL°ÝÃD
1.2¨Ï¥Î ­^¤å+¼Æ¦r «h InputBox¨q¥X "¤£¥¿½T¤§¼Æ¦r"
2.½Ð°Ý¥i¦³¸Ñ¨M¤è¦¡.·Ð¤£§[½ç±Ð.THANKS*10000

¹Ï¤@
Sub Åܧó±K½X()
'Sheet3.Range("C2").Value
If Sheet1.Range("F3") = Sheet3.Range("A2") Then
X = Application.InputBox("½Ð¿é¤J­ì±K½X", "¿é¤J·s±K½X", , , , , , 1)
If X = False Then MsgBox "¤w¨ú®ø¿é¤J": Exit Sub Else MsgBox "¿é¤J¼Æ­È¬°" & X
If Sheet3.Range("C2").Value <> X Then
MsgBox "±K½X»P¸ê®Æ®w­È¤£¦P-µLªkÅܧó-·Ð­«·s¿é¤J"
End If
If Sheet3.Range("C2").Value = X Then
If Not (X = "" Or X = " ") Then
i = Application.InputBox("½Ð¿é¤J·s±K½X", "¿é¤J±K½X", , , , , , 1)
J = Application.InputBox("½Ð­«Âпé¤J·s±K½X", "­«Âпé¤J±K½X", , , , , , 1)
If i = False Or J = False Then MsgBox "¤w¨ú®ø¿é¤J": Exit Sub Else MsgBox "¿é¤J¼Æ­È¬°" & i
End If
If i = J Then
Sheet3.Range("C2").Value = i
MsgBox "±K½XÅܧ󧹦¨"
End If
If i <> J Then
MsgBox "·s±K½X-­«Âпé¤J¤§­È¤£¦P-µLªkÅܧó-·Ð­«·s¿é¤J"
End If
End If
End If
END SUB
ù

¦^´_ 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

DEAR  SIR
±z»~·|©Ô
¤p§Ì¬O»Ý¨D ­^¤å+¼Æ¦r ·í±K½X¹B§@¥¿±`¤§¤è¦¡.THANKS*10000
ù

TOP

¦^´_ 1# rouber590324


   ±K½X= Application.InputBox("½Ð¿é¤J·s±K½X", "¿é¤J±K½X", , , , , , 2)
¨Ï¥Î¦r¦ê«¬ºA
¾Ç®üµL²P_¤£®¢¤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

DAER  Hsieh  & n7822123
THANKS*10000
­ì¨Ó 1 §ï 2 §Y¥i  «éµM¤j®©

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

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD