- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-22
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2020-1-4 10:57 ½s¿è
¦^´_ 3# wei9133
Sub ttst()
Dim x
x = Application.InputBox("²Ä" & Row & "¦æ" & "³Ó³õ¡G" & ³Ó³õ¼Æ & "³õ" & vbCrLf & "¬O§_³Ó§Q¨Ã¥[Áä¤Jªº¼Æ¶q¤W¥h", "½T»{µ¡¤f", 1)
If x & "" = "False" Then
MsgBox "¤w¨ú®ø¾Þ§@" '«ö¨ú®ø®É(ª`·N:¿é¤J0«ö½T©w, x¤]·|³Q©w¬°0=False, ©Ò¥Hn¥["", Åܦ¨¤å¦r»P0°µ°Ï§O)
ElseIf x = "" Then
MsgBox "¥¼¿é¤J¤º®e"
ElseIf IsNumeric(x) = False Then
MsgBox "¿é¤Jªº«D¼ÆÈ"
Else
Range("by" & Row) = ³Ó³õ¼Æ + x
End If
End Sub |
|