- ©«¤l
- 561
- ¥DÃD
- 160
- ºëµØ
- 0
- ¿n¤À
- 725
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-7
  
|
DEAR SIR
1.¦pªGRANGE("F12")¤º¬O¤½¦¡. ª½±µ¸Ó¤½¦¡§ï =IF(H12-0<0,¤½¦¡&"t¼Æ",¤½¦¡)
2.IF RANGE("F12")»Ý¤â°Ê¿é¤JAA123456789.¿é¤J§¹°õ¦æ¦p¤U VBA
Sub AA()
X = Sheet1.[H65536].End(xlUp).Row
For Q = 12 To X
If Sheet1.Cells(Q, 8) - 1 < 0 Then
Cells(Q, 6).Value = Cells(Q, 6).Value & "t¼Æ"
End If
Next
End Sub |
|