- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- OFFICE 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2011-4-5
- 最後登錄
- 2012-5-23
|
輸入上市股票代號並確認是否正確的程式寫法
各位程式高手大大:
小弟目前只是個程式菜鳥, 想要寫一個關於股票代號確認的VBA程式,
就是說, 我於某個sheet的某一欄位輸入一個上市股票代號 (可能是錯誤的代號), 然去在另外一個sheet中會有一欄是所有正確的上市公司股票代號. 藉此來確認剛才輸入的代號是否正確.
如果正確, 就會執行網路資料的重新下載整理.
如果錯誤, 我希望能跳出一個警告視窗(MsgBox ("輸入代號錯誤") , 說明代號錯誤, 並將原有輸入於欄位中的代號清除 <===這一步我不知怎再迴圈中寫出來, 有請大大釋疑.
我現在的程式只會寫到如下, 該如何改呢?
===========================================================================================================
Sub go()
Dim myRange As Range
For Each myRange In Worksheets("股票代號").Range("C2:C764") <=================在此sheet的C2~C764有正確的上市股票代碼
If myRange.Value = Worksheets("由布林軌道判斷個股強弱").Cells(1, 2).Value Then <================在此處判斷另一個sheet中 B1輸入的代碼是否正確
ActiveWorkbook.RefreshAll <=======================正確就更新資料
End If
Next
End Sub
===========================================================================================================
非常感謝您的幫助! |
|
發表於 2011-4-5 21:11
| 
發表於 2011-4-5 21:26
| 
