: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

เขียน vba ใน excel เกี่ยวกับ listbox

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: เขียน vba ใน excel เกี่ยวกับ listbox

Re: เขียน vba ใน excel เกี่ยวกับ listbox

#3

by yodpao.b » Thu May 23, 2013 11:07 pm

ขอไฟล์ได้ไหมครับ
อยากเอาไปลองใช้บ้าง
ขอบคุณมากครับ

Re: เขียน vba ใน excel เกี่ยวกับ listbox

#2

by snasui » Fri Apr 26, 2013 5:04 pm

:D ทดสอบ Run ทีละ Step โดยกดแป้น F8 แล้วดูว่าติดที่บรรทัดไหน

ควรแนบไฟล์ตัวอย่างที่ติดปัญหามาด้วย เพื่อน ๆ จะได้ช่วยทดสอบให้ได้ครับ

เขียน vba ใน excel เกี่ยวกับ listbox

#1

by Peemai » Fri Apr 26, 2013 5:02 pm

หนูกำลังเขียน VBA ใน Excel เกี่ยวกับกล่องค่ะ คือหนูมี listbox อยู่ 3 อันเพื่อแสดงความกว้าง ความยาว ความสูงให้เลือก คือเมื่อคลิกความกว้าง 7.125 ความยาวของความกว้าง 7.125 - 1 ถึง 7.125 ก็จะแสดงใน listbox ที่สองให้เลือกและเมื่อเลือก ความยาว 7.125 ความสูงของ 7.125 - 1 ถึง 7.125 ก็จะแสดงใน listbox ที่สามให้เลือกดังภาพที่แนบค่ะ ที่แนบนะค่ะ ที่ติดปัญหาคือ ถ้าหากเลือกจนครบสามอันแล้ว หากต้องการกลับไปเลือกความกว้างใหม่ พอกดเลือกก็ขึ้น error ค่ะ
ถาม1.png
ถาม1.png (46.71 KiB) Viewed 148 times

อันนี้โค้ดใน userform นะค่ะ

Code: Select all

Private Sub UserForm_Activate()
    lstWidth.RowSource = "WidthQry"
End Sub

Private Sub lstWidth_Click()
    Sheets("DataQuery").Select
    Range("B1:B109").Select
    Selection.ClearContents
    
    Sheets("Data").Select
    total_row = ActiveSheet.UsedRange.Rows.Count
    'Row count
        
    Sheets("Qry").Select
    Range("A3:G700").Select
    Selection.Delete
         
    j = 3
    For i = 2 To total_row
        If (Sheets("Data").Cells(i, 5) >= lstWidth.Value - 1 And Sheets("Data").Cells(i, 5) <= lstWidth.Value) Then
            Sheets("Qry").Cells(j, 1) = Sheets("Data").Cells(i, 1)
            Sheets("Qry").Cells(j, 2) = Sheets("Data").Cells(i, 2)
            Sheets("Qry").Cells(j, 3) = Sheets("Data").Cells(i, 3)
            Sheets("Qry").Cells(j, 4) = Sheets("Data").Cells(i, 4)
            Sheets("Qry").Cells(j, 5) = Sheets("Data").Cells(i, 5)
            Sheets("Qry").Cells(j, 6) = Sheets("Data").Cells(i, 6)
            Sheets("Qry").Cells(j, 7) = Sheets("Data").Cells(i, 7)
            j = j + 1
        End If
    Next
    txtWidth.Text = j - 3
        
    Range("F3:F4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("DataQuery").Select
    Range("B1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("$B$1:$B$1336").RemoveDuplicates Columns:=1, Header:=xlNo
               
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("DataQuery").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DataQuery").Sort.SortFields.Add Key:=Range("B1"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DataQuery").Sort
        .SetRange Range(Selection, Selection.End(xlDown))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Sheets("Qry").Select
       
    lstLong.RowSource = "LongQry"
             
End Sub

Private Sub lstLong_Click()
    
    Sheets("DataQuery").Select
    Range("C1:C109").Select
    Selection.ClearContents
    
    Sheets("Data").Select
    total_row1 = ActiveSheet.UsedRange.Rows.Count
    
    Sheets("Qry").Select
    Range("A3:G700").Select
    Selection.Delete
    
     m = 3
        For i = 2 To total_row1
            If (Sheets("Data").Cells(i, 5) >= lstWidth.Value - 1 And Sheets("Data").Cells(i, 5) <= lstWidth.Value And Sheets("Data").Cells(i, 6) >= lstLong.Value - 1 And Sheets("Data").Cells(i, 6) <= lstLong.Value) Then
                Sheets("Qry").Cells(m, 1) = Sheets("Data").Cells(i, 1)
                Sheets("Qry").Cells(m, 2) = Sheets("Data").Cells(i, 2)
                Sheets("Qry").Cells(m, 3) = Sheets("Data").Cells(i, 3)
                Sheets("Qry").Cells(m, 4) = Sheets("Data").Cells(i, 4)
                Sheets("Qry").Cells(m, 5) = Sheets("Data").Cells(i, 5)
                Sheets("Qry").Cells(m, 6) = Sheets("Data").Cells(i, 6)
                Sheets("Qry").Cells(m, 7) = Sheets("Data").Cells(i, 7)
            m = m + 1
        End If
    Next
    txtLong.Text = m - 3
    
    'Sheets("Qry1").Select
   Range("G3:G4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("DataQuery").Select
    Range("C1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("$C$1:$C$1336").RemoveDuplicates Columns:=1, Header:=xlNo
    
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("DataQuery").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DataQuery").Sort.SortFields.Add Key:=Range("C1"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DataQuery").Sort
        .SetRange Range(Selection, Selection.End(xlDown))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Sheets("Qry").Select
    
    lstHeight.RowSource = "HeightQry"
    
End Sub

Private Sub lstHeight_Click()

    Sheets("Data").Select
    total_row2 = ActiveSheet.UsedRange.Rows.Count
    
    Sheets("Qry").Select
    Range("A3:G700").Select
    Selection.Delete
    
     n = 3
        For i = 2 To total_row2
            If (Sheets("Data").Cells(i, 5) >= lstWidth.Value - 1 And Sheets("Data").Cells(i, 5) <= lstWidth.Value And Sheets("Data").Cells(i, 6) >= lstLong.Value - 1 And Sheets("Data").Cells(i, 6) <= lstLong.Value And Sheets("Data").Cells(i, 7) >= lstHeight.Value - 2 And Sheets("Data").Cells(i, 7) <= lstHeight.Value) Then
                Sheets("Qry").Cells(n, 1) = Sheets("Data").Cells(i, 1)
                Sheets("Qry").Cells(n, 2) = Sheets("Data").Cells(i, 2)
                Sheets("Qry").Cells(n, 3) = Sheets("Data").Cells(i, 3)
                Sheets("Qry").Cells(n, 4) = Sheets("Data").Cells(i, 4)
                Sheets("Qry").Cells(n, 5) = Sheets("Data").Cells(i, 5)
                Sheets("Qry").Cells(n, 6) = Sheets("Data").Cells(i, 6)
                Sheets("Qry").Cells(n, 7) = Sheets("Data").Cells(i, 7)
            n = n + 1
        End If
    Next
   txtHeight.Text = n - 3
 
   
    Sheets("Qry").Select
    
End Sub

Private Sub btnClose_Click()
    Unload Me
End Sub

Top