vba - Rows¤ºÅܼÆÀ³¦p¦ó¼g

jim

¦U¦ì°ª¤â¤j®a¦n
  ÅÜ¼Æ [a2] = 84
Rows("100:144").Select  ­n§ï¼g¦¨
   Rows(" [a2]+16:[a2]+60).Select
¥¿½T¼gªk¬O¦p¦ó ? ½Ð«ü¾É ÁÂÁÂ1

jim

¦^´_ 10# c_c_lai
c_c_lai
  ¦hÁ«ü¾É

c_c_lai

¦^´_ 9# jim
Set rng = Range("H" & ([A2] + 41:"H"& [A2] + 166), [h65536].End(3)).
À³¸Ó¬°
Set rng = Range(Range("H" & ([A2] + 41) & ":H" & ([A2] + 166)), [h65536].End(3))
°²³] [A2]] = 84¡A¨äµ²ªGªº½d³ò­È¬°¡G H125:H###  
¨âÂI¤§¶¡¨ú³Ì¤p¤Î³Ì¤j­È¡A¥Ñ¤U¹Ï§A«K·|ÁA¸Ñ¤F¡C

¤U¸ü (39.7 KB)

2016-8-4 13:21

jim

c_c_lai  ÁÂÁÂ
§Úªº­ì·N¬O
Set rng = Range([h125:h250], [h65536].End(3))
¥i§_§ïÅܬ°
Set rng = Range("H" & ([A2] + 41:"H"& [A2] + 166), [h65536].End(3)).
¦¹»yªk¹ï¶Ü?

c_c_lai

¦^´_ 6# jim
ªþ¤W¤@­Ó¹ê°È½d¨Ò¡A¨Ñ°Ñ¦Ò¡G

¤U¸ü (15.53 KB)

2016-8-4 10:48

1. Sub ´«¤ë()
   
2.     Dim cts As Integer, xs As Integer
   
3.     Dim rng As Range, lDate As Date
   
4.     Dim ¦~ As String, ¤ë As String
   
5.    
   
6.     With Sheets("XXXXXX")
   
7.         For xs = 0 To 2
   
8.             '  ±N H1:AL2¡BH18:AL19¡BH35:AL36 ½d³ò¤º¤§¸ê®Æ²MªÅ¡C
   
9.             .Range("H" & (xs * 17 + 1) & ":AL" & (xs * 17 + 2)).ClearContents
   
10.             '  ³]©w rng ¬° H1¡BH18¡B¥H¤Î H35 Äæ¦ì¡C
    
11.             Set rng = .Range("H" & IIf(xs < 3, xs * 17 + 1, 63))
    
12.             For cts = 1 To Day(DateSerial(¦~, ¤ë + 1, 0))      '  ¨ú±o¸Ó¤ë¤Ñ¼Æ
    
13.                 rng.Offset(, cts - 1) = cts   
    
14.                 '  H1¡BH18¡B¥H¤Î H35 Äæ¦ì­È¬°´X¸¹¡F¨Ã¨Ì§Ç©¹¥k©µ¦ù¡C
    
15.                 lDate = DateSerial(¦~, ¤ë, cts)
    
16.                 '  H2¡BH19¡B¥H¤Î H36 Äæ¦ì­È¬°¬P´Á´X¡F¨Ã¨Ì§Ç©¹¥k©µ¦ù¡C
    
17.                 rng.Offset(1, cts - 1) = Right(WeekdayName(Weekday(lDate)), 1)
    
18.             Next cts
    
19.         Next xs
    
20.     End With
    
21. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 6# jim
Set rng = Range([125:h250], [h65536].End(3))¡H
§Ú²q·Q§A¬O«ü
[A2] = 84
Set rng = Range(Range("H" & ([A2] + 41)),  [H65536].End(3))
¥Ø«eªº½d³ò­È¬°¡G H125:H###   
(°²³]  [H65536].End(3) ¦ì§}¬° H###)

jim

c_c_lai  ¦hÁÂÃö·Ó
[h125:h250]
¦p¦P¤W ¥Î [a2]+43 ¥Nªí 125 ,[a2]+166 ¥Nªí 250
Set rng = Range([125:h250], [h65536].End(3))
  À³¦p¦ó§ï¼g

c_c_lai

¦^´_ 4# jim
Set rng = Range([125:h250], [h65536].End(3)) ¡H¡H¡H
¤£¤Ó²M·¡§Aªºªí¹F¡C

jim

c_c_lai °ª¤â
­Y¬O¦b  ÅܼƬ° [A2]=84
Set rng = Range([125:h250], [h65536].End(3))
[h125:h250] = ??¬O§_¥i§ï¼g¬° ?? [ H ?? [A2]+43: H??[A2]+166]

jim

¦^´_ 2# c_c_lai
c_c_lai  ¦hÁÂ