userform

问题 I have a userform with a listbox that displays data from a worksheet. I am wanting to get that data to display in the listbox by current date and time. So when a user enters new data he/she sees the most current lines of data. This is to help the user so they don't enter duplicate information. I am hoping this can be accomplished programmatically because in the near future this form will be linked to a database not a worksheet. Here is the code to populate my listbox: Private Sub UserForm

问题 I am trying to return a value from a userform to another macro. Here is an example of a piece of code that I want to return the value intMonth : sub comparison() UserForm1.Show end sub then I have the userform code: Private Sub initialize() OptionButton1 = False End Sub Private Sub OptionButton1_Click() intMonth = 1 Me.Hide End Sub How do I get the intMonth value of 1 back to my original comparison() function? 回答1: This is a minimal example, but should help. In the UserForm: Option Explicit

问题 I have a Userform in Excel. It has 6 Textboxes, they are the only controls on the Userform with TabStop set to True. I can tab and move through the textboxes. I cannot get SetFocus to work on Events fired when moving between the Textboxes. I can put a CommandButton on the userform with Userform16.Textbox1.Setfocus and it works as expected to move the focus to Textbox1. I set up a simple test event (see below) to move the textbox focus back up to TextBox1 when Textbox2 is entered. It moves

问题 I run a program which repeats itself. It should stop, when the user closes the userform. It runs without stopping. Since the program calls itself every 8 seconds, I want to check at the end if the userform is still loaded / opened. Public Sub NextPicture1() PictureChange = Now + TimeValue("00:00:08") If Onboarding_Projekt.Visible = True Then Application.OnTime PictureChange, "NextPicture1" End If End Sub 回答1: You can use a function like this: Public Function IsLoaded(formName As String) As

问题 I'm running into a problem with a block of code I'm trying to develop at my job. Essentially, I'm creating a userform in excel where folks will enter data for railcars as they get loaded at a certain location (we'll call these "spot 1, spot 2, spot 3, etc."). Sometimes they'll have to move that car to a different spot, in which case I want them to be able to keep all the information on the railcar from the first/original entry, and then erase the data from the original spot once that's done.

问题 I'm running into a problem with a block of code I'm trying to develop at my job. Essentially, I'm creating a userform in excel where folks will enter data for railcars as they get loaded at a certain location (we'll call these "spot 1, spot 2, spot 3, etc."). Sometimes they'll have to move that car to a different spot, in which case I want them to be able to keep all the information on the railcar from the first/original entry, and then erase the data from the original spot once that's done.

来源： https://stackoverflow.com/questions/63481924/create-a-dynamic-button-via-vba-at-runtime

来源： https://stackoverflow.com/questions/63481924/create-a-dynamic-button-via-vba-at-runtime

问题 I currently have this code Private Sub Worksheet_Change(ByVal Target As Range) Dim myCell As Range For Each myCell In Range("G4:G160") If (Not IsEmpty(myCell)) And myCell.Value <> 17521 And myCell.Value <> "" Then DisplayUserForm Exit Sub End If Next myCell End Sub and have this for my userform Sub DisplayUserForm() Dim form As New WarningBox form.LOL.Caption = "INCORRECT!" form.Show Set form = Nothing End Sub What else must I do in order for this to appear instead of msgbox to alert whoever

问题 I have a userform. In multiple cases across several different controls, I have observed the objects with the same Width, Height, Font, and Font Size display different font sizes depending on where they are placed on my userform. . . . . Above is an example of this. The two textbox's are both 26H and 48W, with a Left of 90. Both have font Tahoma Regular size 18. The only difference between them is their Top property. And yet visually, the upper one has much wider text than the lower one. The