Board logo

標題: 輸入上市股票代號並確認是否正確的程式寫法 [打印本頁]
作者: PeopleH    時間: 2011-4-5 21:11     標題: 輸入上市股票代號並確認是否正確的程式寫法

各位程式高手大大:

小弟目前只是個程式菜鳥, 想要寫一個關於股票代號確認的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  
===========================================================================================================

非常感謝您的幫助!
作者: Hsieh    時間: 2011-4-5 21:26

回復 1# PeopleH
  1. Sub go()
  2. Dim myRange As Range

  4. Set myRange = Worksheets("股票代號").Range("C2:C764").Find(Worksheets("由布林軌道判斷個股強弱").Cells(1, 2).Value, lookat:=xlWhole) '    <在此找sheet的C2~C764有正確的上市股票代碼
  5.   If Not myRange Is Nothing Then  '在此處判斷另一個sheet中 B1輸入的代碼是否正確

  7.      ActiveWorkbook.RefreshAll      '<正確就更新資料
  8.      Else
  9.      
  10.      MsgBox "代碼輸入錯誤"
  11.      
  12.   End If
複製代碼
作者: PeopleH    時間: 2011-4-5 21:36

回復  PeopleH
Hsieh 發表於 2011-4-5 21:26



非常感謝大大如此迅速的解惑, 我剛試用真的可以耶!  對於菜鳥的我真的佩服佩服  ^_^!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)