[µo°Ý] inputbox ¥X²{«¬ºA¤£²Å¦X

wei9133

¤U­±¥N½X¦pªG«ö½T©w·|¥¿±`°õ¦æ¡A¦ý­Y«ö¤U¨ú®ø©Îesc«h·|¥X²{
°õ¦æ¶¥¬q¿ù»~ '13':

¤U¸ü (5.79 KB)

2019-12-31 22:44

«¬ºA¤£²Å¦X
¥i¥HÀ°§Ú¬Ý¤@¤U­n«ç»ò§ï¶Ü?

1. Sub ³Ó³õ()
   
2. Sub ³Ó³õ1()
   
3. ' §Ö³tÁä: Ctrl+j
   
4. 
   
5. row = ActiveCell.row '±N·í«e©Ò¦b¦æ©ñ¶iROXÅܶq¤¤
   
6. ³Ó³õ¼Æ = Range("by" & row).Value '­Y¦³­×§ï¥h§ä³Ó³õ¦ì¸m¬O§_ÁÙ¦bBYÄæ
   
7. If ³Ó³õ¼Æ = "" Then
   
8. ³Ó³õ¼Æ = "0"
   
9. End If
   
10. Dim x As String
    
11. x = InputBox("²Ä" & row & "¦æ" & "³Ó³õ¡G" & ³Ó³õ¼Æ & "³õ" & vbCrLf & "¬O§_³Ó§Q¨Ã¥[Áä¤Jªº¼Æ¶q¤W¥h", "½T»{µ¡¤f", 1)
    
12. 
    
13. 'MsgBox x
    
14. '¦^¶Çªº­È¡A1=½T©w 2=¨ú®ø 3=²§±`²×¤î 4=­«¸Õ 5=²¤¹L 6=¬O 7=§_
    
15. If x > 0 Then
    
16. Range("by" & row) = ³Ó³õ¼Æ + x
    
17. ElseIf x = "" Then
    
18. MsgBox "¤w¨ú®ø¾Þ§@"
    
19. End If
    
20. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 1# wei9133


Dim x As String '¤å¦r«¬ºA
x = InputBox("²Ä" & Row & "¦æ" & "³Ó³õ¡G" & ³Ó³õ¼Æ & "³õ" & vbCrLf & "¬O§_³Ó§Q¨Ã¥[Áä¤Jªº¼Æ¶q¤W¥h", "½T»{µ¡¤f", 1)
'¦^¶Çªº­È¡A1=½T©w 2=¨ú®ø 3=²§±`²×¤î 4=­«¸Õ 5=²¤¹L 6=¬O 7=§_
If Val(x) > 0 Then '±N¤å¦rÂର¼Æ­È
   Range("by" & Row) = ³Ó³õ¼Æ + x
ElseIf x = "" Then
   MsgBox "¤w¨ú®ø¾Þ§@"
End If

wei9133

¦^´_ 2# ­ã´£³¡ªL

¥i¥H¥¿±`¾Þ§@¤F¡A·PÁÂ

¥t¥~·Q°Ý¤@¤U
¬°¦ó±N
Dim x As Integer '«Å§i¬°¾ã¼Æ «h·|Åܦ¨¿ù»~
ÁÙ¦³­Yx ¿é¤J­t¼Æ«h¤£°Ê§@
(µL½×x«Å§i¬°¦r¦ê©Î¾ã¼Æ³£¬O)

±NX­È¿é¤J­t¼Æ
µ{¦¡½X¨«¨ì³o
Range("by" & row) = ³Ó³õ¼Æ + x
À³¸Ó¬O ³Ó³õ¼Æ + ­t­È
¥X¨Óªº¼Æ¦rÀ³¸Ó¬O­n ³Ó³õ¼Æ - ­È¤~¹ï

1. Dim x As Integer
   
2. x = InputBox("²Ä" & row & "¦æ" & "³Ó³õ¡G" & ³Ó³õ¼Æ & "³õ" & vbCrLf & "¬O§_³Ó§Q¨Ã¥[Áä¤Jªº¼Æ¶q¤W¥h", "½T»{µ¡¤f", 1)
   
3. '¦^¶Çªº­È¡A1=½T©w 2=¨ú®ø 3=²§±`²×¤î 4=­«¸Õ 5=²¤¹L 6=¬O 7=§_
   
4. MsgBox x
   
5. 
   
6. If Val(x) > 0 Then '±N¤å¦rÂର¼Æ­È
   
7. Range("by" & row) = ³Ó³õ¼Æ + x
   
8. ElseIf x = "" Then
   
9. MsgBox "¤w¨ú®ø¾Þ§@"
   
10. End If
    
11. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 3# wei9133

InputBox «ö¨ú®ø«á, ¬O­ÓªÅ¦r²Å""
©Ò¥H Dim x As Integer ¥²µMµo¥Í¿ù»~, ¦]¬°x="", ¤£¬O¼Æ­È

­ã´£³¡ªL

¦^´_ 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, ©Ò¥H­n¥["", Åܦ¨¤å¦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