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

GBKEE

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

GBKEE

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

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

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