เพื่อมุ่งให้เกิดคุณภาพจากการอบรมสูงสุด Excel Expert Training ให้การอบรม Excel กลุ่มเล็กๆ ไม่เกิน 6 คนทุกคนสามารถเรียนรู้ Excel อย่างใกล้ชิด จะมาคนเดียวหรือมาเป็นกลุ่มแล้วนัดวันอบรมแบบส่วนตัวก็ได้ ผู้เข้าอบรมทุกคนสามารถติดตามเนื้อหาที่อบรมได้อย่างชัดเจนจากจอภาพด้านหน้าของตัวเอง
Results 1 to 8 of 8

Thread: เลือก Custom Views โดย VBA

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    MusicAholic
    Guest

    เลือก Custom Views โดย VBA

    ผมต้องการให้ User เลือกรหัสพนักงานของตนเอง
    แล้วก็จะแสดงหน้า Custom Views ที่ตั้งเป็นเลขรหัสของพนักงานแต่ละคนไว้ครับ
    โดยที่ User ไม่ต้องเลือกจาก Menubar
    แต่ติดปัญหาตรงที่ผมไม่สามารถนำ Range Name ที่ตั้งเป็นเซลล์รับค่าของรหัสมาแทนใน code ได้ครับ
    PHP Code:
    ActiveWorkbook.CustomViews "[YourID]".Show 

  2. #2
    อรวีร์
    Guest

    Smile

    ลองแบบนี้ค่ะ ว่าได้ไหม(อรวีร์ก็ไม่เคยใช้ CustomViews)
    ActiveWorkbook
    .CustomViews(Range("YourID")).Show

  3. #3
    อรวีร์
    Guest

    Smile

    หรือแบบนี้ค่ะ
    ActiveWorkbook.CustomViews([YourID]).Show

  4. #4
    MusicAholic
    Guest
    ถ้าใช้ Range Name ยังทำไม่ได้ครับ
    แต่ถ้าใช้ค่าในเซลล์โดยตรงกลับทำได้ครับ
    PHP Code:
    ActiveWorkbook.CustomViews(Range("B2").Value).Show 

  5. #5
    อรวีร์
    Guest

    Smile

    ลอง Msgbox Range("YourID").Count
    ดูหน่อยค่ะว่าได้เลข 1 หรือไม่คะ

    และลอง
    Msgbox Range("YourID").Address
    ดูว่าอ้างถึง Cells ไหนคะ

  6. #6
    สมเกียรติ
    Guest
    ใช้รหัสตามนี้ครับ

    Sub ViewShow()
    MyVar = [ViewKey]
    ActiveWorkbook.CustomViews(MyVar).Show
    End Sub

    ViewKey เป็นชื่อเซลล์ที่ใช้กรอกรหัส

  7. #7
    MusicAholic
    Guest
    Msgbox Range("YourID").Count เท่ากับ 1 ครับ
    Msgbox Range("YourID").Address เท่ากับ $B$2

    Private Sub Workbook_Open()
    [YourID] = Application.InputBox("Your ID", "Authority Only", [YourID], , , , , 3)
    ActiveWorkbook.CustomViews([YourID]).Show
    End Sub

    ผมใช้ code นี้อยู่ครับ แต่ถ้ารหัสเป็นตัวเลข สามารถทำงานได้
    แต่ถ้าเป็นตัวอักษรยังติด error อยู่ครับ

Similar Threads

  1. Need help on Custom formatting ka.
    By tnunn in forum Excel Expert Forum Library 2012 - 2007
    Replies: 1
    Last Post: 16 Jun 2011, 13:16
  2. Replies: 8
    Last Post: 16 Sep 2010, 17:16
  3. Pivot Table Sort custom list
    By zozazozy in forum Excel Expert Forum Library 2012 - 2007
    Replies: 9
    Last Post: 29 Jul 2009, 23:32
  4. Replies: 2
    Last Post: 3 Jul 2008, 19:59
  5. Replies: 2
    Last Post: 20 May 2008, 20:37

Posting Permissions

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