userform vba

[waangpa]

เรียน อาจารย์ค่ะ คือว่าต้องการจะสร้างฟอร์มหลักของสมุดงานมา1ฟอร์มโดยอยากกำหนดเป็น OptionButtonเพื่อเลือกคลิกไปยัง sheet1 ,sheet2 ,sheet3 แล้วก็มีcommandbuttonเพื่อที่จะคลิกกลับไปที่ฟอร์มหลักได้ ค่ะ เราต้องสร้างคำสั่งอย่างไรกับฟอร์มหลักบ้างค่ะ (ขอบพระคุณค่ะ)

[snasui]

การใช้ VBA จำเป็นต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยมาถามกันต่อครับ

[waangpa]

Private Sub OptionButton1_Click()
...?....
End Sub
Private Sub cmdclose_Click()
Unload Me
End Sub
คือว่า ตัวคำสั่ง optbutton 1, 2 , 3 ที่เราต้องการจะให้เลือกคลิกเปิดไปยัง sheet 1 , 2 , 3 นี่ค่ะ สร้างคำสั่งไม่ได้ค่ะ สร้างไปหลายรอบแล้วมันผิดค่ะ ขอให้อาจารย์ช่วยชี้แจงแนะสอนคำสั่งเปิดsheet ด้วยค่ะ

[logic]

แนบไฟล์ที่ผิดมาเลย เพื่อนสมาชิกจะช่วยดูให้เองครับ

อีกอย่างช่วยโพสต์โค้ดให้เป็นไปตามกฎข้อ 5 ครับ

[waangpa]

Book1.xlsx

(136.33 KiB) Downloaded 19 times

[DhitiBank]

แนบไฟล์ตัวอย่างในที่นี้ไม่ใช่การแนบไฟล์ที่มีรูปครับ หากเป็นเรื่องเกี่ยวกับ VBA ก็จะต้องเป็นไฟล์ที่มีคำสั่งที่ยังไม่สำเร็จเขียนไว้อยู่แล้ว หากไม่สามารถแนบไฟล์ที่ทำอยู่มาได้ ก็ให้ทำไฟล์ตัวอย่างที่มีฟอร์ม หรือหน้าตาคล้ายๆ กับไฟล์ที่ทำอยู่ อาจมีแค่ 2-3 ชีท แล้วอธิบายคร่าวๆ ว่า เมื่อทำแบบนี้แบบนั้นกับฟอร์ม แล้วอยากให้ผลเกิดแบบนี้แบบนั้น แต่โพรซีเยอร์ที่ชื่อ xxx ยังไม่ได้ตามต้องการ อะไรทำนองนี้ครับ

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

[waangpa]

ค่ะ ขอโทษด้วยนะค่ะ จะแนบไฟล์จริงไป รบกวนอาจารย์และเพื่อนๆช่วยแนะคำสั่งVBAตัวนี้ด้วย สร้างหลายรอบแล้ว มันผิดค่ะ

test.1.xlsm

(23.45 KiB) Downloaded 13 times

[snasui]

เปิด VBE แล้วคลิกขวาที่ frmOpen แล้วเลือก View Object > Double Click Option ที่ชื่อ Sheet1 จะเข้าสู่มุมมอง Code จากนั้นเขียน Code ตามด้านล่าง

Code: Select all

Private Sub Optsheet1_Click()
    Worksheets(1).Select
End Sub

ทำแบบนี้กับ Option ที่เหลือโดยอ้างอิงตัวเลขให้สอดคล้องกับชีตที่จะเปิดครับ

[waangpa]

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

test.1.xlsm

(24.8 KiB) Downloaded 12 times

[DhitiBank]

ลองปรับโค้ดตรง

Worksheets(1).Select เป็น
Worksheets("[color=#FF0000]sheet1[/color]").Select

ในวงเล็บคือชื่อชีทครอบด้วย " " แล้วปรับโค้ดที่ option button อื่นๆ แบบเดียวกันครับ

[waangpa]

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

test.1.xlsm

(25.2 KiB) Downloaded 20 times

[DhitiBank]

ลองแบบนี้ครับ

1. เอาโค้ด OptionButton คลิก ออกให้หมดก่อนครับ

2. ที่ cmdOK_Click ปรับโค้ดเป็น

Code: Select all

Private Sub cmdOK_Click()
    Dim cTrl As Control, sCtrlName As String
    For Each cTrl In Me.Controls
        If TypeName(cTrl) = "OptionButton" Then
            If cTrl.Value = True Then
                sCtrlName = cTrl.Caption
                Exit For
            End If
        End If
    Next cTrl
    Unload Me
    ThisWorkbook.Sheets(sCtrlName).Select
End Sub

[waangpa]

ขอบคุณมากค่ะ