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

[µo°Ý] ¨D±Ï¦Û°Ê¿ï¦â¤Î¶ñ¦â~

¸Õ¸Õ¬Ý
  1. Sub «e´ºÃC¦â¥N¸¹_Change()
  2.    ActiveCell = Range("D2")
  3.    ActiveCell.Offset(, -1).Font.ColorIndex = ActiveCell
  4. End Sub

  5. Sub ­I´ºÃC¦â¥N¸¹_Change()
  6.    ActiveCell = Range("E2")
  7.    ActiveCell.Offset(, -2).Interior.ColorIndex = ActiveCell
  8. End Sub

  9. Private Sub cmd¶ñ¦â_Click()
  10.    'ActiveCell ¶·¦b Äæ10 ©M Äæ16 ¤§¶¡
  11.    '«ö¶s cmd¶ñ¦â ¤~¦³§@¥Î
  12.    col1 = ActiveCell.Column
  13.    If col1 < 10 Or col1 > 16 Then Exit Sub
  14.    
  15.    °_ÂI = ActiveCell.Row
  16.    ²×ÂI = Cells(°_ÂI, 13).End(xlDown).Row
  17.    
  18.    'cÄæ ¤½¥q¥Nªí¦WºÙ ªºÁ`¼Æ
  19.    c¥N¸¹Á`¼Æ = [C3].End(xlDown).Row
  20.    
  21.    For mRow = °_ÂI To ²×ÂI
  22.       m¥N¸¹ = UCase(Cells(mRow, 13))
  23.       For cRow = 3 To c¥N¸¹Á`¼Æ
  24.          c¥N¸¹ = Cells(cRow, 3)
  25.          If m¥N¸¹ = c¥N¸¹ Then
  26.             «e´º = Cells(cRow, 4)
  27.             ­I´º = Cells(cRow, 5)
  28.             Cells(mRow, 10).Resize(, 7).Select
  29.             Selection.Interior.ColorIndex = ­I´º
  30.             Selection.Font.ColorIndex = «e´º
  31.             Exit For
  32.          End If
  33.       Next
  34.    Next
  35. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD