Excel Forum

ได้แล้วครับ ขอบคุณมากๆๆ ครับ

astalavista wrote: Wed Nov 28, 2018 10:50 am ลองเพิ่ม

Code: Select all

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

ไว้ส่วนบนของ function
และ

Code: Select all

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

ไว้ตอนก่อนออกจาก function ดูครับ

ถ้าใช้อันนี้เร็วครับ ตอนแรกผมก็ใช้โค้ดนี้ครับ แต่ติดตรงที่ว่า ข้อมูลที่วางลงในเซลล์ มันอยู่ไม่ต่อเนื่องกันครับ มีเว้น A1:E1 แล้วข้ามไป G1:F1 ประมาณนี้ครับ และข้อมูลมีหมื่น ถึง สีหมื่น แถว เลยต้องหาโค้ดใหม่ เพื่อมาช่วยให้เร็วขึ้นครับ
ขอบคุณครับ


:D ลองวางที่ชีตใด ๆ ดูก่อนว่าเร็วขึ้นหรือไม่ครับ

ต ...

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

Do While rs.EOF = False
Sheets(tName).Cells(i + 5, 1).Value = rs.Fields("CarID")
Sheets(tName).Cells(i + 5, 2).Value = rs.Fields("ID")
rs.MoveNext
i = i + 1 ...

ผมลองทำแล้ว แต่ยังไม่เข้าใจ พอรันแล้ว ขึ้น error รูปครับ error ตรง For Each fld In rs.Fields(iCount) ครับ
ขอบคุณครับ
Image 1.jpg


Function DataIB()
Dim rs As ADODB.Recordset
Dim Connected As Boolean
Dim sql As String
Dim tName As String
Dim iCount, Rws, Col As Integer
Dim fld As Range ...

ผมเขียน vba connect กับ sql ครับ ซึ่งทำได้แล้ว แต่ติดปัญหาคือ
Column ที่จะให้โชว์ข้อมูลไม่ได้อยู่ติดกันทั้งหมดครับ ตอนนี้ผมใช้วิธี เขียนดึงข้อมูลตามจำนวนช่อง เช่น อันแรกช่อง A - E อันกที่ 2 E -G แบบนี้ก็ทำการดึง 2 รอบครับ
ถ้ามีข้อมูลเยอะๆ ทำให้ดึงข้อมูลช้ามากๆ ไม่ทราบว่าพอจะมีวิธีที่ดึงข้อมูลคั้งเด ...

อีกวิธีให้ปรับ format เป็น 0;-0; ครับ

ขอบพระคุณมาก ๆ ๆ ครับ อาจารย์

สวัสดีครับ
ผมอยากให้รหัสใน List โชว์เฉพาะรหัสที่มีข้อมูลเงินเดือนครับ

ไม่ทราบว่าจะทำยังไงได้บ้างครับ

ขอบคุณครับ