- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 8# lpk187
§ï¦¨¤U¦Cªº¸Ü¡A¥unAÄæ©MBÄæ¨ä¤¤¤@ÓµLȪº¸Ü¦^´_ªÅ¥Õ- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Column < 3 And Target.Row > 1 And Cells(Target.Row, "B") <> "" And Cells(Target.Row, "A") <> "" Then
- Set col = Sheets("¤½¥q²M³æ").Columns(2).Find(Cells(Target.Row, 2), , , , , 2)
- AA = col.Offset(0, 1).Interior.Color
- Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.Color = _
- col.Offset(0, 1).Interior.Color
- Else
- Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.Color = 16777215
- End If
- End Sub
½Æ»s¥N½X |
|