PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-7-5 18:12 | 只看該作者

[發問] 更新商品資料

大大好,
請問我修改了准大之前寫的程式,用來更新商品資料,結果：
a) 可以更新資料,但無法將多餘列數刪除(有問題)
b) 可以更新資料,不足的列數可自動補足(沒問題)

請幫忙看下,是否程式有哪裡沒改對？
另外A庫存表,BF4=SUM($G4:$H4)-SUMPRODUCT(($AA$3:$BC$3="合計")*($B$4:$B$80=$B4)*($AA$4:$BC$80))
這個函數的寫法,當更新資料列數比原來的多時,需要手動修改,請問是否有其他寫法?

商品更新.rar (93.55 KB)

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

10^#

發表於 2021-7-7 22:47 | 只看該作者

回復 9# 准提部林
謝謝准大,執行沒問題了！

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

9^#

發表於 2021-7-7 10:32 | 只看該作者

已修好:

商品更新-01.rar (102.38 KB)

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

8^#

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

回復 7# 准提部林

不好意思哦....准大,
PO上來這裡的是測試檔,我把程式放在商品.xlsm,所以副檔名是沒錯的,
FN = "商品.xlsm"
而程式真的有點奇怪,有時可刪除多餘行數,有時又不靈,我也測試到有點Y達了！
目前估且當成它可以自動刪除多餘行數,不過您後來寫的,就真的卡住了,說是定義錯誤！
請問"列數"沒有任何宣告的情形下,會不會無法自動抓到列數？
Sheets("1" & "")
xSh.[BF4].Resize(R).Formula = _
Replace("=SUM($G4:$H4)-SUMPRODUCT(($AA$3:$BC$3=""合計"")*($B$4:$B$行數=$B4)*($AA$4:$BC$列數))", "行數", R + 3)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

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

程式是放在"商品"檔案, 又要執行開啟自己的動作,
FN = "商品.xls"
On Error Resume Next: Set xB = Workbooks(FN): On Error GoTo 0
If xB Is Nothing Then Set xB = Workbooks.Open(PH & FN)

其它看來都亂了~~
從程式去判斷需求, 太累!!!

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

6^#

發表於 2021-7-6 19:57 | 只看該作者

回復 3# 准提部林
准大,
程式一再測試,都沒有再成功過...
Sheets("1" & "")卡在這,說是定義錯誤
xSh.[BF4].Resize(R).Formula = _
Replace("=SUM($G4:$H4)-SUMPRODUCT(($AA$3:$BC$3=""合計"")*($B$4:$B$行數=$B4)*($AA$4:$BC$列數))", "行數", R + 3)

Sheets("整月統計" & "")改成以下,運作仍不正常,就算改Count, 3,也是無法刪除多餘行數
drow = xSh.Cells(Rows.Count, 2).End(xlUp).Row - 3

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

發表於 2021-7-6 16:58 | 只看該作者

回復 4# PJChen

"行數" 是暫時性文字, 是用來取代成實際列數用的,
也可用別的文字, 如"台北"

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

4^#

發表於 2021-7-6 16:42 | 只看該作者

回復 3# 准提部林

准大好,
Sheets("1" & "")改為以下,現在沒執行沒問題了,
xrow = xSh.Cells(Rows.Count, 2).End(xlUp).Row - 3

但Sheets("整月統計" & "")改成以下,運作仍不正常,就算改Count, 3,也是無法刪除多餘行數
drow = xSh.Cells(Rows.Count, 2).End(xlUp).Row - 3

請問以下的數字,不是都屬"列數"?為何$B$4:$B$行數,是用"行數"?
Replace("=SUM($G4:$H4)-SUMPRODUCT(($AA$3:$BC$3=""合計"")*($B$4:$B$行數=$B4)*($AA$4:$BC$列數))", "行數", R + 3)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

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

公式重新改為實際行數:
If xrow > R Then xSh.Range("A" & R + 4 & ":A" & xrow + 4).EntireRow.Delete '刪除多餘行
底下加這一行:
xSh.[BF4].Resize(R).Formula = _
Replace("=SUM($G4:$H4)-SUMPRODUCT(($AA$3:$BC$3=""合計"")*($B$4:$B$行數=$B4)*($AA$4:$BC$列數))", "行數", R + 3)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

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

xrow = xSh.Cells(Rows.Count, 1).End(xlUp).Row - 3

xrow = xSh.Cells(Rows.Count, 2).End(xlUp).Row - 3

檢測已使用行數, 改用B列~~

TOP