ต้องการใช้ option button แล้วให้ cell หรือ row นั้นไม่แสดงครับ

[tulkavin]

สวัสดีครับ ต้องการขอความช่วยเหลือหน่อยครับ

ถ้าเราจะให้ option button นั้นคลิกแล้วแล้วถึงจะให้ เซลล์ หรือ แถวนั้น แสดง ถ้าไม่คลิกเลือก option button นั้น ก็จะไม่แสดงข้อมูลนี้ทำได้รึป่าวครับ

ถ้าซ่อนแถวนั้นไปเลยก็จะดีมากครับ และทำข้าม worksheet ด้วยครับ

ประมาณว่าเรากรอกฟอร์มใน worksheet ที่1 โดย option button มี 3 ประเภท แต่ละประเภทรายการย่อยจะต่างกันไป


ตามรูป ประมาณว่าเราเลือก option 15 แล้วให้แถวที่ 1 - 5 แสดงเท่านั้น แถวที่ 6-10 ซ่อนหรือปรับความกว้างคอลัมน์ให้น้อยๆไปเลยก็ได้จะได้มองไม่เห็นเวลาปริ้น

ในทางกลับกันถ้าเลือก option 16 ก็จะแสดงแถวที่ 6-10 เท่านั้น โดยจะกระเถิบขึ้นไปในด้านบนของหน้ากระดาษด้วย แบบนี้ครับ

ขอบคุณครับ

[snasui]

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

สำหรับการซ่อนและยกเลิกการซ่อนสามารถใช้การบันทึก Macro แล้วนำ Code มาปรับใช้ได้ครับ

[tulkavin]

ok ครับ ส่วนการใช้งาน vba คงต้อง search ตามเน็ทเอาใช่มั้ยครับว่าต้องใช้ command ไหนบ้างที่จะปรับค่าความกว้าง , แสดงผล , ซ่อน ....

[snasui]

ลองบันทึก Macro ดูก่อนว่าได้ Code สำหรับการจัดการงานที่ว่านั้นหรือไม่ หากโปรแกรมสามารถ Generate Code มาให้ได้ก็ลดเวลาในการค้นหาลงได้ ฟอรัมนี้เน้นตอบเฉพาะกรณีเขียนมาเองแล้วติดปัญหา ให้นำปัญหานั้นมาถามกันได้เต็มที่ครับ

[tulkavin]

ตอนนี้ผมลองเขียนมาสักพักแล้ว ก็จะได้พวกคำสั่งพื้นหลังสี สีฟ้อน ความสูงของแถว ใส่ค่าต่างๆ ตอนนี้ผมอยากให้ check box ไม่แสดง เมื่อผมสั่งให้แถวมีความสูงของแถวสั้นลงครับ , check box ถูกฝังให้เคลื่อนย้ายตามแถว แต่พอแถวมีค่าความสูง = 0 ตัว check box ยังแสดงอยู่ ผมพยายามหาคำสั่งเองแล้วแต่ไม่พบ ดังนั้นขอรบกวนด้วยนะครับ

- check box ทำให้ซ่อนได้มั้ย หรือให้กรอบ (border) เป็นสีขาวได้มั้ยครับ
- worksheet อื่นเราสามารถสั่ง lock ไม่ให้เปิดโดยเริ่มต้นได้ใช่มั้ยครับ และถ้าสั่งให้เปิดผ่าน vba ได้ผมรบกวนขอคำสั่งหน่อยครับ
- คำสั่ง save as โดยเอาข้อมูลจาก cell มาใส่ในชื่อไฟล์ พอทำได้มั้ยครับ
- print pdf หรือ save as pdf รบกวนขอคำสั่งหน่อยนะครับ
- ผมตรวจสอบค่าจาก worksheet1 จาก worksheet2 ไม่ได้ครับ ที่ลองใช้คำสั่งคือ
if sheet1!D8 = True then
C9 = "Yes"
else
C9 = "No"
end if

ไม่ทราบ code ไหนผิดรึป่าวครับ เวลา Run ผ่านครับ ไม่ติด Debug แต่ผลลัพธ์ไม่ได้ตามต้องการ

ขอบคุณครับ

[snasui]

ให้แนบไฟล์ แนบภาพมาที่ฟอรัมนี้ อ่านกฎการใช้บอร์ดทุกข้อด้านบนอีกครั้งครับ

[tulkavin]

ขอโทษนะครับ ผมพยามแก้แล้ว แต่ไม่ทราบต้องแก้ตรงไหน login ก็ทำแล้ว แต่ไม่ขึ้น edit มาให้แก้ครับ ลองดูวิธีจากหัวข้อวิธีตั้งและตอบกระทู้ก็ดูแล้วครับจากด้านบน





ขอบคุณครับ

[snasui]

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

[tulkavin]

แสดงว่าอันนี้ผมต้องโพสต์ถามใหม่ใช่มั้ยครับ เพราะไม่ขึ้นดินสอให้แก้ไขแล้ว

[snasui]

โพสต์ภาพคำถาม ไฟล์แนบ ลงในกระทู้นี้ได้เลยไม่ต้องตั้งกระทู้ใหม่แต่อย่างใดครับ