- ©«¤l
- 130
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 143
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-8-3
|
¦^´_ jackdream
§Ú¥u¬O·Qn¦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~ |
|