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

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

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

¦U¦ì¤j¤j¦n

¤p§Ìªñ´Á¶}©l¨Ï¥ÎVBµ{¦¡

¦]¬°¬O¥H»Ý¨D¾É¦V¬°¥D ²{¦b¦h¥Î¿ý»s¥¨¶°¦b¥h­×§ï

²{¦b§Æ±æ¯à±N°¸¼Æ¦Cªº¤å¦r(¬O¼Æ¦r)Âন¼Æ­È(¥i¥H¥[Á`ªºÃþ«¬)

¥Ø«e¬O¥Î¤gªk·Ò¿ûªk¿ï¨ú°¸¼Æ¦C  Range(" 2:2,4:4,6:6 ").select

ª¦¤å¤F¸Ñ¨Ï¥Î¨ç¼Æ =mod(row(),2)=0 ¥i¥H¤@¦¸¿ï¨ú°¸¼Æ¦C

Âà´«¼Æ­Èªº»yªk   Range("2:2,4:4,6:6').NumberFormatLocal = "G/³q¥Î®æ¦¡"

¨ì³oÃä¤p§Ì´N¥dÃö¤F ¤£ª¾¹D¬O§_¦³¸Ñ¨M¤èªk

ÁÂÁÂ

1.¸ÕµÛ¥[¤@­Ó Column ¡A§â°¸¼Æ Row ±Æ§Ç¦b¤@°_¡C
2.§â±Æ¦b¤@°_ªº Row ¤º®e¤Æ¬°­È

TOP

¦^´_ 1# HCG10G8bear

§A¥ý¥Î§Aªº¤è¦¡Åý¥L¿ï¾Ü¦n¤º®e«á¡A¦A¤U­±key:

Selection.NumberFormatLocal = "G/³q¥Î®æ¦¡"
Selection = Selection.Value

³o¼Ë´N¦æ¤F¡C

TOP

Sub addp_2()
Dim i As Integer, j As Integer
j = Range("A1").End(xlToRight).Columns
For i = 2 To Range("A1").End(xlDown).Row Step 2
Cells(i, j + 1) = WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, j)))
Next
End Sub
³o¼Ë¥i¥H§a¸Õ¬Ý¬Ý

TOP

¥ýÁÂÁ¦U¦ì¤j¤jªº¦^ÂÐ

Baracuda¤Îowen06¤j¤jªº¤èªk¦n¹³¬OÃþ¦üªº

§Ú·|ºÉ§Ö¸Õ¸Õ¬Ý

tpwhdavid¤j·PÁ±z¤£§[±Nµ{¦¡½Xª½±µ¼g¥X¨Óµ¹§Ú

§Ú·|¥h¸Õ¸Õ¬Ýªº

¦pªG¦³°ÝÃD·|¦b¸ß°Ý¦U¦ì

ÁÂÁ¤j®a

TOP

¦^´_ 4# tpwhdavid

tpwhdavid¤j¤j±z¦n

§Ú°õ¦æ±z´£¨Ñªº»yªk

¥X²{"·¸¦ì"ªº°ÝÃD´£¥Ü®Ø

¤£ª¾¹D¥X¤F¤°»ò°ÝÃD

§Ú·Q§ÚÁÙ¬O§âÀɮפW¶Ç½Ð¤j¤j¬Ý¤@¤U¦n¤F

TOP

¦U¦ì¤j¤j¦n

§Ú±NÀɮפW¶Ç¤F

¥ý¸ÑÄÀ¤@¤U¸I¨ìªº°ÝÃD

D2:J2,D4:J4..............D52:J52

³o¨ÇÀx¦s®æªº¼Æ¦r¬ÒµLªk­pºâ(¤w¨Ï¥ÎÀx¦s®æ®æ¦¡¡÷¼Æ¦r¡÷¼Æ­È¡A¨ÌµM¨S¥Î)

¥²¶·¨Ï¥ÎNumberFormatLocal = "G/³q¥Î®æ¦¡" ªº»yªk¤~¯àÂন¥i­pºâªº¼Æ­È

¥ý«e¤w¦³¥ý¥Îmod(row(),2)=0 ªº»yªk¿ï¨ú°¸¼Æ¦C¥h°µ¤å¦rÂà­z­ÈªºÅÜ´«

¦ý¸I¨ìD2:J2.....D52:J52ªºÀx¦s®æ¨S¦³¼Æ¦r®É¡A·|±NA2,A4.....A52ªº­È±a¤JªÅ¯ÊªºÀx¦s®æ

²{¦b·Q§ï¦¨ª½±µ¿ï¨úD2:J2,D4:J4,........D52:J52

¨Ã§@¤å¦rÂà­z­Èªº°Ê§@

·Q½Ð°Ý¦U¦ì¤j¤j¸Ó¦p¦ó°õ¦æ

ÁÂÁ¦U¦ìªºÀ°¦£

·P¿E¤£ºÉ

°¸¼Æ¦C¯S©wÀx¦s®æ.zip (3.41 KB)

TOP

¦^´_ 7# HCG10G8bear

§ï³o¼Ë¤l´N¦æ¤F
Sub TEST()
For I = 2 To UsedRange.Rows.Count Step 2
Cells(I, 4).Resize(1, 7).NumberFormatLocal = "G/³q¥Î®æ¦¡"
Cells(I, 4).Resize(1, 7) = Cells(I, 4).Resize(1, 7).Value
Next
End Sub

TOP

¥»©«³Ì«á¥Ñ HCG10G8bear ©ó 2013-11-5 08:59 ½s¿è
¦^´_  HCG10G8bear

§ï³o¼Ë¤l´N¦æ¤F
Sub TEST()
For I = 2 To UsedRange.Rows.Count Step 2
Cells(I, ...
owen06 µoªí©ó 2013-11-4 13:31


owen06¤j¤j ÁÂÁ±zªº¦^ÂÐ

«ö·Ó±zªºµ{¦¡½T¹ê¥i¥H°õ¦æ

¦ý±zªºµ{¦¡§Ú¦³ÂI¤£À´ §Æ±æ±zÄÀºÃ

For Next ¬O°õ¦æ°j°éªº¨ç¼Æ

Sub TEST()
For I = 2 To UsedRange.Rows.Count Step 2                     
Cells(I, 4).Resize(1, 7).NumberFormatLocal = "G/³q¥Î®æ¦¡"   
Cells(I, 4).Resize(1, 7) = Cells(I, 4).Resize(1, 7).Value        
Next
End Sub

'±q²Ä¤G¦C¶}©lªº°¸¼Æ¦C ©µ¦ù¨ì¦³¨Ï¥ÎªºÀx¦s®æ¨ì³Ì«á¤@¦C  count step 2 ¤£À´¬O¤°»ò
'Cells(I,4)¬OÀx¦s®æD2 Resize¤£ª¾¹D¬°¦ó ±N(1,7)§ï¬°(1,20)§Y¥i±N¼Æ­È¤ÆD2©¹¥k©µ¦ù
'Âà´«¤å¦rªº¼Æ¦r¦¨¼Æ­È¤Æªº¼Æ¦r

½Ð°Ý§Ú³o¼Ë¸ÑÄÀ­þ¸Ì¦³°ÝÃD?¤£À´ªº¦a¤èÁٽФj¤j«ü¾É

ÁÂÁ¤j¤j¤£§[±Ð¾É

¯uªº«D±`·PÁ±z ¬Ù¤F§Ú¦n¦hªº®É¶¡

TOP

¦^´_ 9# HCG10G8bear


    UsedRange.Rows.Count=¨Ï¥Îªº½d³ò.¦C¼Æ.­pºâ
   
    step 2 = ¨C¤@¦¸¸õ¤G¶¥
    for i = 1 to 10 ¡A i ·|¬O1¨ì10ªº³sÄò¼Æ
    for i = 1 to 10 step 2¡Ai ·|¬O 1¡B3¡B5¡B7¡B9
    for i = 1 to 10 step 3¡Ai ·|¬O 1¡B4¡B7¡B10
    ³o¼ËÀ³¸Ó«Ü©ú¾é§a¡C
    ¦]¬°§A³£¬O°¸¼Æ¦C­n°õ¦æ°Ê§@¡A©Ò¥H´N±q²Ä2¦C¶}©l¡A
    ¨C¤@¦¸¸õ2¶¥¡A²Ä2¦C~²Ä4¦C~²Ä6¦C¡A
    ¤@ª½¨ìUsedRange.Rows.Count©Ò­pºâ¥X¨Óªº¨º¤@¦C¬°¤î¡A
    ´N¤£·|¦]¬°³]ªº½d³ò¤Ó¤j¦Ó®ö¶O°õ¦æªº®É¶¡¡C

    RESIZE=¥H¬Y­ÓÀx¦s®æ¬°°ò·ÇÂI¨Ó¿ï¨ú½d³ò   
    [a1].resize(1,1).select     ¿ï¾Ü½d³ò¬°a1¬°°ò·ÇÂIªº1¦C¤Î1¦æ¡A¿ï¨úµ²ªG¬°a1
    [a1].resize(10,10).select  ¿ï¾Ü½d³ò¬°a1¬°°ò·ÇÂIªº10¦C¤Î10¦æ¡A¿ï¨úµ²ªG¬°a1:j10

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