userform

问题 Please Look at the code below and test it: Private Sub CommandButton1_Click() MsgBox "This window converted Right to Left!", vbMsgBoxRtlReading End Sub This code convert the message window from right to left. As the close button moves to the left of the window. How do I do this for userforms? (Hope T.M., Mathieu Guindon and ... does not say: " Your question is amiss. Please read the links ...." ) Like the picture below (Of course photo is photoshop!): 回答1: Simulate Right To Left display as in

问题 I am trying to take the values passed from a userform that has 4 checkbox options and write them to a single concatenated cell. When I select my userform like this: I would like to save it to a single cell like this: I tried accomplishing this with the following code (see below), but it doesn't work quite right with the commas and such if only the 2nd, 3rd, or 4th item is chosen without the first. I am convinced there is a better way but I can't figure it out or find an answer online. Private

问题 This may be a cheap question for some but I'm totally confused on how to populate my listbox. Using this line I can populate the listbox as shown below: ListBox1.List = Sheets("Sheet1").Cells(1, 1).CurrentRegion.Value or Dim rngName As Range Dim ws As Worksheet Dim i As Integer Set ws = Worksheets("Sheet1") For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 1 If ws.Cells(i, 1).Value <> vbNullString Then Me.ListBox1.AddItem ws.Cells(i, 1).Value Next i Below is the data I'm planning to

问题 I am trying to make another worksheet active when command button is clicked, but I'm staying within the same active workbook: Sub Submit_Warranty() 'Set warranty data worksheet as active page Sheets("Sheet2").Activate 'Show the submit warranty user form Warranty_Input.Show End Sub I keep getting "subscript out of range" error. Any ideas? 回答1: If the code you posted is everything, then that error pretty much has to be from an invalid reference. So my guess would be that the actual displayed

问题 I have this code which basically filters the values in listbox as the value changes in textbox on userform in excel 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 As Variant Me.ListBox2.Clear If sht.Range("F" & sht.Rows.Count).End(xlUp).Row > 1 Then arrList = sht.Range("F2:L" & sht.Range("F" & sht.Rows.Count).End(xlUp)

问题 I created a status bar that works off of application.wait. In a sense, that worked quite well. However, I want to be able to update the status bar while working on other worksheets. I am unable to find a suitable method. Below is what I have thus far. Private i As Integer Private newHour Private newMinute Private newSecond Private waitTime Private Sub UserForm_Activate() For i = 1 To 10 UserForm1.Label1.Width = UserForm1.Label1.Width + 24 Application.Calculate If Application.CalculationState

问题 I kept a userform control button in my worksheet to fire up a macro, which in turn shows a user form, In the form I wish to display the opened files in checkboxes(using the Workbooks collection).I wish to run a macro that performs action for the user selected files only. So for the button in my worksheet, I have assigned the following macro Private Sub Button2_Click() Load MyForm MyForm.Show End Sub At first I kept the below code in the module where my macro sub is there.Since it's not

问题 When showing a userform (running its Show method) it not only shows up on the screen but also takes the focus (the destination of e.g. keystrokes). Say, the userform is a custom made toolbar. Its Show fires in Workbook_Open() but the form itself is used relatively rarely so we want the focus to go back to the main application window right after its appearance. Unfortunately, it seems SetFocus method is not valid for application objects. So how is this done? I suppose the solution for my

问题 Within Excel VBA I have a User Form similar to the following where the user enters an ID number and then the details are displayed on the user form: Private Sub btnIDNo_Click() Dim IDNo As Long If txtIDNo.Text <> "" Then If IsNumeric(txtIDNo.Text) = True Then lblError.Caption = "" IDNo = txtIDNo.Text Worksheets("Details").Activate Range("B4").Select While ActiveCell.Value <> "" And ActiveCell.Value <> IDNo ActiveCell.Offset(1, 0).Select Wend If ActiveCell.Value = IDNo Then txtName.Value =

问题 I wanted to figure out how you could load every UserForm without having to call Userform1.Show UserForm2.Show etc. This was inspired by comments on this answer: Excel VBA UserForm_Initialize() in Module. I found this method suggested in a few places: Sub OpenAllUserForms() Dim uf As UserForm For Each uf In UserForms uf.Show Next End Sub However, no Userforms display regardless of how many are attached to the workbook. When I stepped through the code I determined that the UserForms collection