我目前有一个包含多页和一个列表框的UserForm1。列表框实际上显示了excel工作表本身的一系列数据。
我已经将Userform2设置为弹出窗口,以填充添加到excel工作表中的信息,然后在Userform1的列表框中替换这些信息。
本质上,用户导航到列表框,点击命令按钮,弹出窗口出现,用户完成信息,点击"ok“,然后显示在列表框中。
我遇到的问题是,当用户点击"ok“时,我无法刷新列表框。
我在"ok“命令按钮中的代码是:
Private Sub CommandButton1_Click()
Dim LastRow As Long, ws As Wo
下面的代码用于10个列表框控件,10个项。用户选择列表框的项和存储以激活与表相关的行和列,运行完美。在userform中还有Spindown_up和_down按钮。
当用户向下或向上滚动按钮时,代码将从给定的行和列中获取相关的值。炮台第一次或第二次使用向上或向下向下到向下,没有任何问题。但是,在2次或更多次使用后,就会发生下拉按钮错误:
运行时错误"390“。无法设置选定的属性。无效属性值。UserForm列表框选中的属性问题。
Sub get_decad(rnum As Integer)
Dim first_row, last_row As Integer
first_row =
我正在编写代码,将项目成本插入到工作表中。我不是Excel专家,所以我使用本教程来指导我: (它是葡萄牙语,但您可以在视频的第一分钟内看到UserForm的功能)。
我想要做的是在工作表中插入成本,然后过滤它们,生成所有项目成本及其类别的报告。
这是我的UserForm:
在为Insert Button ('Inserir Custo')编写代码时,我输入了以下内容:
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Plan4")
iRow = ws.Cells.Find(What:=
我有这样的代码来将数据从Userform带到我的单元格中:
Private Sub CommandButton1_Click()
Sheets("hoja2").Select 'selecciona la hoja "datos"
Range("B8").Select 'selecciona el rango (en este caso la celda) "A1"
Do While Not IsEmpty(ActiveCell) 'encuentra la ultima celda con datos
A
我正在为库存办事员创建一个UserForm,该人员为审核目的实际清点库存。目前的过程是纸面上的--我想把它放在平板电脑上。
目标:
2)如果数量正确,则用户点击“正确”,下一项出现在3)如果数量不正确,用户将键入写入相应数据表J列的观察到的数量。4)如果用户希望检查/重新工作项目,则滚动选项向前和向后移动。
Private Sub CommandButton1_Click()
'GET DATA FROM TABLE
ListBox1.ColumnCount = 4
ListBox1.RowSource = "A2:D500"
End Sub
当我运行以下代码时,我看到了错误Could not set the list property. Type mismatch。 它可以在For i = 1 To 10下正常工作,但如果我将其更改为10 to 100,我会看到错误。 Private Sub CommandButton1_Click()
Dim myString
Sheets("Welcome").Select
Range("W3").Select
myString = Range("W3")
UserForm1.TextBox1.Text = myString
Sheets(
我正在创建一个Excel用户表单,用户可以在其中添加、搜索和更新记录。我创建了一个按钮命令,用于搜索数据库(工作簿中的单个工作表),并将搜索结果填充到列表框中。因为我的数据库有10多个列,我想在列表框中显示这些列,所以我使用一个数组来填充列表框,而不是AddItem,它限制了我的10列或更少的列。(搜索代码如下)
Private Sub Search_Click()
''''''''''''Validation
If Trim(SearchTextBox.Value) =
我的守则:
Sub Search_Click()
Dim x1, i As Long, ii As Long, iii As Integer
x1 = [myCar]
Application.ScreenUpdating = False
With ListBox1
If TextBox2 = "" Then
.RowSource = "myCar"
Else
.RowSource = ""
For i = 1 To UBound(x1, 1)
If LCas
我想在用户表单中的列表框中实现一个搜索函数,以便更好地查看许多列,但不幸的是,我找不到解决方案。
最佳解决方案是,如果我可以在文本框中搜索任何行内容(最多有12列包含数据,例如名称、ID、位置、组织、.)列表框将自动更新自己,显示所有匹配的条目。
在UserForm_Initialize中,我按如下方式填充了列表框:
Private Sub UserForm_Initialize()
With UserForm1
.StartUpPosition = 1
.Top = 1
.Left = 1
End With
Dim last As Integer
las
我似乎找不到这个问题的答案。我有一个带有用户表单的电子表格,我正在尝试将TextBox47的背景颜色与工作表上相应的单元格相匹配,该单元格的值是通过列表框获取的。我需要的是能够点击列表项,并在文本框中填充该颜色。
我有以下代码来根据日期和参数的命名范围为工作表中的单元格着色。这在UserForm Initialise()上运行。
Dim cell As Range
With Range("data_table[Date Test]")
For Each cell In Range("data_table[Date Test]
我创建了一个带有列表框的userform,其中包含了几个列和textbox。当通过Application.WorksheetFunction.Vlookup选择列表框中的项时,textbox值将发生更改。但我从文本框中得到的不是日期,而是数字。有人能帮我解决这个问题吗?
Private Sub ListBox_Change()
Dim lnItem As Long
Dim ws, ws2 As Worksheet
Dim rn2 As Range
Set ws = Workbooks("TOOLS").Worksheets("TOOL
作为一个单列列表框,它可以工作并带回我需要的所有数据,但是,在将它变成多列列表框时,它会抛出错误“运行时错误'381':无法设置列表属性。无效的属性数组索引”-请参阅代码行ListBox1.List(1, 0) = MyArray(i, 1)。
当我添加不正确的List属性并尝试将List属性添加到我认为应该在的位置时,将正确地显示列,但它再次显示整个列表,并将第2行替换为正确的搜索结果之一,第一行永远不会更改。
主要代码来自,到目前为止,我已经使用@xris23的注释来修改多列列表框。
请帮帮我!
Sub CommandButton1_Click()
Dim i As
我从Excel帖子中提取了代码,并试图将其重新定位到多个列表框中。
我希望输入的数据基于不同的变量跨越多个行。
也就是说,它可以在列表框下选择的各种组合中排成一行。
图像链接:
我想在屏幕1中的选项返回屏幕2,但它返回屏幕3。
我想在屏幕4中的选项返回屏幕5,但它返回屏幕6。
Private Sub CommandButton1_Click()
Dim rng As Range
Dim i As Long
Dim A As Long
Set rng = Range("A" & Rows.Count).End(xlUp).Off
我有一个使用文本框动态更新的列。我可以使用文本框更新列,这些值也会在列表框中更新。
我尝试从列表框中删除多个数据。但它显示了我的错误。我需要从列表框以及工作表列中删除数据,并且通过删除空格和向上移动来更新列。
我的用于向列表框提供数据的数据列是动态的。结束范围不固定。
我得到了一个变量没有定义的错误,如果我做了一些调整,我会得到调试错误或代码错误
我的代码:
Private Sub CommandButton2_Click()
Dim iItem As Long, iRow As Long
With Sheet3 'reference Sheet3
Set
我正在尝试在Textbox中动态地编写一个值,该文本框放在Userform上。这是我的代码,我在最后一行中得到了一个错误。上面写的是必需的对象。
Sub Userform1_Display()
TotalSelected = 0
With Sheets("Main").Ent_ListBox
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Count = 1
TotalSelected = TotalSelected + Count
我有一张有ListBox的工作表。工作表代码有一个ListBox_DblClick子程序来启动UserForm1。UserForm1.CommandButton 1启动UserForm2。用户可以在UserForm2中输入数据,然后按UserForm2.CommandButton 1,它在模块中启动一个子程序(尚未编写)并关闭UserForm2。
通过下面的代码,UserForm2和UserForm1都关闭了。我只想让UserForm2在单击UserForm2.CommandButton 1时关闭。
任何关于我做错了什么的想法都是值得感激的。
UserForm2代码
Private Sub C
我有这样的代码,它基本上将列表框中的值过滤为excel中的userform上的文本框中的值。
Private Sub TextBox1_Change()
Dim sht As Worksheet
Dim rng1 As Range
Set sht = Sheet5
Set rng1 = sht.Range("F2:F" & sht.Range("F" & sht.Rows.Count).End(xlUp).Row)
ListBox2.ColumnCount = 7
'=====
Dim i As Long
Dim arrList A
我有一个表,其中列出了Server中的部门和密码。我正在创建一个Userform,以便用户能够查看列表、修改条目或删除条目。
我让它看起来像这样:
当用户打开表单时,我设法设置了ADODB连接,它将使用以下方法自动加载列表:
Private Sub Userform_Activate()
我的rational是,我希望用户从列表框中选择,它将分别在textbox1和textbox2中显示部门和密码。
然后,用户可以更新该记录或删除该记录。这将是一个非常直接的SQL操作。
我现在遇到的是一个路障,实际上是让数据显示在Textbox1和Textbox2中。
码
Private Sub S
我相信,每一个读到标题的人都会说:“哦,不,不会再来了”。但在发布这篇文章之前,我已经读过7-8个类似标题的问题,似乎没有人能奏效。所以这就是交易:
我的工作簿使用Workbook_Open事件显示一个userform:
Sub Workbook_Open()
UserForm1.Show
End Sub
Userform1包括一个文本框和一个列表框。根据用户在textbox中的输入,列表框动态填充数据。到目前为止一切都好。
当用户单击列表框中的值时,我希望选择特定的单元格。所以我用了这个:
Private Sub ListBox1_Click()
Dim Cell As Ra
UserForm和TextBox在一起。然后在'Other Data'!C6中有值,在其他数据上的单元格C6中是公式=D6。
通过这个,我将值传递给单元格:
Private Sub TextBox3_Change()
ThisWorkbook.Worksheets("Other Data").Range("C6").Value = Me.TextBox3.Text
End Sub
从单元格中获取值:
Private Sub UserForm_Initialize()
Me.TextBox3.Text = ThisWorkbook.Workshee
我有一个UserForm,用户可以从中选择在活动工作表中进行选择,该选项在代码中进一步使用。
Private Sub CommandButton1_Click()
Dim results As String
Me.Hide
results = get_range_from_selection()
Me.Show
TextBox.Text = results
End Sub
Public Function get_range_from_selection() As String
Dim selection As Range
在一个名为db.xls:userid - date - name -的不同工作簿中,有一个包含五列的数据库。
我用一份数据输入表填写这个表格(很好)。问题是在UserForm中,我需要在列表框中检索特定条件上的特定条目。我需要将name和subject放在两个文本框或下拉列表中,使用这两个条件填充一个列表框,按date + subject的升序排列,当我单击任何列表框条目时,它会查找并给出与textbox中该行对应的注释。
代码:
Private Sub searchbutton_Click()
Dim nwb As Workbook
Application.ScreenUpdating
我想根据列号"C“来搜索数据。
Option Explicit
Private Sub TextBox1_Change()
Me.TextBox1 = Format(StrConv(Me.TextBox1, vbUpperCase))
Dim sh As Worksheet
Set sh = Sheets("Sheet2")
Dim i As Long
Dim x As Long
Dim p As Long
Me.ListBox1.Clear
'Display Header
Me.ListBox1.AddItem "Product Name&
我有一个带有textbox的userform和一个具有以下计划的列表框:
用户在Textbox1中输入文本。
每次Textbox1.Text更改时,都会执行具有以下特性的搜索:
在工作表中的特定范围内搜索Textbox1.Text。
可以不止一次地找到Textbox1.Text。
Listbox1由搜索结果填充。
到目前一切尚好。由于有大量的数据集,列表可以获得许多项。在这种情况下,列表超出了屏幕,我不得不限制Listbox1.Height。这是上面的代码:
Private Sub TextBox1_Change()
Dim srchWord As