Page 1 of 1

สอบถามเรื่อง Code VBA ของ Combobox

Posted: Thu Feb 22, 2018 3:00 pm
by jullathep

Code: Select all

Private Sub ComboBox1_Change()
If ComboBox1.Text = Sheet2.Range("A2") Then 'A2:A13
        Label1.Caption = Sheet2.Range("B2")       'B2:B13
End If
End Sub
คือผมต้องการให้ ข้อมูลใน Sheet Company Cell B2:B13 แสดงใน Label1 ในหน้า Sheet1 โดย เลือกข้อมูลชื่อบริษัท จาก Cell A2 ที่อยู่ใน Combobox ผมเขียนเป็นแบบ ("B2:B13") สูตรก็ไม่ยอม รบกวน ช่วยดูด้วยครับ พี่ๆขอบคุณมากครับ

Re: สอบถามเรื่อง Code VBA ของ Combobox

Posted: Thu Feb 22, 2018 4:42 pm
by snasui
:D สิ่งที่ต้องการคือให้นำข้อมูลในช่วงข้อมูลไปแสดงใน Label เพียง Label เดียวใช่หรือไม่ครับ และหากแสดงใน Label เดียว ผลลัพธ์ที่ต้องการมีลักษณะเป็นอย่างไร ช่วยวาดภาพหรือเขียนด้วยมือแสดงผลลัพธ์ที่ต้องการมาให้ชัดเจน จะได้เข้าใจตรงกันครับ

Re: สอบถามเรื่อง Code VBA ของ Combobox

Posted: Thu Feb 22, 2018 4:50 pm
by jullathep
snasui wrote: Thu Feb 22, 2018 4:42 pm :D สิ่งที่ต้องการคือให้นำข้อมูลในช่วงข้อมูลไปแสดงใน Label เพียง Label เดียวใช่หรือไม่ครับ และหากแสดงใน Label เดียว ผลลัพธ์ที่ต้องการมีลักษณะเป็นอย่างไร ช่วยวาดภาพหรือเขียนด้วยมือแสดงผลลัพธ์ที่ต้องการมาให้ชัดเจน จะได้เข้าใจตรงกันครับ
ใช่ครับอาจารย์ ความต้องการ คือ ถ้าเลือกบริษัท ใน Combobox ให้แสดงเป็นชื่อ ผู้รับผิดชอบขึ้นมาใน Label เดียว ครับ ผู้รับผิดชอบ จะอยู่ที่ คอลัม B ครับ อาทิเช่น ถ้าผมเลือก บจก.หยุ่น มาร์เก็ตติ้ง >>> ORN
ถ้าผมเลือก บจก.เอ็ม.ดีอินดัสทรี >>> CHOMPOO
ถ้าผมเลือก บจก.ดรากอน ริง เฟอร์ติ ไลเซอร์ >>> PIK เป็นต้น
แบบนี้ครับ อาจารย์ใน Label เดียว เลยครับ จาก Code ผม หาวิธีเขียนให้มัน คลุม ทั้งหมด ไม่ได้ครับ อาจารย์เลยขอคำแนะนำครับ

Re: สอบถามเรื่อง Code VBA ของ Combobox

Posted: Fri Feb 23, 2018 8:02 pm
by snasui
:D ตัวอย่าง Code ครับ

Code: Select all

Dim i As Integer
Dim dataRng As Range
With Sheets("Company")
    Set dataRng = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
    i = Application.Match(ComboBox1.Text, dataRng, 0)
End With
'    If ComboBox1.Text = Sheet2.Range("A2") Then
'        Label1.Caption = Sheet2.Range("B2")
'    End If
Label1.Caption = dataRng(i).Offset(0, 1).Value

Re: สอบถามเรื่อง Code VBA ของ Combobox

Posted: Mon Feb 26, 2018 9:24 am
by jullathep
snasui wrote: Fri Feb 23, 2018 8:02 pm :D ตัวอย่าง Code ครับ

Code: Select all

Dim i As Integer
Dim dataRng As Range
With Sheets("Company")
    Set dataRng = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
    i = Application.Match(ComboBox1.Text, dataRng, 0)
End With
'    If ComboBox1.Text = Sheet2.Range("A2") Then
'        Label1.Caption = Sheet2.Range("B2")
'    End If
Label1.Caption = dataRng(i).Offset(0, 1).Value
ขอบคุณครับท่านอาจารย์