Snasui Excel Forum

ผมลองปรับแล้วครับ แต่ที่ไม่ได้เพราะในไฟล์งานจริง ผมเขียนโค้ดให้ copy เป็นช่วงของข้อมูล เช่น C4:g500
แต่ถ้าจะลองเปลี่ยนรูปแบบหรือลักษณะในเก็บฐานข้อมูลละครับ อาจารย์พอจะแนะนำแนวทางได้หรือไม่ครับ
หรือจะแก้ไขโค้ดให้เลือกเฉพาะช่วงที่มีข้อมูล

ผมใช้วิธีการแบบนี้ถูกหรือไม่ครับ
กด "f5" เลือก "แบบพิเศษ" เลือก "ที่ว่าง" แล้วกดปุ่ม del บนคีย์บอร์ด พร้อมบันทึกแมโคร
แล้วค่อยนำแมโครไปประยุกต์ใช้

snasui wrote: เหตุใดต้องลบทุกครั้งครับ อ่านที่ผมตอบและเข้าใจตามนั้นหรือไม่ครับ

งงๆ ครับ

และที่ อ. บอกว่าให้ลบข้อมูลในชีท DBberk ตั้งแต่แถว 20 จนถึงแถวล่างสุดทิ้งไปก่อน ผลลองนั่งแกะโค้ด คือโค้ดนี้หรือไม่ครับ หรือว่าต้องเข้าไปเลือกและลบเอง :D ให้ลบเองด้วย Manual เพราะเป็นการลบครั้งเดียว ที่ต้องลบเพราะมีค่าที่เป็นอุปสรรคต่อการวางข้อมูล เป็นค่าเกิดจากการทดสอบจึงจำเป็นต้อง Clear ทิ้งครับ ...

:D ให้ลบข้อมูลในชีท DBberk ตั้งแต่แถว 20 จนถึงแถวล่างสุดทิ้งไปก่อนครับ

ตัวอย่างการปรับ Code
Sub changeData_deberk() 'คลิกปรับปรุงข้อมูล แก้ไขแล้วบันทึกซ้ำ
Dim target As Range
With Sheets("DBberk")
Set target = .Range("b" & .Rows.Count).End(xlUp).Offset(1, 0)
End With
If Range("g3") = "" Then ...

คีย์ข้อมูลลงในชีท deberk ซึ่งเลขรหัสในเซลล์ g3 ลิ้งค์มาจากชีท databerk เซลล์ e3
โดยในชีท deberk จะคีย์ข้อมูลในคอลัมน์ c ถึง f แล้วเมื่อคลิ๊กปุ่ม บันทึกรายการพัสดุ จะนำข้อมูลในชีท deberk ไปจัดเก็บในชีท DBberk
แต่พอรันแมโครข้อมูลจะไปปรากฎที่แถว 518 ซึ่งไม่ต่อจากข้อมูลที่มีอยู่เดิม คือ แถว 19

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

ถ้าหากใช้ VBA ไม่ได้ จะใช้แนวทางไหนได้บ้างครับ

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

ผมได้ลองปรับใช้ VBA เกี่ยวกับการดึงข้อมูลจากฐานข้อมูล แต่ปรากฎว่าลองทำแล้ว ดึงข้อมูลมาไม่ได้
รบกวนช่วยแนะนำด้วยครับ
โค้ดที่ใช้ในหน้าสำหรับแสดงข้อมูล (ชีท find_deberk)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$d$1" And Target <> "" Then
showemp
ElseIf Target ...

ขอบคุณมากเลยครับ
ขอบคุณสำหรับคำแนะนำ
แสดงว่าการใช้สูตรแบบนี้ต้องระวังการจัดรูปแบบเซลล์ ต้องให้มีลักษณะที่เหมือนกันใช่หรือไม่ครับ (ไม่ทราบว่าผมเข้าใจถูกหรือไม่)

ขอความช่วยเหลือให้ดูสูตรการดึงข้อมูลให้หน่อยครับ
ผมลองนำสูตรที่ศึกษามา มาปรับใช้ดู ปรากฎว่าไม่มีข้อมูลมาแสดง สูตรที่ผมใช้ใน C5 เป็นดังนี้
=LOOKUP(CHAR(255),CHOOSE({1,2},"",INDEX(DBgrade!$A$2:$A$5,SMALL(IF(DBgrade!$O$2:$O$5=$A$2,IF(DBgrade!$P$2:$P$5=$B$2,IF(DBgrade!$Q$2:$Q$5=$C$2,ROW(DBgrade!$O$2:$O ...

ต้องการหาผลบวกของ ค่าในเซลล์ (A1*A2)+(B1*B2) พบว่าเซลล์ B2 เป็นเครื่องหมายขีด (-) ทำให้ค่าที่ออกมาเป็น #VALUE! จะมีวิธีแก้ไขอย่างไรบ้างให้หาผลคูณได้ โดยที่ไม่เปลี่ยนเครื่องหมายขีด แต่ให้ผลคูณในวงเล็บนั้นออกมาเป็น 0 แทน

ถ้าหากเราใช้วิธีการเว้นวรรคละครับ
หรือ จำกัดจำนวนอักขระในการพิมพ์ เมื่อครบตามจำนวนก็ให้ไปเซลล์ถัดไป ถ้าทำประมาณนี้จะได้หรือไม่ครับ

:D ทำได้ครับ อย่างที่บอกคือต้องระบุเงื่อนไขให้ได้ครับ

ลองแนบไฟล์ตัวอย่างมาดูครับ
แนบเอกสารตัวอย่างครับ
ข้อความมีการเว้นวรรค และให้แยกลงมาในแต่ละแถว ในคอลัมน์เดียวก ...

ถ้าหากเราใช้วิธีการเว้นวรรคละครับ
หรือ จำกัดจำนวนอักขระในการพิมพ์ เมื่อครบตามจำนวนก็ให้ไปเซลล์ถัดไป ถ้าทำประมาณนี้จะได้หรือไม่ครับ

ถ้าใช้คำสั่งให้ตัดเองอัตโนมัตินั้นไม่ได้ใช่หรือไม่ครับ

หากเรามีข้อความในเซลล์ใดเซลล์หนึ่งยาวๆ แล้วอยากให้ตัดข้อความเหล่านั้นออกมาเป็นส่วนๆ โดยอยู่กันคนละแถวกัน จะใช้สูตรใดได้บ้างในการจัดการดังกล่าว
ดังไฟล์แนบใน sheet2
ขอบคุณครับ

ขอบคุณมากครับ ในความช่วยเหลือครับ

ขอบคุณครับ
แต่ว่ายังไม่ตรงครับ ที่ต้องการคือ หากเซลล์ไหนที่ไม่มีข้อมูลไม่ต้องแสดงข้อมูลใดๆ ให้แสดงข้อความในเซลล์ที่มีข้อมูลมาต่อกัน

ปกติผมเชื่อมข้อมูลด้วยการใช้เครื่องหมาย & แต่เซลล์ทีไม่มีข้อมูลก็ยังแสดงอยู่ด้วย
รบกวนขอคำแนะนำว่าจะใช้สูตรอย่างไรได้บ้างที่จะนำเฉพาะเซลล์ที่มีข้อมูลมาเชื่อมต่อกัน เซลล์ไหนที่ไม่มีข้อมูลก็ไม่ต้องให้แสดง
แนบไฟล์มาให้ด้วยครับ โดยข้อความที่เชื่อมไว้จากการใช้ & แต่ถ้าเซลล์ไหนว่าง หรือมี - ไม่ต้องแสดงข ...