- ©«¤l
- 13
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-2-23
- ³Ì«áµn¿ý
- 2017-11-17
|
·PÁ Hsieh¤j¤jªº¦^ÂÐ
¦Û¤v¹Á¸Õ§ï¼g¦¨¦p¤U¡G
Sub text()
On Error GoTo HandleErr
ok = IsError(Cells.SpecialCells(xlCellTypeFormulas, 16))
ok = Ture
MsgBox "¦³#N/A,½ÐCheck"
Exit Sub
HandleErr:
MsgBox "Nothing Happen"
End Sub |
|