Excel VBA Dictionary (Catalog) Form

Excel VBA Dictionary Userform




        It can be used as an application such as dictionary, index.
For example, we entered the names of the vitamins to column A and entered descriptions of vitamins to column B.
The data in column A of the sheet is filled to the combobox on the userform.

The value corresponding to the item selected from the combobox is fetched from the column B and displayed on label under the combobox.

The used codes to increase the width of the UserForm:
Private Sub CommandButton4_Click()
Dim X, d, yuk As Integer
If CommandButton4.Caption = "8" And Data_Form.Width = 410 Then
For d = 1 To 158
DoEvents
yuk = 410
Data_Form.Width = yuk - d
Next
ComboBoxTopics.Enabled = True
ComboBoxTopics.ListIndex = 0
CommandButton4.Caption = "9"
Exit Sub
End If
If CommandButton4.Caption = "9" And Data_Form.Width = 252 Then
For X = 1 To 158
DoEvents
yuk = 252
Data_Form.Width = yuk + X
Next
ComboBoxTopics.Enabled = False
CommandButton4.Caption = "8"
End If
End Sub

3 comments:

  1. رائع ومميز
    شكراً جزيلاً

    ReplyDelete
  2. How can you modify your code, to show that hidden part on the left side? not in right side.
    Hope you answer me, and do not delete the message.

    ReplyDelete
    Replies
    1. If he don't know he don't replay..
      not a good guy.

      Delete