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

[µo°Ý] ´M§ä¦³¼Æ¦r³Ì«á¤@¦Cªº»yªk¡C

[µo°Ý] ´M§ä¦³¼Æ¦r³Ì«á¤@¦Cªº»yªk¡C

TEST.rar (7.35 KB)

Range("A1:A6").Interior.ColorIndex = 6
Range("G1:K16").Interior.ColorIndex = 6
Range("Q1:U18").Interior.ColorIndex = 6
Range("AA1:AE19").Interior.ColorIndex = 6
Range("AK1:AO22").Interior.ColorIndex = 6
Range("AU1:AX17").Interior.ColorIndex = 6

¦]¬°¸ê®Æ¦CÁÙ·|Ä~Äò¼W¥[¡A©Ò¥H½Ð°Ý:
¦p¦ó±NµÛ¦âªº¦ì§}§ï¬°¦³¼Æ¦rªº³Ì«á¤@¦C?
ÁÂÁÂ!

  1. Sub EX()
  2.     Debug.Print [A1].Offset(65535).End(xlUp).Row
  3.    
  4.     '¤èªk¤@
  5.     Range("A1:A" & [A65536].End(xlUp).Row).Interior.ColorIndex = 0
  6.     Range("G1:K" & [K65536].End(xlUp).Row).Interior.ColorIndex = 6
  7.     Range("Q1:U" & [U65536].End(xlUp).Row).Interior.ColorIndex = 6
  8.     Range("AA1:AE" & [AE65536].End(xlUp).Row).Interior.ColorIndex = 6
  9.     Range("AK1:AO" & [AO65536].End(xlUp).Row).Interior.ColorIndex = 6
  10.     Range("AU1:AX" & [AX65536].End(xlUp).Row).Interior.ColorIndex = 6
  11.    
  12.    
  13.     '¤èªk¤G
  14.     For Each xR In Array("A:A", "G:K", "Q:U", "AA:AE", "AK:AO", "AU:AX")
  15.         Range(xR).Interior.ColorIndex = 0
  16.         aR = Split(xR, ":")
  17.         Range(aR(0) & 1, Range(aR(1) & Rows.Count).End(xlUp)).Interior.ColorIndex = 7
  18.     Next
  19.    
  20. End Sub
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ML089
ª©¥D:
ÁÂÁ±z¸Ñ¨M§Úªº§xÃø¡C

¤G­Ó¤èªk³£«Ü´Î~·P®¦^^

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD