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

[µo°Ý] ¦p¦ó¥Î°}¦C¤è¦¡³]©w¦rÅéÃC¦â¡H

[µo°Ý] ¦p¦ó¥Î°}¦C¤è¦¡³]©w¦rÅéÃC¦â¡H

¦U¦ì«e½ú¤j®a¦n¡A
§Q¥Î°}¦Cªº¤è¦¡¦bÀx¦s®æ¤W­±¶ñ¤W¼Æ­È¬O¥i¥H°µ¨ìªº¡C
¦ý¦p¦ó§Q¥Î°}¦C¤è¦¡³]©w¦rÅéÃC¦â¡H

¥Î©³¤Uªº¥N½X¡A¦b³]©w¦rÅéÃC¦â®É­Ô·|¥X²{°ÝÃD¡A
·Q½Ð°ÝÀ³¸Ó¦p¦ó­×¥¿»yªk¤~¯à§Q¥Î°}¦C¤è¦¡¶¶§Q³]©w¦rÅéÃC¦â¡HÁÂÁ¡C
  1. Sub Ex()
  2. Dim Ar(1 To 2, 1 To 1) As Variant, Cr(1 To 2, 1 To 1) As Variant
  3. Ar(1, 1) = "A": Ar(2, 1) = "B"
  4. Cr(1, 1) = RGB(255, 0, 0): Cr(2, 1) = RGB(0, 160, 0)
  5. With ActiveSheet
  6.     .[a1].Resize(2, 1) = Ar
  7.     .[a1].Resize(2, 1).Font.Color = Cr
  8. End With
  9. End Sub
½Æ»s¥N½X

¦^´_ 1# justintoolbox

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar(1 To 2, 1 To 1) As Variant, Cr(1 To 2, 1 To 1) As Variant
  4.     Dim i As Integer, ii As Integer
  5.     Ar(1, 1) = "A": Ar(2, 1) = "B"
  6.     Cr(1, 1) = RGB(255, 0, 0): Cr(2, 1) = RGB(0, 160, 0)
  7.     With ActiveSheet.[a1].Resize(UBound(Ar), UBound(Ar, 2))
  8.         .Value = Ar
  9.         For i = 1 To UBound(Ar)
  10.             For ii = 1 To UBound(Ar, 2)
  11.                 .Cells(i, ii).Font.Color = Cr(i, ii)
  12.             Next
  13.         Next
  14.     End With
  15. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  justintoolbox

¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2015-7-13 05:27

GBKEE!
«D±`·PÁ±z!~§Aªº¤èªk¯u´Î!

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD