Tag: 表单

VBA Multicolumn Combox – 当第一列是列表中的绑定列时,获取第二列的值

我有两个用户表单(实际上更多,但这两个是我目前正在使用的)。 第一种forms被称为“ExistingOrNewWelder”(我将称之为表格A )。 第二种forms被称为“InitialInfo_Form”(我将称之为表格B )。 当用户单击工作表上的button时,表单A被打开。 最初,它看起来像这样: 当用户select“为现有焊工添加新WQTR”旁边的单选button时,出现Combobox。 当selectComboBox中的一个项目时,只有列表中的绑定列的值显示在框中。 所以我在挣扎的地方是我想能够使用ComboBox中显示的名字和ID号码。 我希望这两条信息都出现在用户单击确定时显示的后续表单B中。 在图片中,Foo这个词代表了表格A中的ID号码,您可以在下面的代码中看到这个词。 这第一段代码是Form A Option Explicit Dim newWelder As Boolean Dim wqtr As Boolean Public newWelderBoolValue As Boolean Public welderIDSelected As String Private Sub UserForm_Initialize() 'varialbe fun Dim lastRow As Long Dim nameCell As range Dim box As control wqtr = False newWelder = False […]

用户窗体的名称框

我创build了一个带有文本框的用户窗体(userform6)。 我需要给最后5行的名字。 这是我正在使用的代码。 该代码也select了最后五行,但出现错误。 Dim n As Long n = 5 Cells(Rows.Count, "A").End(xlUp).Offset(1 – n). _ Resize(n).EntireRow.Select Selection.Name = UserForm6.TextBox8.Text 我得到了一个运行时错误1004,错误突出显示“selection.name = userForm6.TextBox8.Text”。 我也检查了空间,但没有成功。 任何帮助将不胜感激。

如果没有图片匹配,然后显示消息框

我有下面的代码完美的作品感谢您的家伙的帮助,但我有一个代码林不知道该怎么做。 对于“获得一个匹配:从VAST文件夹获取图片样本 – 如果找不到匹配,我想显示一个msg框。 这可能没有太多的切换我的代码? Private Sub RejectTitleNm_Change() Dim f As Range, v v = Me.RejectTitleNm.Value ' find the selected value in the source range from ColB(RejectTitle) Set f = Range("RejectTitle").Find(v, lookat:=xlWhole) Me.TextBox1.Text = "" If Not f Is Nothing Then ' got a match: get value from ColC(Issue) on same row Me.TextBox1.Text = f.EntireRow.Cells(, […]

vba关于vba userform的信息网格

我想把一个| 分隔网格成用户窗体。 这是我的: Sub test() Dim x x = getInputFromGrid("some text at the top: " & vbCr & "hrd1 | hrd2" & vbCr & "information1 | my long information2" & vbCr) End Sub Function getInputFromGrid(prompt As String) As String Dim Counter As Integer Dim asByLine() As String asByLine = Split(prompt, Chr(13)) Dim asByCol() As String […]

根据文本框值查找列,并在列表框中显示所有结果

我有一个 ListBox = firmList; TextBox = firmGroupID; Worksheet = RelatedFirms; ColumnA = gID (ID numbers); ColumnB = firmName 我正在尝试根据firmGroupID的值填充我的列表框。 目前我有一个combobox,根据comboboxselect填充firmGroupID中的gID号码。 然后,我会喜欢firmList根据firmGroupID填充firmNames列表。 Sheet RelatedFirms包含每个firmName的分配的gID。 这似乎很简单,但我所尝试的一切似乎并没有工作。 不知道如何只显示列表框中的值等于gID的项目。 Private Sub firmGroupID_Change() Dim rngName As Range Dim ws As Worksheet Dim i As Integer Set ws = Worksheets("RelatedFirms") For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 1 If ws.Cells(i, […]

在用户窗体的文本框中的箭头键,VBA

我正在用几个文本框来处理一个用户窗体,这些文本框就像一个Excel图表一样排列。 我已经设置了TabIndexes,并且使用TAB / shift + TAB完美地工作。 但是,按箭头键的反应并不是我所期望的。 我命名这些文本框: boxA1 boxB1 boxC1 boxD1 boxA2 boxB2 boxC2 boxD2 … boxA3 boxB3 boxC3 boxD3 : : 假设焦点在boxB1。 当按下箭头键时,我希望焦点转到boxB2,但是会转到boxA3或其他东西。 我试过这个代码: Private Sub boxB1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case vbKeyDown boxB2.SetFocus Case vbKeyUp boxA10.SetFocus End Select End Sub 它工作正常,但是,如果在我的表单中只有几个文本框,这是一个伟大和清晰的解决scheme。 但是我的表单中有大约70个文本框,这会使我的代码变得庞大而且真的重复。 有任何参数可以调整,以使其正确吗? 或者有什么function,我可以使用如下? 只是sudo,你知道的。 Private […]

excel vba清除用户表单中的所有refedit控件

我需要添加一个重置button到我在EXCEL VBA中工作的用户表单。 我有下面的代码,大部分的工作,但是,我还没有想出如何清除refedit控件。 这是我迄今为止: === 'Reset Button Private Sub CommandButton2_Click() For Each ctrl In Me.Controls Select Case TypeName(ctrl) Case "TextBox" ctrl.Text = "" Case "ComboBox" ctrl.ListIndex = -1 Case "OptionButton", "CheckBox" ctrl.Value = False Case "ListBox" For i = 0 To ctrl.ListCount – 1 If ctrl.Selected(i) Then ctrl.Selected(i) = False End If Next i End […]

Excel VBA UserFormlocking工作表

你好,早上好, 我是新来的Excel和VBA,但我正在一个电子表格,这将大大帮助我做我的工作。 我有一个button“btnQuery”,按下时,应该做一些事情: 关掉计算 执行2个查询 更新数据透视表 打开计算 这是伟大的,工作正常,直到我决定添加一个进度条。 我正在从这里做一个例子: http : //spreadsheetpage.com/index.php/tip/displaying_a_progress_indicator/ 我的意图是使条更新:1.closures计算前1.5%2.closures计算后5. 5%3.首次查询后35%4.第二次查询后35%5.数据透视更新后15%6计算后打开5% 然而,每当我“显示”用户表单,它只是locking我的页面,直到我退出它。 以下是我希望能够帮助的代码: Sub btnQuery_Click() Userform1.Show Call code.calcturnoff Call code.data Call code.pivot Call code.calcturnon End Sub 我目前没有用户表单的代码。 任何人都可以提供一些build议吗? 太感谢了!

将表单数据插入到不重复的用户表单combobox中 – Excel Vba

我正在用两个combobox制作一个excel用户表单。 一个combox从sheet3(A列)中检索名为“CompaniesandSubsidiaries”的数据。 然后在第一个combobox的基础上,第二个combobox检索子类数据。 但问题是A列有数据重复。 我附上了一张图片。 我正在尝试的是: Private Sub Combobox1_DropButtonClick() Dim rng As Range Dim ws As Worksheet Set ws = Worksheets("CompaniesandSubsidiaries") For Each rng In ws.Range("Companies") Me.ComboBox1.AddItem rng.Value Next rng End Sub Private Sub ComboBox2_DropButtonClick() Dim rng As Range Dim ws As Worksheet Set ws = Worksheets("CompaniesandSubsidiaries") For Each rng In ws.Range("Providers") Me.ComboBox2.AddItem rng.Value Next […]

VBA不能正确拉取格式

我创build了一个用户表单,当input一个引用时,将会引用该引用行内的所有信息。 我有一些格式为00-00-00的数据,非常像银行sorting代码。 我发现的问题是,虽然单元格显示00-00-00当你查看它,当我点击我的用户表单上的查找button将通过空白。 有人可以请帮我解决这个问题吗? 下面是我编码的一个例子提到我正在通过的代码的行是VL1,VL2和VL3。 任何这些序列= 0它不会通过。 Private Sub Find_Click() Dim searchRange As Range Dim foundCell As Range Dim mysearch As String mysearch = Search.Value With Sheets("Master Data") Set searchRange = Sheets("Master Data").Range("A2", .Range("A" & .Rows.Count).End(xlUp)) End With Set foundCell = searchRange.Find(what:=mysearch, Lookat:=xlWhole, MatchCase:=False, SearchFormat:=False) If Not foundCell Is Nothing Then RDesc = foundCell.Offset(0, 4).Value […]