¼g¤J­ì¦ì

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

myleoyes

¦^´_ 11# GBKEE
¨}®v!ÁÂÁÂ!!
     ­n¦p¦ó¨M©w¨Ï¥Î ¥ÒÀɩΤAÀÉ
     ¥ÒÀɩΤAÀɬO¥Î¤â°Ê¤è¦¡¶}±Ò
     ¦p¶}¥ÒÀÉ«ö¶s®É¦ì²¾AZµ{¦¡¾A¥Î
     ¶}¤AÀÉ«ö¶s®É¦ì²¾AZµ{¦¡¤]¥i¥H¨Ï¥Î
     ¤]´N¬O»¡¦ì²¾AZµ{¦¡¾A¥Î¥ô¦ó³Q¿ï¨ú¼Æ¾ÚªºÀÉ®×
     ©Ò¥H¦ì²¾AZµ{¦¡¤£¯à¥Î With Windows("¥ÒÀÉ.xls")
     ¤p§Ì·Q¬O§_¥Î¦p OpenWork.Sheets("½m²ß")
     ³o¼Ëªº·Qªk¨}®v¬O§_©ú¥Õ?½Ð¦A«ü¾É¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 10# myleoyes

1. Sub ½m²ß1() '¥[
   
2.     ¦ì²¾AZ
   
3. ag:
   
4.     Dim ZZ As Range, E As Range, M
   
5.     On Error Resume Next
   
6.     Set ZZ = Application.InputBox("½Ð¤£§[½ç±Ð!", "     ½Ð±Ð«e½ú­Ì!!", "¢C ½ÐÂI¿ïAZÄæ ¢C", Type:=8)
   
7.            If ZZ <= 0 Then Sheet2.[I1] = 2: Exit Sub
   
8.         For Each E In ZZ.Cells
   
9.               M = IIf(M = "", "=", M & "+") & IIf(E = "", "0", E)
   
10.        Next
    
11.        ThisWorkbook.Sheets("¸ê®Æ").[$M$1] = M
    
12. End Sub

½Æ»s¥N½X

¥ÒÀɦpªG´«¦¨¤AÀÉ´NµLªk¨Ï¥Î -> ­n¦p¦ó¨M©w¨Ï¥Î ¥ÒÀɩΤAÀÉ

1. Sub ¦ì²¾AZ()
   
2.     With Windows("¥ÒÀÉ.xls")
   
3.         .Activate
   
4.         .ScrollColumn = 52
   
5.         .ScrollRow = ActiveSheet.Range("AO" & Rows.Count).End(xlUp).Row
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

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

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

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

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

myleoyes

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

GBKEE

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

myleoyes

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