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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

11^# 跳轉到 »

發表於 2021-6-24 20:24 | 只看該作者

回復 10# BV7BW

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

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

TOP

BV7BW

中學生 Rank: 2

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

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

12^#

發表於 2021-6-24 20:41 | 只看該作者

回復 11# 准提部林

感謝准提部林老師

敏而好學,不恥下問

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

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

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

13^#

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

回復 10# BV7BW

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

儲存格位置導入 v2.zip (78.49 KB)

TOP

BV7BW

中學生 Rank: 2

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

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

14^#

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

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

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

再次感謝 singo1232001 大大謝謝你

敏而好學,不恥下問

TOP

BV7BW

中學生 Rank: 2

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

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

15^#

發表於 2021-6-25 09:54 | 只看該作者

回復 9# 准提部林

准提部林老師你好

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

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

敏而好學,不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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