Page 1 of 1
รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล
Posted: Wed Mar 07, 2018 2:46 pm
by Kittinun210
Code: Select all
Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
End Sub
คืออยากให้มันมีป้อปอัพขึ้น ประมาณว่าบันทึกสำเร็จ
แต่ไม่ต้องปิดหน้าต่างนะครับ คือเคลียร์textboxที่ผ่านมาให้พร้อมบันทึกข้อมูลใหม่ด้วยครับ
และอีกเรื่องครับ ผมทำปุ่ม active x เพื่อกดแล้วแสดง userform คือเวลาปิดไฟล์ เปิดมา ไอปุ่มนี้กดไม่ได้เลยครับ ต้องทำใหม่ตลอดเลย
Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล
Posted: Wed Mar 07, 2018 2:59 pm
by parakorn
แนบไฟล์มาด้วย เพื่อนๆในบอร์ดจะได้ช่วยกันตรวจสอบให้ครับ
Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล
Posted: Wed Mar 07, 2018 3:19 pm
by Kittinun210
มาแล้วครับ
ใน userform1 นะครับ
ดูปุ่มเริ่มทำงานด้วยนะครับ มันต้องทำให้ตลอด
ปล.1สอน อีกเรื่องหน่อยนะครับ ไม่อยากให้สตาร์ทบันทึกข้อมูล ที่ row1columns1 เขียนอย่างไรครับ
Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล
Posted: Wed Mar 07, 2018 3:30 pm
by logic
ใช้ MsgBox ครับ
Code: Select all
Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
MsgBox "Hooray!!! บันทึกเรียบร้อยแล้ว"
End Sub
Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล
Posted: Wed Mar 07, 2018 3:53 pm
by Kittinun210
logic wrote: Wed Mar 07, 2018 3:30 pm
ใช้ MsgBox ครับ
Code: Select all
Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
MsgBox "Hooray!!! บันทึกเรียบร้อยแล้ว"
End Sub
ขอบคุณมากครับท่าน ทีนี้เหลือไอตัวactive x ผมยังแก้ไม่ได้เลยครับ
Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล
Posted: Wed Mar 07, 2018 6:35 pm
by Kittinun210
รบกวนอีกนิดครับ ผมไม่อยากให้มันมันเริ่มบันทึก แถวที่1บรรทัดที่1 ผมต้องแก้ไขตรงไหนครับ
คือลองแก้แล้ว มันไม่ยอมบันทึกต่อกันในช่องที่ว่างอ่ะครับ
Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล
Posted: Wed Mar 07, 2018 7:19 pm
by puriwutpokin
Kittinun210 wrote: Wed Mar 07, 2018 6:35 pm
รบกวนอีกนิดครับ ผมไม่อยากให้มันมันเริ่มบันทึก แถวที่1บรรทัดที่1 ผมต้องแก้ไขตรงไหนครับ
คือลองแก้แล้ว มันไม่ยอมบันทึกต่อกันในช่องที่ว่างอ่ะครับ
ลองส่งไฟล์ล่าสุดมาดูกันครับ ว่าที่ต้องการเป็นอย่างไร และโค้ดที่แก้ไขแล้วเป็นอย่างไรครับ