Tag: 清除

select选项后，VBA Excelcombobox不显示值: Private Sub ComboBox1_DropButtonClick() If ComboBox1.ListCount > 0 Then ActiveSheet.ComboBox1.Clear End If For N = 1 To ActiveWorkbook.Sheets.Count – 1 ComboBox1.AddItem ActiveWorkbook.Sheets(N).Name Next N End Sub 我是VBA新手，请耐心等待。我可能不是这样做的最好的方式开始。代码是取我的工作簿中的每张表的名称（除了最后一张表），并将它们添加到combobox列表中。起初，每当我点击下拉菜单时，所有图纸名称都会再次被添加，使得每次点击都会继续增加列表。我的补救措施是每次点击清除combobox，并重新填充。但是，如果使用了明确的选项，则在进行select时不会显示该值。当不使用清除选项时显示正常。其他一切仍然有效，但我需要它来显示选定的值，以便用户不会感到困惑。有没有更好的方法来完成我所需要的？编辑：如果它很重要，这不是在用户的forms，它只是一个活跃的xcombobox直接位于工作表上。

完成表格后清除单选button: 我有一系列的用户表单，进行问卷调查。每个用户窗体包含一对选项button/checkbox。程序工作正常。但是，当我再次启动程序（不退出Excel）时，按照与以前的用户相同的方式填充单选button和checkbox。我尝试每个用户窗体初始化调用一个模块： Option base 0 Sub clearBtns() Dim optBtn(10) As Variant optBtn(0) = "optA" optBtn(1) = "optB" optBtn(2) = "optC" optBtn(3) = "optD" optBtn(4) = "optE" optBtn(5) = "chkA" optBtn(6) = "chkB" optBtn(7) = "chkC" optBtn(8) = "chkD" optBtn(9) = "chkE" optBtn(10) = "chkF" Dim cnt As Integer For cnt = 0 […]

如果资源数据为空，则清除数据透视表: 我想检查一张工作表中的3个数据透视表的资源数据是否为空，如果是的话，它应该清除另一个工作表中的数据透视表内容而不删除数据透视表。现在我的问题是，数据透视表也在更新之后提交最后一个值并且不清除它自己。我总是得到一个方法不匹配的错误。这是我的代码： Dim pt As PivotTable Dim myCellRange As Range Set myCellRange = ThisWorkbook.Sheets("Data").Range("A1:A500") If ThisWorkbook.Sheets("Data").CountA(myCellRange) = 0 Then Set pt = ThisWorkbook.Sheets("Analysis").PivotTables(1) pt.ClearTable End If 任何想法是什么错误？

在VBA中单击清除文本框: 我对VBA比较陌生，正在为我的雇主开发一个小型数据库。我试图创build一个文本框，当点击时，删除我已经把它的内容。例如，我有一个文本框，上面写着“第一个”，表示要放入成员的名字。当他们点击它，我希望我的文字消失，以便他们可以input他们想要的东西。（它只能执行一次的问题很容易用if语句解决）。我已经看了下面的问题，但都没有答案为我工作; 在点击文本框中清除文本下面的代码什么也没做 Private Sub TextBox1_GotFocus() TextBox1.Text = "" End Sub 下面的代码给我一个“处理”的“预期，结束语句”编译错误; Private Sub txtNewNameHere_GotFocus() Handles txtNewNameHere.GotFocus txtNewNameHere.Text = "" End Sub 不知道为什么这些不为我工作，但正如我所说，我是相对新的这一点。任何帮助不胜感激。

Excel VBA代码清除列和行: 需要vba代码清除从A到J的列，并从21行到200.下面的代码是清除列直到结束，需要删除，直到J列 Function ClearSummary() Const TestName_Col = "B" Const FirstRow_Num = "21" MaxRowNumber = Range(TestName_Col & "200").End(xlUp).Row If (MaxRowNumber > FirstRow_Num) Then 'select all rows in range & clear CellReference = FirstRow_Num & ":" & MaxRowNumber Rows(CellReference).Select Selection.ClearContents Selection.Hyperlinks.Delete Selection.Font.Underline = xlUnderlineStyleNone Selection.Font.ColorIndex = 0 End If End Function