Excel Forum

อาจารย์ครับได้ปรับเปลี่ยนตามคำแนะนำ
อาการ Debug ไม่ปรากฏว่า ไม่มีข้อมูลใดๆมาทั้งสิ้น
ได้ทดสอบไล่คำสั่งดูพบว่ามันดันไป Copy ที่ชีท 1 ของไฟล์ FBI ที่ชื่อ Rest
และ Copy เฉพาะ A3:Q23
ช่วยด้วยครับ ไม่ว่าจะลองปรับเปลี่ยนโดนระบุเป็นชื่อเวิร์คบุ๊คโดยตรง ก็ยังทำไม่สำเร็จ
กลายเป็นตัวมัน Copy ชีท1 ตัวมันเอง ...

สวัสดีครับอาจารย์
วันนี้มีเรื่องรบกวนขอคำแนะนำการแก้ไข พยายามแล้วครับ
1.ต้องการนำเข้าข้อมูลจากไฟล์เอ็กเซลอืนที่มีหลายชีท
โดยทำการ Loop ชีท เพื่อนำเข้าข้อมูลให้ครบทุกชีท
2.เมื่อเปิดไฟล์ ให้เช็คก่อนว่าไฟล์ที่เลือกมีกี่ชีทนำค่าไปเก็บไว้
3.Loop คำสั่ง ให้ r = ชีท 1 , 2 .... จนเท่ากับจำนวนชีทที่เก็บค่าไว ...

ขออภัยครับอาจารย์ ที่ทำผิดหลักเกณฑ์
Dim ri As Range
Dim ry As Range
Dim rx As Range
Dim FileSaveName As String
Application.ScreenUpdating = False
If Sheet29.Range("A2").Value = "" Then
MsgBox "ไม่มีข้อมูลให้ส่งออก", vbOKOnly, "CIM 360"
Exit Sub
End If
Sheet29.Activate
On Error Resume Next
With ...

สวัสดีครับอาจารย์
วันนี้มีเรื่องรบกวนหน่อยครับ หัวข้อกระทู้อาจแปลกหน่อย
เพราะผมไม่ทราบว่าควรตั้งชื่ออย่างไร
มีคำสั่งดังนี้
Dim ri As Range
Dim ry As Range
Dim rx As Range
Dim FileSaveName As String
Application.ScreenUpdating = False
If Sheet29.Range("A2").Value = "" Then
MsgBox "ไม่มีข้อมูลให้ส ...

สวัสดีครับอาจารย์
มีเรื่องรบกวนขอความช่วยเหลือด้วยครับ
วันนี้นำโปรแกรมไปทดสอบใช้งาน
มีบางเครื่องมันเกิด bug ในขณะที่หลายเครื่องไม่พบปัญหา
อาการเหมือนว่ามันไม่ทราบค่า
code ดังนี้
Private Sub UserForm_Initialize()

On Error Resume Next
myPic = "C:\CIM360\Pic\CIM.jpg"
Image1.Picture = LoadPicture ...

สวัสดีครับอาจารย์
มีเรื่องให้ช่วยหน่อยครับ :roll:
ผมจะซ้อนคำสั่งอย่างไรดี
ทำแล้วไม่ได้ผล
'หนี้ค้างสวัสดิการ
If OptionButton20.Value = True And TextBox21.Value = "" And TextBox22.Value = "" And TextBox23.Value = "" And TextBox24.Value = "" Then 'หนี้ค้างสวัสดิการทั้งสาขา
On Error Resume Next
With ...

