輸入上市股票代號並確認是否正確的程式寫法

PeopleH

各位程式高手大大:

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

回復 1# PeopleH

1. Sub go()
   
2. Dim myRange As Range
   
3. 
   
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輸入的代碼是否正確
   
6. 
   
7.      ActiveWorkbook.RefreshAll      '<正確就更新資料
   
8.      Else
   
9.      
   
10.      MsgBox "代碼輸入錯誤"
    
11.      
    
12.   End If

複製代碼

PeopleH

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

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