:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

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

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

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

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

#14

by snasui » Sat Aug 18, 2018 10:46 am

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

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

#13

by bank9597 » Sat Aug 18, 2018 10:44 am

snasui wrote: Sat Aug 18, 2018 10:30 am :D ช่วยตอบว่า intCount ได้ค่าอะไรบ้าง ตรงกับบรรทัดไหนใน Excel บ้าง กรุณาตอบคำถามนี้ เป็นคำถามสำคัญครับ
ครับอาจารย์ ผลลัพธ์ตามภาพครับผม
Attachments
01.JPG
01.JPG (10.38 KiB) Viewed 48 times

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

#12

by snasui » Sat Aug 18, 2018 10:30 am

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

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

#11

by bank9597 » Sat Aug 18, 2018 10:22 am

snasui wrote: Sat Aug 18, 2018 10:10 am :D ใช้ตามที่ผมเขียนให้ไปก่อนครับ

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

ผม Debug แล้วปรับโค๊ดตามที่อาจารย์บอกแล้วครับ
Attachments
01.JPG
01.JPG (20.71 KiB) Viewed 52 times
01.JPG
01.JPG (37.36 KiB) Viewed 52 times

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

#10

by snasui » Sat Aug 18, 2018 10:10 am

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

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

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

#9

by bank9597 » Sat Aug 18, 2018 10:07 am

ครับ อาจารย์ ผม 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 ในบบรทัดครับผม

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

#8

by snasui » Sat Aug 18, 2018 9:50 am

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

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

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

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

#7

by bank9597 » Sat Aug 18, 2018 9:47 am

อาจารย์ครับ
ผมปรับโค๊ดแล้ว ผลลัพธ์ที่ได้จะเหมือนกับของเดิมที่ผมทำไว้ครับ
การขึ้นบรรทัดใหม่ยังไม่ถูกต้องและยังไม่ตรงกับบบรทัดด้านข้างครับ :(
Attachments
01.JPG
01.JPG (18.94 KiB) Viewed 61 times

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

#6

by snasui » Sat Aug 18, 2018 9:29 am

:D ลองปรับ 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

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

#5

by bank9597 » Sat Aug 18, 2018 8:50 am

snasui wrote: Sat Aug 18, 2018 8:39 am :D เงื่อนไขในการแก้ไขมีอะไรบ้างครับ :?:
เงื่อนไขในการแก้คือ หาข้อความที่มีตำแหน่งที่ 4และ 5ในข้อความเป็นเครื่องหมาย / ให้เอาข้อความนั้นมา Matchกับชีท Cai คอลัมน์ B แล้วดึงค่าในคอลัมน์ C ไปแทนที่ใน Word ครับ

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

#4

by snasui » Sat Aug 18, 2018 8:39 am

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

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

#3

by bank9597 » Fri Aug 17, 2018 10:43 pm

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

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

#2

by snasui » Fri Aug 17, 2018 10:30 pm

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

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

#1

by bank9597 » Fri Aug 17, 2018 10:27 pm

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

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

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

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

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

ขอบคุณมากครับ
Attachments
CAIU9352107_Layout.rtf
(335.57 KiB) Downloaded 7 times
ForTest.xlsm
(191.26 KiB) Downloaded 7 times

Top