我正在尝试向用户表单中的组合框添加选项。当我运行代码时,Excel没有给出任何错误,但是当用户表单出现时,它不会显示我之前添加到组合框中的实体。也就是说,当我单击组合框时,它不会显示任何选项,只显示一个空白行,就像没有添加任何项目一样。
下面是我使用的代码:
Private Sub UserForm_Initialize()
ComboBox1.AddItem "xxx"
ComboBox1.AddItem "yyy"
ComboBox1.AddItem "zzz"
End Sub
我使用下面的代码在宏中调用用户窗体:
U
我在Excel中有一个客户数据表,可以使用VBA用户表单进行添加/编辑。因此,我想突出刚才添加/编辑的行。这是我第一次使用VBA,所以我从搜索并找到了代码。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value <> "" Then
Target.Interior.ColorIndex = 6
End If
End Sub
这是非常好的工作,但以前的编辑/加载项的亮点仍然存在。我只想把最后一个突出显示。
在excel项目中,我有一个带有数据的工作表,一个从该工作表中提取数据的用户表单,以及一个粘贴用户表单数据的工作表。
我在数据表中创建了一个按钮,应该打开用户表单。作为参考,我的userform的名称是UserForm1。当我单击命令按钮时,我会得到一个424错误Object required。我希望得到任何帮助或澄清,似乎我的课程/实例搞混了?
代码如下:
Private Sub blocksSorter_Click()
Load UserForm
UserForm.Show
End Sub
表单本身位于同一个VBA项目中,是项目中的唯一表单。我的UserForm1代码一
我真的不知道是什么导致了错误400。下面的代码在正常模式下运行得很好,但只要我在共享模式下启用我的excel并尝试使用用户表单,它就会给我VBA 400。
我在这里尝试做的是更改shape的文本并禁用其OnAction事件,一旦用户表单显示给用户。这样访问同一文件的另一个用户就会知道有人正在使用“用户表单”输入数据。
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.TextEffect.Text = "Sort Customer" Then
shp.OnAction = "
我有一个为用户导出和编辑excel文件的表单。我在尝试让代码从Access 2010 VBA代码中删除现有工作表时遇到问题。
我的代码:
Private Sub Command0_Click()
Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim sht As Excel.Worksheet
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open("C:\Users\Me\Desktop\Document.xlsx"
所以,我得到了excel表格,上面用空格栏隔开了一堆单词。所以这一行是这样的:
excel write a sheep e shave shovel with no g life less f
...
...
我的问题是,有没有办法去除那些特定的词语?例如,如果我想删除长度为1的单词,结果应该如下:
excel write sheep shave shovel with no life less
...
...
我对VBA不熟悉,所以我想问一问是否有一种方法可以帮助我。
谢谢!
我有一个Excel文件,大约有4000行多行单元格,我需要删除每个单元格的最后一行。
所有单元格的格式都是这样的--每个单元格的最后一行以相同的单词(代码:)开头,但长度可能有所不同:
this is the first line
this is the second line
this is the third line
CODE: 123456789
至:
this is the first line
this is the second line
this is the third line
我还尝试用“\”符号替换换行符,并使用一个公式,该公式删除最后一个“\”之后的所有内容,但没有成
在一个更大的Excel应用程序中,(25张工作表,50个命令按钮,5000行代码,18个用户表单...大小为12 MB) ...我们以txt文件的形式从服务器加载表格,并使用标准过程将这些txt_files重新转换为excel数据。通过宏,我们在下载后删除所有的查询表和连接。
每件事都运行得又好又快,但是主页现在变得越来越慢了。即使打开工作簿也要花费越来越多的时间,而大小保持不变。
不知何故,我有一种感觉,从txt_files传输的数据的剩余部分没有被删除:
Dim ws As Worksheet
Dim qt As QueryTable
For Each ws In ThisW
我使用Outlook VBA代码获取“主题”邮件中的特定文本,然后打开Excel工作簿并在其中搜索该文本,如果该文本存在,则显示一个用户表单。
如何将焦点从Outlook设置为Excel?用户表单保持隐藏状态,仅当我单击Excel窗口将其激活时才会显示。
Sub abrirexecel()
Dim ExApp As Excel.Application, planilha As String
On Error Resume Next
planilha = "'C:\Users\Dyme\" & Format(Date, "yyyy-