返回列表 上一主題 發帖

有請解答! 如何製作此一欄位??

回復 3# cheng17875

如果用 Worksheet_Change 去觸發更新程序呢?

TOP

回復  jackdream
    不好意思!  不知道怎樣弄啦!
可否給小學生我多一點簡單白話的指示
cheng17875 發表於 2010-7-26 14:29


請將以下內容放在 sheet 裡面(不是放在模組裡面)
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Not Intersect(Target, Range("A2")) Is Nothing Then '若有更改 A2 內容
  3.         If Not Cells(Target.Row, Target.Column) = Empty Then
  4.             Call xxx '觸發程序 (xxx 代表指進行股票更新的模組)
  5.         End If
  6.     End If
  7. End Sub
複製代碼

TOP

回復  jackdream
我有寫到儲存格中  但好像不能執行
cheng17875 發表於 2010-7-27 11:09


您好! 上述語法並不是寫在儲存格內,而是 sheet 的vba程式編輯畫面.
建議可以上傳檔案,看看格式內容是否一定要動用 vba程式.

TOP

回復 9# cheng17875

附件內並無程式碼,資料來源是 eMidst|SW
因此要看原始檔案的內容格式,再用 vlookup 之類的函數去找出對應值.

TOP

        靜思自在 : 人事的艱難與琢磨,就是一種考驗。
返回列表 上一主題