Excel User Form สร้างฟอร์มกรอกข้อมูล | PART#5 การ Update และ Delete ข้อมูล скачать в хорошем качестве

Excel User Form สร้างฟอร์มกรอกข้อมูล | PART#5 การ Update และ Delete ข้อมูล

#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 CmdUpdate_Click() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("employee") Dim Lastrow As Long Lastrow = Application.WorksheetFunction.CountA(sh.Range("A:A")) Dim vid As String vid = Trim(txtid.Text) For i = 2 To Lastrow If Sheet1.Cells(i, 1).Value = vid Then If Me.OptionButton1.Value = True Then sex = "ªÒÂ" Else sex = "Ë­Ô§" End If Sheet1.Cells(i, 2).Value = sex Sheet1.Cells(i, 3).Value = Me.ComboBox1.Value Sheet1.Cells(i, 4).Value = txtname.Text Sheet1.Cells(i, 5).Value = txtsalary.Text End If Next i Call ShowData Call clear_data Me.cmdDelete.Enabled = False Me.cmdUpdate.Enabled = False Me.cmdInsert.Enabled = False End Sub ----------------------------------------------------------------------- Private Sub cmddelete_Click() If Trim(Me.txtid.Value) = "" Then MsgBox "Please select id to delete" Exit Sub End If answer = MsgBox("You want to Delete this record??", vbQuestion + vbYesNo, "warning") If answer = vbYes Then Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("employee") Dim Delete_Row As Long Delete_Row = Application.WorksheetFunction.Match(CLng(Me.txtid.Value), sh.Range("A:A"), 0) sh.Range("A" & Delete_Row).EntireRow.Delete Call clear_data Call ShowData Call Disable_Cmd End If End Sub