我的代码如下，它是一个用户窗体上的组合框，它允许用户从其他工作表中选择某些数据。我的问题是，它也显示我的'摘要'表作为一个可选择的选项。如何让它显示列表索引中除“摘要”工作表外的所有工作表？ Private Sub cmb_copycontact_Change()
If cmb_copycontact.ListIndex <> -1 Then
With ActiveWorkbook
我是一个Excel-VBA新手，我正在尝试编写一段代码，该代码由某人更改工作表中单元格的值触发。它应该将更改单元格的值设置为零，如果它小于零。代码如下所示： Private Sub Worksheet_Change(ByVal Target As Range)
'Debug.Print Target.Address
If Target.Column = 6 Then
For Each
所以这是一个普遍问题，我确定之前已经询问过这个问题，但我无法找到很多帮助。 在具有一个工作表范围的Excel说B6：F12是我有在Worksheet_Calculate（）子程序有问题的计算结果全部 我的问题是，随着对worksheet_calculate这种非常通用代码子程序 Private Sub Worksheet_Calculate()
Dim aCell as Range
我无法应对以下问题。我有一个模块中的某些代码。当我在工作表2中时，此代码运行良好。跳到sheet1并运行宏时，它返回给我0.如果您能指出我所做的错误，我会很感激。 Public Sub Test()
Dim ws As Worksheet
Dim cost As Double
Set ws = Sheets("Sheet1")
cost = Worksheets("Sheet2").
我在用户窗体具有框架，在该帧i有图片和标签。我需要把整个框架完全放在用户窗体中，直接放到表单中。 使用此代码创建一个框到工作表，并接收用户窗体中的图片。但在这种情况下，只有图片会被复制，而不是标签。 Private Sub CommandButton1_Click()
Dim oCheck As OLEObject
For Each oCheck In Plan1.OLEObjects