藍色胖海象

剛開始寫查詢庫存的公式時沒有想很多，就是手邊有的Excel拿出來寫。因為之前的工作用了很多excel的技巧，所以寫出查詢零件庫存的公式不算太難。

爾後為了想要用手機上查詢零件庫存，卻遇到了問題：即時性以及網路連線問題。

目前有三個工作表excel的檔案之間會相互連結：

1、庫存量：不同供應商的庫存量  大約有十三個表單，庫存量會隨著時間推移而數字會有變動

2、BOM：1000多組的產品之中，有十三個供應商的BOM表，其中BOM表是存著時間推移會持續更新的

3、產品別：1000多組的產品也是會隨著時間更新的 (可能會變成1100個以上或是1200個以上)

目前是跨檔案之間的抓取各處的資料，針對某一而在一個excel上秀出來。

因為手機的excel無法跨檔案查詢，所以我目前是想要把所有的資訊放在同一個檔案之中

其中目前已經寫出了庫存項目需要更新、庫存數量需要更新的巨集。

使用一段時間之後覺得還不錯用，但是後來發現後續的問題

1、查詢表單之中的BOM也需要更新。不然BOM更新，查詢表單裡的BOM沒有更新也無法顯示出現新的零件。

2、產品的料號也需要更新

由於以上的資訊是牽扯在一起的，其實我只要更新產品組合、再更新此產品組合之中於不同供應商的BOM表，再用一個表單可以抓出全部的資訊就可以了

但是我工作沒有學過資料庫，目前澴是在用excel寫。

現在做了一個決定，想要將原本維護的總表，加上我可以隨時更新的巨集程式，就可以成了我可以用手機查詢的excel表單。

概念很簡單，但是自己卻花了一點時間去研究如何將我的巨集寫得很簡潔，而且符合我的需求。

透過寫巨集，讓我省了不少時間，而且研究巨集裡句子，也更讓我容易了解我大學修過的Visual Basic課程裡面的東西。

Sheets("庫存量").Select   
    Range("B3").Select
    ActiveCell.FormulaR1C1 = _
        "=XLOOKUP(RC[-1],'[庫存管理-210119.xlsx]Jrone剩餘庫存'!C3,'[庫存管理-210119.xlsx]Jrone剩餘庫存'!C5,,0)" ←將庫存管理檔案裡Jrone的庫存值抓到目前的檔案之中
    Range("B3").Select
    Selection.Copy
    Range("B3:B1000").Select  ←目前還不會寫出抓到整欄的最後一個值，所以自己先寫了一個範圍，日後再改
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate

以上述的VB，反覆十三次，針對不同的供應商抓出不同的庫存值，最後再貼上值就大功告成了。若要寫公式其實不難，難的是要耐得地性子寫一樣的公式十三次。現在用一鍵就可以搞定覺得自己還是有點成長，以及節省了許多時間完成我的想法，算是有一點點成就感。

透過觀察上述的句子，大概知道每一句話在做什麼事情。只是要我自己寫，我可能寫不出來就是了。

2023/01/11更新

手機查庫存這個功能寫了三個月，之前都可行，但是最近不知道為什麼不能用查詢表單這個檔案做計算，目前還在研究。

後來發現是因為沒有登入office，因為我之前就有購買office365，所以登入之後就可以正常使用。不確定沒有購買的人是否可以使用。