Excel Forum

หนูทำได้แล้วค่ะ หนูก็ย้าย next loop แรก มาไว้ล่างสุด


ขอบคุณค่ะ

ลืมไปบรรทัดนึงค่ะ ขอแก้ไขรูป

อาจารย์และเพื่อนๆ ในบอร์ด พอดีหนูต้องการ เขียน loop การทำงานประมาณนี้ แต่ติดปัญหา ไม่ทราบว่า เราสามารถแก้ไขโค้ด
ในลักษณะนี้ได้อย่างไรค่ะ

เนื่องจาก Column A มีข้อมูลที่เป็น Commodity ต่างกัน หนูเขียนโค้ดให้เช็คค่า ในแต่ละ Column
A1=32
A2=35
A3=36

และใช้ loop for ในการวนค่า แล้วในรูป for มีการซ้อน ...

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

สวัสดีคะ อาจารย์ หนูมีเรื่องจะถามอีกแล้วค่ะ

อยากได้แนวคิดว่าโจทย์แบบนี้จะทำในลักษณะใดดี หนูลองใช้ vloopup ข้อมูลจาก database
แต่ก็ใช้ไม่ได้ผลเพราะ เลขที่ Vlookup(Column commodity) เหมือนกัน

สมมติ ข้อมูลดิบใน sheets แรก จะมีฟิลว์กำหนด Commodity จากภาพ
ถ้า Commodity เป็น 2 จะ copy ข้อมูลใน rowน ...

ขอบคุณค่ะอาจารย์ ต้องการแบบนี้ถูกแล้วค่ะ แต่ว่า Lotus notes ไม่สามารถส่งเมล์ไปได้หลายเมล์ หนูลอง ทำตามที่อาจารย์บอก
อีเมล์จะอยู่ในลักษณะนี้ svi.kannaree@gmail.com;kannaree@svi.co.th, ซึ่งไม่สามารถส่งได้

หนูเลยลองทดสอบ โดยการ copy อีเมล์และส่ง manual เพื่อตรวจสอบ string
(ตามรูป1) สามารถส่งออกไป 2 ...

*แนบรูปแรกผิดค่ะ

สามารถทำได้แล้วคะอาจารย์ พอดีว่าหนูทำ loop for ซ้อนกัน ตอนนี้สามารถแก้ปัญหาการส่งเมล์ได้แล้วค่ะ

ขอถามอีกคำถามนะคะอาจารย์ พอดีว่า จากโค้ดหนู Vloopup ไปหา sheets database เมื่อได้ Name ตรง และส่งเมล์ตาม column D

1.png

จะเห็นว่าถ้ามีหลายอีเมล์เราจะส่งไปได้อย่างไรค่ะ MyStringVar1 เราจะเขียนรับค่า ...

ขอบคุณมากค่ะ อาจารย์ หนูสามารถแนบไฟล์ไปได้แล้ว แต่หนูคิดว่า หนูน่าจะวน Loop ผิด
จึงอยากให้อาจารย์ช่วยตรวจสอบโค้ดให้หน่อยได้ไหมค่ะเพราะว่า กดส่งเมล์แล้ว มัน วน loop ไม่รู้จบ ค่ะ


'------------------ Send auto e-mail to supplier ---------------------
Private Sub CommandButton5_Click()

Dim ...

ต่อ

3.ตัวอย่าง Result ที่ได้ทำการแตกไฟล์ 4. Click ปุ่มเพื่อส่งอีเมล์ อัตโนมัติ *ฟังก์ชั่นที่เกิดปัญหา
ขอบคุณมากค่ะ

แนบไฟล์งานเพื่อทดสอบ
1. Click 2. ระบุ pathfile ที่จะแตกไฟล์แยกตามลูกค้า

ทำได้แล้วค่ะ อาจารย์แต่ติดปัญหาตรงวนลูป จริง ๆ ตั้งข้อมูลไว้แค่ 3 ลูกค้า
(ตามรูป)
1.png

แต่ข้อมูลส่งเมล์ ติด loop แถมไฟล์ก็ไม่ถูกแนบไป***


2.png

'------------------ Send auto e-mail to supplier ---------------------
Private Sub CommandButton5_Click()

Dim noSession As Object, noDatabase As ...

อยากทราบว่าเราสามารถเอาข้อมูลจาก sheets ไป vlookup กับชื่อไฟล์ได้หรือไม่ อย่างไรคะอาจารย์



ขอบคุณค่ะ

file for test :

สวัสดีคะอาจารย์และทุกๆท่าน

ฉันอยากจะทราบว่าเราสามารถ vlookup จากชื่อไฟล์ในโฟลเดอร์ได้หรือไม่ อย่างไรคะ
คือต้องการให้คลิกปุ่ม auto send mail

แล้วให้ vlookup หา file จาก folder ที่เก็บไว้ ถ้าชื่อไฟล์เหมือน column ให้ส่งเมล์ ตาม column [D]

ไม่ทราบว่า สามารถวนลูปได้ในลักษณะไหนคะ พอดีตอนนี้ fixไว ...

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




Do While strName <> vbNullString
If active_workbook.Name <> strName And strName <> "" Then
Workbooks.Open Filename:=File_Path & "\" & strName
Set dataset_workbook = ActiveWorkbook
Range ...

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

อยากให้ต่อกันตามรูปด้านล่างค่ะ

สวัสดีค่ะ
1. อยากสอบถามว่าถ้าต้องการเอาไฟล์มาต่อกัน แนวตั้งจะต้องแก้ไขโค้ดอย่างไรค่ะ
ลองดูแล้วทำไม่ได้ ได้แต่แนวนอนค่ะ
2. อีกอย่างค่ะ พอลอง test ดูแล้วลบข้อมูลเดิม กดเทสใหม่ ข้อมูลกลับไปต่อท้ายเป็น บรรทัดที่ไม่มีข้อมูลบรรทัดสุดท้าย
ข้อมูลไม่ขึ้นมาแสดงตรง b1

12.png


Private Sub ...

สวัสดีค่ะ อาจารย์และทุกท่าน รายละเอียดการทำระบบมีเยอะมากเปลี่ยนแปลงไปตาม requirement และมาลองทำดูแล้วไม่ประสบความสำเร็จ
ขอโทษทางเพจนะคะที่ต้องมาตั้งคำถามบ่อยๆ
รบกวนขอความช่วยเหลือจากทุกท่าด้วยค่ะ

311.png


จะเห็นว่าจากรูป Column A มีข้อมูล 3 ข้อมูล แต่ช่อง C , D มี 20 ข้อมูล
อยากคลิกปุ่ม แล ...