Excel User Form สร้างฟอร์มกรอกข้อมูล | PART#3 ใส่ข้อมูล Combo Box & นำข้อมูลจาก List Box แสดงในฟอร์ม

#exceluserform #excelvbaform #สร้างฟอร์มexcel -------------------------------------------------------------------- PART #1 เริ่มต้นสร้างฟอร์ม คลิกลิงค์ ด้านล่าง    • Excel : EP137  Excel User Form สร้างฟอร์มก...   PART #2 แสดงข้อมูลใน List Box ของฟอร์ม    • Excel : EP138  Excel User Form สร้างฟอร์มก...   PART #3 ใส่ข้อมูล Combo Box & นำข้อมูล List Box มาแสดงในฟอร์ม    • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...   PART#4 ค้นหาข้อมูลจาก Text Box    • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...   PART#5 การ Update และ Delete ข้อมูล    • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...   PART#6 เพิ่มรายการใหม่ด้วยปุ่ม Insert    • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...   PART#7 Insert Picture การแทรกรูปในฟอร์ม    • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...   PART#8 ใส่ข้อมูลวันที่ด้วย Date Picker    • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...   PART#9 แทรกข้อมูลรูปภาพลงใน Cell ด้วย User Form    • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...   PART#10 ค้นหาและแสดงข้อมูลใน Listbox    • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...   ------------------------------------------------------------------ Code โปรแกรม Private Sub cmdClear_Click() Call clear_data End Sub Sub clear_data() Me.txtid.Value = "" Me.OptionButton1.Value = False Me.OptionButton2.Value = False Me.ComboBox1.Value = "" Me.txtname.Value = "" Me.txtsalary.Value = 0 End Sub Private Sub cmdExit_Click() Unload EmployeeForm End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.txtid.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0) If Me.ListBox1.List(Me.ListBox1.ListIndex, 1) = "ชาย" Then Me.OptionButton1.Value = True End If If Me.ListBox1.List(Me.ListBox1.ListIndex, 1) = "หญิง" Then Me.OptionButton2.Value = True End If Me.ComboBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2) Me.txtname.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3) Me.txtsalary.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4) Me.cmdDelete.Enabled = True Me.cmdUpdate.Enabled = True End Sub Private Sub UserForm_Activate() Call Disable_cmd Call clear_data Call ShowData End Sub Sub Disable_cmd() Me.cmdInsert.Enabled = False Me.cmdDelete.Enabled = False Me.cmdUpdate.Enabled = False End Sub Sub ShowData() Dim wh As Worksheet Set wh = ThisWorkbook.Sheets("employee") Dim lastrow As Long lastrow = Application.WorksheetFunction.CountA(wh.Range("A:A")) With Me.ListBox1 .ColumnHeads = True .ColumnCount = 5 .ColumnWidths = "30,50,80,120,50" If lastrow = 1 Then .RowSource = "employee!a2:f2" Else .RowSource = "employee!a2:f2" & lastrow End If End With End Sub