台灣最大程式設計社群網站
線上人數
1776
 
會員總數:245250
討論主題:189111
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> 如何使用Find,找出重複股票代碼!
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何使用Find,找出重複股票代碼!
價值 : 5 QP  點閱數:392 回應數:0

樓主

Land
門外漢
0 4
108 19
發送站內信






Private Sub Worksheet_Change(ByVal Target As Range)
Dim StockID As String
Dim i As Integer
Dim theRow As Integer
Dim theRange As Range

Application.ScreenUpdating = False '關閉更新畫面
Application.EnableEvents = False
Application.DisplayAlerts = False '關閉警告視窗


If Target.Address = Range("B2").Address Then
theRow = Sheets("觀察名單").Cells(Rows.Count, "B").End(xlUp).Row
Set theRange = Sheets("觀察名單").Range("B2:B" & theRow)
Set theFind = theRange.Find(StockID)
For i = 3 To theRow
StockID = Sheets("觀察名單").Cells(i, 2).Value
If theRange.Find(StockID) Is Nothing Then
Sheets("2330").Select
Sheets("2330").Copy after:=Sheets("2330")
Sheets("2330 (2)").Select
Sheets("2330 (2)").Name = StockID
Sheets(StockID).Range("theTicker") = StockID
End If

Next i
End If

Call SheetsArange
Application.ScreenUpdating = True '重新開啟更新畫面
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

搜尋相關Tags的文章: [ Find ] ,
本篇文章發表於2018-10-18 21:22
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.