返回列表 上一主題 發帖

EXCEL VBA 如何將重複的程式合併再一起

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-9-23 17:09 | 顯示全部帖子
回復 1# ken2192
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim ddeString As String

  4.     If Intersect(Target, Range("A5:A25")) Is Nothing Then Exit Sub
  5.    
  6.     If Target.Count = 1 And Len(Target.Cells(1).Value) > 0 Then
  7.         Application.EnableEvents = False
  8.         
  9.         ddeString = "=XQCTS|Quote!'" & Target.Value
  10.         With Target
  11.             .Cells(1, 2).Value = ddeString & ".TW-Name'"
  12.             .Cells(1, 3).Value = ddeString & ".TW-Bid'"
  13.             .Cells(1, 4).Value = ddeString & ".TW-Ask'"
  14.             .Cells(1, 5).Value = ddeString & ".TW-Price'"
  15.             
  16.             '略
  17.             
  18.         End With
  19.         
  20.         Application.EnableEvents = True
  21.     End If
  22. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題