Snasui Excel Forum

ขอบคุณมากครับ

มีทั้งหมด 3 ส่วนครับ

ส่วนที่ 1
* Set d1 = CreateObject("Scripting.Dictionary") *

ส่วนที่ 2
* For Each r In rAll.Rows(1).Cells
d1.Add Key:=r.Value, Item:=r.Value
Next r
*

ส่วนที่ 3
* s = r.Parent.Cells(r.Row, 2).Value & "|" & _
r.Parent.Cells(2, r.Column).Value & "|" & _
r.Value
d3 ...

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

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

Sub NoMatch()
Dim r1, r2, c1, c2, Ar, Ac1, Ac2 As Range
'Workbooks.Open Filename:="C:\Users\Desktop\Project1.xlsx"
Windows("Project1 ...

ได้แล้วครับ ขอบคุณมากๆเลยครับ

ตอนนี้ที่ผมเขียนได้คือเช็คความแตกต่างของ 2 column ในชีสเดียวกันครับ ถ้าต้องการเช็คความแตกต่างของ 2 ไฟล์ หลาย column ต้องแก้ไขหรือเพิ่มเติมโค๊ดอย่างไร รบกวนช่วยชี้แนะแนวทางหน่อยครับ ขอบคุณครับ


Sub Format_Result()

Range("C7:C111").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1 ...

สวัสดีครับ ขอคำแนะนำในการเขียนคำสั่ง VB เพื่อเปรียบเทียบ Excel 2 ไฟล์และหาความแตกต่างในแต่ละบรรทัดทั้ง ROW และ Column เมื่อมีบรรทัดที่แตกต่างจะให้ลงสีเหลืองไว้ครับ ตามภาพประกอบที่แนบมาครับ ขอบคุณครับ