userform

问题 I am trying to make a msgbox appear when a cell value in range B4:B160 hasn't changed in 30secs or 1min etc. So what will appear is something like 'Have you scanned?' and will only appear if they haven't entered data in that cell in 30secs but will also close itself after 6mins or when they do enter data. It would be great if i can adjust these times in the code. My spreadsheet is used for barcode scanning and is currently already running a userform when they enter the wrong data. Can I add

问题 I am trying to make a msgbox appear when a cell value in range B4:B160 hasn't changed in 30secs or 1min etc. So what will appear is something like 'Have you scanned?' and will only appear if they haven't entered data in that cell in 30secs but will also close itself after 6mins or when they do enter data. It would be great if i can adjust these times in the code. My spreadsheet is used for barcode scanning and is currently already running a userform when they enter the wrong data. Can I add

问题 I'm wondering is there a way to detect if a specific key (like backspace) was pressed. This is what I'm shooting for: Private Sub SomeTextBox_Change() If len(Me.SomeTextBox.Value) = 3 and KEYPRESSED is NOT BACKSPACE Then <.......Code Here> Else <.......Code Here> End if End Sub 回答1: You should use KeyPress event instead of Change event: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Len(Me.SomeTextBox.Value) = 3 And KeyAscii <> 8 Then 'Backspace has keycode = 8. <..

问题 I'm wondering is there a way to detect if a specific key (like backspace) was pressed. This is what I'm shooting for: Private Sub SomeTextBox_Change() If len(Me.SomeTextBox.Value) = 3 and KEYPRESSED is NOT BACKSPACE Then <.......Code Here> Else <.......Code Here> End if End Sub 回答1: You should use KeyPress event instead of Change event: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Len(Me.SomeTextBox.Value) = 3 And KeyAscii <> 8 Then 'Backspace has keycode = 8. <..

问题 I have a Userform with several TextBox , and I need to check their values so I have created a single event handler using a class module with a WithEvent private object. The Change event handler works just fine, but not the AfterUpdate handler (the same goes for BeforeEvent , Enter , Exit ). Here's a short example of the problem: ' class name is NumberBox Private WithEvents nbTextBox As MSForms.TextBox Public Property Set TextBox(ByVal t As MSForms.TextBox) Set nbTextBox = t End Property

问题 I'm making some sort of football database where I would input data using a userform and where I want to retrieve data from my excel database. I have a worksheet named: "wedstrijden" This worksheet contain the columns: Date, HomeTeam, AwayTeam, HomeScore,AwayScore, HomeOdds and AwayOdds My other worksheet is named: "ingevenuitslagen" This worksheet contains my userform called UitslagenIngeven Using the code below I'm able to input my data from the userform to my "wedstrijden" worksheet Private

问题 I'm making some sort of football database where I would input data using a userform and where I want to retrieve data from my excel database. I have a worksheet named: "wedstrijden" This worksheet contain the columns: Date, HomeTeam, AwayTeam, HomeScore,AwayScore, HomeOdds and AwayOdds My other worksheet is named: "ingevenuitslagen" This worksheet contains my userform called UitslagenIngeven Using the code below I'm able to input my data from the userform to my "wedstrijden" worksheet Private

问题 I've had a look for an answer to this question but can't find anything that matches exactly what I'm looking for, if someone has the answer or can point me in the direction of a question which answers this, it would be much appreciated. I've been talked with building a solution to enter data into a workbook and have successfully built it, however the workbook it need to be added to is a very active tool and is constantly being updated with new/changed data, so I have had to build it in a copy

问题 Setup I have an Excel VBA UserForm with an Image Control element. When clicking on buttons in the form, the Image Control's Picture source is set / updated with the following code: Set MyForm.imgControl.Picture = LoadPicture(pathToFile) Problem When the user clicks on the Image Control, updating its Picture source doesn't work anymore. The problem occurs, no matter when in the workflow the Image Control is clicked: Example 1: User clicks a button to set the Picture (and pictures sets

问题 I wanted to copy some not continous ranges from several workbook/ worksheets to a specific sheet. I am using a userform and RefEdit control on that. But the Excel freezs each time I am calling the form and addressing the ranges! I can't do anything except End Excel! Here is my Code. Private Sub CommandButton1_Click() Dim rng As Range Set rng = Range(Me.RefEdit1.Value) rng.Copy ThisWorkbook.Sheets("Transfer").Range("a1").PasteSpecial xlPasteValues End Sub Private Sub UserForm_Activate() For