- ©«¤l
- 50
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-6-21
- ³Ì«áµn¿ý
- 2015-1-11
|
[µo°Ý] ½Ð°Ý¸Ó¦p¦ó¤ñ¹ï°}¦C¤¤ªº¸ê®Æ»P¤u§@ªí©m¦W ?
¦U¦ì«e½ú¦n¡A
¤p§Ì·Q§Q¥Î vba¨C¤Ñ¦¬½L«á§ó·sopªº»ù®æ©M¥¼¥Ü¸ê®Æ¡A¦ý¬O¦b°õ¦æ¤W¾D¨ì¤@¨Ç°ÝÃD¡AÁٽЦU¦ìÀ°¦£¸Ñµª¡A§Úªº°ÝÃD¦p¤U:(¼Ò²Õ¤T¡A·Ð½Ð°Ñ¾\ªþ¥ó)¡C
§Ú¥ý¥Î¥~³¡³sµ²§ó·s¥x´Á©Òªº¸ê®Æ¡AµM«á´£¨ú¥X¨ÓÀx¦s¨ì°}¦CA¸Ì±¡A¤§«á¦A§Q¥Î°j°é§âÀx¦s·Ó¶¶§Ç¦s¤J«ü©wªº¤u§@ªí©MÀx¦s®æ¡A¥X°ÝÃDªº¦a¤è¦³¨âÓ:
1.·í§Ú§â©Ò¦³¸ê®Æ¦s¤J°}¦C¡A§Ún¥ý§PÂ_¬Û¹ïÀ³ªº¤u§@ªí¬O§_¤w¦s¦b(¤ñ¦p»¡5600¼i¬ù»ù)¡A©Ò¥H§Ú¼g¤F¤@Ó¤pªº°j°é§PÂ_- For iM = 1 To isheetsnumber 'small loop to test if the worksheet exists, exists =true otherwise false
- If ThisWorkbook.Sheets(iM).Name = varA(I, 1, 8) Then
- Sheets_Exist = True:Exit For
- Else
- Sheets_Exist = False
- End If
- Next iM
½Æ»s¥N½X ³oÃ䪺varA(I,1,8)´N¬O§Úªº°}¦C¤§¤@(§ó¥~±ÁÙ¦³¤@ÓIªº For °j°é)¡A¦ý¤£ºÞ§Ú«ç»ò´ú¦¡¡A¥X¨Óªº³£¬OFalse
2.²Ä¤GÓ°ÝÃD¬O¡A°²³]¥i¥H§ä¨ì³oÓ¤u§@ªí¡A§Ú·Qn§â¹ïÀ³ªº¸ê®Æ¥Ñ°j°é¤º¶ñ¶i¥h¡A©Ò¥H§Ún¡i«ü©w³oÓ¦W¦r¡jªº¤u§@ªí¡A¤£ª¾¹D¸Ó«ç»ò°µ?
§Úì¥ý«Ü¥Õ誺¥H¬°¥i¥H¥Î
With Sheets("varA(I,1,8)")
¦ý¬O¦n¹³¤£¦æ¡A½Ð°Ý³oºØ±¡ªp¸Ó«ç»ò³B²z©O?
·Ð½Ð¦U¦ì«e½ú°Ñ¦Òªþ¥ó
OP_OI.rar (105.7 KB)
ÁÂÁ¦U¦ìªºÀ°¦£:D |
|