ªð¦^¦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 : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD