| ©«¤l561 ¥DÃD160 ºëµØ0 ¿n¤À725 ÂI¦W0  §@·~¨t²ÎWINDOWS ³nÅ骩¥»xp ¾\ŪÅv50 ©Ê§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
 | 
 |