儲存格比對後.導入滑鼠位置問題2

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2021-6-24 12:41 | 顯示全部帖子

SelectionChange 會讓P欄沒辦法做更改,
可以改用 BeforeRightClick 雙按左鍵觸發

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2021-6-24 13:18 | 顯示全部帖子

本帖最後由准提部林於 2021-6-24 13:19 編輯

另一方法:

Xl0000045.rar (63.22 KB)

＊Ｐ欄第２列以下，雙按滑鼠左鍵，執行查詢及修改，並將同一單號範圍加紅色粗框，
修改數量時，Ｍ欄產生的公式會自動計算合值．數量輸入錯誤時，使用復原功能即可．
__使用CHANGE事件是無法做復原的

＊修改完成後，在Ｐ１雙按左鍵，Ｍ欄自動變成值（清除公式），並恢復黑色框線

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2021-6-24 16:57 | 顯示全部帖子

回復 8# samwang

雙按左鍵, 會進入儲存格為編輯狀態(游標閃爍), 所以要加 cancel=true, 就不會了,

稍改下, 優化M欄合計公式:

Xl0000045-1.rar (63.47 KB)

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2021-6-24 20:24 | 顯示全部帖子

回復 10# BV7BW

.Item(1).Select
.Item(1).Font.Color = vbRed '加這一行

另有問題, 與本題無相關時, 可另開帖~~不一定有空幫忙...眼睛已快睜不開了

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

5^#

發表於 2021-6-25 12:11 | 顯示全部帖子

回復 15# BV7BW

雙按P1
If .Row = 1 Then
      With Range("e1:n" & R)
         .Borders.LineStyle = 1
         .Columns(9) = .Columns(9).Value
      End With
      Range("h1:h" & R).Formula = "=IF(ROW(A1)=1,""(KG)"",IF(F1=""台斤"",(MOD(E1,1)*100/16+INT(E1)),E1)*G1)" '加這一行