[發問] 下拉選單模糊搜尋後相同名稱不同值之困惑...

帖子: 230
主題: 38
精華: 0
積分: 300
點名: 23
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-5-6

22^#

發表於 2022-7-26 23:50 | 只看該作者

回復 21# samwang

非常感謝您...samwang

針對多次所述問題均能詳細耐心解惑 ^^

獲益良多...工欲善其事，必先利其器(工作上帶來非常便利省時易用)心存感恩

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

21^#

發表於 2022-7-26 15:49 | 只看該作者

回復 20# cypd

VBA公式作動後
若 C 欄有新數據輸入時會造成 C1 底色不見
若 D 欄有新數據輸入時會造成 D1 底色不見
>> 改由第2列開始如下
With Sheets("客戶基本資料")
.Unprotect Password:="1234"  '解保護，密碼自行修改
   Arr = .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3))
   .Range(.Cells(2, C), .Cells(Rows.Count, C)).Font.ColorIndex = 0
   .Range(.Cells(2, C), .Cells(Rows.Count, C)).Interior.ColorIndex = 0

原保護工作表內之設定失效
(自行設定列格式及使用自動篩選無法使用...恢復預設值)
>> 依您原來的格式修改如下，請再試看看，謝謝
.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True _
      , AllowFormattingRows:=True, AllowFiltering:=True '保護，密碼自行修改

cypd

帖子: 230
主題: 38
精華: 0
積分: 300
點名: 23
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-5-6

20^#

發表於 2022-7-26 15:05 | 只看該作者

本帖最後由 cypd 於 2022-7-26 15:16 編輯

回復 19# samwang

煩問 samwang...
關於上述 VBA 作動之後所產生相關疑問 ?

VBA公式作動後
若 C 欄有新數據輸入時會造成 C1 底色不見
若 D 欄有新數據輸入時會造成 D1 底色不見

原保護工作表內之設定失效
(自行設定列格式及使用自動篩選無法使用...恢復預設值)

0726.rar (147.23 KB)

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

19^#

發表於 2022-7-25 10:41 | 只看該作者

回復 18# cypd

另外
.Unprotect Password:="1234" '保護，密碼自行修改(多了 Un 無法進行保護)
已刪除 Un…測試 OK

>> 不好意思，沒有更新到，如您修改UN要刪除，謝謝

cypd

帖子: 230
主題: 38
精華: 0
積分: 300
點名: 23
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-5-6

18^#

發表於 2022-7-25 10:21 | 只看該作者

回復 17# samwang

太神了感謝您了...samwang
所遇之問題瓶頸大致已獲得解決…^^感恩
另外
.Unprotect Password:="1234" '保護，密碼自行修改(多了 Un 無法進行保護)
已刪除 Un…測試 OK

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

17^#

發表於 2022-7-25 07:45 | 只看該作者

本帖最後由 samwang 於 2022-7-25 07:47 編輯

回復 samwang

太感謝您了...samwang

C 或 D 欄出現相同數據時...刪除下列數據之後儲存格會有填滿之 ...
cypd 發表於 2022-7-24 20:23

請測試看看，謝謝
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, xD, C%, T$, m&, i&
If Target.Column = 3 Then C = 3
If Target.Column = 4 Then C = 4
If C = 0 Then Exit Sub
Set xD = CreateObject("Scripting.Dictionary")
With Sheets("客戶基本資料")
.Unprotect Password:="1234"  '解保護，密碼自行修改
   Arr = .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3))
   .Range(.Cells(1, C), .Cells(Rows.Count, C)).Font.ColorIndex = 0
   .Range(.Cells(1, C), .Cells(Rows.Count, C)).Interior.ColorIndex = 0
   For i = 1 To UBound(Arr)
      T = Arr(i, 1)
      If xD.Exists(T) Then
         m = xD(T)
         .Cells(m, C).Font.ColorIndex = 3
         .Cells(m, C).Interior.ColorIndex = 36
         .Cells(i, C).Font.ColorIndex = 3
         .Cells(i, C).Interior.ColorIndex = 36
      End If
      xD(T) = i
   Next
.Unprotect Password:="1234"  '保護，密碼自行修改
End With
End Sub

cypd

帖子: 230
主題: 38
精華: 0
積分: 300
點名: 23
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-5-6

16^#

發表於 2022-7-24 20:23 | 只看該作者

回復 15# samwang

太感謝您了...samwang

C 或 D 欄出現相同數據時...刪除下列數據之後儲存格會有填滿之色彩存在(已解決所述問題 ^^)

該工作表因有相關之公式運算，為確保誤刪造成資料錯誤...設有 [保護工作表]
因保護工作表之關係造成...執行階段錯誤 "1004"
再度麻煩您修正...感恩 ^^

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

15^#

發表於 2022-7-24 15:48 | 只看該作者

回復 samwang
太感謝您了...samwang

速度方面問題已 OK
經測試另有問題出現如下
若是 C 或 D 欄出現 ...
cypd 發表於 2022-7-24 11:33

修改如下移除.End(3)，請測試看看，謝謝
With Sheets("客戶基本資料")
Arr = .Range(.Cells(1, C), .Cells(Rows.Count, C).End(3))
.Range(.Cells(1, C), .Cells(Rows.Count, C)).Font.ColorIndex = 0
.Range(.Cells(1, C), .Cells(Rows.Count, C)).Interior.ColorIndex = 0

cypd

帖子: 230
主題: 38
精華: 0
積分: 300
點名: 23
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-5-6

14^#

發表於 2022-7-24 11:33 | 只看該作者

回復 13# samwang
太感謝您了...samwang

速度方面問題已 OK
經測試另有問題出現如下
若是 C 或 D 欄出現相同數據時...刪除下列數據之後儲存格會有填滿之色彩存在 ???