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

[µo°Ý] ´¡¤JÄæ¦ì«eªº¹Bºâ

[µo°Ý] ´¡¤JÄæ¦ì«eªº¹Bºâ

ªí®æ¤¤²Ä¤@¦Cªº¬Y¤@­ÓÀx¦s®æ¥s"¥k¤è´¡¤J¤TÄæ"
·Q¦b³o­ÓÀx¦s®æ¥kÃä´¡¤J¤TÄæ

§ÚªºCode:
  1. Private Sub CommandButton4_Click()
  2. Dim J As Integer
  3. J = 1
  4. Do Until Cells(1, J) = "¥k¤è´¡¤J¤TÄæ"
  5. J = J + 1
  6. Loop
  7. Columns(J + 1 & Chr(58) & J + 3).Select  '³oÃäÅã¥ÜÀ³¥Îµ{¦¡©Îª«¥ó©w¸q¤W¿ù»~
  8. Selection.Insert Shift:=xlToRight
  9. End Sub
½Æ»s¥N½X
·j´M¤Fª©¤WªºÂ¤å
http://forum.twbts.com/viewthrea ... ht=%B4%A1%A4J%C4%E6
,³Ì«á¤@¥y§ï¦¨³o¼Ë´N¨S°ÝÃD¤F
  1. Private Sub CommandButton4_Click()
  2. Dim J As Integer
  3. J = 1
  4. Do Until Cells(1, J) = "¥k¤è´¡¤J¤TÄæ"
  5. J = J + 1
  6. Loop
  7. Cells(1, J + 1).Resize(, 3).EntireColumn.Insert
  8. End Sub
½Æ»s¥N½X
ÁöµM°ÝÃD¸Ñ¨M¤F
¤£¹LÁÙ¬O·Q§ËÀ´¦Û¤vªºcode¬°¤°»ò·|¿ù»~
·Q½Ð¤j®a«üÂI,ÁÂÁÂ:)
MPEG

¦^´_ 1# mpegwmvavi


¦C¥i¥H rows("1:3").select ³o¼Ëªº³sÄò¿ï¨ú¡A
¦ýÄæ«o¤£¥i¥H columns("1:3").select ªº¤è¦¡¿ï¨ú¡A
Ä楲¶·¥H columns("A:C").select ªº¤è¦¡¤~¦æ!!

TOP

¦^´_ 2# ashan0418


    ªº½T¬O°Ú,¨S·Q²M·¡,ÁÂÁÂ
MPEG

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD