123
返回列表 上一主題 發帖

[發問] 先不重複篩選後，並自動設為下拉式選單

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
21# 跳轉到 »
發表於 2020-5-22 23:28 | 只看該作者
趁這個版面詢問一下，WorkSheet_Change的用法
底下分別是版主跟龍大的程式碼
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim xF As Range, xA As Range
  3. With Target
  4.      If .Count > 1 Or .Columns.Count > 1 Or .Row < 2 Or .Column <> [I1].Column Then Exit Sub
  5.      Set xA = .Cells(1, -1).Resize(1, 2): xA.ClearContents
  6.      If .Value <> "" Then Set xF = [清單!d:d].Find(.Value, Lookat:=xlWhole)
  7.      If Not xF Is Nothing Then xA = xF(1, -1).Resize(1, 2).Value
  8. End With
  9. End Sub



  13. Private Sub Worksheet_Change(ByVal Target As Range)

  15. If Target.Column <> 9 Then Exit Sub

  17. Application.EnableEvents = False
  18. 塞資料入字典
  19. Key$ = Target.Value
  20. Cells(Target.Row, 8) = 下拉選單.D(Key).用途別
  21. Cells(Target.Row, 7) = 下拉選單.D(Key).工作計畫
  22. Application.EnableEvents = True

  24. End Sub
複製代碼
我的問題是
一、為什麼IF的後面都不需要加上 END IF而且除錯都沒問題

二、Target指的是滑鼠點到的任何一個儲存格嗎?   因為可以取得Target.Row
       或是Target.Column。
      但是Private Sub Worksheet_Change(ByVal Target As Range)又把Target當RANGE ?

三、我測試了一個小程式，但是只動了一次，就沒動作了，不曉得錯在哪裡
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column <> 3 Then Exit Sub
  3. Application.EnableEvents = False
  4. Target.Interior.ColorIndex = 3
  5. End Sub
複製代碼
照理說，我隨便選一個儲存格，如果該儲存格不是第3欄 (C欄)
     那就離開程式
     如果選到其他欄，那就會把儲存格顏色變紅色
     但是就沒辦法
     就算我選到的儲存格，隨便輸入123，再刪掉，這樣算是有Change了吧?
     也沒動作....

四、Set xA = .Cells(1, -1).Resize(1, 2): xA.ClearContents 這邊.Resize是什麼功能?

以上詢問，謝謝
哈囉~大家好呀

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
22#
發表於 2020-5-23 09:41 | 只看該作者
回復 21# iceandy6150


1)、為什麼IF的後面都不需要加上 END IF而且除錯都沒問題?
__if 條件 then 結果, 寫成一行, 就不須加 end if

2)、Target指的是滑鼠點到的任何一個儲存格嗎?
__就是selection中的range物件, 可以是單格, 選續範圍, 或不規則選取區塊

3)、我測試了一個小程式，但是只動了一次，就沒動作了，不曉得錯在哪裡?
__Application.EnableEvents = False
  "觸發事件"--關閉, 這是為了避免"重復觸發"造成無限循環,
  程式底下應再多一行:
  Application.EnableEvents = True
  (恢復觸發) 否則下次就沒作用!

4)、Set xA = .Cells(1, -1).Resize(1, 2) 這邊.Resize是什麼功能?
    以一個range定點, 向右或向下"擴展"成一個範圍,
  例如: range("a1").resize(4,3)  ---> A4:C4


=============================

TOP

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
23#
發表於 2020-5-25 00:04 | 只看該作者
回復 22# 准提部林


    感謝版主的教學回覆，我再來好好試試這幾個功能，感謝
哈囉~大家好呀

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
123
返回列表 上一主題