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

[µo°Ý] «ü©wÄæ¦ì¼Ð¥Ü©³¦â

[µo°Ý] «ü©wÄæ¦ì¼Ð¥Ü©³¦â

AÄ榳Åã¥Ü¼Æ¦rªºÁ`¦C¼Æ¤£©w¡C

·íA4=A¡A«hAÄ榳Åã¥Ü¼Æ¦rªº³Ì«á¤@¦CÀx¦s®æ¤Î¨ä¥kÃä2­ÓÀx¦s®æ¼Ð¥Ü¶À¦â
If Sheets("Sheet1").Range("A4") = "A" Then
Sheets("Sheet1").Range(AÄ榳Åã¥Ü¼Æ¦rªº³Ì«á¤@¦C).Resize(1, 3).Interior.ColorIndex = 6
End If

¨D"AÄ榳Åã¥Ü¼Æ¦rªº³Ì«á¤@¦C"ªºVBA»yªk¡CÁÂÁÂ!
¼Ð¥Ü©³¦â.png
2017-10-8 00:59

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 2# hcm19522

ÁÂÁ±z!¦ý§Ú»Ý­nªº¬Oµ{¦¡»yªk¡C

TOP

¦^´_ 1# ziv976688
  1. If Sheets("Sheet1").Range("A4") = "A" Then
  2. Sheets("Sheet1").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Resize(1, 3).Interior.ColorIndex = 6
  3. End If
½Æ»s¥N½X

TOP

¦^´_ 4# naruto018

´ú¸Õµ²ªGOK!
¸Ñ¨M¤F!ÁÂÁ±zªº¼ö¤ßÀ°¦£^^

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD