Excel VBA: LOOP เข้าไปแก้ไขข้อความใน Word

[bank9597]

สวัสดีครับทุกท่าน

โจทย์และภาพประกอบ ทำไว้ในไฟล์แล้วครับ

โค๊ดสองชุดนี้ต่างกันแค่ มี chr(13) ไว้เริ่มบบรทัดใหม่
ถ้าไม่ใส่ chr13 มันจะ Mach เจอ แต่หากใส่ Chr(13) มันจะ Match ไม่เจอ
และอีกอย่างคือ บรรทัดมันจะเยื้อง ไม่ตรงกับบรรทัดข้างๆเหมือนต้นฉบับ

ผมปรับโค๊ดยังไม่ได้ เลยอยากให้ลองช่วยดูหน่อยครับ
ผมมีไฟล์ตัวอย่างมาให้ด้วยครับ จะได้้ทดสอบง่ายขึ้น

ปล ใช้ไฟล์ล่าสุด 2 ไฟล์ข้างล่างน่ะครับ

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

[snasui]

ช่วยแนบไฟล์ภาพมาที่ฟอรัมด้วยครับ หากไม่สามารถแนบได้ในความเห็นเดียวให้แยกเป็นหลายความเห็นได้ตามสะดวกครับ

[bank9597]

แก้ไขให้แล้วครับผม ผมใส่โจทย์ไปในไฟล์ พร้อมภาพด้วยครับ

[snasui]

เงื่อนไขในการแก้ไขมีอะไรบ้างครับ

[bank9597]

เงื่อนไขในการแก้ไขมีอะไรบ้างครับ

เงื่อนไขในการแก้คือ หาข้อความที่มีตำแหน่งที่ 4และ 5ในข้อความเป็นเครื่องหมาย / ให้เอาข้อความนั้นมา Matchกับชีท Cai คอลัมน์ B แล้วดึงค่าในคอลัมน์ C ไปแทนที่ใน Word ครับ

[snasui]

ลองปรับ Code เป็นด้านล่างแล้วทดสอบและปรับปรุงดูครับ

Code: Select all

'Other code
With WorksheetFunction
'   intCount = .CountIf(sh.Range("B2:B" & lngLast), strTextFinal)
    intCount = FoundOnLineNo(sh.Range("b2:b" & inglast), strTextFinal)
    If intCount > 0 Then
'       strResult = MatchCAi(strTextFinal)
        strResult = sh.Range("c" & intCount).Value
        'Para.Range.Text = strResult
        Para.Range.Text = Replace(Para.Range.Text, Para.Range.Text, strResult & Chr(13))
    Else
        Para.Range.Font.ColorIndex = wdRed
        Para.Range.Text = "Name not match in CAI"
    End If
End With
'Other code

Function FoundOnLineNo(dbAll As Range, strFind As String) As Long
    Dim r As Range
        If InStr(strFind, r.Value) Then
            FoundOnLineNo = r.Row
            Exit Function
        End If
    Next r
End Function

[bank9597]

อาจารย์ครับ
ผมปรับโค๊ดแล้ว ผลลัพธ์ที่ได้จะเหมือนกับของเดิมที่ผมทำไว้ครับ
การขึ้นบรรทัดใหม่ยังไม่ถูกต้องและยังไม่ตรงกับบบรทัดด้านข้างครับ

[snasui]

ค่อย ๆ ถามตอบกันไป ตอนนี้ผมไม่สะดวกในการ Debug

ลอง Debug ดูว่า intCount ให้ค่าเป็นเท่าไรบ้าง ตรงกับค่าบรรทัดที่มี strTextFinal ใน Excel หรือไม่ครับ

ให้ใช้ฟังก์ชั่นที่ผมเขียน อย่าไปใช้ Match ครับ

[bank9597]

ครับ อาจารย์ ผม Debug แล้วครับ และก็แก้ที่อาจารย์เขียนมาแล้ว ก่อนจะทำการทดสอบครับ

เปลี่ยน intCount เป็น lngLast

เพิ่มโค๊ดในฟังก์ชั่น

Code: Select all

Function FoundOnLineNo(dbAll As Range, strFind As String) As Long
    Dim r As Range
    
    For Each r In dbAll
        If InStr(strFind, r.Value) Then
            FoundOnLineNo = r.Row
            Exit Function
        End If
    Next r
    
End Function

ตอนนี้กำลังคิดถึงการนับจำนวน digits ในบบรทัดครับผม

[snasui]

ใช้ตามที่ผมเขียนให้ไปก่อนครับ

ผมต้องการให้หาว่าพบในบรรทัดไหนของข้อมูล อย่าไปปนกับการหาบรรทัดสุดท้ายเพื่อกำหนดขอบเขตข้อมูลใน Excel คนละความมุ่งหมายกันนะครับ

[bank9597]

ใช้ตามที่ผมเขียนให้ไปก่อนครับ

ผมต้องการให้หาว่าพบในบรรทัดไหนของข้อมูล อย่าไปปนกับการหาบรรทัดสุดท้ายเพื่อกำหนดขอบเขตข้อมูลใน Excel คนละความมุ่งหมายกันนะครับ

ครับอาจารย์

ผม Debug แล้วปรับโค๊ดตามที่อาจารย์บอกแล้วครับ

[snasui]

ช่วยตอบว่า intCount ได้ค่าอะไรบ้าง ตรงกับบรรทัดไหนใน Excel บ้าง กรุณาตอบคำถามนี้ เป็นคำถามสำคัญครับ

[bank9597]

ช่วยตอบว่า intCount ได้ค่าอะไรบ้าง ตรงกับบรรทัดไหนใน Excel บ้าง กรุณาตอบคำถามนี้ เป็นคำถามสำคัญครับ

ครับอาจารย์ ผลลัพธ์ตามภาพครับผม

[snasui]

แสดงว่าหาพบ เมื่อพบก็ต้องเปลี่ยนค่าใน Word ให้เป็นค่าในคอลัมน์ C ของ Excel ตามบรรทัดที่พบ ไม่ทราบว่าเมื่อเปลี่ยนแล้วเป็นแบบไหน อย่างไรครับ