12
返回列表 上一主題 發帖

[發問] 關於選取儲存格後，該列範圍變色，出現位移。

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
11# 跳轉到 »
發表於 2021-9-30 15:10 | 顯示全部帖子
本帖最後由 av8d 於 2021-9-30 15:25 編輯

回復 20# samwang



    效果像這樣，但不用UserFrom做

    不能網底變色，單一文字變色也是我的目標，謝謝前輩大力協助，我會自己努力繼續查找的，跟您學了很多。受益良多。

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
12#
發表於 2021-9-30 21:42 | 顯示全部帖子
回復 22# samwang

前輩大大您好，其實有方法都可以，
因為這樣比較方便使用者快速選到想要的選項，不過好像都只有UserForm能指定的樣子。

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
13#
發表於 2021-10-1 19:08 | 顯示全部帖子
回復 22# samwang

samwang前輩您好，想請教您
If Intersect(xA, Target) Is Nothing Then Exit Sub
這段的意思是？
我最近寫到兩個區塊，
  1. If Target.Column = 3 Then
  2.     Call 顏色
  3.     Set xC = [C1]
  4.     xC.Interior.Pattern = 0
  5.     If Intersect(xC, Target) Is Nothing Then Exit Sub
  6.     For Each xR In xC.Rows
  7.         If Not Intersect(xR, Target) Is Nothing Then
  8.             If Cells(xR.Row, 3) <> "" Then
  9.                 Cells(xR.Row, 3).Interior.Color = Col
  10.             Else
  11.                 Cells(xR.Row, 3).Interior.Color = Col
  12.             End If
  13.         End If
  14.     Next
  15.     Set xAH = [A4:H1000]
  16.     xAH.Interior.Pattern = 0
  17.     If Intersect(xAH, Target) Is Nothing Then Exit Sub
  18.     For Each xR In xAH.Rows
  19.         If Not Intersect(xR, Target) Is Nothing Then
  20.             If Cells(xR.Row, 3) <> "" Then
  21.                 [F2] = ActiveCell
  22.                 [G2] = ActiveCell
  23.                 xR.Interior.Color = Col
  24.             Else
  25.                 [F2] = ActiveCell
  26.                 [G2] = ActiveCell
  27.                 Cells(xR.Row, 3).Interior.Color = Col
  28.             End If
  29.         End If
  30.     Next
複製代碼
在除錯的時候將If Intersect(xA, Target) Is Nothing Then Exit Sub拿掉即可使用，
但是想知道為什麼？萬分感謝。

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
14#
發表於 2021-10-2 01:31 | 顯示全部帖子
本帖最後由 av8d 於 2021-10-2 01:58 編輯

回復 25# samwang

萬分感謝，請問前輩 開啟VBA這段程式碼突然失效
  1. Private Sub Workbook_Open()
  2. Application.VBE.MainWindow.Visible = True
  3. End Sub
複製代碼
原本正常(如下圖)


後來不知什麼原因失效(如下圖)


不知前輩有沒有遇到過，如果有還請解惑，萬分感謝。

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
15#
發表於 2021-10-2 07:55 | 顯示全部帖子
回復  samwang

萬分感謝，請問前輩 開啟VBA這段程式碼突然失效原本正常(如下圖)


後來不知什麼原因 ...
av8d 發表於 2021-10-2 01:31


後來發現，是因為有自訂表單，所以會失效，但是又不能因此移除自訂表單，繼續尋找答案中。
備註：自訂表單=UserForm

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
16#
發表於 2021-10-8 01:00 | 顯示全部帖子
回復 25# samwang

有一個標題延伸的問題想請教，如附件
問題延伸2_0909.rar (58.96 KB)

檔案中ComboBox1_Change透過改寫可正常變色，
  1. Public Sub ComboBox1_Change()
  2.     Call 顏色
  3.     ComboBox1.BackColor = GBY
  4.     Dim myRng As Range
  5.     Set myRng = ActiveCell
  6.     [A1].Select
  7.     myRng.Select
  8. End Sub
複製代碼
原先沒有[A1].Select，為了觸發變色，但是不知道該如何改寫，只好為了有對的結果加入的，
請問前輩，是否更好的寫法讓在ComboBox1變動時，原變色的儲存格或列變色呢？謝謝

TOP

av8d

帖子
700 
主題
275 
精華
0 
積分
1001 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-4-10 
17#
發表於 2021-10-8 10:08 | 顯示全部帖子
回復 29# samwang


  Worksheet_SelectionChange改成模組的寫法我很喜歡，進而學習到更多新知，謝謝您！

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
12
返回列表 上一主題