...在对话框中添加一个可以计算数据源中所有成员平均工资的按钮控件
发布网友
发布时间：2024-10-23 23:09
共2个回答
热心网友
时间：2024-10-27 09:50
如果是另外工作薄说明太简单，随时不能提供宏代码。如果是其他工作表，方法如下：
在菜单栏空白处右键单击，在右键菜单中选择“控件工具箱”，在弹出的“控件工具箱”对话框中选择“命令按钮”控件，然后在工作表设置好“命令按钮”控件关闭对话框，双击控件，在出现的代码编辑区复制粘贴以下代码：
Private Sub CommandButton1_Click()
Dim Inet As String
Inet = InputBox("请输入要粘贴的行号:")
If Len(Trim(Inet)) > 0 Then
If Application.CountA(Sheet2.Range("b" & Inet & ":d" & Inet + 1)) > 0 Then
If MsgBox("你选择的单元格粘贴区域有数值。是否继续?", 4 + 32, "提示") = vbYes Then
Range("a1:c2").Copy Sheet2.Range("b" & Inet)
End If
Else
Range("a1:c2").Copy Sheet2.Range("b" & Inet)
End If
End If
End Sub
注意：复制数据源的工作表设置按钮控件，粘贴的工作表是SHEET2
另外因为粘贴的位置所在的行说明并不详细，我采用了对话框选择，如果不用对话框，自动粘贴和粘贴到其他工作薄的可以HI我交谈。
汗~~~没有测试！现发现错误已更改。
热心网友
时间：2024-10-27 09:47
在vc++MFC中Resources dialog中有个空间菜单，里面有个Button按钮的控件，拉过来就行了，然后再程序中，设置它的位置，创建它的click函数，在函数里面写计算成员平均工资的逻辑表达式，就可以了，如果没有控件菜单，可右击菜单栏选中controls就行了
