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

[µo°Ý] ¦r¦ê¤£³Q±µ¨ü,·|ÅÜerror 1004,§ä¤£¥X°ÝÃD

[µo°Ý] ¦r¦ê¤£³Q±µ¨ü,·|ÅÜerror 1004,§ä¤£¥X°ÝÃD

½Ð°Ý¦U¦ì¥ý¶i¤@­Ó°ÝÃD
µ{¦¡¦pªþ¥ó test-20100810.rar (190.81 KB)


§Ú¥ÎSheets(nowSheet).Range("A1").Offset(nowRow, nowCol) = "¤@¦ê¤å¦r"
¨Ó©ñ¸m¦r¦ê
¥i¬O¦b¥¿¦bª¬ªp¤U,°õ¦æ¨ìnowRow=22959®É,¦r¦ê·|³Q©Úµ´
¬°¤F¤è«K´ú¸Õ
ªþ¥óªº¦r¦ê§Ú¥[¤F¤@­ÓªÅ¥Õ,°õ¦æ¬ù2¦¸´N³Q©Úµ´

·Q«Ü¤[¤F¤£©ú¥Õ,¦P¼Ë¤@¼Ë,¦P¼Ë®æ¦¡ªº¦r¦ê
¦ý´N¬O¦³¨Ç·|¤£³Q±µ¨ü

¤£¬O¤C¤ë¼²°­¡A¦ý¯uªº´N¬O§ä¤£¥X°ÝÃD
½Ð¦U¦ì°ª¤âÀ°¦£¬Ý¬Ý

¦^´_ 1# mylene


    ¨S¦³¸Ô²Ó¬Ý,
¥i¥H¸Õ¸Õ§â
Dim nowRow
´«¦¨
Dim nowRow As Long
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 1# mylene VBAªºµo°Ý ½Ð¨ì[Excelµ{¦¡°Ï]
¿ù»~­È1004  
½Ð°Ñ¾\  Excel ªº³W®æ¤Î­­¨î(ºK¿ý¦ÛExcel »¡©ú)
http://forum.twbts.com/viewthread.php?tid=36&extra=page%3D1
Àx¦s®æ¤º®eªºªø«× (¤å¦r) 32,767 ­Ó¦r¤¸¡C¦b¤@­ÓÀx¦s®æ¤¤¶È¯àÅã¥Ü1,024 ­Ó¦r¤¸¡F¦b¸ê®Æ½s¿è¦CÅã¥Ü¥þ³¡ 32,767 ­Ó¦r¤¸¡C
½Ð­×§ï§Aªºµ{¦¡½X¦p¤U ¸Õ¸Õ«Kª¾
Sheets(nowSheet).Range("A1").Offset(nowRow, nowCol) = Application.WorksheetFunction.Rept("A", 32767)
Sheets(nowSheet).Range("A1").Offset(nowRow, nowCol) = Application.WorksheetFunction.Rept("A", 32768)

TOP

Dim nowRow As Long  «Ü¦­¥H«e¸Õ¹L,¤@¼Ë·|¿ù

²Ä¤G­Ó«Øij,§Úªºª¬ªp¬O¦s"01.02.03.04.05.06 "³o¼Ëªø«×ªº¦r¦ê,³£·|¿ù

³Ì·Ðªº¬O,¦³®É¤£·|¿ù,¦³®É·|¿ù,³o¼Ë´N¤£¯à§PÂ_¬O¤°»ò°ÝÃD¤F
¦³´ú¹L¥H¬°¬O¦ì¸m«ü¿ù,¦ý¬O¶Ã¥á¤@­Ó¦r¦ê¦p"1111111111111111111"¤S¥i¥H¦s,°¾°¾´N¹³¤W­z¨º¼Ëªº¦r¦ê¦s¤£¶i
¤S¤£¬O©T©w¬Y¤@­Ó¦r¦ê¦s¤£¶i,¯uªº«Ü¦³¼²°­ªº·Pı
¦ý§Ú¬Û«Hexcel¨S¦³°­

TOP

¸Õ¶]¤F¥b¤Ñ¤]¨S¥X¿ù¡C
³o¼Ëªºµ{§Ç®Ä²v¤Ó®t¤F¡C§Ú¹ê¦b¤]¨S­@¤ßµ¥¤»­Ó¤p®É¨Ó¬Ý¬Ý¿ù¦b­þ¸Ì¡I

TOP

¦^´_ 4# mylene
½Ð°Ý 1004 ¿ù»~­È¤º®e  ¬°¦ó


TOP

¦^´_ 6# GBKEE


    ·PÁÂGBKEE«ùÄòÀ°§Ú¦^µª³o­Ó°ÝÃD
§Úªº1004¿ù°T¬O==>°õ¦æ¶¥¬q¿ù»~ '1004' À³¥Îµ{¦¡©w¸q©Îª«¥ó©w¸q¿ù»~

§Úgoogle¹Lºô¸ô,§ä¤£¨ì©M§Ú¬Û¦Pªº°ÝÃD,¤j³¡¥÷³£¬Ocopy®É¦ì¸m«ü©w¿ù»~
§Úªº³¡¥÷,§Ú¹êÅç¹L,¬O¦r¦ê·|³Q©Ú,¦r¦êªºªø«×¨Ã¤£¬O±z©Ò«üªº¶W¹Lcell¥i®e§Ôªºªø«×
§Úªº¦r¦ê¥u¦³17ªºªø«×,¦Ó¥B,±Æ¦C²Õ¦X°µ¤U¨Ó,«e­±´X¤Q¸U³£¨S°ÝÃD,¥i¬O´N¬O·|¦b°õ¦æ6¤p®É¥ª¥k(¦³®É§óªø,¦³®É«h§óµu)
¦P¤@¦æµ{¦¡,´N³Q¼Ðerror 1004
³o¤~¬O§Ú·Q¤£³zªºÂI
¤@¯ë¨Ó»¡,¦³¿ù,²Ä¤@¦¸°õ¦æ®É´N·|¿ù

¯uªº¤£ª¾¹D¬°¤°»ò,¨C´ú¤@¦¸´N­n¨º»ò¤[,§Ú¤]ı±o«Ü¦ÒÅç­@¤ß,µ{¦¡½X¤S¬Ý¤£¥X¤°»ò°ÝÃD
¯uªº­n¨D§U©ó¦U¦ì°ª¤â¤F

TOP

¦^´_ 7# mylene
1004¿ù°T¬O==>°õ¦æ¶¥¬q¿ù»~ '1004' À³¥Îµ{¦¡©w¸q©Îª«¥ó©w¸q¿ù»~
¸Õ¸Õ¥[¤W³o¤@¦æ  ¹B¦æ³t«×·|ºC¤@¨Ç  «Ý¦³¿ù»~®É ¥´¶}§Y®É¹Bºâµøµ¡ ¬d¬Ý ³o4 ­ÓÅܼƫKª¾¿ù»~ ¦b¦ó³B
    Debug.Print nowSheet, nowRow, nowCol , Temp
    Sheets(nowSheet).Range("A1").Offset(nowRow, nowCol) = Temp  '¦³®É³o¦æ·|³Q©Úµ´¸m¤J

TOP

¦^´_ 8# GBKEE


    ·PÁ±zªº¦^ÂÐ
  ©Ò¦³¥i²qºÃªºÅܼƧڳ£¦³¥ÎºÊ¬Ý¦¡¬Ý¹L

  °õ¦æ¨ì sheets(2).range("a1").offset(22959,66)="06.xx.xx.xx.xx.48" (¹ï¤£°_,¦r¦ê°O¤£°_¨Ó)
  ¤@©w·|¿ù
  ´¿¦b°»¿ùªºª¬ªp¤U
½Ð¥¦°õ¦æsheets(2).range("a1").offset(22959,66)="1111111111111",¶¶§Q¼g¤J
¦ý¤U¤@¦æ,sheets(2).range("a1").offset(22959,66)="06.xx.xx.xx.xx.48",¥¦¤S¬O¸õ¥X¿ù»~°T
´N¬O³o¼Ë¹³¼²°­ªºª¬ªp,¤~·|Åý§Ú·Q¯}ÀY¤]·Q¤£¥X­ì¦]¿ù¦b­þ¸Ì
¨D§U©ó¦U¦ì°ª¤â....Ãø¨ì­n¶R¨Ä¨Ä½Ðexcel¶Ü¡H(»¡¯º)

TOP

¦^´_ 9# mylene
°õ¦æ¨ì sheets(2).range("a1").offset(22959,66)="06.xx.xx.xx.xx.48" (¹ï¤£°_,¦r¦ê°O¤£°_¨Ó)   ¤@©w·|¿ù
½Ð¸ÕµÛ§â¦r¦ê §ä¥X¨Ó ¤j®a°Ñ¦Ò

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD