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

°j°é½Ð¯q¡A¨Ï¥ÎFor Next³¯­z¦¡¡G­Yb¦³­È«ha«Ø¥ßx

  1. Sub YY()
  2. For Each C In [B:B].SpecialCells(2)
  3. C(1, 0) = "X"
  4. Next
  5. End Sub
½Æ»s¥N½X
³o¼Ë¥iÁ×§K´`Àô¨ìªÅ¥ÕÀx¦s®æ

TOP

·íµM¬O¡C
§A¥i¥H¥ÎMsgBox TypeName(c)
±oª¾ÅܼÆÃþ«¬

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD