GBKEE

¦^´_ 1# myleoyes
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub ½m²ß()
   
3.     Dim ZZ As Range, E As Range, M
   
4.     On Error Resume Next
   
5.     Set ZZ = Application.InputBox("½Ð¤£§[½ç±Ð!", "     ½Ð±Ð«e½ú­Ì!!", Type:=8)
   
6.     'Type     ¿ï¾Ü©Êªº Variant¡C«ü©w¶Ç¦^ªº¸ê®ÆÃþ«¬¡C¦pªG¬Ù²¤¦¹¤Þ¼Æ¡A¹ï¸Ü¤è¶ô±N¶Ç¦^¤å¦r¡C³o¥i¬°¤U¦C­Èªº¨ä¤¤¤§¤@©Î¨ä¤¤´X­Óªº©M¡C
   
7.     '­È ·N¸q
   
8.     '0 ¤½¦¡
   
9.     '1 ¼Æ¦r
   
10.     '2 ¤å¦r (¦r¦ê)
    
11.     '4 ÅÞ¿è­È (True ©Î False)
    
12.     '8 Àx¦s®æ°Ñ·Ó¡A§@¬° Range ª«¥ó
    
13.     '16 ¿ù»~­È¡A¤ñ¦p #N/A
    
14.     '64 ¼Æ­È°}¦C
    
15.     If ZZ = False Then Exit Sub
    
16.    
    
17.     For Each E In ZZ.Cells
    
18.         M = IIf(M = "", "", M & "+") & IIf(E = "", "0", E)
    
19.     Next
    
20.     [$M$1] = M
    
21. End Sub

½Æ»s¥N½X

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
      «e½ú!½d¨Ò
          ½m²ß!$N$5=8
          ½m²ß!$O$5=2
          ½m²ß!$P$5=7
      Sub ½m²ß()
          ZZ = Application.InputBox("½Ð¤£§[½ç±Ð!", "     ½Ð±Ð«e½ú­Ì!!", Type:=0)
          If ZZ = False Then Exit Sub  
          [$M$1] = ZZ
      End Sub   
          ±o¨ì[$M$1]=[LeoV-67.xlsm]½m²ß!$N$5+[LeoV-67.xlsm]½m²ß!$O$5+[LeoV-67.xlsm]½m²ß!$P$5
          »Ý¨D[$M$1]=8+2+7³o¼Ëªº«¬ºA
          ¤£ª¾µ{¦¡¬°¦ó?
          ½Ð¤£§[¦A½ç±ÐÁÂÁ¦A¤T!!