Live delivery form template - automatically display pictures - automatically associate series products

During live broadcast, you can directly select the category , Automatically bring out all products of this series , And automatically associate the picture of the corresponding field

Category database data format =========================================================

 

Commodity price database format =========================================================

 

 

 

Not done VBA Macro save order

A101	 Common declaration 	VBE The first level directory name of the menu 
A101001	 Force declaration of variables 	Option Explicit ' Force declaration of all variables within the module 
A101002	 Module private 	Option Private Module ' Mark module as private , Only useful for other modules in the same project , Don't show in macro dialog 
A101003	 Strings are not case sensitive 	Option Compare Text ' Strings are not case sensitive 
A101004	 The minimum subscript of the array is 1	Option Base 1 ' Specifies that the first subscript of the array is  1
A101005	 Ignore mistakes 	On Error Resume Next ' Ignore the error and continue  VBA Code , Avoid error messages 
A101006	 Wrong jump 	On Error GoTo ErrorHandler ' Jump to a position in the process when an error occurs 
A101007	 Recovery error prompt 	On Error GoTo 0 ' Return to normal error prompt 
A101008	 No pop ups 	Application.DisplayAlerts=False ' During the execution of the program, the warning box will not be displayed 
A101009	 Screen refresh 	Application.ScreenUpdating=False ' Turn off screen refresh  Application.ScreenUpdating=True ' Open screen refresh 
A101010	 Disable shortcut key interrupt 	Application.Enable.CancelKey=xlDisabled ' Ban  Ctrl+Break  Stop macro function 
A101011	 New workbook 	"dim wb as workbook
set wb=Workbooks.Add() ' Create a new workbook "
A101012	 Activate Workbook 	Workbooks("book1.xls").Activate ' The activation name is  book1 The workbook for 
A101013	 Save workbook 	ThisWorkbook.Save ' Save workbook 
A101014	 Close workbook 	ThisWorkbook.close ' Close the current workbook 
A101015	 Number of worksheets 	ActiveWorkbook.Sheets.Count ' Get the number of sheets in the active workbook 
A101016	 Name of the workbook 	"ActiveWorkbook.name ' Returns the name of the active workbook 
ThisWorkbook.Name ' Returns the current workbook name 
ThisWorkbook.FullName ' Returns the current workbook path and name "
A102	 file 	ActiveWindow.EnableResize=False ' Disable resizing the active workbook 
A102001	 Traverse a folder 	Application.Window.Arrange xlArrangeStyleTiled ' Arrange workbooks as tiles 
A102002	 Traverse all files and folders under the folder 	ActiveWorkbook.WindowState=xlMaximized ' Maximize the current workbook 
A101017	 The dictionary States 	Set dic=CreateObject("scripting.dictionary")
A102003	 Get the last line 	"lastrow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row	' Get the last line "