帖子: 199
主題: 22
精華: 0
積分: 233
點名: 228
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2021-6-23 16:40 | 只看該作者

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

各位前輩先進大家好

有2提問請教.因同一工作表.可請一問題指導

問題一)儲存格比對後.導入滑鼠位置
需求:如何將滑鼠點進"P2"儲存格中.以"P2"儲存格中資料去
      比對"K2"儲存格第1筆資料後.
      滑鼠位置導入所比對第1筆資料後"E欄"儲存格中.
      並將黑色字體轉換成紅色字體.離開後恢復黑色字體
      例1)點進1100601001後.比對"K欄".得1100601001第1筆資料位置在"E2".滑鼠位置會在"E2"
      例2)點進1100601005後已對"K欄".得1100601005第1筆資料位置在"E18".滑鼠位置會在"E18"
      例3)點進1100602005後比對"K欄".得1100602005第1筆資料位置在"E178".滑鼠位置會在"E178"

問題二)小計是否可同步更新
   小計"M欄"中以主程式導入資料產生.因"E欄"中需修改數量
   導至"H欄"中變化產生資料變異
   .而小計是主程式以單號"K欄"總和故無法同步更新
   現以"H1"中程式往下拉.可將"E欄"中變化而同步變更.
   而小計是以"K欄"單號中筆數為總和.故無法同步更新

需求: 是否可用VBA比對方式.以同筆數"K欄"筆數再以"H欄"筆數總和更改為小計總和

感謝大家指導

儲存格位置導入(1).zip (76.81 KB)

樓主熱帖

敏而好學,不恥下問

BV7BW

中學生 Rank: 2

帖子: 199
主題: 22
精華: 0
積分: 233
點名: 228
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

19^#

發表於 2021-6-25 18:07 | 只看該作者

回復 18# singo1232001
感謝 singo1232001 大大

提供2版本都可運作情況供參考
希望有助 singo1232001 大大思路突進

防呆_客戶1.zip (55.9 KB)

敏而好學,不恥下問

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

18^#

發表於 2021-6-25 13:41 | 只看該作者

本帖最後由 singo1232001 於 2021-6-25 13:43 編輯

回復 17# BV7BW

這個蠻好玩的幫我突破了一個寫法也釐清了一些思路

這個寫法我第一次寫我猜裡面可能會有bug 但目前還不確定

目前的缺點是無法復原

儲存格位置導入 v3.zip (84.05 KB)

TOP

BV7BW

中學生 Rank: 2

帖子: 199
主題: 22
精華: 0
積分: 233
點名: 228
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

17^#

發表於 2021-6-25 13:14 | 只看該作者

回復 16# 准提部林
謝謝准堤部林老師
已可運作.
謝謝

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

16^#

發表於 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)" '加這一行

TOP

BV7BW