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

[µo°Ý] ¬°¤°»ò ¤½¦¡(¨ç¼Æ) ¤£¯à¦Û°Ê­pºâ?

[µo°Ý] ¬°¤°»ò ¤½¦¡(¨ç¼Æ) ¤£¯à¦Û°Ê­pºâ?

¥»©«³Ì«á¥Ñ yen956 ©ó 2014-3-16 10:15 ½s¿è

¬°¤°»ò ¤½¦¡(¨ç¼Æ) ¤£¯à¦Û°Ê­pºâ?
¦p¹Ï,

§Ú¥Î VBA ¦b AH1, AI1, ..., ¿é¤J¨ç¼Æ,
=SUM($AH$3:$AH$200)
¬°¦ó¤£¯à¤£¯à¦Û°Ê­pºâÁ`©M?
­Ó§O ÂùÂI, ¦A«ö Enter ¤~·|­Ó§O§ó·s?
©ÎªÌ «ö ¦sÀɶs, «h¥þ³¡ §ó·s?
¬O¤£¬O¤¤¬r? ¥ÎAVG¤]¬d¤£¥X¨Ó.
vba code ¦p¤U:
  1. Sub «Ø¥ß¤é´Á¤ñ¹ïªí()
  2.     Dim i As Integer
  3.     Sheets("Sheet1").Activate
  4.    
  5.     '®Ú¾Ú [B3], ¶ñ¤J³sÄò12­Ó¤ëªº µ²ºâ¤é´Á ¨ì ÄæZ
  6.     '¨Ã¶ñ¤J³sÄò12­Ó¤ëªº ¦~¤ë ¨ì ÄæY, ¨Ñ [Y2] Match ¦~¤ë ¥Î
  7.     '¦]¬°¬Y¨Ç¤ë¥÷¶W¹L1µ§, ¥B¦P¤ë¥÷¶·¼g¦b¦P¤@¦C, ¬G¥Î MATCH ¤ñ¹ï¬O§_¦P¤@¤ë¥÷ªº¸ê®Æ
  8.     For i = 1 To 12
  9.         Cells(i + 2, 26) = DateSerial(Year([B3]), Month([B3]) + i, 1) - 1
  10.         Cells(i + 2, 25) = Year(Cells(i + 2, 26)) - 1911 & Month(Cells(i + 2, 26))
  11.     Next i
  12. End Sub

  13. Sub Exyen()
  14.     Dim Rng, chkRng As Range
  15.     Dim i, endRow, blankRow, oldRow As Integer
  16.    
  17.     «Ø¥ß¤é´Á¤ñ¹ïªí
  18.    
  19.     Sheets("Sheet1").Activate
  20.     [M3] = 0.0254  '¦¹¦C "­É¥Î" M$3¬O­ÓÅܼƨëD©T©w­È
  21.     endRow = [A2000].End(xlUp).Row
  22.     blankRow = 3
  23.     oldRow = 3
  24.    
  25.     '¥ý¨M±ø¥ó¡GÄæA ¤§ ½s¸¹ = 1,2,3... ±Æ¦C, §_«h¥» VBA µLªk¥¿±`¹BÂà
  26.     For i = 3 To endRow
  27.    
  28.         '­Y Cells(2, i + 31)<>"", «h³oµ§¸ê®Æ¤vµ²ºâ¹L, ´«¤U¤@µ§
  29.         If Cells(2, i + 31) <> "" Then GoTo next1:
  30.         
  31.         '§_«h±N ½s¸¹ ¼g¤J Cells(2, i + 31)
  32.         Cells(2, i + 31) = i - 2
  33.         
  34.         '±N ¥Ø«e³o¤@µ§ ÄæB ¤§ ¦~¤ë©ñ¤J [Y1], ¨Ñ [Y2] Match ¤ñ¹ï¦~¤ë ¥Î
  35.         [Y1] = Year(Cells(i, 2)) - 1911 & Month(Cells(i, 2))
  36.         
  37.         '¦]¬°¬Y¨Ç¤ë¥÷¶W¹L1µ§, ¥B¦P¤ë¥÷¶·¼g¦b¦P¤@¦C, ¬G¥Î MATCH ¤ñ¹ï¬O§_¦P¤@¤ë¥÷ªº¸ê®Æ
  38.         [Y2] = "=MATCH(Y1,Y3:Y200,0)"
  39.         
  40.         blankRow = [Y2] + 2
  41.         
  42.         '
  43.         If blankRow <> oldRow Then
  44.             Range(Cells(oldRow, 34), Cells(oldRow, i + 30)).Copy
  45.             Cells(blankRow, 34).PasteSpecial xlPasteValues
  46.         End If
  47.         
  48.         Cells(blankRow, i + 31) = "=ROUND($F$" & i & "*$M$3,2)"
  49.         Cells(1, i + 31) = "=SUM(R3C" & i + 31 & ":R200C" & i + 31 & ")"
  50.         oldRow = blankRow
  51. next1:
  52.      Next
  53. End Sub
½Æ»s¥N½X

¥»©«³Ì«á¥Ñ yen956 ©ó 2014-3-16 12:40 ½s¿è

¦^´_ 1# yen956
¸Ñ¨M¤F!!
·PÁÂÁÂ huijuang ¤j¤j¦b
http://forum.twbts.com/thread-11351-1-3.html
ªº«ü¾É!!
¥ýÀˬd¤@¤U¬Ý¬O¤£¬O¦Û°Ê­pºâ³Q§ï¦¨¤â°Ê¤F
¡y¤u¨ã¡z¡÷¡y¿ï¶µ¡z¡÷¡y­pºâ¡z¡÷¡y¦Û°Ê¡z

­ì¨Ó¬O§Ú¤U¸ü§O¤HªºÀÉ®×, ±N¡y¦Û°Ê¡z§ï¦¨¡y¤â°Ê¡z
ªº­ì¬G, ÁÙ¥H¬°¤¤¬r, ÁÂÁÂ!!

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD