¼g¤J­ì¦ì

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!!

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

¦^´_ 2# GBKEE
¨}®v!ÁÂÁÂ!!Type:=8 ¥u¯à³æ¨úµLªk½Æ¿ï¤§«e¦³¸Õ¹L
           ½Ð³Â·Ð¦A­×§ï¤@¤U¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 3# myleoyes
InputBox Åã¥Ü«á: «ö¤UCtrlÁä ¥i½Æ¿ï

myleoyes

¦^´_ 4# GBKEE
¨}®v!ÁÂÁÂ!!§A¥i¯à»~¸Ñ¤p§Ì©Ò¿×ªº½Æ¿ï      
           ¦pªþ°ÊµeÀÉ©Ò¥Ü!!
           ½Ð³Â·Ð¦A­×§ï¤@¤U¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 5# myleoyes
«ö¤UCtrlÁä ¥i½Æ¿ï: ´N¦p¤u§@ªí¤W¿ï¨ú¦h­«½d³òªºÀx¦s®æ
§A¸Õ¹L¶Ü?

myleoyes

¦^´_ 6# GBKEE
¨}®v!ÁÂÁÂ!¸Õ¹LN¦¸°ÊµeÀÉ´N¬O«ö¤UCtrlÁä½Æ¿ïªºµ²ªG
        °ÝÃD¬OType:=8 ¥u¯à±µ¨ü³æ¨úµLªk½Æ¿ï¤~ÀY¤j
      ¨ä¥LªºType¤]¸Õ¹L[$M$1]¨S¦³¼Æ¦r¥X²{ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 7# myleoyes
«ö¤UCtrl  ·Æ¹«¿ï¨ú¤£¬Û³sªºÀx¦s®æ,µ{¦¡·|¥Î,³s±µªº
¨Ò  Sheet2!$L$3,Sheet2!$L$5,Sheet2!$N$5
¿ý»s¥¨¶°·|¦³µ²ªGªº

§A§Æ±æ±o¨ìªº¬O¤½¦¡ -> »Ý¨D[$M$1]=8+2+7³o¼Ëªº«¬ºA
­×§ï2#¤U¤èªºµ{¦¡½X¥i¹F¨ì

1. For Each E In ZZ.Cells
   
2. M = IIf(M = "", "=", M & "+") & IIf(E = "", "0", E)
   
3. Next

½Æ»s¥N½X

¤U¸ü (44.82 KB)

2013-4-23 14:23

myleoyes

¦^´_ 8# GBKEE
¨}®v!¤p§Ìª¾¿ù..¹ï¤£°_§Ú¿ù¤F!
     ­ì¥»µ{¦¡
     Sub ½m²ß()
          If Sheet2.[I1] = 1 Then ½m²ß1
          If Sheet2.[I1] = 2 Then ½m²ß2
     End Sub
     Sub ½m²ß1()'¼Æ¦r¬Û¥[
         Dim ZZ
         ZZ = Application.InputBox("½Ð¤£§[½ç±Ð!", "     ½Ð±Ð«e½ú­Ì!!", Type:=8 + 1)
         If ZZ <= 0 Then Sheet2.[I1] = 2: Exit Sub
         [$M$1] = ZZ
     End Sub
     Sub ½m²ß2()'¼Æ¦r¬Û´î
         Dim ZZ
         ZZ = Application.InputBox("½Ð¤£§[½ç±Ð!", "     ½Ð±Ð«e½ú­Ì!!", Type:=8)
         If ZZ <= 0 Then Sheet2.[I1] = 1: Exit Sub
         [$M$1] = ZZ
     End Sub
     ¦Ó¨}®vªºµ{¦¡¬°½m²ß3
     ¦ý¨Ï²×¨S¦³³Q¥Î¨ì©Ò¥H¤~·|Åý§Úı±o¯Ç´e
     ªþ¤WÀɮפS²ßºD©Êªº¥Î+²Å¸¹¨Ó¸ÑÄÀ°ÝÃD©Ò¦b!!
     ¹ê¦b©êºp!!¨¯­WÅo!ÁÂÁ¦A¤T!!

myleoyes

¦U¦ì«e½ú§A­Ì¦n!!
         «e½ú!½Ð¦P®É¶}±Ò¸ê®ÆÀÉ»P¥ÒÀɦA«ö¶s
         °ÝÃD¦pªþÀÉ»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!
LeoV-68.rar (18.39 KB)

¤U¸ü¦¸¼Æ: 9

2013-4-25 22:12