請問一下～
不曉得是否有版友一樣使用
http://www.mobile01.com/topicdetail.php?f=291&t=2601574&p=1
這套倉儲excel檔案呢？
最近它無法使用～
總會出現『程式開始會出現1004錯誤』這個問題...
不曉得有沒有excel高手幫忙解決呢？拜託！謝謝！
PS：或是有其他好用的EXCEL推薦呢？謝謝！
--
請問一下～
不曉得是否有版友一樣使用
http://www.mobile01.com/topicdetail.php?f=291&t=2601574&p=1
這套倉儲excel檔案呢？
最近它無法使用～
總會出現『程式開始會出現1004錯誤』這個問題...
不曉得有沒有excel高手幫忙解決呢？拜託！謝謝！
PS：或是有其他好用的EXCEL推薦呢？謝謝！
--
2013-02-04 10:32 發佈
1.把你的倉儲EXCEL拉到垃圾桶，然後按Y刪除
2.開啟EXCEL，並啟動巨集功能
3.開啟VBA工具列
4.進入設計模式，叫出工具箱
5.切到頁面2，並拉一個按鈕元件，最好在M欄之後，A-L欄位待會要用來放資料
6.按鈕點兩下，進入VBA編輯模式
7.把以下程式複製貼上
Dim x As String
x = InputBox("請輸入代碼（4位數），無防呆請勿亂keyin！")
Range("A1:L7").Select
Range("L7").Activate
Selection.Insert Shift:=xlDown
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://tw.stock.yahoo.com/q/q?s=" & x, Destination:=Range("A1"))
.Name = "q?s=" & x & "_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
8.儲存，關閉VBA
9.回到頁面2，關閉設計模式、工具箱
10.點一下按鈕元件
11.多點幾下，隨便打幾檔個股
12.回到第一頁，製作你想要的介面
買入價格方程式
賣出價格方程式
現價查詢方程式
漲跌幅查詢方程式
內文搜尋
從 APP 打開
X