直播带货表格模板-自动显示图片-自动关联系列商品

直播时可直接选择类别，自动带出该系列所有商品 ，并且自动关联对应字段的图片

类别数据库数据格式=========================================================

 

商品价格数据库格式=========================================================

 

 

 

未做VBA宏保存订单

A101	常用声明	VBE菜单的一级目录名称
A101001	强制声明变量	Option Explicit '强制对模块内所有变量进行声明
A101002	模块私有	Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示
A101003	字符串不区分大小写	Option Compare Text '字符串不区分大小写
A101004	数组最小下标为1	Option Base 1 '指定数组的第一个下标为 1
A101005	忽略错误	On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息
A101006	错误跳转	On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置
A101007	恢复错误提示	On Error GoTo 0 '恢复正常的错误提示
A101008	禁止弹窗	Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示
A101009	屏幕刷新	Application.ScreenUpdating=False '关闭屏幕刷新 Application.ScreenUpdating=True '打开屏幕刷新
A101010	禁止快捷键中断	Application.Enable.CancelKey=xlDisabled '禁用 Ctrl+Break 中止宏运行的功能
A101011	新建工作簿	"dim wb as workbook
set wb=Workbooks.Add() '创建一个新的工作簿"
A101012	激活工作簿	Workbooks("book1.xls").Activate '激活名为 book1的工作簿
A101013	保存工作簿	ThisWorkbook.Save '保存工作簿
A101014	关闭工作簿	ThisWorkbook.close '关闭当前工作簿
A101015	工作表个数	ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数
A101016	工作簿名称	"ActiveWorkbook.name '返回活动工作薄的名称
ThisWorkbook.Name '返回当前工作簿名称
ThisWorkbook.FullName '返回当前工作簿路径和名称"
A102	文件	ActiveWindow.EnableResize=False '禁止调整活动工作簿的大小
A102001	遍历一个文件夹	Application.Window.Arrange xlArrangeStyleTiled '将工作簿以平铺方式排列
A102002	遍历文件夹下所有文件及文件夹	ActiveWorkbook.WindowState=xlMaximized '将当前工作簿最大化
A101017	字典声明	Set dic=CreateObject("scripting.dictionary")
A102003	获取最后一行	"lastrow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row	'获取最后一行"