จะทำอย่างไงให้เลือกเฉพาะบางข้อมูลบันลงในชีท Excel ค่ะ

[Benmore]

คือ จะบันทึกข้อมูลที่แสดงใน textbox ที่เราค้นหาและเลือกจาก combobox กับ checkbox ใน userform1 และเลือกเฉพาะข้อมูลที่เราต้องการบันทึกลงไปในชีท excel "การเบิก"
เช่นต้องการให้ รหัส 02000020 บันทึกลงใน B3
section บันทึกลงใน C3
Uniform บันทึกลงใน D3
Date บันทึกลงใน E3
Description บันทึกลงใน F3 ( ทั้งหมด เช่น กางเกง ไซส์ 30" เสื้อ ไซส์ L")

Code: Select all

'OK
Private Sub btok_Click()
   Dim emptyRow As String
       emptyRow = WorksheetFunction.Count("B3:A1000") + 2
        If emptyRow = 0 Then
            emptyRow = 2
        Else
            emptyRow = emptyRow + 2
  Sheet9.Activate
 
        Cells(emptyRow, 2).Value = TextBox1.Value
        Cells(emptyRow, 3).Value = TextBox1.Value
        Cells(emptyRow, 4).Value = TextBox1.Value
        Cells(emptyRow, 5).Value = comday.Value & "/" & commonth.Value & "/" & comyear.Value
    
 MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว"
 End If
End Sub

Uniform_EGAS1.xlsm

[logic]

ลองดูครับ

Code: Select all

Dim emptyRow As Integer
Dim strTb1 As Variant
emptyRow = WorksheetFunction.Count("B3:A1000") + 2
If emptyRow = 0 Then
    emptyRow = 2
Else
   emptyRow = emptyRow + 2
   Sheet9.Activate
   strTb1 = Split(TextBox1.Text, vbCrLf)
   Cells(emptyRow, 2).Value = strTb1(0) 'TextBox1.Value
   Cells(emptyRow, 3).Value = strTb1(1) 'TextBox1.Value
   Cells(emptyRow, 4).Value = strTb1(2) 'TextBox1.Value
   Cells(emptyRow, 5).Value = comday.Value
   Cells(emptyRow, 6).Value = commonth.Value
   Cells(emptyRow, 7).Value =  comyear.Value
   MsgBox "บันทึกข้อมูลเรียบร้อย"
End If

ฟังก์ชั่น split ดูจากที่อาจารย์อธิบายใน vdo นี้ครับ wordpress/update-multiple-items/

[Benmore]

ทำได้แล้วขอบคุณมากค่ะ
ขอสอบถามเพิ่มเติมน่ะค่ะ คือจะทำให้ข้อมูล ตรง status ขึ้นว่า ยังไม่ได้รับ เสมอ
แต่จะขึ้นว่าไม่ได้รับ ก็ต่อเมื่อ ไปคลิ๊คเลือกใน userform3 ก่อน ต้องเขียนโค้ดประมาณไหนค่ะ

Untitled8.png

[snasui]

แนบไฟล์ล่าสุดตามที่ปรับ Code มาแล้วจะได้ตอบต่อไปจากนั้นครับ

[Benmore]

ไฟล์แนบค่ะ

Uniform_EGAS1.xlsm

[snasui]

ดูเหมือนว่าเรื่องเดียวกันกำลังจะแยกเป็นสองกระทู้ ให้นำไปถามในกระทู้เดียวกันแทน จะได้สะดวกในการติดตาม แจ้ง Code ที่เขียนมาเองแล้วด้วยว่าชื่ออะไร ติดขัดบรรทัดใด การตอบปัญหาจะตอบในสิ่งที่พยายามเขียนมาเองแล้วเท่านั้น ถามกันเฉพาะที่ติดปัญหาครับ

[Benmore]

ขอบคุณค่ะ