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

[µo°Ý] ½Ð°Ý¦p¦ó¤ñ¹ïÄæ¦ì¸ê®Æ¨Ã¨ú±o¬Û¹ïÄæ¦ì­È©O?[¥H¸Ñ¨M]

[µo°Ý] ½Ð°Ý¦p¦ó¤ñ¹ïÄæ¦ì¸ê®Æ¨Ã¨ú±o¬Û¹ïÄæ¦ì­È©O?[¥H¸Ñ¨M]

¥»©«³Ì«á¥Ñ ´dÅwÂù¤ß ©ó 2010-7-21 01:26 ½s¿è

½Ð°Ý¦U¦ì¥ý¶i
§Ú·Q­n¦bUserForm1¸Ì­±¥[µ{¦¡
Åý¥¦¥h¨ú±osheet5(¾ú¥v¸ê®Æ)¸Ì­±ªº"¶R½æ°T¸¹"Äæ¦ì¸ê®Æ
©ó¬O¼g¤Fdo loop °j°é§Q¥Î"¹Ïªíe1ªºÄæ¦ì"¥h¹Á¸Õ»P"¾ú¥v¸ê®ÆªºdateÄæ¦ì"¤ñ¹ï
¨Ã¥B¨ú±o"¶R½æ°T¸¹"Äæ¦ìªº­È
¦ý¬O³£·|·í¾÷©ÎªÌ¥X²{¸ê®Æ®æ¦¡¤£¥¿½T
½Ð°Ý¥i¥HÀ°À°§Ú¶Ü

DDE.rar (957.07 KB)

·¥¥Ø§N²´¯º»a¶³¡A±I¹æ¤@¥Í¶Æ¤ÑªÆ

¨S¬Ý¨£¸Ì­±©Ò´£ªº table.csv ³o­ÓÀÉ®×
¥t¥~,»yªk¤ºªº Sheet1 ½Ð§ï¬° Sheets(1)

TOP

¦^´_ 2# jackdream
¦^¤j¤j
§Ú¥u¬O·Q­n¦b"UserForm1"¸Ì­±
¥Î"Sheet3.[e1]"©Î"Label24"ªº¸ê®Æ
¥h·j´M"¾ú¥v¸ê®Æªí"ªº"Date"Äæ¦ì§ä¨ì¤@¼Ëªº
¨Ã¨ú±o¦P¤@¦C"¶R½æ°T¸¹"Äæ¦ìªº­È
Åý§Ú¦n§PÂ_²{¦b¬O³B©ó¶Àª÷¥æ¤e©Î¦º¤`¥æ¤eµ¥µ¥..
¦Ó¤j¤j©Ò´£¤Îªºtable.csv¦]¬°½×¾Â¦³¤W¶Ç®e¶qªº­­¨î
©Ò¥H¥i¯à³Q§Ú§R´î±¼¤F.....
¦ý§Ú·QÀ³¸Ó¤£·|¼vÅT¨ìµ{¦¡°õ¦æ...
·¥¥Ø§N²´¯º»a¶³¡A±I¹æ¤@¥Í¶Æ¤ÑªÆ

TOP

¦^´_ 1# ´dÅwÂù¤ß


    ¨S¦³«Ü¸Ô²Ó´ú¸Õ,¦Ó¥B¸ê®Æ¤£¤Ó»ô¾ã,¥u¬O¬Ý¤F¤@¨â²´~

¥H¤U¬O­È±o¯d·Nªº¦a¤è:

1. ³o¥y¤ñ¸û¦b·N,
    On Error Resume Next '¨S¦³¥[³o¤@¦æ·|¥X¿ù
¦³¨S¦³»¡¬O¤°»ò¦a¤è¥X¿ù? ¥X¿ùªº¦a¤è¥i¯à¼vÅT¸ê·½¦^¦¬.

2. ¦bvba¼gªF¦è¨ìsheet «e ¹B³o¥y
application.Calculation=xlCalculationManual
¦bvba¼gªF¦è¨ìsheet «á ¹B³o¥y
application.Calculation=xlCalculationautomatic
¨º»ò®æ¤l¤£¥Î¨C¼g¤p³\´N­«ºâ¤@¦¸, ¤@¦¸¹L­pºâ.
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_ 4# kimbal

    On Error Resume Next '¨S¦³¥[³o¤@¦æ·|¥X¿ù
¦³¨S¦³»¡¬O¤°»ò¦a¤è¥X¿ù? ¥X¿ùªº¦a¤è¥i¯à¼vÅT¸ê·½¦^¦¬.
   

½Ð°Ý¤@¤U
³o¥yµ{¦¡¬O¦b¼g¤°»ò?
¦³¤°»ò¥Î³B©O?

TOP

¦^´_  kimbal

    On Error Resume Next '¨S¦³¥[³o¤@¦æ·|¥X¿ù
¦³¨S¦³»¡¬O¤°»ò¦a¤è¥X¿ù? ¥X¿ùªº¦a¤è¥i¯à ...
shadowming µoªí©ó 2010-7-20 22:51



¦pªG¹w­p¥N½X·|¦³¿ù,¦ý¤S¤£¼vÅT¾ãÅé¹B§@, ¥Î³o¤@¥y,´N¥i¥H¤£Åã¥Ü¿ù»~©Î¸õ¥X¿ù»~,Ä~Äò¹B¤U¤@¥y.

·í¦~vb6¥¼¦³¹³vb.net,c++ µ¥µ¥ªº try...catchªº»y¥y,  
on error goto .../ resume next ¹ïvb¨Ó»¡¥i¥H»¡¬Otry...catchªº«e¨­
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_  jackdream
§Ú¥u¬O·Q­n¦b"UserForm1"¸Ì­±
¥Î"Sheet3.[e1]"©Î"Label24"ªº¸ê®Æ


­Ó¤H²L¨£,¾ã²z´X­Ó°ÝÃDÂI~
(1).¦bPrivate Sub Workbook_Open()
Sheet1.Select=> §ï¬° Sheets(1).Select

(2).¦b GetShareHistData ¼Ò²Õ
Sheet1.Range("a5:g65536").ClearContents
§ï¬°Sheets(1).Range("a5:g65536").ClearContents

TableUrl = Sheet1.Range("I1") §ï¬° TableUrl = Sheets(1).Range("I1")

(3).¦b SortDate ¼Ò²Õ¸Ì
Header:=xlGuess «Øij§ï¬° Header:=xlYes

¥t¥~,¨S¬Ý¨£ sheet3 ªº¤º®e,À°¤£¤W¦£ÂP~

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD