If DateCheckBox2.Value = True Then Cells(emptyRow, 5).Value = Cells(emptyRow, 5).Value & " " & DateCheckBox2.Caption If DateCheckBox1.Value = True Then Cells(emptyRow, 5).Value = DateCheckBox1.Caption To show the Userform, place a command button on your worksheet and add the following code line:ĮmptyRow = WorksheetFunction.CountA(Range("A:A")) + 1Ĭells(emptyRow, 1).Value = NameTextBox.ValueĬells(emptyRow, 2).Value = PhoneTextBox.ValueĬells(emptyRow, 3).Value = CityListBox.ValueĬells(emptyRow, 4).Value = DinnerComboBox.Value Only one of the option buttons can be selected. Note: a combo box is a drop-down list from where a user can select an item or fill in his/her own choice. To change the names and captions of the controls, click View, Properties Window and click on each control.
It is good practice to change the names of controls. Captions are those that appear on your screen. Change the names and captions of the controls according to the table below. When you arrive at the Car frame, remember to draw this frame first before you place the two option buttons in it.Ĥ. Next, you can drag a text box on the Userform. For example, create a text box control by clicking on TextBox from the Toolbox.
Once this has been completed, the result should be consistent with the picture of the Userform shown earlier. Add the controls listed in the table below. If the Toolbox does not appear automatically, click View, Toolbox. If the Project Explorer is not visible, click View, Project Explorer.Ģ. To add the controls to the Userform, execute the following steps.ġ.
0 kommentar(er)
