Excel : EP138 Excel User Form สร้างฟอร์มกรอกข้อมูล | PART #2 แสดงข้อมูลใน List Box ของฟอร์ม скачать в хорошем качестве

Excel : EP138 Excel User Form สร้างฟอร์มกรอกข้อมูล | PART #2 แสดงข้อมูลใน 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 Program Private Sub UserForm_Activate() Call Disable_cmd 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