ขอบคุณมากครับสำหรับคำแนะนำ
พอเห็นอาจรย์พูดถึง
resize(,2)
ก็ทำให้นึกถึงสิ่งที่อาจารย์เคยสอน ในเรื่องของการดึงข้อมูลทั้งแถวที่บันทึกไว้
การส่งข้อมูลที่แก้ไขกลับไปบันทึกในตำแหน่งเดิม
เรื่องของ
lng = Application.Match(Sheet10.Range("S41"), .Range("C:C"), 0)
Set rt = .Range("C" & lng).Resize(, 14 ...

ขอบคุณมากครับอาจารย์
ขอเรียนถามต่อหน่อยนะครับ
จากการสังเกตุเมื่อรันคำสั่ง จะไม่เห็นตัวกรอง(ที่เป็นรูปลูกศรตรงหัวคอลัมม์ค้างอยู่ที่ Sheet LN001
จากฟอร์มอาจารย์จะเห็นว่า ผมมี TextBox สำหรับระบุหน่วย ซึ่งอยู่ที่คอลัมน์ B
เราสามารถซ้อนสองเงื่อนไขได้ไหมครับ คือสนใจสองเงื่อนไขพร้อมกัน
เช่นลูกค้าที่เกิน 1 ...

ทำเสร็จแล้วครับ
รบกวนอาจารย์ด้วยนะครับ
ในการทดสอบนี้สนใจลูกค้าที่มีวงเงินกู้เกิน 1000000 บาท(หนึ่งล้านบาท)ครับ

ได้ครับ งั้นเดี๋ยวลงมือสร้างไฟล์เฉพาะกิจก่อนครับ
เนื่องจากไฟล์งานตัวจริง เป็นไฟล์ขนาดใหญ่
ขอบคุณครับ

สวัสดีครับอาจารย์ ติดปัญหาแล้วครับหลังจากได้ลงมือทำ :roll:

หลังจากที่ได้รหัสลูกค้าตามวงเงินรวมที่เราต้องการแล้ว ติดปัญหา
ตรงส่งค่าเหล่านี้ไปกรอง ที่ผ่านมาเคยกำนดค่าตัวเดียว หรือค้นหาจำนวนมากกว่า น้อยกว่า
ลองบันทึกมาโคร ว่าเวลาเราติ๊กเลือกรายการที่ต้องการจากตัวกรองจะเป็นเช่นไร
พอดูมาโครก็มีแค่นี้คร ...

สวัสดีครับอาจารย์
หลังจากสอบถามอาจารย์ และไปนั่งคิดหาวิธีทำต่อ
ก็ได้ขั้นตอนในแบบของผมดังนี้
1.หาระเบียนที่ต่างกันก่อนจากรหัสลูกค้าในคอลัมน์A:A และไปวางไว้ ที่คอลัมน์ AA
2.ใช้ Do...Until loop เพื่อหายอดหนี้รวมของแต่ละรหัส(A:A) และรวมยอดหนี้รวมในคอลัมน์(B:B) จากสูตร =SUMIF(A:A, AA1, B:B)
ทำให ...

ขอบคุณมากครับอาจารย์สำหรับคำอธิบาย
มีอีกเรื่องที่อยากขอคำแนะนำจากอาจารย์ครับ ก็ยังคงเป็นความเกี่ยวเนื่องกับการค้นหา
คือไปเห็นงานที่เขาเขียนกับ visual basic โดยตรง
ในกรณีที่ลูกค้าหนึ่งคนมีเงินกู้หลายสัญญา แล้วเขาสามารถดูที่ยอดรวมของแต่ละคน
เช่นสนใจลูกค้ารายใหญ่ที่มีหนี้เงินกู้เกิน 1,000,000 บาท ระบบก ...

ขอบคุณครับ
รบกวนอาจารย์อธิบายสูตรเพื่อให้ความรู้หน่อยครับว่าถ้าแปลเป็นแบบไทยๆ
สูตรนี้ให้ความหมายการสั่งงานอย่างไรครับ
=IFERROR(MATCH(SUBSTITUTE(A6,"สัญญารวม",""),{"ต้นเงิน","ดอกเบี้ย"},0),0)
:roll:
ค่า1 และ 2 ที่ได้มาทั้งที่ไม่มีการระบุตัวเลขดังกล่าว เป็นเพราะ
เกิดจากการเขียนลำดับ "ต้นเงิน","ดอกเบ ...

อาจารย์ครับ ผมพยายามได้ในระดับหนึ่งแล้วครับ
ดังนี้...
=IF(ISNUMBER(FIND("รวมดอกเบี้ย",A6)),SUBSTITUTE(A6,A6,2),IF(ISNUMBER(FIND("รวมต้นเงิน",A6)),SUBSTITUTE(A6,A6,1),"0"))
ก็ใช้ได้ครับ
หรือมีสั้นกว่านี้อีกหรือเปล่าครับ.
ทุกครั้งที่คิดๆๆๆๆไม่ออกเป็นนานสองนาน
พอตัดสินใจถามอาจารย์ทีไร ก็คิกออกทุกท ...

สวัสดีครับอาจารย์
อาจารย์คงสบายดีนะครับวันนี้มีเรื่องจะรบกวนขอคำแนะนำหน่อยครับ

1.คือผมต้องการตรวจหาคำว่า"รวมดอกเบี้ย" และ"รวมต้นเงิน" ในข้อมูลที่อยู่ในคอลัมน์ A
หากพบให้แสดงค่าที่กำหนดในคอลัมน์ B
2.ปัจจุบันผมใช้ สูตรที่ตำแหน่ง B6 = RIGHT(A6,10) เพื่อหาคำที่ต้องการ
3.จากนั้นต้องแปลงค่าอีกครั้ง ท ...

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

สวัสดีครับอาจารย์
วันนี้มีเรื่องรบกวนหน่อยนะครับ
พอดีวันนี้ถูกเชิญไปสอนโปรแกรมช่วยงานธนาคาร
แต่หน้าแตกครับ เพราะเครื่องที่เขาจัดไว้ให้ไม่ได้เปิดใช้แมโคร
ซึ่งปกติการเปิดใช้ที่ แฟ้ม/ตัวเลือก/ศูนย์ความเชื่อถือ/การตั้งค่าศูนย์ความน่าเชื่อถือ/การตั้งค่าแมโคร/เลือเปิดใช้งานแมโครทั้งหมด(ตัวเลือกสุดท้าย)
พร ...

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

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

Do While wdApp.PrintPreview = True
Loop

มันเป็นคำสั่งให้ทำซ้ำๆ Loop จนกระทั่ง...

อธิบายให้ผมสักนิดนะครับ เพื่อจะได้ความรู้เพิ่มขึ้น
ว ...