Excel Forum

snasui wrote: Sat Aug 18, 2018 10:30 am ช่วยตอบว่า intCount ได้ค่าอะไรบ้าง ตรงกับบรรทัดไหนใน Excel บ้าง กรุณาตอบคำถามนี้ เป็นคำถามสำคัญครับ

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

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

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

ครับอาจารย์

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

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

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

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

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 ...

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

snasui wrote: Sat Aug 18, 2018 8:39 am เงื่อนไขในการแก้ไขมีอะไรบ้างครับ

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

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

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

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

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

ผมปรับโค๊ดยังไม่ได้ เลยอยากให้ลองช่วยดูหน่อยครับ ...

คุณ menem ครับ
ใกล้เคียงมากเลยครับ ขอบคุณมากเลยครับ ผมจะเอาไอเดียวไปต่อยอด แล้วนำไปสร้างเป็นโค๊ดต่อไป

ขอบคุณมากครับผม หากไปต่อไม่ได้ จะมารบกวนอีกครั้ง

ลองดูอีกครั้งครับ

ผมขอแนบไฟล์ภาพทั้ง 3 แบบ จะเป็นตัวอย่างรายงานครับ ขอบคุณครับผม

สวัสดีครับอาจารย์

ผมมีปัญหาอยากรบกวนให้ช่วยคิดสูตรหน่อยครับ ตามโจทย์ดังนี้ครับ

ผมมีประเภท Header อยู่ 3 แบบ แต่ละแบบจะสามารถใส่เนื้อหาได้ตามจำนวนที่ผมได้กำหนดไว้ในตาราง

แต่จำนวนบรรทัด จะขึ้นอยู่กับว่า มี SUB Total หรือ Grand Total หรือเปล่าด้วยครับ

เช่น Header ที่ 1 สามารถบรรจุเนื้อหาได้ 8 บรรท ...

แนบภาพที่ว่ามาดูหน่อยครับผม

ไม่ค่อยเข้าใจครับ แต่ลองคีย์ที่ B2 =A2&"_"&COUNTIF($A$2:A2,A2) ครับ

สามารถทำได้ครับ แต่ต้องทำด้วย vba ยังไงลองเขียนมาดูก่อนครับ

suka wrote: ขอบคุณค่ะอาจารย์ โค๊ดได้ตรงตามที่ต้องการแล้วค่ะ

ขอรบกวนถามความหมายของโค๊ด For Each r In rs.Columns(4).Cells นี้ จากตัวอย่างไฟล์หมายถึงไฟล์ Material_BSh คอลัมน์ D ใช่ไหมคะ

ตามนั้นครับ

ตรงส่วนใดที่เราจะใส่สูตร เราจะทำ DropDown ไม่ได้ครับ

ไม่เข้าใจโจทย์ครับ ลองทำตัวอย่างมาดูอีกครั้งได้ไหมครับ

ลองทำตามลิงค์ที่ว่าก่อนครับ ติดตรงไหนลองแนบไฟล์มาอีกครั้งครับ

ลองดูตามลิงค์ข้างล่างครับ
http://www.wikihow.com/Unshare-an-Excel-Workbook

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