:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Post Reply
Kittinun210
Member
Member
Posts: 12
Joined: Tue Mar 06, 2018 7:02 pm

รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล

#1

Post 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 คือเวลาปิดไฟล์ เปิดมา ไอปุ่มนี้กดไม่ได้เลยครับ ต้องทำใหม่ตลอดเลย
Top
User avatar
parakorn
Gold
Gold
Posts: 1223
Joined: Thu Mar 14, 2013 9:41 am
Location: Central Chaengwattana[Tops]
Excel Ver: 365
Contact:
Contact parakorn

Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล

#2

Post by parakorn »

แนบไฟล์มาด้วย เพื่อนๆในบอร์ดจะได้ช่วยกันตรวจสอบให้ครับ
Top
Kittinun210
Member
Member
Posts: 12
Joined: Tue Mar 06, 2018 7:02 pm

Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล

#3

Post by Kittinun210 »

มาแล้วครับ

ใน userform1 นะครับ

ดูปุ่มเริ่มทำงานด้วยนะครับ มันต้องทำให้ตลอด

ปล.1สอน อีกเรื่องหน่อยนะครับ ไม่อยากให้สตาร์ทบันทึกข้อมูล ที่ row1columns1 เขียนอย่างไรครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
logic
Gold
Gold
Posts: 1511
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล

#4

Post 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
Top
Kittinun210
Member
Member
Posts: 12
Joined: Tue Mar 06, 2018 7:02 pm

Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล

#5

Post 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 ผมยังแก้ไม่ได้เลยครับ
Top
Kittinun210
Member
Member
Posts: 12
Joined: Tue Mar 06, 2018 7:02 pm

Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล

#6

Post by Kittinun210 »

รบกวนอีกนิดครับ ผมไม่อยากให้มันมันเริ่มบันทึก แถวที่1บรรทัดที่1 ผมต้องแก้ไขตรงไหนครับ

คือลองแก้แล้ว มันไม่ยอมบันทึกต่อกันในช่องที่ว่างอ่ะครับ
Top
User avatar
puriwutpokin
Guru
Guru
Posts: 3801
Joined: Fri Jan 04, 2013 9:49 pm
Location: Bangkok
Excel Ver: MS.365

Re: รบกวนต่อสูตรให้ทีครับ อยากได้ป้อปอัพแสดงผล

#7

Post by puriwutpokin »

Kittinun210 wrote: Wed Mar 07, 2018 6:35 pm รบกวนอีกนิดครับ ผมไม่อยากให้มันมันเริ่มบันทึก แถวที่1บรรทัดที่1 ผมต้องแก้ไขตรงไหนครับ

คือลองแก้แล้ว มันไม่ยอมบันทึกต่อกันในช่องที่ว่างอ่ะครับ
ลองส่งไฟล์ล่าสุดมาดูกันครับ ว่าที่ต้องการเป็นอย่างไร และโค้ดที่แก้ไขแล้วเป็นอย่างไรครับ
:shock: :roll: :D
Top
Post Reply

Return to “Excel Formulas & Functions”