¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-11-15 17:03 ½s¿è
Sub CODE_ST1()
'¿Ã¹õ§ó·sÃö³¬¡A´£¥ÜÃö³¬
Application.DisplayAlerts = False
Application.ScreenUpdating = True
'¬¡¶Ã¯·s¼W
For AAA = 1 To 6 '1 TO 6 ¬O ³Ð³y6Ó SHEET
QQ = Sheet1.Range("A" & AAA).Value
'QQªºÈ¬° SHEET1ªºAÄæ¦ìªºÈ , ¦pªG¬On¦h¦r¦ê¦X¨Ö(¦p aÄæ¦ì©MbÄæ¦ì¦X¨Ö) «h ³o¦ê§ó§ï¬° QQ = SHEET1.RANGE("A"&AAA ).VALUE & SHEET1.RANGE("B"&AAA).VALUE
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet" & QQ + 1).Select 'QQ+1¬OÁקK ¤@¶}©lªºSHEET1
Sheets("Sheet" & QQ + 1).Name = QQ
Next AAA
End Sub |
|