У нас вы можете посмотреть бесплатно Excel User Form สร้างฟอร์มกรอกข้อมูล | PART#5 การ Update และ Delete ข้อมูล или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
#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