- ©«¤l
- 406
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 453
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2015-2-7
- ³Ì«áµn¿ý
- 2021-7-31
|
¦^´_ 1# pideo
§Aªº°ÝÃDÂI«Ü¦h¡A¤×¨ä¬O¸ê®Æ«¬ºAªº³¡¥÷
1.§AªºuRng ¬O¤@ÓÅܼƦWºÙ¡A¦pªG¥´¦¨"uRng"¡A¹q¸£´N·|§ä³oÓ¦WºÙªº¤u§@ªí¡AÅãµM¬O§ä¤£¨ì
2.str(uRng)..............¥u¦³È ¤~¯à¥Îstr³oÓ¨ç¼Æ¡A¨Ò¦p1111Âà´«¦¨"1111"¡A¦ý¬O§AªºuRng¬OÅܼƦWºÙ............
3.¥¿½T¼gªk¬O¡GWorkbooks("a.xlsm").Worksheets(uRng).cells(1,1) §A¤Ö¼g¤FS
4.¼gµ{¦¡¤£¥ý©w¸q¸ê®Æ«¬ºA¬O«Ü¤£¦nªº²ßºD¡A§AªºuRng ¸Ì±¸ËªºÈ¬O¼Æ¦r¡A°²³]uRng=5¡A©Ò¥HWorksheets(uRng)¡A¥Nªí¹q¸£¥h§ä²Ä5Ó¤u§@ªí
©Ò¥H½Ð¸É¤WDim Urng As String
§ó¥¿µ{¦¡¦p¤U¡A¥ý¨M±ø¥ó§Aªºnumn¦³È- Dim Urng As String
- For i = 1 To num
- Urng = Workbooks("a.xlsm").Worksheets("¥N¸¹").Cells(i, 1)
- Workbooks("a.xlsm").Worksheets.Add.Name = Urng
- Workbooks("a.xlsm").Worksheets(Urng).Cells(1, 1) = "¬Y¨Ç¸ê®Æ"
- Next
½Æ»s¥N½X |
|