:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

ใส่รหัสก่อนเปิดซีทดูข้อมูล

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: ใส่รหัสก่อนเปิดซีทดูข้อมูล

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#51

by joo » Tue Mar 22, 2011 6:30 am

ขอบคุณครับที่ไขความกระจ่างให้ได้ทราบ :D

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#50

by snasui » Sun Mar 20, 2011 8:19 am

:D เท่าที่ทดสอบ มันแค่แสดงให้เห็นเฉย ๆ ไม่สามารถคลิกได้ครับ ถ้านำเมาส์ไปลากคลุมก็จะหายไป หรือเราแค่ Page Down แล้ว Page Up ก็หายไป เข้าใจว่าเป็น Bug ของ Excel 2003 เพราะว่า Excel 2007 ขึ้นไปไม่มีปัญหานี้ครับ

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#49

by joo » Sun Mar 20, 2011 8:12 am

User Form ใช้งานได้ดีแสดงว่าถ้าวาง ComboBox ไว้ในซีทไม่สามารถแก้ปัญหานี้ได้ใช่ไหมครับ :mrgreen:

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#48

by snasui » Sat Mar 19, 2011 10:56 pm

:lol: อืม...เข้าใจว่าต้องการให้แสดง Drop Down เมื่อคลิกค้นหา ผมเพิ่ม User Form เข้ามาและปรับปรุง Code เพิ่ม ลองดูไฟล์แนบประกอบครับ

ที่ Module ปกติ Code เป็น

Code: Select all

Sub FilComboBox()
Dim i As Integer
    With UserForm1.ComboBox1
        .Visible = True
        .Clear
        For i = 1 To Application.Worksheets.Count
                .AddItem Worksheets(i).Name
        Next i
        .DrowDown
    End With
End Sub
ที่ชีท INDEX ลบ Code ออก และที่ UserForm1 Code เป็น

Code: Select all

Private Sub ComboBox1_Change()
    On Error Resume Next
    Worksheets(UserForm1.ComboBox1.Text).Select
    Me.Hide
End Sub

Private Sub ComboBox1_DropButtonClick()
    With UserForm1.ComboBox1
        .Top = Range("H22").Top
        .Left = Range("H22").Left
    End With
End Sub
Attachments
บันทึกการใช้เครื่องมือ4-5.xls
(199.5 KiB) Downloaded 15 times

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#47

by joo » Sat Mar 19, 2011 10:31 pm

ไฟล์ของอาจารย์ใช้ได้ไม่มีปัญหาครับแต่ว่าลืมทำของข้อ1 ไว้ด้วยเลยไม่เจอปัญหา ลองทดสอบไฟล์นี้ดูหน่อยครับ
Attachments
บันทึกการใช้เครื่องมือ4-5.xls
(218 KiB) Downloaded 3 times

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#46

by snasui » Sat Mar 19, 2011 9:11 pm

ไฟล์ที่ผมทดสอบไม่เจอปัญหาเช่นว่านั้นครับ ไฟล์ที่ผมแนบไปยังเป็นปัญหาอยู่หรือเปล่าครับ ถ้าไม่เป็นก็ใช้ Code ตามไฟล์ปัจจุบันครับ :D

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#45

by joo » Sat Mar 19, 2011 8:15 pm

ทดลองแล้ว OK ครับ แล้วของข้อ1ต้องแก้ตรงไหนครับ

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#44

by snasui » Sat Mar 19, 2011 7:47 pm

กรณีต้องการซ่อน ComboBox ไว้ก่อน ที่ Module ปกติใช้ Code เดิมครับ ส่วนที่ชีท INDEX ปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub ComboBox1_Click()
    Worksheets("INDEX").ComboBox1.Visible = False
    Worksheets(ComboBox1.Value).Select
End Sub
ดูไฟล์แนบประกอบครับ :P
Attachments
บันทึกการใช้เครื่องมือ4.xls
(222 KiB) Downloaded 4 times

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#43

by joo » Sat Mar 19, 2011 7:24 pm

ขอบคุณครับ... :D โค๊ดที่อาจารย์แนะนำสั้นกะทัดรัดดีครับสามารถทำงานได้ดี
ผมปรับโค๊ดใหม่เพื่อให้ซ่อน ComboBox ไว้ก่อนแบบนี้ครับ

Code: Select all

Sub FilComboBox()
Dim i As Integer
ActiveSheet.ComboBox1.Clear
Sheets("INDEX").ComboBox1.Visible = True
  For i = 1 To Application.Worksheets.Count
           ActiveSheet.ComboBox1.AddItem Worksheets(i).Name
  Next i
       Sheets("INDEX").ComboBox1.DropDown
  End Sub
พบปัญหาคือ
1.เมื่อคลิกปุ่มค้นหา ComboBox จะแสดงรายการแบบ Drop Down เมื่อคลิกเลือกซีทที่ต้องการได้แล้ว เจ้าตัว ComboBox นี้ มันจะแทรกให้เห็นรบกวนสายตาใน
ซีทที่เลือกเปิด
2.เมื่อคลิกปุ่มค้นหา ComboBox จะแสดงรายการแบบ Drop Down แล้วเราไปเลือกคลิกที่ตรงสามเหลี่ยมของ ComboBox แทนแล้วจึงค่อยเลือกซีท พบว่าซีทที่เลือกเปิดจะไม่มีตัว ComboBox มาแทรกรบกวนสายตา แต่เมื่อกลับไปที่ซีท INDEX ตัว ComboBox กลับไม่ซ่อนตัวตามต้องการ
ต้องปรับแก้โค๊ดเพิ่มเติมตรงไหนดีครับ :)

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#42

by snasui » Sat Mar 19, 2011 2:12 pm

:D กรณีต้องการให้ Clear ComboBox เพิ่ม Code ด้านล่างที่ Module ปกติ

Code: Select all

ActiveSheet.ComboBox1.Clear
ซึ่งผมปรับมาให้ใหม่เป็น

Code: Select all

Sub FilComboBox()
Dim i As Integer
ActiveSheet.ComboBox1.Clear
    For i = 1 To Application.Worksheets.Count
           ActiveSheet.ComboBox1.AddItem Worksheets(i).Name
    Next i
End Sub

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#41

by joo » Sat Mar 19, 2011 1:30 pm

อาจารย์ครับเมื่อคลิกที่ปุ่มค้นหาซ้ำกันข้อมูลที่แสดงใน ComboBox จะแสดงรายการซ้ำตามจำนวนที่คลิกปุ่มค้นหาครับ :o
ผมแทรกโค๊ดที่ปุ่มค้นหาแบบนี้

Code: Select all

Sub FilComboBox()
Dim MyName() As String
Dim MyTotalSheets As Integer
Dim i As Integer
Sheets("INDEX").ComboBox1.Visible = True
Sheets("INDEX").ComboBox1.DropDown
MyTotalSheets = Application.Worksheets.Count
ReDim MyName(MyTotalSheets)
    For i = 1 To MyTotalSheets
           MyName(i) = Sheets(i).Name
           ActiveSheet.ComboBox1.AddItem MyName(i)
    Next i
End Sub
และที่ซีท INDEX แบบนี้

Code: Select all

Private Sub ComboBox1_Click()
    Worksheets(ComboBox1.Value).Select
    ComboBox1.Visible = False
End Sub
พอคลิกปุ่มค้นหาเลือกซีทที่ต้องการ จะเห็น ComboBox ตามซีทที่เปิดอยู่ในขณะนั้นครับ :D
Attachments
บันทึกการใช้เครื่องมือ4.xls
(218.5 KiB) Downloaded 3 times

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#40

by snasui » Sat Mar 19, 2011 12:28 pm

:D ลองตามนี้ครับ

ที่ Module ธรรมดานำ Code นี้ไปวาง

Code: Select all

Sub FilComboBox()
Dim MyName() As String
Dim MyTotalSheets As Integer
Dim i As Integer
MyTotalSheets = Application.Worksheets.Count
ReDim MyName(MyTotalSheets)
    For i = 1 To MyTotalSheets
           MyName(i) = Sheets(i).Name
           ActiveSheet.ComboBox1.AddItem MyName(i)
    Next i
End Sub
ที่ชีท Index ปรับ Code ให้เป็นด้านล่าง

Code: Select all

Private Sub ComboBox1_Click()
    Worksheets(ComboBox1.Value).Select
End Sub
และ Assigned Macro ที่ชื่อ FilComboBox ให้กับปุ่มค้นหา ดูตัวอย่างตามไฟล์แนบครับ
Attachments
บันทึกการใช้เครื่องมือ4.xls
(219 KiB) Downloaded 12 times

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#39

by joo » Sat Mar 19, 2011 12:07 pm

ที่ซีท “INDEX” จะมีปุ่ม “ค้นหา” และ ComboBox1 เดิมทีเมื่อคลิกปุ่ม “ค้นหา” ที่ ComboBox1 จะแสดงรายชื่อซีททั้งหมดให้เห็นแต่ตอนนี้ไม่ยอมแสดงไม่รู้ว่าผิดพลาดตรงไหนครับ
Attachments
บันทึกการใช้เครื่องมือ4.xls
(230.5 KiB) Downloaded 6 times

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#38

by snasui » Fri Mar 18, 2011 4:40 pm

:D แนบไฟล์มาด้วยครับ จะได้ทดสอบจากไฟล์ที่เป็นปัญหาจริง

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#37

by joo » Fri Mar 18, 2011 4:24 pm

อาจารย์ครับช่วยดูโค๊ดนี้ให้ทีครับทำไมข้อมูลถึงไม่แสดงตอนแรกที่ทำไว้ก็แสดงได้ดีอยู่ :o

Code: Select all

Private Sub ComboBox1_Click()
Dim MyName() As String
Dim MyTotalSheets As Integer
Dim i As Integer
MyTotalSheets = Application.Worksheets.Count
ReDim MyName(MyTotalSheets)
    For i = 1 To MyTotalSheets
           MyName(i) = Sheets(i).Name
           ComboBox1.AddItem MyName(i)
    Next i
Worksheets(ComboBox1.Value).Select
End Sub
แล้วโค๊ดที่แนะนำไว้ใช้กับฟอร์มใช้ไหมครับแต่ ComboBox ที่ผมทำฝังไว้บน WorkSheet เลย ยังไม่ได้ทดสอบครับพอดีข้อมูลใน ComboBox ไม่ยอมแสดง :)

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#36

by snasui » Fri Mar 18, 2011 1:20 pm

:D เมื่อคลิกคำสั่งค้นหาให้เขียน Code เช่นด้านล่างนี้แนบไว้ด้วยครับ

Code: Select all

UserForm1.ComboBox1.Visible = True
และหลังจากคลิก ComboBox1 แล้วใน Code ของ ComboBox1 ก็ Set เป็น Hide ไว้เหมือนเดิม

Code: Select all

UserForm1.ComboBox1.Visible = False

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#35

by joo » Fri Mar 18, 2011 1:08 pm

ที่ซีท INDEX ผมสร้าง ComboBox ไว้ 1 อันแล้วฝังโค๊ดไว้ในซีทแบบนี้

Code: Select all

Private Sub ComboBox1_Click()
Dim MySheet() As String
Dim MyTotalSheets As String
Dim i As Integer
MyTotalSheets = Application.Worksheets.Count
ReDim MyName(MyTotalSheets)
    For i = 1 To MyTotalSheets
           MyName(i) = Sheets(i).Name
           ComboBox1.AddItem MyName(i)
    Next i
Worksheets(ComboBox1.Value).Select
End Sub
สร้างปุ่มคำสั่งค้นหาฝังโค๊ดไว้แบบนี้

Code: Select all

Sub GoComboBox1()
Sheets("INDEX").ComboBox1.DropDown
End Sub
ต้องการให้ซ่อน ComboBox ไว้ก่อน เมื่อคลิกปุ่มคำสั่งค้นหาก็ให้ SetFous มาที่ ComboBox เมื่อเลือกเปิดซีทดูข้อมูลได้ ก็ให้ซ่อน ComboBox ตัวนี้ไว้เหมือนเดิม ปัจจุบันตัว ComboBox มันจะแสดงในซีทที่ถูกเลือกตลอด ต้องปรับเพิ่มโค๊ดอย่างไรดีครับ :)

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#34

by snasui » Thu Mar 17, 2011 11:46 am

:D การทำเช่นนั้นต้องหันไปใช้ Control Toolbox แทนการคลิกเลือกจากเซลล์ด้วย Validation ครับ จะมี Event ให้กำหนดว่าหากนำเมาส์มาชี้ก็ให้แสดง List ได้เลย

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#33

by joo » Thu Mar 17, 2011 8:05 am

ลองแล้วใช้งานได้ดีครับ แล้วถ้าต้องการให้เซลล์เมื่อได้รับโฟกัสให้แสดง Drop List อัตโนมัติ เช่นเมื่อ E25 ได้รับโฟกัสก็ให้แสดงรายการทั้งหมดลงมาให้เห็นต้องใช้คำสั่งอะไรครับ

Re: ใส่รหัสก่อนเปิดซีทดูข้อมูล

#32

by snasui » Wed Mar 16, 2011 11:09 am

:D ลองเปลี่ยน Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$5" Then
        Worksheets(Target.Value).Select
    End If
End Sub

Top