กฏกติกาของฟอรัม : แจ้งชื่อและนามสกุลจริงในการสมัครสมาชิก--ตั้งชื่อกระทู้ให้ตรงกับปัญหาที่ถาม--เขียนอธิบายคำถามทั้งในตัวกระทู้และในแฟ้มแนบให้ละเอียด--ห้ามใช้คำว่า อ่ะ คับ หรือคำผวน หรือคำที่ไม่มีในพจนานุกรมไทย--โปรดตั้งชื่อแฟ้มให้สื่อถึงปัญหาที่ถาม--อย่าระบุชื่อให้คนใดคนหนึ่งเป็นผู้ตอบ--งดให้ความร่วมมือหรือช่วยตอบคำถาม กระทู้ที่ละเมิดกฏกติกาของฟอรัม
Results 1 to 6 of 6

Thread: เขียน VBA ซ่อน WorkSheet ใน Excel อย่างไร

  1. #1

    Join Date
    May 2007
    Location
    ฉะเชิงเทรา
    Job
    งานผลิต
    Version
    Excel 2003?? Windows XP??
    Posts
    68

    Default เขียน VBA ซ่อน WorkSheet ใน Excel อย่างไร

    ต้องการทราบวิธีเขียน Code เพื่อทำการซ่อนและแสดง Worksheet ในครั้งแรกที่เปิด Workbooks ขึ้นมา ผมลองเขียนแบบธรรมดาให้มีปุ่มสำหรับซ่อนและแสดงSheet พอกดปุ่มก็เกิด Error เลยครับ ไม่ทราบว่าต้องเขียน Code อย่างไร ขอบคุณครับ

  2. #2
    Excel Expert Volunteer Nongmod's Avatar
    Join Date
    May 2007
    Location
    ศรีราชา ชลบุรี
    Job
    วิทยากร ,ที่ปรึกษา ด้านการเพิ่มผลการผลิต และ Lean Manufacturing
    Version
    Excel2003 Windows XP
    Posts
    169

    Default

    Sub HidenSheet()
    Sheets(2).Visible = False
    End Sub
    Sub ShowSheet()
    Sheets(2).Visible = True
    End Sub

    อ้างอิงชื่อ Sheet ผิดครับ
    เขียนว่า Sheets(2) หรือ Sheets("sheet2") ก็ได้ครับ

  3. #3

    Join Date
    May 2007
    Location
    ฉะเชิงเทรา
    Job
    งานผลิต
    Version
    Excel 2003?? Windows XP??
    Posts
    68

    Default

    ขอบคุณครับ ได้แล้วครับ ขอเพิ่มเติมอีกนิดน่ะครับ สำหรับคำสั่ง
    Sheets(2).Visible = False กับ Sheets(2).Hide ต่างกันอย่างไรครับ

  4. #4
    Excel Expert Volunteer อรวีร์'s Avatar
    Join Date
    May 2007
    Location
    นนทบุรี&ปทุมธานี
    Job
    IT Expert
    Version
    Excel 2003/2007 & Windows XP
    Posts
    1,536
    Blog Entries
    3

    Icon7

    ไม่น่าจะใช้ .Hide กับ Worksheet ได้นะคะ

    ส่วนการกำหนด Property .Visible สามารถกำหนดได้ 3 แบบ คือ
    Worksheets(2).Visible = xlSheetVisible ' -1 เทียบได้กับ True
    Worksheets(2).Visible = xlSheetHidden ' 0 เทียบได้กับ False
    Worksheets(2).Visible = xlSheetVeryHidden ' 2

    ถ้าใช้ xlSheetVeryHidden จะทำให้ไม่สามารถสั่งให้แสดงโดยเลือกจากเมนู Format --> Sheet --> Unhide ต้องใช้วิธีมาสั่งที่หน้าจอ VBE เท่านั้นค่ะ(หรือเขียน Code)
    :) :)

  5. #5

    Join Date
    May 2007
    Location
    ฉะเชิงเทรา
    Job
    งานผลิต
    Version
    Excel 2003?? Windows XP??
    Posts
    68

    Default

    Sub ShowSheet()
    Sheets(2).Hide
    End Sub
    สำหรับผมเองก็ไม่เคยใช้เหมือนกันครับอาจารย์อรวีร์ แต่ที่ถามเพราะว่าผมเคยพิมพ์คำสั่ง Sheets(2).hide เป็นแบบนี้แล้วพอขึ้นบรรทัดใหม่ให้ตัวอักษรก็จะกลายเป็นแบบนี้ครับ Sheets(2).Hide คือ h ไปเป็น H ก็เลยคิดว่าน่าจะมีคำสั่งนี้ครับแต่พอลอง Run ดูก็มี error ครับก็เลยอยากทราบว่าใช้ต่างกันอย่างไรครับ แต่ถ้าไม่มีคำสั่งนี้ก็ไม่เป็นไรครับ ขอบคุณครับ

  6. #6
    Excel Expert Volunteer Nongmod's Avatar
    Join Date
    May 2007
    Location
    ศรีราชา ชลบุรี
    Job
    วิทยากร ,ที่ปรึกษา ด้านการเพิ่มผลการผลิต และ Lean Manufacturing
    Version
    Excel2003 Windows XP
    Posts
    169

    Default

    คำสั่ง Hide ผมใช้กับ User Form ครับ ใช้คู่กับ Show เช่น

    Private Sub UserForm_Click()
    UserForm2.Hide
    End Sub
    Private Sub UserForm_Click()
    UserForm2.Show
    End Sub

Similar Threads

  1. Replies: 1
    Last Post: 12 Oct 2009, 10:44
  2. Replies: 2
    Last Post: 19 Aug 2009, 09:58
  3. scan barcode into excel worksheet
    By chuchart_p in forum Forum Library
    Replies: 4
    Last Post: 16 Dec 2008, 14:59
  4. Replies: 3
    Last Post: 3 Jul 2008, 20:35
  5. Replies: 2
    Last Post: 20 Mar 2008, 15:34

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •