Snasui Excel Forum

ขอโทษค่ะ ตาลายไปหน่อย
ขอบคุณนะค่ะ สำหรับข้อมูลตอนนี้เสร็จเรียบร้อยแล้วค่ะ
ต้องขอบคุณเว็บดีๆ ที่มีไว้ให้ค่อยปรึกษาแนะนำนะค่ะ

คลิกตรงในส่วนของ listbox Country แล้วให้ในส่วนของ listbox Project propose แสดงข้อมูลออกมาตามเงื่อนไข Select Case และตรง Year ก็ให้แสดงข้อมูลปี ตามเงื่อนไขใน Select Case เหมือนกัน แต่ถ้าไม่มีของมูล ก็ไม่ต้องให้แสดง ปี พ.ศ นั้นออกมา ค่ะ

เมื่อคลิกเลือกตัวชื่อ ในส่วนของปี จะปรากฎปีที่มีข้อมูลใน Cell เท่านั่น
ส่วน Cell ไหนที่มีช่องว่างจะไม่ปรากฎปีนั่นให้เห็น รายละเอียดได้แนบในไฟล์เรียบร้อยแล้วค่ะ
ขอบคุณมากค่ะ

รบกวนอีกคร้ังนะค่ะ
ต้องการทราบ "ข้อมูลที่อยู่ใน cell" เท่านั่น หาก cell ไหนไม่มีข้อมูลอยู่ ไม่ต้องแสดงค่าออกมา
โดยข้อมูลที่ได้มาจะมีลักษณะเป็น 5 คอลัมน์ ซึ่งใน 5 คอลัมน์นั่นมี cell ว่าง "ไม่มีข้อมูลอยู่"
เช่น ข้อมูล A แถวที่ 1 มีข้อมูลใน cell แต่ละคอลัมน์ ไม่ครบ
ข้อมูล B แถวที่ 2 มีข้อมูลโดยเรียงก ...

ได้ code มา รบกวนอธิบายให้อีกครั้งนะคะ
Dim irow as Long
Dim ws As Long
Dim count As Integer

lastrow = sheets("item").cells(Rows.count,1).End(xlUp).Row
For x = 2 to lastrow
If sheets("item").cells(x,1) = sheet2.Rang ("B2")Then
sheet2.Rang ("B2") = Sheet ("item").cell(x,1)
sheet2.Rang ("B2 ...

รบกวนช่วย อธิบายให้หน่อยนะค่ะ
Dim Prompt As String
Dim RetValue As String
Dim Rng As Range
Dim RowCrnt As Long

Prompt = ""

' The macro recorder has used the active worksheet. This says which
' worksheet is to be used whether it is active or not. Change "Sheet4"
' to the name of your ...

ขอบคุณค่ะ ทำได้แล้วค่ะ

เรียนถามอาจารย์คะว่า หากจะอ้างอิง ที่จัดเก็บ
Path workbook
สามารถที่จะจัดเก็บรูปแบบ Folder ได้หรือไม่ค่ะ

ดิฉันเองไม่แน่ใจค่ะว่าจัดวาง Excell ถูกหรือไม่ เพราะเมื่อ run แล้วข้อมูลไม่แสดงผลค่ะ และก็ไม่เกิด error ด้วย รบกวนอาจารย์ช่วยแนะนำด้วยค่ะ

ต้องขอโทษด้วยค่ะ ดิฉันเองพึ่งศึกษา VBA ด้วยคะ
โดยนำ Code ตามเว็บที่ศึกษามาทดลองใช้ค่ะ
แต่เกิดปัญหาตามไฟล์ที่แนบมาคะ Code อยู่ Module 1 Formsชื่อว่า IMTGT โดยดิฉันต้องการ Code เลือกประเภทจากรหัส 3 ตัวแรก
ใน Column A
Process ที่ได้ คือ เมื่อเลือกประเภทใดประเภทหนึ่งแล้ว ผลลัพท์ที่ออกมาคือข้อมูลที่อย ...

ต้องขอโทษด้วยคะ แนบไฟล์ให้แล้วคะ
1.ขออธิบายในส่วนของโปรแกรมนะคะ ดิฉันใช้ ComboBox ในการค้นหา ID (Sheet1 column 1) เพื่อให้ข้อมูลID และรายละเอียดข้อมูล (Sheet1 column 2) Show ในส่วนของ ListBox2 ค่ะ รบกวน run ดูได้ค่ะ

ขอบคุณ คุณDhitiBank มากคะ
ขอรบกวนอีกครั้งนะค่ะ หากจะตรวจสอบค่ามากกว่า 1 สามารถเขียนต่อจาก
If Left(Sheet1.Cells(j, 1), 3) = "IMT" Then
If Left(Sheet1.Cells(j, 1), 2) = "XXT" Then
If Left(Sheet1.Cells(j, 1), 1) = "IMXT" Then
Projectarray(i) = Sheet1.Cells(j, 2)
i = i + 1
j = j + 1
Else: j = j + 1 ...

เรียนอาจารย์ รบกวนอธิบาย Code ได้หรือเปล่าคะ
Private Sub UserForm_Initialize()

Dim Projectarray(50) As String
Dim i As Integer
Dim j As Integer
i = o
j = 4
While (Sheet1.Cells(j, 1) > " ")
If Left(Sheet1.Cells(j, 1), 3) = "IMT" Then
Projectarray(i) = Sheet1.Cells(j, 2)
i = i + 1
j = j + 1 ...