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

¦p¦ó§ì¨úcell¤¤¤wª¾¬Y­Èªº¦ì§}?

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-14 13:30 ½s¿è

¦^´_ 1# m09903020
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar()
  4.     With Range("A1:A300")
  5.         Ar = .Value
  6.         .Replace "1", "=1/0", xlWhole
  7.         .SpecialCells(xlCellTypeFormulas, xlErrors).Name = "XX"
  8.         .Value = Ar
  9.          MsgBox [XX].Address
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD