如何用 Excel 打造一套簡易訂單系統 (下) (報價單、銷貨明細表等皆適用)

[@yeekilui463]

這是我第一次看懂Excel VBA的教學 講解清晰，啓發我開始學習VBA 希望繼續制作VBA教學😊

[@chenwing9856]

滿滿的技術流 明快的教學步調 清晰的邏輯架構 這個影片我已經看了10遍， 不請你喝杯咖啡實在對不起我的良心。

[@MilesHo]

超詳細且美觀的教學!!! 不像某些只有功能沒有教學的頻道，感謝您

[@roberthuanghuang1109]

比起其他諸多付費課程, 還要清楚易懂太多~~太佛心了，大感謝~~

[@pikatang4317]

Thanks! 這是我一直想要學的功能!! 太感謝PAPAYA老師！！！

[@louydo]

這太強啦，很複雜的教學，卻能講得這麼清楚

[@fangcheng518]

VBA讲解的通俗易懂，第一次看vba 可以跟得上。老师讲解的太好了

[@keke_6666]

言简意赅 没有一个字的多余~~~~~感谢老师的教学！！！！！！非常棒！！！！

[@vickyc.5976]

謝謝老師，終於等到期待的VBA了！許願多一點VBA的影片🎉 收穫很多。

[@潘柏安-c7r]

真的太棒太喜歡😭謝謝papaya 這麼用心幫大家！

[@Musasiice]

真是太感動了，感謝老師分享

[@卓侃]

老師好，我以你的檔案和程式碼為基礎，寫了一套可以應用在公司的訂單系統，目前正在導入，希望未來可以改善流程，謝謝PAPAYA老師的分享

[@user-uk6fc5sq9f]

能找到這個影片教學，真是太感激了~請收下我的跪拜！~

[@slfgcr]

太厲害了，而且出片的速度也太快了吧！！

[@garykt8897]

講解清晰，希望繼續制作VBA教學😊

[@馬田-s2s]

跪著看, 清楚不含糊!

[@lionsherkh]

多謝老師悉心教導 ！

[@yuyang5568]

对于我工作来说非常有启发性，要学的东西好多啊，谢谢老师

[@goyan9091]

先跪再看了，老师太强大了！

[@sss28765431]

有點不過癮，我需要更高難度的VBA教學

[@WengSmallHand]

老師太厲害了，又更加了解VBA的用法了~~

[@David-jx5jk]

現在還在學這個？？這不是 1995-2002/2003 年代的事嗎？

[@David-jx5jk]

不好意思，我已經20年沒再碰這個

[@rongxinpackaging2037]

谢谢up主！简单明了！提问：如果保存了数据以后，资料库的数据可以保护起来吗？就是一旦数据储存了，就不能删除？ 谢谢

[@lucienwu8014]

我媽問我為什麼昨天跪完了 今天又要跪15分...

[@slucheng1]

謝謝老師分享，在最後一步 type:=這邊有卡關，跪求解套，謝謝😂 15:21

[@TheKing0776]

,和_之間要有空白鍵

[@gloriaaun8778]

謝謝老師，真的很有幫助！

[@秋英楊-g7e]

大神，一直在看您的excel表格設計教學，您真的教的很好，感謝！只是目前遇到一個問題，就是，我按照您這篇教導寫程式碼時，寫到列印框要轉PDF時（既Type：=xlTypePDF），一直顯示“:=”格式不對，請教要如何操作呢？感謝！

[@liliannaelf1722]

I have the same problem as yours

[@pakhimfung4098]

我都是出現一樣情況，求解答🙏🏼🙏🏼🙏🏼

[@TheKing0776]

,和_之間要有空白鍵

[@TheKing0776]

@@liliannaelf1722 ,和_之間要有空白鍵

[@emmmtang2314]

@@TheKing0776 添加了空白键也是不行

[@user-dh8on4lk7o]

老師您好 您真厲害了 您說得行雲流水我都要看好多遍才能跟上 有個分享 可以把資料庫存成.json 就可以轉成google sheet 再用查詢叫出來 再轉存 就很容易可以存到"各跨界個別使用者"的帳戶了(如金融帳戶)

[@davidxie6350]

老师您好，看了您很多课程非常喜欢。想问下，您这个视频的封面是怎么做的？是有模板吗？谢谢。

[@hinetgood]

感謝老師太強大了

[@加爾伏特]

老師可以請教關於Countif 問題？ 我有一個範圍 Range("H12:H22") H欄位是計算A欄商品＊B欄數量 Range(H12) = A12*B12 Range(H13) = A13*B13… 如果表格資料不完整，H欄位就無法計算，可是沒辦法統計Count找出“H”欄有數據的欄位，得不到品項數量 包含有函式的儲存格如何才能做出有回傳跟沒有回傳的統計，拜託了🙏

[@twx03rul4qq]

感謝分享

[@陳小新-i5o]

請問 資料庫不能設定為表格嗎? 因為資料庫設定為表格時 資料就無法依序載入 只會重複覆蓋在第一列 語法需更改嗎?

[@locust23]

太強了，謝謝老師

[@yingpppppo]

老師不好意思，請問我操作到(儲存)最後階段時，出現下列訊息:執行階段錯誤"1004" 應用程式或物件定義上的錯誤，要如何是好呢?

[@laudachen9427]

超級棒的分享 謝謝!!

[@noah-0706]

想詢問 如果是想修改原訂單資料 增加或修改VBA

[@kevin90018]

還沒看先點讚

[@ningchuang1048]

跪著看，感謝老師分享～ 請教如果要列印的是整本活頁簿，有辦法作業嗎？

[@Danny-bi1be]

老師 請問一下只要按重設為何電話攔程式會跟著不見

[@d26525]

我有遇到問題，製作自己的表格時，在儲存訂單部分會被覆蓋資料，每一筆都是，只有第一筆，請問是不是哪裡寫錯程式碼了?

[@yeekilui463]

謝謝！

[@lucilleli7399]

老师真的太强了

[@nicole830420]

請問如何設定按儲存時, 運費的名稱及金額也可以同步轉到資料庫, 謝謝~~

[@WEITEN1985]

老師您好，我很喜歡你的教學，但是我跟著做到最後就卡住了

[@lifebaseball3852]

請問VBA 語法可以設定提示訊息嗎? 還是就只能自己背下來這樣? 謝謝。

[@h40418]

謝謝分享！

[@林妏倢]

請問如果在excel做完功能按鈕，再把檔案匯入到雲端的試算表，可以正常運作嗎？ 因為雲端的試算表中好像沒有開發人員的選項>

[@2007bhlee]

請問訂單明細可以讓訂購者填寫嗎？

[@nurgazizhunis1936]

非常感谢！

[@maddengeri]

一直卡在WorksheetFunction的Match屬性, 不知道可如何解決

[@黃怡英]

❤感謝❤

[@user-gw1iz5sv9k]

如果资料库里没有任何数据， 空白列 会报错

[@xj5781]

老師我一直卡關阿 這個語法明明都一樣 系統卻顯示超出範圍 .....求救 目前編號 = Sheets("銷售紀錄").Range("A1").CurrentRegion.End(xlDown).Value

[@張哲綸-p2v]

記錄的"記"是這個記，我也找好久XD

[@呂濬瀚-h7v]

Type:=xlTypePDF, _ 編譯錯誤: 必須是::識別項

[@EmotionMoment]

我也卡在這,這行一直1004

[@bo3155]

請問這邊有解決了嗎？

[@呂濬瀚-h7v]

有，我是這樣打的，我檔案是存在下載裡面 Dim 檔名 As String 檔名 = Format(Range("G6").Value, "00000") Sheets("訂單").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\turng\Downloads\" & 檔名 & ".pdf", _ IgnorePrintAreas:=False 路徑可以複製自己想存的那個位置

[@nicole830420]

@@呂濬瀚-h7v 您好, 我目前也在這裡卡關, 除了路徑不一樣之外, 其他寫法與妳相同. 但還是無法排解...

[@robertho7181]

老师，我最近一直研究FILTER这个函数 ，想制作一个多条件 仓库查询系统 ，可是反复尝试FILTER函数依然做不到想要的效果，例如衣服和裤子，想要根据衣服的(颜色、款式、尺码、产地、编码、提供商、售货员)输入其中的3到5个「商品关键词」，以「动态阵列」形式返回商品的其余「商品关键词」的信息，请问用VBA能解决这个问题吗？期待往后有这样的教学视频。谢谢你

[@hoya0072]

老師會不會再教如果改成用Google Sheet如何做到一樣的功能呢？

[@user-oz9qp9it2t]

請問老師: 資料查詢出來後，可否修改後再回存到同一欄位?

[@aaronchao7592]

我試了一下，是可以這樣做，但從資料庫直接改也是可以

[@許淑惠-y8s]

請問~設定好訂單編號及日期後，老師說按F5後(訂單編號)就會顯示數字....可是我按F5後出現對話視窗[編輯錯誤:使用者自訂型態尚未定義]~可是老師說程式碼處要寫 Dim 目前編號 As integer ~我有照做，不知哪裡有誤？

[@鍾佳芸-p2l]

謝謝papaya~ 希望能新增excel跑問卷統計資料的教學 (單選、複選等) (寫專題論文用的，拜託救救我🥲)

[@sss8967300]

老師請問，訂單查詢，因為貼上範圍有合併儲存格時該怎麼解決?

[@NieWu-c4n]

請問一下！我目前是成功了～但有個問題，就是查詢叫出來的小計跟單價的函數會不見．．．變成按重設的時候不會歸零成空白，其它沒覆蓋到資料的單價跟小計函數都還在，請問是甚麼問題呢．．．．

[@xingcang212]

我語法都打一樣的但為什麼我還是顯示不對 ":="的地方

[@user-wq8vg8lf6z]

請問有沒有方法用顏色標記不同時段的最後一筆 例如： 111/12/13 18：58 111/12/13 18：59（這筆黃色 111/12/13 19：00 111/12/13 19：02（這筆黃色 111/12/14 08：30 111/12/14 08：31 111/12/14 08：32（這筆黃色 幾個時段（不同小時為單位）我想標不同顏色 在那個時段的最後一筆標上黃色 請問要怎麼做呢，感激回答🙏🙏🙏

[@weij8465]

能否我付费帮我定制一个类似的表格系统？

[@奶爸与乐宝]

视频教程很适合我这种小白。要怎么跟您联系呢？

[@wongcelia4236]

怎樣跟著做"重設"和儲存，excel顯示語法有問題，錯做。很失望，做不了。

[@binzheng7374]

你好，老师！通过你的视频我学了很多知识。现在我有一个有关VBA 的问题没办法解决，不知道你是否愿意帮我。

[@李偉豪-e3p]

老師請問一下為什麼我複製資料到資料庫時會都一起選取(我的資料只有1筆而已)

[@shanghsu5822]

謝謝老師，請問老師或誰可以幫我解答一下嗎? Sheets("Invoice").ExportAsFixedFormat_ Type:= xlTypePDF, _ 第二行一直跳出錯誤訊息 Compile error: Expected: Identifier 我重復看了幾遍可是都找不到問題

[@TheKing0776]

,和_之間要有空白鍵

[@shanghsu5822]

@@TheKing0776 謝謝你的回覆，我有試過了，可是它一樣有跳出錯誤代碼。

[@siyinfan]

我也遇到一樣的問題

[@蔡逸霖-l7w]

@@siyinfan 我也遇到同一個問題，請問您解決了嗎?有解決辦法嗎?

[@yen-wensoong6899]

老師,我找不到如何下載影片中的範例,是要加入會員或是在那個路徑可以直接下載,請告知,tks!

[@賴孟彥]

老師, 請問新增品項或新增客戶, 該怎麼做? 有辦法直接KEY上, 就可以储存的嗎?

[@fireEggs]

papaya老师您好，如果方便的话，可以把每一集所用到的练习档做一个合集分享吗？ 重复学习了几次这个系列，但由于经常换电脑来用，忘记备份保存，每一次下载有些麻烦。谢谢。

[@鄒依璇-i6w]

