Excel进阶技巧：自动插入货号对应图片代码

"代码6：根据货号所在列得出图片代码" 这段代码是一个VBA（Visual Basic for Applications）宏，用于在Excel中自动化处理图像插入。这个宏允许用户选择一个范围，然后根据货号所在的列插入对应的图片。这显著提高了工作效率，特别是对于处理大量数据和图片的工作环境。 首先，宏定义了多个变量，包括`a`, `b`, `c`, `d`, `Rg`, `tRow`, `tCol`, `wwc0`, `i`, 和 `FilenameAsString`。这些变量将在宏执行过程中存储不同的信息： - `Rg`: 用户通过输入框选择的范围。 - `tCol`: 货号所在列的列号。 - `tRow`: 用户输入的起始行号。 - `wwc0`: 货号所在列的最后一个非空单元格的行号，表示数据范围的结束行。 - `i`: 循环计数器，用于遍历数据行。 - `FilenameAsString`: 存储生成的文本文件的路径和名称。 - `a`, `b`, `c`, `d`: 用于构建HTML字符串，以便在文本文件中描述图片。 宏的执行流程如下： 1. 使用`Application.InputBox`显示一个对话框，让用户选择一个范围（`Rg`）。如果用户取消选择，程序会终止。 2. 获取所选范围的第一行（`tRow`）和第一列（`tCol`）的值。用户也可以输入一个特定的起始行号。 3. 计算货号列的最后一个非空单元格的行号（`wwc0`），这将作为数据范围的结束行。 4. 定义一个文本文件的路径和名称（`FilenameAsString`），用于存储图片的HTML代码。 5. 打开这个文本文件进行写入操作。 6. 使用`For`循环遍历从`tRow+1`到`wwc0`的每一行，获取每行货号列的值（`c`）。 7. 构建一个HTML `<img>` 标签，其中`src`属性的值基于货号（`c`），并设定宽度和高度。 8. 将构建的HTML字符串写入文本文件。 9. 结束循环后，关闭文本文件。 10. 使用`Shell`函数启动Notepad.exe，打开刚才创建的文本文件，这样用户可以查看或复制生成的HTML代码。 这个宏在实际应用中可以与一个包含货号和对应图片文件名的列表配合使用，列表中的货号应与工作表中货号列的值相对应。通过运行宏，用户可以快速地生成一个HTML代码文件，该文件包含了所有图片的引用，方便在网页或其他支持HTML的环境中展示。