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

¼g¤J­ì¦ì

¦³ÃöApplication.InputBoxªº°ÝÃD

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

¦^´_ 3# myleoyes
InputBox Åã¥Ü«á: «ö¤UCtrlÁä ¥i½Æ¿ï
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

LeoV67.gif (366.03 KB)

LeoV67.gif

LeoV67.rar (18.05 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-4-22 15:49 ½s¿è

¦^´_ 5# myleoyes
«ö¤UCtrlÁä ¥i½Æ¿ï: ´N¦p¤u§@ªí¤W¿ï¨ú¦h­«½d³òªºÀx¦s®æ
§A¸Õ¹L¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

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



·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

LeoV67-1.gif (930.34 KB)

LeoV67-1.gif

TOP

¼g¤J­ì¦ì

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

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD