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

BV7BW

各位 前輩先進 大家好

有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)

下載次數: 6

2021-6-23 16:40

BV7BW

回復 18# singo1232001
感謝 singo1232001 大大

提供2版本都可運作情況供參考
希望有助 singo1232001 大大 思路突進
防呆_客戶1.zip (55.9 KB)

下載次數: 8

2021-6-25 18:07

singo1232001

回復 17# BV7BW


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

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

    目前的缺點是無法復原

BV7BW

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

准提部林

回復 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)" '加這一行

BV7BW

回復 9# 准提部林

准提部林 老師 你好

XL10000045-1中
"h欄"公式.是否可直接帶入下一欄

目前是以下拉方式補足.也就是每筆增列資料後就須下拉1次
也可跟"m欄"作法相同
   謝謝

BV7BW

回復 13# singo1232001
感謝 singo1232001 大大 指導

謝謝你.雙擊.單擊都很順暢運轉.好像有尋找資料運轉時間快

再次感謝 singo1232001 大大 謝謝你

singo1232001

回復 10# BV7BW


    補充 雙擊跟單擊 都可以自己決定更改
    T1儲存格可以改變你的需求

BV7BW

回復 11# 准提部林

感謝 准提部林 老師

准提部林

回復 10# BV7BW

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

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