All Topics of VBA programming ЁЯСЗ
All subjects of BCA ЁЯСЗ

Creating Customized Dialog Boxes with User Form Objects in Hindi

Buy all subjects pdf notes now [ examSpecial ]

Makhanlal Chaturvedi University / BCA / VBA programming

Creating Customized Dialog Boxes with User Form Objects in Hindi

Introduction to User Form Objects for Customized Dialog Boxes

User Form Object рдПрдХ рдРрд╕рд╛ powerful tool рд╣реИ рдЬреЛ Microsoft Excel рдЬреИрд╕реЗ applications рдореЗрдВ Customized Dialog Box рдмрдирд╛рдиреЗ рдореЗрдВ рдорджрдж рдХрд░рддрд╛ рд╣реИред рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рд╣рдо рддрдм рдХрд░рддреЗ рд╣реИрдВ рдЬрдм рд╣рдореЗрдВ user рд╕реЗ input рд▓реЗрдирд╛ рд╣реЛрддрд╛ рд╣реИ, рдЬреИрд╕реЗ рдХреЛрдИ form рднрд░рд╡рд╛рдирд╛, рдХрд┐рд╕реА list рдореЗрдВ рд╕реЗ option рдЪреБрдирд╡рд╛рдирд╛ рдпрд╛ рдХрд┐рд╕реА button рдХреЛ click рдХрд░рд╡рд╛ рдХрд░ рдХреЛрдИ рдХрд╛рдо рдХрд░рд╡рд╛рдирд╛ред

User Form рдПрдХ Graphical Interface (GUI) рдкреНрд░рджрд╛рди рдХрд░рддрд╛ рд╣реИ рдЬрд┐рд╕рдореЗрдВ рд╣рдо Labels, TextBox, ComboBox, ListBox, Option Button, CheckBox, рдФрд░ Command Button рдЬреИрд╕реЗ elements рдХреЛ рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВред рдЗрди рд╕рднреА рдХреЛ collectively Controls рдХрд╣рд╛ рдЬрд╛рддрд╛ рд╣реИред рдЗрди controls рдХреЛ customize рдХрд░рдХреЗ рд╣рдо рдЕрдкрдиреЗ рд╣рд┐рд╕рд╛рдм рд╕реЗ Dialog Box рддреИрдпрд╛рд░ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред

Using Command Buttons in User Forms

Command Button User Form рдХрд╛ рдПрдХ рдореБрдЦреНрдп рд╣рд┐рд╕реНрд╕рд╛ рд╣реЛрддрд╛ рд╣реИред рдЗрд╕рдХреА рдорджрдж рд╕реЗ рд╣рдо user рджреНрд╡рд╛рд░рд╛ рдХрд┐рдП рдЧрдП actions рдХреЛ control рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдЬреИрд╕реЗ рдХреЛрдИ button рджрдмрд╛рдиреЗ рдкрд░ form submit рд╣реЛ, clear рд╣реЛ, рдпрд╛ close рд╣реЛ рдЬрд╛рдПред

  • Command Button рдХреЛ Insert рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП VBA Editor рдореЗрдВ рдЬрд╛рдПрдВ, Toolbox рдореЗрдВ рд╕реЗ "CommandButton" рдХреЛ UserForm рдкрд░ drag рдХрд░реЗрдВред
  • рдЗрд╕ button рдХрд╛ рдирд╛рдо рдФрд░ caption рдЖрдк Properties window рд╕реЗ рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВред
  • рдЗрд╕ button рдкрд░ click рдХрд░рдиреЗ рдкрд░ рдХреНрдпрд╛ рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдП, рдпрд╣ рдЖрдк рдЙрд╕рдХреЗ click event рдореЗрдВ рдХреЛрдб рд▓рд┐рдЦрдХрд░ рддрдп рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
Private Sub CommandButton1_Click()
  MsgBox "Form Submitted Successfully!"
End Sub

Adding and Configuring List and Combo Boxes in User Forms

ListBox рдФрд░ ComboBox рджреЛрдиреЛрдВ рдХрд╛ рдкреНрд░рдпреЛрдЧ рддрдм рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм рд╣рдореЗрдВ user рдХреЛ predefined options рджреЗрдирд╛ рд╣реЛред рдлрд░реНрдХ рдпрд╣ рд╣реИ рдХрд┐ ListBox рдореЗрдВ рд╕рд╛рд░реЗ options рдПрдХ рд╕рд╛рде рджрд┐рдЦрд╛рдИ рджреЗрддреЗ рд╣реИрдВ рдЬрдмрдХрд┐ ComboBox рдореЗрдВ dropdown menu рд╣реЛрддрд╛ рд╣реИред

  • Toolbox рдореЗрдВ рд╕реЗ ListBox рдпрд╛ ComboBox select рдХрд░реЗрдВ рдФрд░ UserForm рдкрд░ place рдХрд░реЗрдВред
  • Properties window рдореЗрдВ рдЬрд╛рдХрд░ рдЙрд╕рдХрд╛ рдирд╛рдо, font, size рдЖрджрд┐ рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВред
  • Option рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП initialize event рдпрд╛ manually рдХреЛрдб рд╕реЗ рднреА рдЬреЛрдбрд╝ рд╕рдХрддреЗ рд╣реИрдВред
Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Option 1"
  ComboBox1.AddItem "Option 2"
  ListBox1.AddItem "Item A"
  ListBox1.AddItem "Item B"
End Sub

рдЬрдм user рдХреЛрдИ option select рдХрд░рддрд╛ рд╣реИ, рддреЛ рдЖрдк рдЙрд╕ value рдХреЛ process рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдиреАрдЪреЗ рдЬреИрд╕рд╛ рдХреЛрдб рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВ:

Private Sub CommandButton1_Click()
  MsgBox "You selected: " & ComboBox1.Value
End Sub

Using Labels, Option Buttons, and Check Boxes in User Forms

Labels

  • Label рдХрд╛ рдкреНрд░рдпреЛрдЧ рдЬрд╛рдирдХрд╛рд░реА рджрд┐рдЦрд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬреИрд╕реЗ - "Enter Name:"
  • Label рд╕рд┐рд░реНрдл рджрд┐рдЦрд╛рдиреЗ рдХрд╛ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ, рдЗрд╕рдореЗрдВ user input рдирд╣реАрдВ рдХрд░ рд╕рдХрддрд╛ред

Option Buttons

  • Option Button рдХрд╛ рдкреНрд░рдпреЛрдЧ рддрдм рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдЖрдкрдХреЛ user рд╕реЗ рдПрдХ рд╡рд┐рдХрд▓реНрдк рдЪреБрдирд╡рд╛рдирд╛ рд╣реЛред
  • рд╕рд┐рд░реНрдл рдПрдХ Option рдПрдХ рд╕рдордп рдореЗрдВ select рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред
  • рдЙрджрд╛рд╣рд░рдг: Gender - Male / Female
If OptionButton1.Value = True Then
  MsgBox "You selected Male"
ElseIf OptionButton2.Value = True Then
  MsgBox "You selected Female"
End If

Check Boxes

  • Check Box рдХрд╛ рдкреНрд░рдпреЛрдЧ рддрдм рд╣реЛрддрд╛ рд╣реИ рдЬрдм рдПрдХ рд╕реЗ рдЕрдзрд┐рдХ рд╡рд┐рдХрд▓реНрдк рдЪреБрдиреЗ рдЬрд╛ рд╕рдХрддреЗ рд╣реЛрдВред
  • рдЙрджрд╛рд╣рд░рдг: Hobbies - Reading, Dancing, Singing
Dim hobbies As String
If CheckBox1.Value = True Then hobbies = hobbies & "Reading "
If CheckBox2.Value = True Then hobbies = hobbies & "Dancing "
If CheckBox3.Value = True Then hobbies = hobbies & "Singing "
MsgBox "You selected: " & hobbies

Additional Important Concepts

TextBox рдХрд╛ рдкреНрд░рдпреЛрдЧ

  • TextBox рдореЗрдВ user рдХреЛрдИ text рдпрд╛ number type рдХрд░ рд╕рдХрддрд╛ рд╣реИред
  • Input рдХреЛ validate рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╣рдо рдЗрд╕рдХреЗ Text property рдХрд╛ use рдХрд░рддреЗ рд╣реИрдВред
If TextBox1.Text = "" Then
  MsgBox "Please enter your name"
Else
  MsgBox "Welcome " & TextBox1.Text
End If

Form Initialization

рдЬрдм рднреА UserForm рдЦреБрд▓рддрд╛ рд╣реИ, рддреЛ рдЙрд╕рдореЗрдВ рдкрд╣рд▓реЗ рд╕реЗ values рдпрд╛ default settings set рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП UserForm_Initialize() event рдХрд╛ рдЙрдкрдпреЛрдЧ рд╣реЛрддрд╛ рд╣реИред

Form рдХреЛ Show рдФрд░ Hide рдХрд░рдирд╛

Form рдХреЛ show рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЖрдк module рдореЗрдВ рдиреАрдЪреЗ рдЬреИрд╕рд╛ рдХреЛрдб рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВ:

Sub ShowMyForm()
  UserForm1.Show
End Sub

Form рдХреЛ close рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП:

Unload Me

Form Validation рдФрд░ Error Handling

  • Form validation рдХрд╛ рдорддрд▓рдм рд╣реИ user рджреНрд╡рд╛рд░рд╛ рдЧрд▓рдд data input рдХреЛ рд░реЛрдХрдирд╛ред
  • рдЙрджрд╛рд╣рд░рдг: рдХреЛрдИ TextBox рдЦрд╛рд▓реА рди рд╣реЛ, рдпрд╛ рдЙрдореНрд░ 0 рд╕реЗ рдЬреНрдпрд╛рджрд╛ рд╣реЛред
If IsNumeric(TextBox2.Text) = False Then
  MsgBox "Please enter a valid number"
  Exit Sub
End If

Useful Properties Table

Control Property Purpose
TextBox Text User рджреНрд╡рд╛рд░рд╛ рдбрд╛рд▓рд╛ рдЧрдпрд╛ text
ComboBox Value Selected item
ListBox List рд╕рднреА items рдХреА list
CommandButton Caption Button рдкрд░ рджрд┐рдЦрд╛рдИ рджреЗрдиреЗ рд╡рд╛рд▓рд╛ text

Final Practical Example

рдПрдХ simple form рдЬрд┐рд╕рдореЗрдВ Name TextBox, Gender OptionButtons, рдФрд░ Submit Button рд╣реЛрдЧрд╛:

Private Sub CommandButton1_Click()
  Dim name As String, gender As String
  name = TextBox1.Text
  If OptionButton1.Value = True Then gender = "Male"
  If OptionButton2.Value = True Then gender = "Female"
  MsgBox "Name: " & name & vbNewLine & "Gender: " & gender
End Sub

FAQs

VBA рдореЗрдВ User Form рдПрдХ graphical interface рд╣реЛрддрд╛ рд╣реИ рдЬреЛ user рд╕реЗ input рд▓реЗрдиреЗ рдХреЗ рд▓рд┐рдП рдЗрд╕реНрддреЗрдорд╛рд▓ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЗрд╕рдореЗрдВ рд╣рдо TextBox, Command Button, Label, ComboBox, ListBox рдЖрджрд┐ controls рдХрд╛ рдкреНрд░рдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ рддрд╛рдХрд┐ customized dialog box рддреИрдпрд╛рд░ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХреЗред
Command Button рдЬреЛрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП рдЖрдк VBA editor рдореЗрдВ Toolbox рд╕реЗ CommandButton рдХреЛ drag рдХрд░рдХреЗ UserForm рдкрд░ рд░рдЦреЗрдВред рдЗрд╕рдХреЗ рдмрд╛рдж рдЖрдк Properties window рдореЗрдВ рдЬрд╛рдХрд░ рдЗрд╕рдХрд╛ рдирд╛рдо рдФрд░ caption рдмрджрд▓ рд╕рдХрддреЗ рд╣реИрдВ рдФрд░ рдЙрд╕рдХреЗ click event рдореЗрдВ рдХреЛрдб рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВред
ComboBox рдПрдХ dropdown menu рдХреА рддрд░рд╣ рд╣реЛрддрд╛ рд╣реИ рдЬрд┐рд╕рдореЗрдВ user рдПрдХ рд╡рд┐рдХрд▓реНрдк рдЪреБрди рд╕рдХрддрд╛ рд╣реИ рдФрд░ рдирдпрд╛ input рднреА рджреЗ рд╕рдХрддрд╛ рд╣реИ, рдЬрдмрдХрд┐ ListBox рдореЗрдВ рд╕рднреА рд╡рд┐рдХрд▓реНрдк рдПрдХ рд╕рд╛рде рджрд┐рдЦрддреЗ рд╣реИрдВ рдФрд░ user рдПрдХ рдпрд╛ рдПрдХ рд╕реЗ рдЕрдзрд┐рдХ рд╡рд┐рдХрд▓реНрдк рдЪреБрди рд╕рдХрддрд╛ рд╣реИред
Option Buttons рдХреЗ рд▓рд┐рдП рдЖрдк check рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдХрд┐ рдХреМрди-рд╕рд╛ рдмрдЯрди selected рд╣реИ рдФрд░ рдлрд┐рд░ рдЙрд╕рдХреЗ рдЕрдиреБрд╕рд╛рд░ action рд▓реЗ рд╕рдХрддреЗ рд╣реИрдВред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП:
If OptionButton1.Value = True Then
  MsgBox "You selected Male"
End If
рдЖрдк TextBox input рдХреА рдЬрд╛рдБрдЪ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ рдХрд┐ рд╡рд╣ рдЦрд╛рд▓реА рддреЛ рдирд╣реАрдВ рдпрд╛ рд╕рд╣реА рдкреНрд░рдХрд╛рд░ рдХрд╛ рдбрд╛рдЯрд╛ рд╣реИ рдпрд╛ рдирд╣реАрдВред рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП:
If TextBox1.Text = "" Then
  MsgBox "Please enter your name"
End If
UserForm рдХреЛ рджрд┐рдЦрд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдЖрдк module рдореЗрдВ рдиреАрдЪреЗ рджрд┐рдпрд╛ рдЧрдпрд╛ рдХреЛрдб рд▓рд┐рдЦ рд╕рдХрддреЗ рд╣реИрдВ:
Sub ShowForm()
  UserForm1.Show
End Sub

Please Give Us Feedback