- ©«¤l
- 11
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 21
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2011
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-5-5
- ³Ì«áµn¿ý
- 2015-6-27
|
ªí®æ¤¤²Ä¤@¦Cªº¬Y¤@ÓÀx¦s®æ¥s"¥k¤è´¡¤J¤TÄæ"
·Q¦b³oÓÀx¦s®æ¥kÃä´¡¤J¤TÄæ
§ÚªºCode:- Private Sub CommandButton4_Click()
- Dim J As Integer
- J = 1
- Do Until Cells(1, J) = "¥k¤è´¡¤J¤TÄæ"
- J = J + 1
- Loop
- Columns(J + 1 & Chr(58) & J + 3).Select '³oÃäÅã¥ÜÀ³¥Îµ{¦¡©Îª«¥ó©w¸q¤W¿ù»~
- Selection.Insert Shift:=xlToRight
- 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- Private Sub CommandButton4_Click()
- Dim J As Integer
- J = 1
- Do Until Cells(1, J) = "¥k¤è´¡¤J¤TÄæ"
- J = J + 1
- Loop
- Cells(1, J + 1).Resize(, 3).EntireColumn.Insert
- End Sub
½Æ»s¥N½X ÁöµM°ÝÃD¸Ñ¨M¤F
¤£¹LÁÙ¬O·Q§ËÀ´¦Û¤vªºcode¬°¤°»ò·|¿ù»~
·Q½Ð¤j®a«üÂI,ÁÂÁÂ:) |
|