½Æ»s¤½¦¡

myleoyes

¦U¦ì«e½ú§A­Ì¦n!!   
    °²³]A3=1,A4=2,A5=3
    Sub Ex()
        Dim Rng As Range, e As Range
        If [A3] = "" Then
           [AH1] = "=SUM(INDIRECT(""AH3:AH1200""))"
           [AH2] = "=$A3&""µ§"""
        ElseIf [A3] <> "" Then
           With Sheet3
              Set Rng = .Range("AH1", .Range("ZZ1").End(xlToLeft))
              Set e = Rng(1, Rng.Columns.Count + 1)
           End With
           Set Rng = Range("AH1:AH2")
           Rng.Copy e
        End If
   End Sub
   °õ¦æµ²ªGAI1»PAH1¤½¦¡³£¬Û¦P
           AI2»PAH2¤½¦¡¤]¬Û¦P
   À³¸Ó¦p¤U
   ·í²Ä¤@¦¸«ö¶s
        AH1=SUM(INDIRECT("AH3:AH1200"))
        AH2=$A3&"µ§"
   ²Ä¤G¦¸«ö¶s
        AI1=SUM(INDIRECT("AI3:AI1200"))
        AI2=$A4&"µ§"
   ²Ä¤T¦¸«ö¶s
        AJ1=SUM(INDIRECT("AJ3:AJ1200"))
        AJ2=$A5&"µ§"
   ¥H¦¹Ãþ±À½Ð°Ýµ{¦¡¦p¦ó­×§ï?
   ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 20# yen956
«e½ú!ÁÂÁÂ!!
         §Aªº·Qªk»P½d¨Ò¦³©Ò¥X¤J
         ¤p§Ì¬Q¤é²×©ó·Q¥X¸Ñ¨M¤èªk
          ¦¡µ{¦¡¦p¤U½Ð°Ñ¦ÒÁÂÁ¦A¤T!!

1. Sub ExA()
   
2.     Dim C As Integer, i As Integer, R As Integer
   
3.     [A2] = 1
   
4.     [B2] = "=EDATE(B3,-1)"
   
5.     [B2].NumberFormatLocal = "[$-404]e/m/d;@"
   
6.     C = [Ag1].Column
   
7.     R = Cells(Rows.Count, [Ag1].Column).End(xlUp).Row + 1
   
8.     If R < 3 Then R = 3
   
9.     i = 2
   
10.     Do While IsDate(Cells(i, "B")) And Cells(i, "B") < Cells(R, "Z")
    
11.         If Cells(i, "B") < Cells(R, "Z") Then
    
12.             Cells(1, C) = "=SUM(R3C:R200C)"
    
13.             Cells(2, C) = "=R" & i & "C1&""µ§"""
    
14.          If Cells(2, C) <> "0µ§" Then Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)"
    
15.             C = C + 1
    
16.             i = i + 1
    
17.         End If
    
18.     Loop
    
19.        Calculate
    
20.        [Ag1] = "°Ñ·ÓÄæ"
    
21.        [Ag2] = "1µ§°Ñ·Ó"
    
22.        [A2] = 0
    
23.        [B2] = "=EDATE(B1,1)"
    
24.        [B2].NumberFormatLocal = """¤é""""´Á"""
    
25.        [Ag3] = 0
    
26.     If [Ag4] <> "" Then [Ag4] = 0
    
27.     If [Ag5] <> "" Then [Ag3:Ag4].AutoFill Destination:=Range("Ag3:Ag" & [Ag1200].End(xlUp).Row), Type:=xlFillDefault
    
28. End Sub

½Æ»s¥N½X

yen956

¦^´_ 19# myleoyes
¸Õ¸Õ¬Ý:

1. Sub «Ø¥ß¤é´Á¤ñ¹ïªí()
   
2.     Dim i As Integer
   
3.     Sheets("Sheet1").Activate
   
4.    
   
5.     '®Ú¾Ú [B3], ¶ñ¤J³sÄò9­Ó¤ëªº µ²ºâ¤é´Á ¨ì ÄæZ
   
6.     '¨Ã¶ñ¤J³sÄò9­Ó¤ëªº ¦~¤ë ¨ì ÄæY, ¨Ñ [Y2] Match ¦~¤ë ¥Î
   
7.     '¦]¬°¬Y¨Ç¤ë¥÷¶W¹L1µ§, ¥B¦P¤ë¥÷¶·¼g¦b¦P¤@¦C, ¬G¥Î MATCH ¤ñ¹ï¬O§_¦P¤@¤ë¥÷ªº¸ê®Æ
   
8.     '½Ð­×§ï For i = 1 To 9 ¤§ 9, ¦pªG¹w­p­n­n«Ø¥ß³sÄò 12­Ó¤ëªº¸ê®Æ, «h§ï¬° 12
   
9.     For i = 1 To 9
   
10.         Cells(i + 2, 26) = DateSerial(Year([B3]), Month([B3]) + i, 1) - 1
    
11.         Cells(i + 2, 25) = Year(Cells(i + 2, 26)) - 1911 & Month(Cells(i + 2, 26))
    
12.     Next i
    
13. End Sub
    
14. 
    
15. Sub Exyen()
    
16.     Dim Rng, chkRng As Range
    
17.     Dim i, endRow, endRow2, blankRow As Integer
    
18.     endRow = [A2000].End(xlUp).Row
    
19.     [AH1].Resize(200, 40) = ""
    
20.     [Y3].Resize(200, 2) = ""
    
21.     «Ø¥ß¤é´Á¤ñ¹ïªí
    
22.     endRow2 = [Y200].End(xlUp).Row
    
23.    
    
24.     Sheets("Sheet1").Activate
    
25.     [M3] = 0.0254                 '¦¹¦C "­É¥Î" M$3¬O­ÓÅܼƨëD©T©w­È
    
26.     blankRow = 3
    
27.     oldRow = 3
    
28.     Application.Calculation = xlManual
    
29.    
    
30.     For i = 3 To endRow
    
31.    
    
32.         '­Y Cells(2, i + 31)<>"", «h³oµ§¸ê®Æ¤vµ²ºâ¹L, ´«¤U¤@µ§
    
33.         If Cells(2, i + 31) <> "" Then GoTo next1:
    
34.         
    
35.         '§_«h±N ½s¸¹ ¼g¤J Cells(2, i + 31)
    
36.         Cells(2, i + 31) = Cells(i, 1)
    
37.         
    
38.         '±N ¥Ø«e³o¤@µ§ ÄæB ¤§ ¦~¤ë©ñ¤J [Y1], ¨Ñ [Y2] Match ¤ñ¹ï¦~¤ë ¥Î
    
39.         [Y1] = Year(Cells(i, 2)) - 1911 & Month(Cells(i, 2))
    
40.         
    
41.         '¦]¬°¬Y¨Ç¤ë¥÷¶W¹L1µ§, ¥B¦P¤ë¥÷¶·¼g¦b¦P¤@¦C, ¬G¥Î MATCH ¤ñ¹ï¬O§_¦P¤@¤ë¥÷ªº¸ê®Æ
    
42.         [Y2] = "=MATCH(Y1,Y3:Y200,0)"
    
43.         
    
44.         blankRow = [Y2] + 2
    
45.         If Cells(i, 1) <> 0 Then
    
46.             Range(Cells(blankRow, i + 31), Cells(endRow2, i + 31)) = "=ROUND($F$" & i & "*$M$3,2)"
    
47.         Else
    
48.             Range(Cells(blankRow, i + 31), Cells(i, i + 31)) = "=ROUND($F$" & i & "*$M$3,2)"
    
49.         End If
    
50.         Cells(1, i + 31) = "=SUM(R3C" & i + 31 & ":R200C" & i + 31 & ")"
    
51. next1:
    
52.      Next
    
53.      Application.Calculation = xlAutomatic
    
54. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 17# GBKEE
¨}®v!
    ³oµ{¦¡¦³»~??
    ½Ð­×§ïA3¤£¯àÅ«¦^ªº°ÝÃD
    ·íA3¬°¹s®Éµ{¦¡³à¥¢§P§O¯à¤O
    µLªkÄ~Äò¼g¤J¸ê®Æ
    ¦p°Êµe¤W¹Ïª¬ºA
    ¨¯­WÅo!ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 17# GBKEE
¨}®v! «D±`ªºÁÂÁÂ!!
        µ{¦¡¹ïÅo!¦ý«o¿òº| 0µ§ªºª¬ªp
                Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)" ¦¹¦C
        ­×§ï¦p¤U
               If Cells(2, C) <> "0µ§" Then  Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)"
         §Y¥i¯u¬O¨¯­W§AÅo!!¤p§Ì¥Ñ°J·P¿E....ºÉ¦b¤£¨¥¤¤
              ¦b¦¹¸Û¼°ªº¯¬ºÖ..... ±z»P¦U¤jª©¥D¤Î¦U¦ì«e½ú­Ì!
                                                 ·s¦~§Ö¼Ö!!
                ¤@°¨·í¥ý  ÅD±æ¤@¾ã¦~.....   ·PÁ¤j®aªº±Ð¾ÉÅý¤p§Ì¤£Â_ªº¦¨ªø
              ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 16# myleoyes

1. Sub Ex()
   
2.     Dim C As Integer, i As Integer, R As Integer
   
3.     C = [AH1].Column
   
4.     R = Cells(Rows.Count, [AH1].Column).End(xlUp).Row + 1
   
5.     If R < 3 Then R = 3
   
6.     i = 3
   
7.     Do While IsDate(Cells(i, "B")) And Cells(i, "B") < Cells(R, "Z")
   
8.         If Cells(i, "B") < Cells(R, "Z") Then
   
9.             Cells(1, C) = "=SUM(R3C:R200C)"
   
10.             Cells(2, C) = "=R" & i & "C1&""µ§"""
    
11.             Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)"
    
12.             C = C + 1
    
13.             i = i + 1
    
14.         End If
    
15.     Loop
    
16. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 15# GBKEE
¨}®v! ÁÂÁÂ!!½Ð¬Ý²M·¡°Êµe                                       
½Ð«ö5¤ë¶s¦A½Ð¬Ý²M·¡AH3:AI3ªº¼Æ¾Ú                                       
AH3:AI3¬O¦P®É¦³¼Æ¾Ú , ¦A²M°£¸ê®Æ                                       
½Ð«ö¨}®v¶s¦A½Ð¬Ý²M·¡AH3:AI3ªº¼Æ¾Ú                                       
AH3¦³¼Æ¾Ú , ¦ý¬OAI3«o¬OªÅ¥Õªº                                       
§O§Ñ¤F5¤ë¥÷¬O¶R2µ§                                       
¦ý«o¥u°t1µ§®§,½Ð°Ý¥t¤@µ§®§¦b­þ¸Ì???                                       
¦]¬°¨}®vªºµ{¦¡¬O¶¥±è¦¡ªº¤è¦¡                                       
¥u­n¹J¨ì·í¤ë¥÷¦P®É¦³2µ§¥H¤Wµn¤J·|¥X¿ù                                       
¬Oµ{¦¡¿ù»~ªº¦a¤è§A¬O§_ª`·N¨ì©O?                                       
µ{¦¡¤£¯à³æ³æA3¹ïAH3 , A4¹ïAI4 , A5¹ïAJ5                                       
³o¹ï¨C¤ë¥u¶R1µ§¾A¥Î,¦pªG¨C¤ë¶R¦hµ§¬O¿ù»~ªº                                       
¤£¬O¶Ü?¨}®v©ú¥Õ§_?
¦AªþÀɸլݬݨ¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 14# myleoyes
¦³Å«¦^ AÄæ=0 ,¦³°µ³o¬ö¿ý«á,8#ªºµ{¦¡½XÀ³¬O²Å¦X§Aªº´Á±æ.

myleoyes

¦^´_ 13# GBKEE
¨}®v!ÁÂÁÂ!!
     ¡­°²³]§ë¤J¨C¤ë°t®§°òª÷,¥B°t®§ÃB«D©T©wÃB¡­
     ¦b5¤ë4¤é»P5¤ë9¤é¤À§O¶R¤J2µ§°òª÷
     ¦b5¤ë©³°t®§©Ò¥HAH3:AI3¬O2µ§ªº¦U§O°t®§ÃB
     Z3¬°°t®§¤é´Á
     ¦b6¤ë14¤é¦A¶R¤J1µ§°òª÷
     ¦b6¤ë©³°t®§©Ò¥HAH4:AJ4¬O¦@3µ§ªº¦U§O°t®§ÃB
     Z4¬°°t®§¤é´Á
     ¥H¦¹Ãþ±À...¸Ô°O§ë¸êª¬ºA
     ¼ÒÀÀ8¤ëÅ«¦^5¤ë9¤éªº(²Ä2µ§)°òª÷
     ©Ò¥Hµ{¦¡·|±NA4(½s¸¹2)Åܦ¨ 0
     ¤]´N¬O»¡¨C·í¥ô¦ó³QÅ«¦^ªº°òª÷½s¸¹³£·|Åܬ° 0
     ¦nÅýAI2=0²Õ°µ¬°µ{¦¡°Ñ·Ó¥Î
     «ê¥©8¤ë¥÷¤]¨S¦³¶R¤J°òª÷
     ¦b8¤ë©³¨SÅ«¦^ªº°òª÷®§·Ó¼Ë°t
     Å«¦^ªº´N¨S¦³°t©Ò¥HAH6:AK6¬O¦@3µ§ªº¦U§O°t®§ÃB
     A4=0(AI2=0²Õ¤wÅ«¦^)©Ò¥HAI6="",©Ò¥H¥u°t3µ§
     ¸Ü¨ì¦¹¬O§_¯Ç´e?!!¬°¦ó­n«Ø¥ßAH,AI..µ¥µ¥Ä檺¥Øªº
     ¦]¬°·í§ë¸êªº®É¶¡¤[»·»Pµ§¼ÆÅܦh
     ·íÅ«¦^®É¨ì©³¬O·l¯q¦h¤Ö??
     ¤×¨ä¬O¨C¤ë¦³°t®§¥B«D©T©wÃB¯uªº¬O¤£¹D°t¦h¤Ö®§..
     °ß¦³±N¼Æ¦rÅܦ¨¼Æ¾Ú¤~¯à§ä¨ìÀò§Qªº¤£¤Gªk«h
     µM¦Ó¾ÇExcel³Ì°g¤Hªº¦a¤è´N¬O"¼ÒÀÀ"
     ³z¹L"ºë·Çªº¼Æ¾Ú¼ÒÀÀ"´N¯à¬Ý¨ì¥¼¨Ó­È!!
     ³o¬O¤ß±o.....±ß¦w!!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 12# myleoyes

   

«ö8¤ë¶s¥¿½Tª¬ºA(¦]¬°²Ä2µ§¦b8¤ë¬° 0 ,AI2µ¥©ó0µ§©Ò¥HAI6¨S¦³¼Æ¾Ú)                                                       

¤£À´½Ð¸ÑÄÀ¤@¤U,²Ä2µ§¬°¦ó¬O8¤ëªºÅÞ¿è.

¤U¸ü (156.15 KB)

2014-1-27 14:54