excel中的按钮问题，高手帮忙
来自： 更新日期：早些时候
EXCEL中添加按钮遇到问题，请高手帮忙解决！~
Private Sub CommandButton1_Click()
Dim hang As Integer
Dim lie As Integer
For hang = 1 To 100
For lie = 1 To 100
If Worksheets("sheet1").Cells(hang, lie) = 1 Then
Worksheets("sheet2").Cells(hang, lie) = 1
End If
Next
Next
End Sub
2、转置
Private Sub CommandButton2_Click()
Dim hang As Integer
Dim lie As Integer
For hang = 1 To 100
For lie = 1 To 100
If Worksheets("sheet1").Cells(hang, lie) = 1 Then
Worksheets("sheet1").Cells(lie, hang) = 1
End If
Next
Next
End Sub
注意：行，列的值暂设为100，可以根据需要改
excel中的按钮问题，高手帮忙视频
相关评论：13552821637：excel中的按钮问题,高手帮忙
柳娥享1、转换，sheet1到sheet2 Private Sub CommandButton1_Click()Dim hang As Integer Dim lie As Integer For hang = 1 To 100 For lie = 1 To 100 If Worksheets("sheet1").Cells(hang, lie) = 1 Then Worksheets("sheet2").Cells(hang, lie) = 1 End If Next Next End Sub 2、转置...
13552821637：excel中的一些小问题,求高手指点
柳娥享第二个问题你选择单元格格式设置，选择“自定义”在类型里填写“yyyy.mm.dd”或者“yyyy-mm-dd”就可以了。第三个问题，关闭EXCEL时候，点击关闭×按钮下面的小×按钮。第四个问题，选中全文，然后点击“格式”--“段落”，在选项卡中，将“允许标点溢出边界”和“自动调整中文字距”、“自动调整西...
13552821637：Excel里工具栏工具指定宏,点击工具按钮不能执行
柳娥享先在宏编辑器中，按F5执行一下代码，如果能正常运行说明代码正常 再看按钮是表单控件，还是ACTIVEX控件，表单控件，直接鼠标右键，再指定宏名 ACTIVEX控件，需要设计模式下双击按钮再复制粘贴编辑好的代码进去
13552821637：excel图表上的按钮是怎么制作的,升降的这种。对这个很不了解,想学习...
柳娥享1.首先在excel程序选项中找到开发工具并打上勾 2.在菜单栏中点击“开发工具”，找到图中的控件，然后添加“数值调节钮”插入以后右键单击，在菜单中选择“设置控件格式”然后，点击“控制选项卡”然后输入当前值，最大值和步长（按一次按钮调节多少数字）然后在链接到你指定的单元格即可 ...
13552821637：各位高手,请教如何在Excel中使用选项按钮
柳娥享选中要设置的单元格或单元格区域,菜单---数据---有效性---选 “序列”，输入以下内容:是,否
13552821637：请Excel 的高手帮我解决一个 控件问题!
柳娥享右侧窗上边第一个下拉列表中选"worksheet", 第二个下拉列表中选“SelectionChange”4. 在代码中加多一句，使之变成如下这样:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Calendar1.Value = Target.Value End Sub 5. 关才当前窗口返回Excel保存即可.如果有问题，请再补充，我再回答 ...
13552821637：请教个EXCEL2007的按钮问题,求高手解答。如何通过点击按钮“新建表...
柳娥享看了你的图，觉得虽然按钮可以复制，但是没必要弄很多代码完全一样的按钮，那样会使文件过于臃肿，而且文件运行很快会变慢。。所以，把按钮放在了C1单元格，冻结了首行，其他完全按照你的要求来做的。。已经发送，请查收。。。
13552821637：请教各位高手:Excel表格中制作了控件按钮,在工作表不保护时可用,一加保 ...
柳娥享将控件按钮和所控单元格保护中锁定单元格前的对勾去掉
13552821637：请Excel高手帮忙定一按钮宏,实现在指定列添加内容。
柳娥享试试看是否完美：Sub 添加() Dim arr, i, j, v, ok If arr(1, 1) <> "" Then arr = Cells(1, 1).CurrentRegion v = Trim(Cells(1, 1)) ok = True For i = 2 To UBound(arr) If Trim(arr(i, 1)) = v Then ok = False Exit For End ...
13552821637：高手入:EXCEL中锁定的问题,用宏解决
柳娥享下面的代码，分别为两个按钮的宏。密码暂定为“123”。你可以自己改。Dim IS_FIRST As Long Option Explicit Sub Macro1()'' Macro1 Macro ' Macro记録日 : 2012\/6\/6 ' Button1 Event 'Dim i As Long If ActiveSheet.ProtectContents Then ActiveSheet.Unprotect End If If IS_FIRST = 0 Then...
我告诉你regsvr32 后边要加路径
有具体条件就成
1、转换，sheet1到sheet2Private Sub CommandButton1_Click()
Dim hang As Integer
Dim lie As Integer
For hang = 1 To 100
For lie = 1 To 100
If Worksheets("sheet1").Cells(hang, lie) = 1 Then
Worksheets("sheet2").Cells(hang, lie) = 1
End If
Next
Next
End Sub
2、转置
Private Sub CommandButton2_Click()
Dim hang As Integer
Dim lie As Integer
For hang = 1 To 100
For lie = 1 To 100
If Worksheets("sheet1").Cells(hang, lie) = 1 Then
Worksheets("sheet1").Cells(lie, hang) = 1
End If
Next
Next
End Sub
注意：行，列的值暂设为100，可以根据需要改
excel中的按钮问题，高手帮忙视频
相关评论：
柳娥享1、转换，sheet1到sheet2 Private Sub CommandButton1_Click()Dim hang As Integer Dim lie As Integer For hang = 1 To 100 For lie = 1 To 100 If Worksheets("sheet1").Cells(hang, lie) = 1 Then Worksheets("sheet2").Cells(hang, lie) = 1 End If Next Next End Sub 2、转置...
柳娥享第二个问题你选择单元格格式设置，选择“自定义”在类型里填写“yyyy.mm.dd”或者“yyyy-mm-dd”就可以了。第三个问题，关闭EXCEL时候，点击关闭×按钮下面的小×按钮。第四个问题，选中全文，然后点击“格式”--“段落”，在选项卡中，将“允许标点溢出边界”和“自动调整中文字距”、“自动调整西...
柳娥享先在宏编辑器中，按F5执行一下代码，如果能正常运行说明代码正常 再看按钮是表单控件，还是ACTIVEX控件，表单控件，直接鼠标右键，再指定宏名 ACTIVEX控件，需要设计模式下双击按钮再复制粘贴编辑好的代码进去
柳娥享1.首先在excel程序选项中找到开发工具并打上勾 2.在菜单栏中点击“开发工具”，找到图中的控件，然后添加“数值调节钮”插入以后右键单击，在菜单中选择“设置控件格式”然后，点击“控制选项卡”然后输入当前值，最大值和步长（按一次按钮调节多少数字）然后在链接到你指定的单元格即可 ...
柳娥享选中要设置的单元格或单元格区域,菜单---数据---有效性---选 “序列”，输入以下内容:是,否
柳娥享右侧窗上边第一个下拉列表中选"worksheet", 第二个下拉列表中选“SelectionChange”4. 在代码中加多一句，使之变成如下这样:Private Sub Worksheet_SelectionChange(ByVal Target As Range)Calendar1.Value = Target.Value End Sub 5. 关才当前窗口返回Excel保存即可.如果有问题，请再补充，我再回答 ...
柳娥享看了你的图，觉得虽然按钮可以复制，但是没必要弄很多代码完全一样的按钮，那样会使文件过于臃肿，而且文件运行很快会变慢。。所以，把按钮放在了C1单元格，冻结了首行，其他完全按照你的要求来做的。。已经发送，请查收。。。
柳娥享将控件按钮和所控单元格保护中锁定单元格前的对勾去掉
柳娥享试试看是否完美：Sub 添加() Dim arr, i, j, v, ok If arr(1, 1) <> "" Then arr = Cells(1, 1).CurrentRegion v = Trim(Cells(1, 1)) ok = True For i = 2 To UBound(arr) If Trim(arr(i, 1)) = v Then ok = False Exit For End ...
柳娥享下面的代码，分别为两个按钮的宏。密码暂定为“123”。你可以自己改。Dim IS_FIRST As Long Option Explicit Sub Macro1()'' Macro1 Macro ' Macro记録日 : 2012\/6\/6 ' Button1 Event 'Dim i As Long If ActiveSheet.ProtectContents Then ActiveSheet.Unprotect End If If IS_FIRST = 0 Then...
