准提部林

回復 10# BV7BW


既是資料庫性質, 當然不能刪,
除第一表外, 此版要求其它功能皆與我之前的版本相同,
程式碼即同樣複雜, 要想自己維護, 還是相同難度,
所以, 問題回到原點, 沒有簡單又易懂的方法, 再做一版備用, 只是多花時間而已~~

同樣的東西, 卻要用輸入更麻煩的方式~~

准提部林

除了第一張輸入表方式不同外, 其它都是前版本照樣寫,
只因表格位置不同, 全都要改寫一次, 真是有點累:
出貨作業A版v01_10905.rar (305.3 KB)

下載次數: 6

2020-6-1 19:21

若有需要修改, 希望自己改得動~~

BV7BW

回復 12# 准提部林

謝謝准大老師   

辛苦了

這幾天我只睡幾小時都在忙.尤其在這月底.大多研想這問題
今晚在研練一下
謝謝准大老師...謝謝....

BV7BW

回復 13# BV7BW

謝謝准大老師

我在10點多算10點上不到1小時多就已演練成功
前幾版需3..4小時.爾且耗損列表紙中一刀紙37張
把幾項目都演練列印成功(太激動)盡快回報老師成果
這幾天我一直想要修改地方.老師都已想好了.更想得比我很好
(太神了.不愧達人就是達人老師)
我上傳我想改的與老師全相同又比我還好(老師看看就好)
我等幾位同仁向你致意

准提部林

回復 14# BV7BW


這裡我少算了一格
With [採購需求表!A2].Resize(N, 4)
     .Parent.[D1] = DD
     .Value = Brr
     .Sort Key1:=.Item(1), Order1:=xlAscending, _
           Key2:=.Item(2), Order2:=xlAscending, Header:=xlNo
     For i = N + 1 To 3 Step -1   '3 應改為 2  
         If .Cells(i, 1) <> .Cells(i - 1, 1) Then
            .Cells(i, 1).Resize(1, 4).Insert Shift:=xlDown
         End If
     Next i
End With


'==============================

BV7BW

回復 15# 准提部林


    謝謝准大老師
改好了.今天工作非常順手車主也很快上手
謝謝你...准大老師

准提部林

滑鼠滾來滾去, 滾得頭暈, 弄個進階版, 看習不習慣???
出貨作業B版v01_10905.rar (333.82 KB)

下載次數: 6

2020-6-5 13:53

[輸入表]右邊的記錄區, 簡直""雞肋"",
改成[暫存檢視區], 可預先比對是否正確輸入!!!

BV7BW

回復 17# 准提部林 [/b
    謝謝准大
細心為勞
這幾天使用.效能超好用.不但節省很多不必工作時間.更超越跨市場工作
這版必定會更好我先演練.在跟准大回報..謝謝准大

准提部林

回復 18# BV7BW

如果不排斥使用userform表單, 可試試:
出貨作業C版v01_10905.rar (333.8 KB)

下載次數: 11

2020-6-6 11:26

看這樣的輸入工作可省下多少時間~~

BV7BW

回復 19# 准提部林

准大老師你好
謝謝你開發A.B.C.版
現在我使用C版.在B.C版中操作一樣順手

在A版中我加上保護工作.做到最後有點成功但最後面出現出單號.或日期沒填
還要再按一次客戶訂購表輸入.才能完成輸入送貨單動作.現在使用B.C版不好加入保護工作
但B.C板好像不好設定

在這我再做1規劃案例.規劃好再上傳請教目前使用C版已可

在B或C版中
客戶訂購表中增加存量.合計金額

訂貨明細表.新增合計金額項目.(表列出來只表列1次也就是說每1筆單號只表列1次合計金額)
(如不能只好跟其他一樣往下表列)

項目編號中新增存量
在項目表中增列存量格.輸入庫存量後.項目品項轉為紅色字體表示該品項有庫存


為何只要表列1次原因是好區分單號間隔.例如第1筆單號有3項在他第1項表列出合計金額第2.3項
可不用表列.第2筆單號則也跟第1筆作法一樣

在車主結算表後新增1工作表(客戶結算表)標題為:客戶(B2).日期 (E.F.G(1).及.E.F.G.(2))
序號.客戶.編號.車編.單號.日期.合計金額
(各為B3.C3.D3.E3.F3.G3.)(E1.E2為往後.F1.F2.為日期.G1.G2.為往前)
客戶為下拉清單.日期以上下日期為調閱(如109年6月1日至109年6月6日中)在往訂貨明細表中查調出
客戶.編號.車編.單號.日期.合計金額)序號為""有資料才有號碼