第一篇文章,赞赏格式反馈。我想用一个用户窗体向表格中的单元格添加一个值。组合框值'过滤器'栏1,文本框1值'过滤器栏2和生成的栏3是我的值从textbox2输入的目标单元格。 下面的代码显示编译错误:未定义子功能或功能(突出显示“Where”)。 Private Sub CommandButton1_Click()
Dim tbl As ListObject
Sheets("Sheet5")
我有一个按列C排序的报表。我需要保存基于列C中每个项目的单个工作簿。第1行中的标头。 下面是我认为应该可以使用但不是的代码。我也不确定如何将特定文件夹保存到。 If Target.Address = "$C$2" Then
fname = Range("C2")
ActiveWorkbook.SaveAs Filename:=fname
End If
我有一个VBA脚本象下面这样: Sub button_click()
'
' < some code >
'
call FindStrings (strfolder, Nothing)
End Sub
Public Sub FindStrings(strFolder As String, Optional wksSheet As Worksheet = Nothing)
'