Snasui Excel Forum

Posted: **Thu Mar 03, 2016 2:48 pm**

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

Posted: **Thu Mar 03, 2016 6:53 pm**

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

ติดตรงไหนค่อยมาถามกันต่อครับ

Posted: **Fri Mar 04, 2016 8:46 am**

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

Posted: **Fri Mar 04, 2016 9:43 am**

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

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

Posted: **Fri Mar 04, 2016 11:24 am**

Book1.xlsx: (136.33 KiB) Downloaded 21 times

Posted: **Fri Mar 04, 2016 12:26 pm**

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

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

Posted: **Sat Mar 05, 2016 8:34 am**

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

test.1.xlsm: (23.45 KiB) Downloaded 14 times

Posted: **Sat Mar 05, 2016 9:20 am**

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

Code: Select all

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

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

Posted: **Sat Mar 05, 2016 11:29 am**

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

test.1.xlsm: (24.8 KiB) Downloaded 13 times

Posted: **Sat Mar 05, 2016 2:07 pm**

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

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

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

Posted: **Mon Mar 07, 2016 9:42 am**

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

test.1.xlsm: (25.2 KiB) Downloaded 21 times

Posted: **Mon Mar 07, 2016 12:35 pm**

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

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

Posted: **Mon Mar 07, 2016 1:20 pm**

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

Snasui Excel Forum

userform vba

userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba

Re: userform vba