รบกวนหาวิธีเขียน Code VBA ของ Optionbutton 3 อันค่ะ

[Kitiyaporn]

ดิฉันต้องการให้ Cell ที่กำหนด แสดงค่าตาม Cell ที่ ตรงกับOptionbutton นั้นค่ะ คือ

ต้องการให้ Cell E18 แสดงค่าตามช่อง Range ที่ต่างกันค่ะ เช่น
ถ้ากดเลือก Optionbutton1 หรือ ปุ่ม Weight ค่าในช่องนี้ก็จะเท่ากับในช่อง E8 ค่ะ หรือ
ถ้ากดเลือก Optionbutton2 หรือ ปุ่ม Volume ค่าในช่องนี้ก็จะเท่ากับในช่อง E11 ค่ะ และ
ถ้ากดเลือก Optionbutton3 หรือ ปุ่ม Dimension ค่าในช่องนี้ก็จะเท่ากับในช่อง M14 ค่ะ
ปัญหาอีกอย่างคือ อยากให้กรอกค่าตัวเลขได้เฉพาะ Cell ที่เป็นสีขาว แล้ว lock Cell อื่นที่เป็นสีเทาค่ะ
คือถ้าเลือก optionbutton ไหน ก็จะให้กรอกตัวเลขได้เฉพาะCell ที่เป็นสีขาวในบรรทัดนั้น
รวมทั้ง ใน Cell ของ Dimension ที่จะขึ้นอยู่กับ Shape ด้วยค่ะ ไม่ทราบว่าจะพอมีวิธีไหนจะ lock cell ที่เราต้องการได้คะ

รบกวนช่วยหาวิธีเขียน Code หน่อยนะคะ (รายละเอียดตามไฟล์แนบค่ะ)
ขอบคุณค่ะ

[snasui]

ตัวอย่าง Code ที่จะให้ E18 เท่ากับ E8 เมื่อคลิก Optionbutton1 ใช้ Code ตามด้านล่างครับ

Code: Select all

Sheets("INPUT").Range("xPTWeiAll") = Sheets("INPUT").Range("xPTWei")

สำหรับ Optionbutton อื่น ๆ ก็ใช้ Code ลักษณะนี้เช่นเดียวกัน ซึ่งคุณ Kitiyaporn ต้องไปวาง Code เองว่าจะให้ลำดับมันอยู่ตรงไหน เพราะเท่าที่อ่านดูคร่าว ๆ มีการให้ค่า E8 เป็น 0 ไว้ก่อน

ส่วนการ Lock เซลล์เพื่อให้กรอกค่าได้เฉพาะบางเซลล์ ต้องทำการ Protect ชีทเข้ามาร่วมด้วย ลักษณะการทำงานคือ ทำการ Protect Worksheet ซึ่งอาจจะใส่ Password ร่วมด้วยก็ได้ เมื่อคลิกปุ่มใด ๆ จะมีลำดับขึ้นตอนคือ

1. Unprotect Worksheet
2. ให้ปลด Lock Cell สำหรับ Cell ที่ต้องการให้คีย์ค่าได้
3. Protect Workbook ใส่ Password เข้าไปตามเดิม (หากมี)

สำหรับการปลด Lock Cell สามารถใช้ Code ตามด้านล่าง

Code: Select all

Range("E8").Locked = False

เมื่อจะ Lock ใหม่ก็เปลี่ยนจากค่า False เป็น True เพื่อที่ว่าเมื่อทำการ Protect แล้วเซลล์นี้จะไม่สามารถแก้ได้
ดูตัวอย่างที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3&t=404