- ©«¤l
- 43
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 75
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-6
- ³Ì«áµn¿ý
- 2019-6-17
|
¦^´_ 2# ML089
ML089«e½ú¤£¦n·N«ä¡B½Ð°Ý§Ú¥Ø«e¥i°õ¦æ¦ý«o¥u¯à°õ¦æ"¤ôªG"¨ºÓ¤À¶¦Ó¤w' ¦pªþ¥óªº±¡ªp¡A½Ð°Ý¤p§ÌªºþÓ¦a¤è¦³¼g¿ù©O¡H
·PÁ«e½ú~
for each °w¹ï¯S©w¤À¶.rar (21.77 KB)
µ{¦¡½X¡G
Sub test()
Dim bc As Range
Dim Customer As String
Dim cc As Integer, b As Integer
For b = 2 To Worksheets("list").[a65536].End(3).Row
Customer = Worksheets("list").Cells(b, 1)
cc = Sheets(Customer).Range("b2:cd2").End(xlToRight).Column 'ºâ¥X³o½d³ò³Ì«á¤@µ§¸ê®Æ
For Each bc In Sheets(Customer).Range("c" & 3, Sheets(Customer).Cells(40, cc))
If bc.Value < Sheets(Customer).Range("e1") Then
With bc.Font
.Color = -16776961
.TintAndShade = 0
End With
End If
Next
Next
End Sub |
|