Snasui Excel Forum

ได้แล้วครับอาจารย์ ขอบคุณมากครับผม

DATA อยู่ Sheet1 ครับ

Module1
Sub LookupRange()
ครับ
อยากให้ชื่อ คอลัมน์ออกมาด้วยครับ

Module1
Sub LookupRange()
ครับ

Application.ScreenUpdating = False
Dim wsData As Worksheet, wsDate As Worksheet, wsNoEntry As Worksheet
Dim dSDate As Date, dEDate As Date
Dim lRowStart As Long, lRowEnd As Long
Dim aData() As Variant
Dim i As Long


Set wsData = ThisWorkbook.Sheets("Sheet1")
Set wsDate = ThisWorkbook.Sheets ...

อาจารย์ครับ ผมต้องการ copy ชื่อคอลัมน์ออกมาด้วยต้องแก้ code ตรงไหนครับโดยมี dSDate และ dEDate เป็นเงื่อนไขครับ

สอบถามอาจารย์ครับ ผมมี input ข้อมูลอยู่ 2 TextBox ครับ TextBox1 กับ TextBox2 และมีคอลัมน์ที่รับข้อมูลอยู่ 2 คอลัมน์ครับคือคอลัมน์ A และ B เงื่อนไขคือ ตอนกด enter แต่ละครั้งให้เช็คคอมลัมน์ A โดยเริ่มจาก A1 ถ้าว่างให้นำข้อมูล TextBox1 ไปใส่ A1 และนำข้อมูล TextBox2 ไปใส่ B1 เช็คไล่ลงไปเรื่อยๆทีละบรรท ...

สอบถามอาจารย์ครับ ผมมี input ข้อมูลอยู่ 2 TextBox ครับคือ TextBox1 กับ TextBox2 และมีคอลัมน์ที่ต้องรับข้อมูลอยู่ 2 คอลัมน์คือ A และ B
ความต้องการคือ ตอนกด Enter ถ้า A1 ว่างให้นำค่า TextBox1 ไปใส่ A1 และค่า TextBox2 ไปใส่ B1 ไล่ลงไปเรื่อยๆ ครับ แต่ถ้าค่า A1 ตรงกับค่า TextBox1 ให้นำค่า TextBox2 ...