PJChen

　暱稱: PJ

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-3-14 09:21 | 只看該作者

[發問] 取出包材"+"or"-"號之後的數值

大家好：

以下三個品名,我想將進貨數量的加項or減項,提取到包材驗算!驗算工作表的[F16:AJ18]
16吋收縮膜(卷)
工業用伸縮膜(卷)
封箱膠帶(條)

包材報表!包材工作表,進貨填寫方式是固定在原數字欄加入進貨數量,偶爾也會有減項的數量,
提取數量的準則為"+",則取正數,"-",則取負數,目前已將需提取的數字,手動填入工作表中,
但我想改寫為自動抓取,不知有什麼函數,可針對數值"+"or"-"號,取出正負數?

包材.rar (28.83 KB)

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

19^#

發表於 2021-4-20 23:29 | 只看該作者

回復 15# 軒云熊
熊大好,
附件已將程式update

包材報表_取出最後一個正負號的值.rar (45.62 KB)
包材驗算報表每個儲存格都核對,發現有些值會抓錯,
1) 4/10[O17]=16000*2....抓到的資料6000*2
2) 4/30[AI25]...抓不到數值
再麻煩幫忙看下....感謝

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

18^#

發表於 2021-4-18 00:01 | 只看該作者

回復 15# 軒云熊
熊大好,
程式在使用時,發現一個問題:
例如：包材報表的4/24封箱膠帶(條)的數量是4,
4/25有進貨,但當盤點時,已用掉2,我在4/25 key -2+50會等於48,但需要截取的數字是進貨量50,
像這種情形如何略過-2只抓50?
註：包材報表每個儲存格的數字,都只要抓最後一個+ or -的數字就好.

包材報表_取出最後一個正負號的值.rar (42.91 KB)

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

17^#

發表於 2021-4-12 18:47 | 只看該作者

回復 10# PJChen

難道你沒有發現驗算檔案的日期已經是4月嗎
而包材的日期還是3月,月份都不一樣了,如何相符?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

16^#

發表於 2021-4-12 00:40 | 只看該作者

回復 15# 軒云熊

現在可以正常截取資料了,感謝您....

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

15^#

發表於 2021-4-10 20:54 | 只看該作者

本帖最後由軒云熊於 2021-4-10 21:00 編輯

回復 13# PJChen
這是參考 jcchiang 前輩的寫法所修改的感謝 jcchiang 前輩的提點
已加入註解有稍微修改過有空再幫我試試看感謝

包材報表_取出最後一個正負號的值0410.rar (40.7 KB)

TOP

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

14^#

發表於 2021-4-10 07:24 | 只看該作者

回復 13# PJChen
把Brr(Y, E) = "=-" & G
跟Brr(Y, E) = "=+" & G
改成Brr(Y, E+2) = "=-" & G
在把插入欄删除

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

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

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

13^#

發表於 2021-4-9 23:26 | 只看該作者

回復 12# 軒云熊
謝謝熊大,
稍微修改後,截取資料正確,請問:
1) 我不想關閉來源檔Workbooks("包材報表.xlsx").Close False,但會無法執行,且每執行一次就增加二欄,原因是什麼？
2) 是否因為這個For I = 1 To 2: Columns(4).Insert , 2: Next I,為什需要增加2欄呢?
3) 我沒看過這種寫法,範圍為何是倒著寫呢?Arr = Range("AK11:C2").FormulaR1C1Local
4) 能否幫忙註解程式的意思?
感激不盡....

Range("E16:AJ25").ClearContents
Workbooks.Open ThisWorkbook.Path & "\" & "包材報表.xlsx"
For I = 1 To 2: Columns(4).Insert , 2: Next I
Arr = Range("AK11:C2").FormulaR1C1Local
Workbooks("包材報表.xlsx").Close False
Brr = Range("B16:AJ25")

For X = 1 To UBound(Arr, 1)
      For Y = 1 To UBound(Brr, 1)
         If Trim(Arr(X, 1)) = Trim(Brr(Y, 1)) Then
               For E = 1 To UBound(Arr, 2)
                  If Arr(X, E) Like "*-*" Then
                     G = Split(Arr(X, E), "-")(1)
                     Brr(Y, E) = "=-" & G
                  ElseIf Arr(X, E) Like "*+*" Then
                     G = Split(Arr(X, E), "+")(1)
                     Brr(Y, E) = "=+" & G
                  End If
            Next E
         End If
      Next Y
Next X

   Range("B16:AJ25") = Brr

TOP

軒云熊