-
1 # Excel小白的技巧
-
2 # 藍海資訊
商品的進銷明細是按時間順序記錄的商品一對多的N條記錄,每個商品都不同。
最簡單的方法就是資料篩選,但是幾百種商品,找也得找半天,還不看的頭暈眼花。
採用VBA吧,涉及到語法,程式設計,一般的使用者又望而生畏,就不是簡單的實現方法了。
我們換個思路,新建一個工作表。如果我們不採用下拉選單選擇商品,而是直接在單元格輸入或者貼上商品名稱。根據輸入商品名稱,透過VLOOKUP函式在總表中查詢此商品,在新表中返回並列出此商品的所有明細。
不知能不能幫到你?
-
3 # 哎咿哎咿呀
您應該是要打印出當年各個商品的明細,可以使用排序方便列印,開始-排序-自定義排序,主要關鍵字為商品的類別,次要關鍵字為時間,這樣排序得到的表格應該可以方便您列印。
由於不瞭解詳細情況只能給出一個大概的方法,如有需要,題主可以私聊我詳細說明。
-
4 # Excel到PowerBI
庫存商品明細賬分型號進行列印的問題,用資料透視表進行拆分,非常簡單,根本不需要VBA。具體操作方法如下:
1、插入資料透視表2、調整好需要資料的資料內容,並將分拆條件放到“篩選”裡,如圖中的產品類別:3、在資料透視的“分析”選單裡按篩選條件對資料進行分頁,如下圖所示:透過以上簡單的3步,報表就完全拆分好了,如下圖所示:
這是資料透視裡最經典的報表拆分功能,在很多情況下都可以使用,表格拆分後,再列印全部工作表就可以了。
-
5 # 花生日料
你列印的目的就是能知道庫存情況、直接用手機開啟微信發現小程式搜尋庫存表、然後在個人中心的網頁端增加好產品、只要用表裡的資料打開復制貼上進去。然後手機與其它部門共享就可以隨時查閱庫存量和金額。打與不打都一樣、要列印只要匯出表直接列印。同時可以掃碼進出庫管理、協同進出庫操作提醒功能。財務報表,客戶明細用料情況。
-
6 # 受死吖小怪獸
這肯定要用到VBA程式設計的啦!
但是畢竟懂得運用excel的VBA程式設計還在少數,所以多數人不得不借助一些工具完成進銷存明細。
VBA程式設計就不說了,會用自己可以寫。我就來介紹一下不懂VBA的一般需要用到的一款免費工具吧。
工具叫雲表企業應用平臺,下文就簡稱雲表了,是由金山wps團隊開發的一款免費軟體。使用者可以選擇按需求定做或者是自主開發,雲表操作簡單易懂,無需程式碼程式設計,純中文操作,excel的操作形式。
其實,並不是很推薦去用Excel實現進銷存管理,Excel設計的初衷是單機辦公軟體,進銷存軟體需要的是工作流、審批流、許可權設定、資料共享,恰好這些關鍵功能它都不具備,資料多了還會出現開啟速度緩慢、容易崩潰等問題。這些缺陷使得excel進銷存軟體實在算不上一個完備的進銷存軟體。
雲表則完美地解決了這些問題,不僅如此,雲表的操作就是基於Excel畫表格形式,不用擔心軟體難用;純中文頁面,沒有看不懂的英文單詞;無需VBA程式語言相關知識、無基礎即可上手,簡單實用。作為一款應用領域已經覆蓋各個行業的企業管理系統,所有進銷存需要的功能雲表都擁有,甚至一些獨特的個性化要求也完全可以自己開發新增。雲表連結網路,完全可以為企業解除資訊孤島。
雲表的功能當然還不止於此。畢竟它是由原金山的WPS創業團隊耗時10年開發而成,並經過不斷完善的產品,還有:萬能資料透視分析、統計、大併發、簡訊通知、定時任務,外部資料來源等功能,都能完美執行,且效能穩定可靠,還可以與大多的主流資訊系統無縫對接,做到搭載多個資訊系統,這樣的優勢是既可以保護企業原有的資料資產,又能有效地避免企業同時使用多個系統可能出現的衝突。還可以一鍵生成手機app,實現企業高效快捷移動化辦公。
雲表可不只是提供免費軟體,還提供免費培訓的哦,還有親切的客服會耐心回答您遇到的任何問題,包您輕鬆上手自己製作進銷存軟體。當然,也可以直接提要求定製,價格市面最低,全看您的需要。
雲表現有客戶有,華為、中鐵、中國電信、中冶、中國普天、燕山大學,中國電波傳播研究所等等,所以你也千萬不要錯過,畢竟免費,何不試試?
雲表永久免費軟體和培訓獲取方式在這裡。
-
7 # 玩Office
只需要簡單的三步,就可以高效快速地列印了。
第一步,建立資料透視表插入資料透視表,並且將“型號”欄位放到篩選欄位區域。
第二步,按型號拆分工作表利用資料透視表中的“顯示報表篩選頁”工具,將每一個型號拆分到獨立的工作表。
這是透視表自帶的小工具,以後需要根據某一個欄位拆分工作表的時候也可以用,舉一反三。
第三步,批次列印按住Shift鍵選中所有需要列印的工作表(成為工作組),Ctrl+P快速列印。
快速,高效,不容易出錯。你說呢?
-
8 # 樂圖軟體
這就需要用到一個既相容excel功能,但功能要更為強大的工具了。
文末有免費福利,不要錯過噢~這個工具叫雲表企業應用平臺,它是一款無程式碼開發工具,平時也可以做辦公用。
批次列印
在雲表平臺這裡,是完全支援報表模板自定義列印,以及批次匯入匯出表單的。也就是說,你不僅可以自定義進銷存明細賬,而且幾百個商品訂單資訊,是可以批次一鍵打印出來的。
掃碼出入庫
當然,你還可以用它來設定許可權,進行工作流,流程審批,多人協同,資料透視,資料分析,訊息推送,鬧鐘提醒,小程式,H5,外接資料來源,與用友金蝶,釘釘、企業微信等外部系統進行整合封裝,與PDA,GPS,高拍儀,地磅,電子秤第三方軟硬體進行對接,生成移動端app......
能實現的功能真的太多太多了,你自己稍後慢慢搗鼓。
0基礎,業務人員也能開發個性化的管理軟體,如進銷存系統等即使你對IT知識一竅不通,不懂VBA是什麼,也不懂如何編寫程式碼。
操作介面
那也沒關係,你只需要懂中文,有自己的業務邏輯和架構思維即可。
產品採購入庫
使用者,只需要在和excel很像的介面,拖拉拽,輸入中文配置資訊,即可搭建出個性化自主可控的管理軟體,比如進銷存、知識管理、專案管理、供應商管理、ERP、OA、WMS、MES、PLM、SRM等。
當然,你再也不用從市場上購買多套功能通用,但實際用處不大的系統回來,有云表平臺一個就夠啦!
它不僅完全支援二次開發,而且還能構成“一個平臺,管理多套軟體”的All in One管理體系。
防串貨入庫
也就是說,用雲表平臺開發出來的系統,各系統之間,資訊互通,主流資訊無縫整合。
像中國電信、華為、中鐵、中冶、南方物流、許繼電氣、雲南小松、恆逸石化、汾西礦業、中山誠威等20萬+的企業,早已依託雲表平臺,實現數字化轉型。
目前,它提供了一款永久免費使用版本,功能不做任何限制。
高山流水,知音難覓,免費又好用的軟體,你也值得擁有,軟體獲取方式在此奉上:
方法一:
3.資訊填報完畢,即可在“管理控制檯”免費獲取。
方法二:
如果能夠幫助到您,將會是我的榮幸!
回覆列表
這個問題我思考了一下,暫時想到的呢是用VBA去解決。
說一下我的思路:
進銷存明細表資料量較為龐大,涉及商品幾百個之多,不能用篩選的笨方法去逐個列印
可能存在每個型號有多行資料的可能
利用VBA將每個型號的資料單獨查詢出來
再將查詢出來的資料附上表頭
然後將帶有表頭的有效資料複製到新的工作簿中
以產品型號為新的工作簿命名並儲存
多次迴圈以達到查詢出所有型號的產品的目的
將所有單個產品型號的工作薄儲存在一個資料夾中
最後列印所有新工作博
我簡單的做了一個進銷存的明細表,包含20個產品,示例如下:
VBA程式碼示例如下(由於程式碼佔用篇幅較大,我放在文末了):
執行程式碼後,已經建立好的儲存資料夾中:
隨便開啟一個檔案檢視,新檔案查詢生成ok
表頭沒問題,資料查詢沒問題,也不存在空檔案
接下來,鑑於不能一次性列印太多的檔案,只能選中一部分檔案列印,如下:
此VBA程式碼使用說明由於需要定義要查詢的內容,所以,在執行程式碼前,我們需要將所有的產品型別找出來,相信這是個簡單的過程,大家能會做,如果有重複項,去重即可。
新建一個叫做“陣列”sheet,並將所有的產品型別複製到第一列中,當然了,你也可以根據自己的需要去建立,但是在程式碼中得隨著更改。如下圖:
修改你的進銷存的表頭在表格中的區域區域,如下圖:修改表頭以下,資料內容的起始單元格,如下圖:然後建立一個新資料夾,並將檔案的地址,更改到程式碼中,如下圖:
需要注意的最後一定要加一個“/”用以表示資料夾層級,在我的示例中,如果不標,就會把查詢後生成的檔案都放到Desktop資料夾下,並且工作簿名會帶上“test”,這樣不行將sheet切換到你的要查詢的進銷存表格,讓表格處於啟用狀態
最後即可執行VBA程式碼了
如果有報錯,就得自己檢查一下程式碼了
程式碼如下:Sub test()
Dim myText$, myRow As Long
Dim d As Object, myRng As Range, myRng1 As Range, i%
Application.ScreenUpdating = False "禁止執行時重新整理
Application.DisplayAlerts = False "禁止告警
Set myRng1 = ActiveSheet.[A1:T2] "定義表頭位置
For i = 1 To 20 Step 1
Set d = CreateObject("scripting.dictionary")
myText = Sheets("陣列").Cells(i, 1) "要查詢的內容位置
With ActiveSheet.Cells "查詢的範圍
Set c = .Find(myText, Lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
myRow = c.Row
If d.exists(myRow) = False Then
If myRng Is Nothing Then Set myRng = Rows(myRow) Else Set myRng = Union(myRng, Rows(myRow))
d(myRow) = 0
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
If Not myRng Is Nothing Then
myRng1.Copy Workbooks.Add.Sheets(1).Range("A1") "複製表頭
myRng.Copy ActiveSheet.Range("A3") "複製內容
ActiveWorkbook.SaveAs Filename:="C:\Users\hxyuh\Desktop\test\" & myText & ".xlsx" "新工作簿儲存位置及工作簿名定義
ActiveWindow.Close
End If
Set myRng = Nothing
Next i
Application.ScreenUpdating = True "開啟執行時重新整理
Application.DisplayAlerts = True "開啟告警
End Sub