Snasui Excel Forum

ได้ครับจะลองดูครับ ขอบคุณครับอาจารย์

:cp: :cp: :thup: :thup: อันนี้แหละครับ ที่ผมติดอยู่ครับ อาจารย์ แต่ขอเพิ่มเติมนะครับ
เรื่อง userform ที่ผมได้เคยถามไป
จาก userform4 จากในไฟล์นะครับ คือ เมื่อคลิกบันทึกในข้อ 3.2 จะมี userform ปรากฏขึ้นมา จากสูตรของอาจารย์ให้ ผมสามารถ บันทึก ได้ 3 ครั้งจากที่ผมกำหนดไว้ แต่ที่นี้ผมจะใช้ userform ดังกล ...

:D ขอบพระคุณอาจารย์ครับ ที่ช่วยตอบ แต่ทีนี้ ที่อาจารย์แนะนำ นั้นจะเป็นการบันทึกใน ส่วน ที่ เป็น textbox
แต่ทีนี้ผมต้องการบันทึกในส่วนค่าที่เกิดจาก optionbutton ครับ เนื่องจาก จะตั้งค่า ใช่ =1 ไม่ =2 จากโค้ดที่ผมทำได้นั้น ค่าจะบันทึก ทับกันอยู่ในในช่องเดียว คือเซลล์ C5 ผมอยากให้ บันทึก ครั้งแรก ท ...

อีกเรื่องหนึ่งนะครับ จากไฟล์ ในข้อ 2.2 เมื่อกด บันทึกข้อมูล จะมีกล่องเตือนการบันทึกแล้วจะมี User form บันทึกข้อมูล

ทีนี้ผมอยากจะสอบถามว่า ผมอยากจะใช้ user form นี้ในการบันทึกในข้ออื่นๆ ต่อจะได้ไหมครับ
โดยให้ กล่องcombobox1 ที่อยู่ใน userform ไปบันทึก ในเซลล์ d14 g14 j14 ตามลำดับ
และ textbox1 ที่อย ...

สวัสดีครับ อาจารย์ ผมมีข้อสงสัย ดังนี้ครับ
จากไฟล์ที่แนบ เรื่องแบบสอบถาม จาก ข้อ 2.2 ในชีท "แบบสอบถามข้อ3 " เรื่องการบันทึก ข้อมูลของค่า optionbutton นะครับ คือ ผมได้กำหนดถ้า ตอบ ใช่ มีค่าเท่ากับ 1
ไม่ มีค่าเท่ากับ 2
ทีนี้ ค่าที่ตอบนั้น ในชีท "บันทึกข้อมูล" ในเซลล์ "c5" จะบันทึกค่า ได้ ไม่มีปัญหา ...

ได้แล้วครับ ขอบคุณครับอาจารย์

อาจารย์ครับ สอบถาม เรื่องการบันทึกคำตอบ ถ้าอยากให้ การกรอกข้อมูลลงใน textbox1 ในข้อ 1.1 จะมีการบันทึกคำตอบ 3 ครั้ง แต่จากโค้ดที่ผม ทำได้ จะบันทึกได้ ครั้งที่ 1 (ฺB9)และ ครั้งที่ 2(c9) ไม่มีปัญหา พอในครั้งที่ 3 ในเซลล์ (D9) นั้นคำตอบจาก ครั้งที่ 2 จะมาซ้ำในครั้งที่สาม ด้วย รบกวนอาจารย์ชี้แนะด้วยครับ ...

ได้แล้วครับอาจารย์ ขอบคุณมากครับ

ได้ครับอาจารย์ ขอโทษด้วยนะครับ
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
strvaluemsg = MsgBox("อ่าน, vbOKOnly + 64, "อ่าน")
Else: strvaluemsg = MsgBox("ไปข้อ 1.2")

End If
If OptionButtons("Option Button 9").Value = True Then
Sheets("บันทึกข้อมูล").Range("a13") = 1
End If ...

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
strvaluemsg = MsgBox("อ่าน, vbOKOnly + 64, "อ่าน")
Else: strvaluemsg = MsgBox("ไปข้อ 1.2")

End If
If OptionButtons("Option Button 9").Value = True Then
Sheets("บันทึกข้อมูล").Range("a13") = 1
End If
If OptionButtons("Option ...

อาจารย์ครับ ลอง run ดู ตัวเลขไม่มีใน ชีทที่กำหนดเลยครับ รบกวนอาจารย์ชี้แนะด้วยครับ ขอบคุณครับ

ลองไปได้ประมาณนี้ิะครับ
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
strvaluemsg = MsgBox("กรุณา", vbOKOnly + 64, "กรุณาอ่าน")
Else: strvaluemsg = MsgBox("¢éÍÁÙŢͧ·èÒ¹ä´éºÑ¹·Ö¡áÅéÇ ¡ÅѺ仢éÍ·Õè 1.1")
Worksheets("บันทึกข้อมูล").Range("c9") = OptionButtons("Option Button 9 ...

ได้แล้วครับ อาจารย์ ขอบคุณมากครับ

อาจารย์ครับ ทีนี้ ผมอยากบันทึกค่าในการติ๊ก option button โดยกำหนดให้

ถ้าติ๊ก Option Button 9= 1
Option Button 10 = 2
โดยบันทึกค่าที่กำหนดลงใน worksheet "บันทึกข้อมูล" ที่ a13 ครับ ไม่ทราบว่าจะเขียนโค้ดอย่างไรครับ

ขอโทษครับอาจารย์
ปัญหาจะอยู่ในชีท แบบสอบถามข้อ3 ครับ ผมแนบไฟล์ผิด ขอโทษด้วยครับ

อาจารย์ครับ สอบถาม ผมต้องการ clear data ในชีทชื่อ "แบบสอบถามที่3" ซึ่งต้องการให้ กดปุ่มยกเลิก จะเคลียร์ data ใน textbox1 แล้วให้ ปุ่ม check box ถ้าเลือก ใช่ กับ ไม่ ให้กลับมา กล่องที่ว่าง ครับ คือให้ กลับไปอยู่ที่ option button 11 เมื่อกดปุ่มยกเลิก พอทำได้มั้ยครับ

โค้ดครับ
Private Sub ...

จากคำถามเพิ่มเติมได้แล้วนะครับ อาจารย์ ลองจนได้แล้วครับ

:D ลองปรับ Code เป็นตามด้านล่างครับ
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
strvaluemsg = MsgBox("กรุณาระบุผลลัพธ์ของท่านในขั้นตอนนี้", vbOKOnly + 64, "กรุณาอ่าน ")
Else: strvaluemsg = MsgBox("ข้อมูลของท่านได้บันทึกแล้ว ไปข้อที่ 1.2")
With Worksheets("บันทึกข้อมูล")
If ...

ได้แล้วครับอาจารย์ ขอบพระคุณอาจารย์ มากครับ

อาจารย์ครับ ขอสอบถามเพิ่มเติม ในการบันทึกข้อมูลข้อความที่กรอกใน textbox ตอนนี้จะบันทึกทับข้อมูลกัน เมื่อเวลากรอกใหม่

ทีนี้ผมอยากจะให้ จากในไฟล์ที่แนบ ผมได้สั่งให้บันทึก คือ ข้อ 1.1 กล่องข้อความ (textbox1) ข้อมูลที่กรอกกล่องนี้จะอยู่ใน เซลล์ A9
ที่นี้อยากให้ การบันทึกเมื่อกรอกครั้งแรก จะอยู่ใน เซลล ...

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

ขอให้อาจารย์ snasui มีความสุขความเจริญ นะครับ ขอบคุณจริงๆๆครับ