Snasui Excel Forum

Re: vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote March201711

#9

by March201711 » Sun Feb 02, 2020 6:45 pm

ไดเแล้วค่ะ ขอบคุณมากค่ะ

Re: vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote snasui

#8

by snasui » Sun Feb 02, 2020 6:23 am

ตัวอย่าง Code ครับ

Code: Select all

Dim strMth As String, d As Date
Dim rngSource As Range, rngTg As Range
With Workbooks("Source_data.xlsx").Worksheets("Data")
    strMth = Application.Text(.Range("a1").Value, "mmm")
    d = .Range("a1").Value
    Set rngSource = .Range("a3:d3")
End With
With Workbooks("DailyWork.xlsm")
    With .Worksheets(strMth)
        Set rngTg = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
        rngTg.Value = d
        rngTg.Offset(0, 1).Resize(1, 4).Value = rngSource.Value
    End With
End With

Re: vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote March201711

#7

by March201711 » Sat Feb 01, 2020 1:58 pm

Attachments

Source_data.xlsx

(8.98 KiB) Downloaded 16 times

DailyWork.xlsm

(37.59 KiB) Downloaded 16 times

Re: vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote snasui

#6

by snasui » Sat Feb 01, 2020 10:52 am

ปรับจากที่ผมตอบใน #2 มาเองดูก่อน ติดแล้วค่อยถามกันต่อครับ

Re: vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote March201711

#5

by March201711 » Sat Feb 01, 2020 10:48 am

Re: vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote snasui

#4

by snasui » Sat Feb 01, 2020 9:38 am

งานแบบนี้เมื่อใช้ VBA แล้วก็ไม่จำเป็นต้องใช้สูตร ให้คัดลอกรายการที่ตรงวันมาวางได้เลยครับ

ให้คัดลอกข้อมูลของแต่ละวันมาวางให้ตรงกับบรรทัดของวันนั้น ๆ แทน ไม่ทราบติดปัญหาอะไรถึงพยายามใช้วิธีการตามที่อธิบายมาครับ

Re: vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote March201711

#3

by March201711 » Sat Feb 01, 2020 8:50 am

ได้แล้วค่ะ
มีปัญหาอีกเรื่องนึงค่ะ เรื่องการ อัพเดทข้อมูลในวันถัดไปคือว่า ต้องการ copy บรรทัดก่อนหน้านั้นลงมาอีกบรรทัดนึงเพื่อเตรียมข้อมูลมารับรอง formula แต่บรรทัดก่อนหน้านั้นต้อง paste ข้อมูลเป็น value ก่อน ซึ่งข้อมูลวันก่อนนั้นสำคัญจำเป็นต้องเก็บไว้ค่ะ และข้อมูลมีเยอะมาก แต่ต้องเสียเวลามาปรับมืองเองตลอด เลยมีความจำเป็นต้องใช้ vba เข้าช่วย พอทำแล้วติดปัผญหาต้องมาปรับ line บรรทัดถัดไป ตรงrang มีวิธีให้ code รู้ไว้เองไหมคะ

Attachments

DailyWork.xlsm

(18.62 KiB) Downloaded 12 times

Source_data.xlsx

(8.39 KiB) Downloaded 10 times

Re: vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote snasui

#2

by snasui » Fri Jan 31, 2020 11:09 pm

ตัวอย่าง Code ครับ

Code: Select all

Dim dayOfMth As Variant, dataAll As Range
Dim rngCur As Range, r As Range
With Workbooks("Daily_rate.xlsx").Worksheets("AVG_SGD")
    Set dataAll = .Range("b3:m33")
End With
With Workbooks("BOT_rate.xlsm").Worksheets("Rate_BOT")
    dayOfMth = VBA.Split(VBA.Mid(.Range("a1"), VBA.InStr(.Range("a1"), "as of") + 6), " ")
    Set rngCur = .Range("b:b").Find("SGD").Offset(0, 3)
End With
For Each r In dataAll
    If r.Parent.Cells(r.Row, "a").Value = "Day " & dayOfMth(0) And _
        Application.Text(r.Parent.Cells(2, r.Column), "[$- ]mmmm") = dayOfMth(1) Then
        r.Value = rngCur.Value
        Exit For
    End If
Next r

vba ดึงข้อมูลตามวันเดือนปี ทุกวัน

• Quote March201711

#1

by March201711 » Fri Jan 31, 2020 4:42 pm

Attachments

Daily_rate.xlsx

(140.03 KiB) Downloaded 17 times