ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA°»ª¾ ¤u§@ªí¤º¦³¿ù»~

[µo°Ý] VBA°»ª¾ ¤u§@ªí¤º¦³¿ù»~

½Ð°Ý·s¶i¡G
¦bVBA¤ºªºµ{¦¡½X Calculate «ü¥Ü¤u§@ªí°õ¦æ­pºâ
¤u§@Àx¦s®æ¤º¦³²³¦hªº­Ó­Ó­pºâ¤½¦¡¡A¥i¯à²£¥Í¤£¦Pªº¿ù»~(Àx¦s®æ¤ºªº  ISERROR¡A°£¥H0.¡A...)¡A
VBA¦p¦ó¹³ on error ... ©Î if err.number <> 0 ¤@¼Ë°»ª¾¦Ó¥i¥H±Ä¨ú¦æ°Ê?

ÁÂÁÂ¥ý

¦^´_ 1# Scott090
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Private Sub Worksheet_Calculate()
  3.     Dim Rng  As Range
  4.     On Error GoTo LL
  5.     Set Rng = UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)
  6.     Rng.Select
  7.     MsgBox Rng.Address & " ¤½¦¡¦³¿ù»~­È"
  8. LL:
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ¤wª¾ .SpecialCells(xlCellTypeFormulas, xlErrors) »yªk¤§¨Ï¥Î¨Ã¤w¹F»Ý­n¥Øªº

·P®¦

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD