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

[µo°Ý] ½Ð°Ý¦p¦ó±N°¸¼Æ¦Cªº¤å¦rÂন¼Æ­È(¤w¦³°ò¥»»yªk ¦ý¤£·|²Õ¦X)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-8 13:59 ½s¿è

¦^´_ 1# HCG10G8bear
³o»yªk¿ù»~ Range("2:2,4:4,6:6').NumberFormatLocal = "G/³q¥Î®æ¦¡"
  1. Range("2:2,4:4,6:6").NumberFormatLocal = "G/³q¥Î®æ¦¡"
½Æ»s¥N½X
¦^´_ 17# HCG10G8bear
UsedRange¬O¤u§@ªíªºª«¥ó(¤u§@ªí¤¤¤w¨Ï¥Îªº½d³ò)
¤u§@ªí¼Ò²Õ¤¤¨Ï¥ÎUsedRange´N¬O«ü³o¤u§@ªíªºUsedRange (¦ý¥i¦p:Sheet1¼Ò²Õ¤¤¿é¼g, Sheet2.UsedRange)
¦b¤@¯ë¼Ò²Õ¤¤(«D¤u§@ªí¼Ò²Õ)¨S¦³«ü©úUsedRangeªº¤÷¼h(¤u§@ªí),¹q¸£«Ü²Â¤£·|¬Ý¬ï¨Ï¥ÎªÌªº¤ß«ä,´N»¡§ä¤£¨ìª«¥ó
¦^´_ 22# HCG10G8bear
PERSONAL¼Ò²Õ¤¤µ{¦¡½X¥i­×§ï¦p¤U
  1. For I = 2 To ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count Step 2
½Æ»s¥N½X
¦^´_ 23# HCG10G8bear

SpecialCells¤èªk ¥»°Q½×°Ï¦³¦h½gªº°Q½×,¤]¥i¸Ô¬ÝVBA»¡©ú
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-8 15:48 ½s¿è

¦^´_ 26# owen06
ª½±µ¼gsheet1¡A´N¤£¯à¦b¨ä¥LÀɮש³¤U°õ¦æ,¦]sheet1«ü³oÀɮתº¤u§@ªí¼Ò²Õ¦WºÙ,ÁöµM¨ä¥LÀɮפ]¦³sheet1ªº¤u§@ªí¼Ò²Õ¦WºÙ,
³oÀɮתºµ{¦¡½X¤¤µLªk¤Þ¥Î¨ä¥LÀɮתºª«¥ó,
¶·¦p¦¹
  1. ActiveWorkbook.Sheets ("sheet1") '¦WºÙ
  2.     ActiveWorkbook.Sheets (1)        '¯Á¤Þ­È
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD