ªð¦^¦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 : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD