Snasui Excel Forum

:D ลองเพิ่มการยกเลิกการ Update Screen เข้าไปช่วยครับ

'Other code
Application.ScreenUpdating = False
For i = 17 To rLast
If ws.Cells(i, 6) = name Then
ws.Range(Cells(i, 1), Cells(i, 7)).Copy
ws1.Range("B100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False ...

:D ลองเพิ่มการยกเลิกการ Update Screen เข้าไปช่วยครับ

'Other code
Application.ScreenUpdating = False
For i = 17 To rLast
If ws.Cells(i, 6) = name Then
ws.Range(Cells(i, 1), Cells(i, 7)).Copy
ws1.Range("B100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False ...

ทดลองเปลี่ยนโค๊ดตามที่แนะนำแล้วครับ ใช้ได้ผลดี คำตอบตรงตามที่ต้องการ ข้อ1.ครับ ขอบคุณมากครับ
แต่ยังมีปัญหาเรื่อง รูปแบบวันที่ตามข้อ2.รูปแบบวันที่ ที่ชีท "ช" เปลี่ยนไป (บางแถววันที่สลับกับเดือน)

:D ยังแก้ไม่ได้ครับ เลยปรับโค๊ดใหม่ดังนี้

Public Sub Moneyupdate()
Dim ws As Worksheet
Dim ws1 As ...

ทดลองเปลี่ยนโค๊ดตามที่แนะนำแล้วครับ ใช้ได้ผลดี คำตอบตรงตามที่ต้องการ ข้อ1.ครับ ขอบคุณมากครับ
แต่ยังมีปัญหาเรื่อง รูปแบบวันที่ตามข้อ2.รูปแบบวันที่ ที่ชีท "ช" เปลี่ยนไป (บางแถววันที่สลับกับเดือน)

:D ยังแก้ไม่ได้ครับ เลยปรับโค๊ดใหม่ดังนี้

Public Sub Moneyupdate()
Dim ws As Worksheet
Dim ws1 As ...

ทดลองเปลี่ยนโค๊ดตามที่แนะนำแล้วครับ ใช้ได้ผลดี คำตอบตรงตามที่ต้องการ ข้อ1.ครับ ขอบคุณมากครับ
แต่ยังมีปัญหาเรื่อง รูปแบบวันที่ตามข้อ2.รูปแบบวันที่ ที่ชีท "ช" เปลี่ยนไป (บางแถววันที่สลับกับเดือน)

ขอโทษครับ ผมลืมไปว่ามีรหัสครับ ผมแนบไฟล์ไม่มีรหัสมาใหม่แล้วนะครับ

:D ลองปรับโค๊ด :ard:
Public Sub Moneyupdate()
Dim a() As Variant, lng As Long
Dim r As Range, rAll As Range
Dim rt As Range, rl As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
rl = Rows.Count ...

bank9597 wrote: ลองดูครับ
แก้ปัญหารูปแบบวันที่ ไปที่ control panel > language and region > Administrative > change system local แล้วเลือกเป็น thai ครับ

ส่วนตัวโค๊ด ขอรหัสผ่านด้วยครับ เข้าไปทดสอบโค๊ดไม่ได้

เข้าไปตั้งค่าตามที่คุณบอกแล้วนะครับ ค่าเดิมก็เป็น thai อยู่ครับ เลยได้ผลเหมือนเดิมครับ

ขอโทษครับ ผมลืมไปว่ามีรหัสครับ ผมแนบไฟล์ไม่มีรหัสมาใหม่แล้วนะครับ

ผมดึงข้อมูลจาก mainsheet ไปไว้ที่ชีท "ช" โดนกดปุ่ม "Mon" แต่ ผลที่ได้มี่ปัญหาสองอย่างคือ
1.ที่แถว 17 เป็นแถวว่าง
2.รูปแบบวันที่ ที่ชีท "ช" เปลี่ยนไป (บางแถววันที่สลับกับเดือน)
จะแก้ไขได้อย่างไรครับ
Public Sub Moneyupdate()
Dim a() As Variant, lng As Long
Dim r As Range, rAll As Range
Dim rt As ...