µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» °Ñ¦Ò¥t¤@ÓÀɮסA³]©wsheet
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
°Ñ¦Ò¥t¤@ÓÀɮסA³]©wsheet
eigen
µoµu®ø®§
¥[¬°¦n¤Í
eigen
·í«eÂ÷½u
UID
15495
©«¤l
79
¥DÃD
33
ºëµØ
0
¿n¤À
123
ª÷¿ú
123
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
x64
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
16 ¤p®É
µù¥U®É¶¡
2013-10-24
³Ì«áµn¿ý
2024-3-28
¤¤¾Ç¥Í
©«¤l
79
¥DÃD
33
ºëµØ
0
¿n¤À
123
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
x64
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2013-10-24
³Ì«áµn¿ý
2024-3-28
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2014-1-2 00:43
|
Åã¥Ü¥þ³¡©«¤l
[µo°Ý]
°Ñ¦Ò¥t¤@ÓÀɮסA³]©wsheet
°Ñ¦Ò¥t¤@ÓÀɮסA³]©wsheet
https://dl.dropboxusercontent.com/u/12575824/test03.xls
³o¬O¤@Ó«ö¤U Button µM«á¶}±Ò¥t¤@Ó excel Àɮתºµ{§Ç
³Q¶}±ÒªºÀÉ®×ÀɦW·|³Q©ñ¦b C5 ¤Î C6 ¡A¦Ó C7 «h¥t¥~¦s©ñ¤F¡A³Q¶}±ÒÀɮתº Sheet
²{¦b§Ú«h¥d¦b³oÓµ{§Ç¡A·í¶}±ÒÀɮפ§«á¡A§Ú§Æ±æ³Q¶}±ÒªºÀɮׯà°÷¸õ¨ì C7 «ü©wªº sheet
¦ý¬O§Ú³o¼Ë¼g
Sheets( Workbooks(ControlFile).WorksSheets("Setup").Range("C7") ).Activate
«ç»ò¼g¡A«ç»ò¿ù~~½Ð«ü±Ð¡AÁÂÁÂ~~
Private Sub CommandButton1_Click()
Dim file_Input As String
Dim file_path As String
Dim file_name As String
Dim file_index As Integer
Dim ControlFile As String
Dim RngCnt As Integer
Dim RngSheet As String
ControlFile = ActiveWorkbook.Name
file_Input = ""
file_Input = Application.GetOpenFilename("EXCEÀÉ(*.XLS),*xls")
If file_Input <> "" Then
If file_Input <> "False" Then
file_index = InStrRev(file_Input, "\")
file_path = Left(file_Input, InStrRev(file_Input, "\"))
file_name = Right(file_Input, Len(file_Input) - InStrRev(file_Input, "\"))
MsgBox "Reference " & file_Input
Range("C5").Value = file_Input
Range("C6").Value = "[" & file_name & "]"
Workbooks.Open file_Input
' Workbooks(ControlFile).WorksSheets("Setup").Range("C7") = 1
Sheets( Workbooks(ControlFile).WorksSheets("Setup").Range("C7") ).Activate
Sheets("Sheet4").Activate
Windows(ControlFile).Activate
Sheets("Setup").Activate
Sheets("Setup").Range("B2").Select
End If
End If
End Sub
½Æ»s¥N½X
¼Ó¥D¼ö©«
½Ð±Ð¡A¦p¦óÁôÂÃÀx¦s®æ¤ºªº¹Ï¤ù¡H¦p¦ó§Ö³t«ü
EXCEL ¦X¨Ö¦C¦L¤G¡B½d¨Ò¡BµØ«n»È¦æ¦s´Ú¾Ì±ø
½Ð°ª¤â«üÂI¤@¤U¡A¦p¦ó°µ¥X°ÊºAªº¦æ¨Æ¾ä¤ÎÂù
EXCEL ¦X¨Ö¦C¦L ®MªO¦C¦L¶i¶¥±Ð¾Ç step by
2020 ·R§A·R§A ·s¬K¦L¬KÁp
¦p¦óÁקKÀx¦s®æ¤½¦¡¡A¦]¡y°Å¤U¡z¡y¶K¤W¡z¦Ó
½Ð±Ð¾Þ§@ excel vba ª½®Ñ¾î®Ñ¾Þ§@
¦p¦ó¨ú±o¬YÓÀɮתºÀx¦s®æ¸ê®Æ¡H¡]ÀÉ®×ÀɦW
excel vba ¦p¦ó±N¨ä¥¦µ{¦¡ªºµøµ¡²¾¨ì³Ì¤W¼h
word ¥¨¶° ³Q³sÄòIJµo
¦¬ÂÃ
¤À¨É
¤½¶}¸gÅç¡A³Ð³y´¼¼z¡]§Ú¤S¤£¾a³o¹L¬¡¡^
eigen
µoµu®ø®§
¥[¬°¦n¤Í
eigen
·í«eÂ÷½u
UID
15495
©«¤l
79
¥DÃD
33
ºëµØ
0
¿n¤À
123
ª÷¿ú
123
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
x64
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
16 ¤p®É
µù¥U®É¶¡
2013-10-24
³Ì«áµn¿ý
2024-3-28
¤¤¾Ç¥Í
©«¤l
79
¥DÃD
33
ºëµØ
0
¿n¤À
123
ÂI¦W
0
§@·~¨t²Î
win7
³nÅ骩¥»
x64
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2013-10-24
³Ì«áµn¿ý
2024-3-28
2
#
µoªí©ó 2014-1-2 17:25
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
2#
GBKEE
:'( ¤Ñ±þªº~~©~µM¬O¿ù³oºØ ¤@¦r¤dª÷
ÁÂÁÂ~~°ÝÃD¸Ñ¨M¤F~~
¤½¶}¸gÅç¡A³Ð³y´¼¼z¡]§Ú¤S¤£¾a³o¹L¬¡¡^
TOP
ÀR«ä¦Û¦b :
¤@ӯʤfªºªM¤l¡A¦pªG´«¤@Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·