Snasui Excel Forum

สวัสดีครับ อาจารย์และท่านผู้ช่วยเหลือผมทุกท่าน
ตอนนี้ผมสามารถทำให้ได้ใกล้เคียงกับสิ่งที่ได้ถามไว้ตั้งแต่เริ่มกระทู้แล้วครับ
ได้ code ดังนี้ครับ

Private Sub InputBox1_Change()
Dim x As String
x = InputBox1.Value
End Sub

Private Sub InputBox2_Change()
Dim y As String
y = InputBox2.Value
End Sub ...

Dim wb1, wb2 As Workbook

Application.ScreenUpdating = False
Set wb1 = ActiveWorkbook
LastRow1 = wb1.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
Set wb2 = Workbooks.Open("C:\Documents and Settings\My Documents\ref.xls", False, False)
LastRow2 = wb2.Sheets(1).Range("A" & Rows.Count).End(xlUp ...

สวัสดีครับ
ขอถามเพิ่มเติมครับ
ผมลองหาวิธีเอาตัวเลข 10 หลักที่อยู่ใน sheet 1 เอกสารแรก
มาทำการหาต่อว่ามีอยู่ใน เอกสารที่สองหรือไม่
ถ้ามีให้นำรายการใน column B ในเอกสารที่สอง
มาเพิ่มใน column D ของเอกสารแรก
และถ้าไม่มีให้แสดงค่าว่า NO DATA ใน column D ของเอกสารแรก และเปลี่ยนสีเป็นสีแดง
ผมลองใช ...

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

แล้วจะเข้ามาถามอีกครับ
(ในห้วข้อนี้ครับ)

ข้อมูลเพิ่มเติมครับ
โดยที่ใช้กับข้อมูล 1,000 แถวเป็นอย่างต่ำ
แต่ไม่น่าถึง 10,000 ในตอนนี้ แต่อนาคตบอกไม่ได้ข้อมูลเพิ่มตลอดครับ
ส่วนที่เกิดปัญหาที่พบจากการลองรันดูที่ละขั้นตอนพบว่าจะค้างที่ขั้นตอนการลบ
โดยขึ้นข้อความ FALSE ที่ column E แล้วจะค้างไปเลย

ขอบคุณครับ คุณ tupthai
แต่ผมลองใช้ในข้อมูลขนาดใหญ่ที่ต้องทำงานจริง
แล้ว ค้างที่หน้าจอขาวไปต่อไม่ได้ครับ
คงต้องลองหาวิธีแก้ไข

ขอบคุณนะครับ ได้ไอเดียเพิ่มอีกวิธี

สวัสดีครับ
ทดลองแล้วครับ
ไม่เปลี่ยนแปลงครับ
แถวที่ซ้ำกันไม่ถูกลบออกไปครับ
ไม่แน่ใจว่าต้องแก้อะไรเพิ่มหรือเปล่าครับ

สวัสดีครับ
เอกสารตัวอย่างที่ทำอยู่ครับ

สวัสดีครับ
ช่วยแนะนำการเขียน Code เมื่อเราหาค่าในเซลล์ที่มีตัวเลข 10 ตัว แล้วเจอรายการที่ซ้ำกัน
ให้ลบทิ้งในแถวที่ซ้ำกันทั้งแถว และหาต่อจนกว่าจะไม่ซ้ำกันหมดนะครับ
ผมลองทำดู
Dim c, d
c = 1
d = 2
For singleC= 1 To ActiveSheet.Cells.Count
If Cells(c, 1) = Cells(d, 1) Then
Rows("d").Select
Selection ...

ขอบคุณครับ

ถ้าสงสัย ทำไม่ได้ จะมาถามเพิ่มนะครับ

ตอนนี้ขอหาวิธีแก้โดยความสามารถเท่าห่างอึงก่อนนะครับ

ขอบคุณครับ

ขอบคุณครับ

คงต้องใช้วิธีเดิมๆต่อไปก่อน
ปัญญาน้อยไม่พอ เวลาก็ไม่มี กรรมจริงๆ

ขอบคุณครับ

สวัสดีอีกครั้งครับ
คือผมไม่ค่อยจะเก่งในการทำ vba นะครับ ขอคำแนะนำการเริ่มต้นได้ไหมครับ
เพราะผมไม่ค่อยมีความชำนาญเท่าที่จะทำได้หมดนะครับ เริ่มต้นก็ยังติดว่า
ทำอย่างไรถึงจะรับค่าจาก text box แล้วดำเนิกการได้นะครับ
แต่มีคนแนะนำมาว่าน่าจะลองดู แต่ก็ยังทำไม่ได้สักที เลยอยากรู้ว่าถ้า อาจารย์
จะพอแนะว ...

สวัสดีครับทุกท่านครับ
รบกวนขอความช่วยเหลือด้วยครับ
คือมีโจทย์ว่า
ผมต้องการเอาเอกสาร มาค้นหาข้อมูล File 1 และ File 2 เป็นไฟล์ที่จะนำตัวเลข 10 หลักในแต่ละเซลล์ไปหาในไฟล์ฐานข้อมูลชื่อ "DATA"
เมื่อหาเจอให้นำข้อมูลที่หามาได้แสดงไว้ในไฟล์ทั้งคู่ หากไม่มีข้อมูลให้เปลี่ยนสีตัวอักษรเป็นสีแดง
โดยทำอีกไฟล ...

ขอบคุณมากๆครับ
ผมดีใจจังที่มีวิธีการแบบนี้เพราะต้องใช้หาข้อมูลมากกว่า 40-50 หน้าหรือมากกว่านั้น
ผมจะลองศึกษาดูและถ้าติดตรงไหนจะรบกวนอีกครั้งนะครับ
ดีใจมากเลย
ขอบคุณมากๆจริงๆ

หาค่าตัวเลข 10หลัก จาก sheet ทั้งหมดที่มีใน file
สวัสดีครับอาจารย์Excel ทุกท่าน
ผมยังไม่เก่งกับการใช้งาน Excel เลยอยากทราบการใช้งานแบบที่ใช้งานได้ง่ายขึ้นนะครับ
คือ ต้องการหาเลข 10หลักที่มีอยู่ใน sheet ทั้งหมดในเอกสาร และนำมาแสดงใน Sheet
ที่สั่งการ จะทำได้ไหมครับ