Question

excel vba 新建菜单栏的问题

Sub myfirstmenubar()
Dim mybar As CommandBar
Set mybar = CommandBars.Add(Name:=Hour17, Position:=msoBarTop, MenuBar:=True, temporary:=True)
mybar.Visible = True
CommandBars("worksheet menu bar").Visible = flase
End Sub

Answer 1

求在excel中输入数据，点击打印按钮能将数据打印成指定格式的标签。原模板不能动，而且操作只要一步。原模板如下：

这是用户设置的表格，当天生产的品种，一个品种一张表格，每个品种会生成N多的批次，每一个批次一行记录。输入完成后，点击打印，将表中记录打印成如下图所示的标签：

难点：
1、一天生成N多个品种，每一个品种N多行批，原表格样式为，一张表格一个品种，这一张表格一批一行。打印的效果则要，按每个品种每行打印。
2、用户只要一键达成，在这一键中需要完成多个步骤。如，将要打印的记录填写模板，选择需要打印的模板区域，调用打印机打印选择中的区域，返回当前记录。
4
中间的想法过程略去，直接跳到设计思路。
1、保持原来表格模板不动，根据打印出来的标签样式，在excel中设置标签模板。由于在同一张表格中设计，为了不影响原来excel表格的格式，我找了无数据的区域设置。设置的效果就如上图所示的样子。
2、增加按钮，编写VBA代码
（1）、得到当前选择行的标和列标。
（2）、将选定要打印的行的数据填写到标签模板中。
（3）、选择标签模板区域
（4）、调用打印机打印选择区域
（5）、返回到之前位置

Answer 2

建了 菜单 未 添加 按钮啊

追问

不知道为什么新加的菜单没有显示啊，运行过程是错误的，错误为5，不认识的过程。
按钮是在excel里添加的，把这个过程指定给了这个按钮，觉得也没错呀。

追答

噢，你的 Office 是 哪个版本？
你发的这段 运行一下 没出故障。 你检查一下 加 按钮 的过程，也许有问题