老師有考慮辦簽名會或甚麼甚麼會嗎~(好想參加~

[@georgebookmark5426]

請問在儲存訂單A後，之後又有幾張新訂單BCD儲存了，A客戶通知自己要修改訂單内容，這個能有方法處理嗎？

[@林其-z6x]

敲碗ms 的publisher

[@asletic]

請問這個方法可以在google sheet 上使用嗎

[@ensonlin9059]

不知道為甚麼查詢訂單的部分顯示 無法取得類別WorksheetFunction的Match屬性 訂單位置 = WorksheetFunction.Match(訂單編號, Sheets("銷售紀錄").Range("A:A"), 0)

[@waynelau7625]

當找不到值時則出現如原文的錯誤 , 可能是Data Type 不同而出錯

[@ensonlin9059]

@@waynelau7625 請問有解決方法嗎

[@waynelau7625]

@@ensonlin9059 引致找不到值的原因有很多 , 我只是說了其中一種 , 所以難以解決 ~

[@jq_22]

應該是因為銷售記錄中找不到該訂單編號(因為先前執行儲存訂單時已自動更新新的訂單編號)，我試著改訂單編號就解決了~

[@danini4373]

我的問題出現的跟你一樣，不知道你現在解決這個問題了嗎？請問能方便講解一下嗎？

[@alienspeng4653]

老師： 不好意思，想詢問 如果訂單人員未輸入，不能新增，要怎麼修改VBA呢？

[@mestay1934]

請問為甚麼我儲存後重新開啟，巨集卻不見沒辦法啟動??🥲

[@無名肆]

請問老師 這種方式可以用在GOOLE表單嗎

[@高迁羚]

想請問一下 最後pdf一直儲存不了資料夾 是為什麼

[@woocalvin3718]

請問這vba excel 檔案如何可在平板電腦上使用？

[@barry9987]

[@mingoma9233]

hey 大家好, 我像捐助或是加入会员, 但是我的PayPal不能用, credit卡好像是美国才行?

[@easyfixcleaning3942]

老師,按你的方法,但VBA 顯示錯誤 , 黃色了,怎也改不了,有辦法嗎..

[@xhes905115]

未看先讚

[@放天燈的貓]

查詢功能應該不會有人使用訂單編號去查詢, 基本上會用姓名或是電話或是日期! 當同一個人買了三次後在資料庫會有三筆訂單, 這部分用查詢功能該如何顯示出所有訂單或是三筆中的其中一筆呢?

[@papayaclass]

嗨，如果要查詢某個客戶的某筆訂單、或是多筆訂單的話 原來的訂單介面就不太適合了， 必須要再另外設計一個介面，然後配合 FILTER 函數來查詢資料

[@aaronchao7592]

我試著寫了一下，我是用另一頁，對帳單的方式編寫，用月份來區隔，並用filter來選擇客戶端，就可以了

[@卡啦雞腿保]

Google apps script 可以用這個語法嗎?

[@willchang1027]

發現會重複儲存相同訂單編號 請問如何排除狀況

[@KerryColin]

請問一下查詢訂單後重設為何格式都跑掉了

[@tsangsiuwa9663]

本人用office 365, VBA頁面亂碼, 怎樣解決？

[@colenken]

太厲害了, 謝謝老師

[@lodnhamar7270]

请麻烦老师 ：订单输入错误，怎么修改并保存

[@Lyvonne613]

按钮我找不到开发功能

[@sohiyeh7560]

想請問老師，關於［目前編號 = Sheets("資料庫").Range("A1").CurrentRegion.End(xlDown).Value］這邊，都確認沒問題也是照教學影片輸入，資料庫也有建立客戶資料，但還是一直顯示錯誤，求解ＱＱ

[@danini4373]

遇到類似的問題，都是顯示錯誤1004.請問你這邊解決了嗎？

[@sohiyeh7560]

@@danini4373 沒有，我直接跳過放棄這段(･ัω･ั)

[@siyinfan]

工作表明稱你有確認過了嗎? 檔案裡名稱跟老師教學的有不一樣喔 需做修改

[@sohiyeh7560]

@@siyinfan 都有，我表格不是用老師的，從影片步驟跟老師做的，名稱都一樣，步驟也一樣

[@siyinfan]

@@sohiyeh7560 或許你試試把這行刪掉重新打 再按F5鍵重新整理 我之前也是這樣按F5鍵後來有可以了

[@teenpray0208]

神作.....

[@90weker29]

請問:執行列印訂單程序時 顯示以下三行語法錯誤 Type:=xlTypePDF, _ Filename:="完整路徑"&檔名, _ IgnorePrintAreas:=False (編譯錯誤，必須是: :識別項) 請問該如何處理，謝謝

[@waynelau7625]

window 找不到 "完整路徑" 這個位置, 位置必須從 C drive 開始

[@sss8967300]

我也有遇到這個問題，但是我把它改成一整串句子就可以過了

[@Cedar_Feng]

我也遇到了这样的问题

[@Cedar_Feng]

@@sss8967300 请问怎么写呀？

[@aaronchao7592]

"完整路徑"，要填完整路徑，如 Filename:="\\D:\訂單系統\表單\" & 檔名, _ IgnorePrintAreas:=False

[@user-jl5fx7tw5e]

感謝老師!但是我卡關了! 目前編號 = Sheets("銷售紀錄").Range("A1").CurrentRegion.End(xlDoun).Value 顯示錯誤一直無法執行 ..........求高手

[@童芸蓁]

是xlDown喔

[@xj5781]

還有銷售錄 我一開始也卡關超久

[@cxnn5819]

那我如果做完了這個要如何讓別人下單呢

[@stp92031]

想請教再設定儲存訂單按鈕程式碼中，空白列 = Sheets("資料庫").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row這句程式碼一直顯示錯誤，不曉得是哪邊打錯了?

[@簡珮-i6w]

我也是耶 一直顯示溢位

[@mekka_at_tw]

@@簡珮-i6w 檢查一下 Sheets("資料庫") 是 正確的? 還是 叫銷售紀錄

[@美叮]

@@簡珮-i6w 有解了你要先在資料庫那邊打一組客戶資料

[@TheKing0776]

要先入一單,這個是建議

[@amandahuang5349]

我本來也有遇到這個問題，試過另一種程式碼後就OK了 空白列 ＝ Sheets("資料庫").Range("A" & Rows.Count).End(xlUp).Offset(1).Row