Page 1 of 1
จะทำอย่างไงให้เลือกเฉพาะบางข้อมูลบันลงในชีท Excel ค่ะ
Posted: Thu Oct 05, 2017 9:41 am
by 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
Re: จะทำอย่างไงให้เลือกเฉพาะบางข้อมูลบันลงในชีท Excel ค่ะ
Posted: Thu Oct 05, 2017 3:28 pm
by 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/
Re: จะทำอย่างไงให้เลือกเฉพาะบางข้อมูลบันลงในชีท Excel ค่ะ
Posted: Thu Oct 05, 2017 4:17 pm
by Benmore
ทำได้แล้วขอบคุณมากค่ะ
ขอสอบถามเพิ่มเติมน่ะค่ะ คือจะทำให้ข้อมูล ตรง status ขึ้นว่า ยังไม่ได้รับ เสมอ
แต่จะขึ้นว่าไม่ได้รับ ก็ต่อเมื่อ ไปคลิ๊คเลือกใน userform3 ก่อน ต้องเขียนโค้ดประมาณไหนค่ะ
Untitled8.png
Re: จะทำอย่างไงให้เลือกเฉพาะบางข้อมูลบันลงในชีท Excel ค่ะ
Posted: Thu Oct 05, 2017 8:42 pm
by snasui
แนบไฟล์ล่าสุดตามที่ปรับ Code มาแล้วจะได้ตอบต่อไปจากนั้นครับ
Re: จะทำอย่างไงให้เลือกเฉพาะบางข้อมูลบันลงในชีท Excel ค่ะ
Posted: Fri Oct 06, 2017 9:38 am
by Benmore
ไฟล์แนบค่ะ
Uniform_EGAS1.xlsm
Re: จะทำอย่างไงให้เลือกเฉพาะบางข้อมูลบันลงในชีท Excel ค่ะ
Posted: Fri Oct 06, 2017 8:22 pm
by snasui
ดูเหมือนว่าเรื่องเดียวกันกำลังจะแยกเป็นสองกระทู้ ให้นำไปถามในกระทู้เดียวกันแทน จะได้สะดวกในการติดตาม แจ้ง Code ที่เขียนมาเองแล้วด้วยว่าชื่ออะไร ติดขัดบรรทัดใด การตอบปัญหาจะตอบในสิ่งที่พยายามเขียนมาเองแล้วเท่านั้น ถามกันเฉพาะที่ติดปัญหาครับ
Re: จะทำอย่างไงให้เลือกเฉพาะบางข้อมูลบันลงในชีท Excel ค่ะ
Posted: Tue Nov 14, 2017 12:41 pm
by Benmore
ขอบคุณค่ะ