Page 1 of 1

อยากคักลอกข้อมูลข้ามชีตโดยเรียงลงมาเรื่อยๆครับ

Posted: Tue Jul 31, 2018 9:51 pm
by yangkodza
A001.JPG
A002.JPG


ที่แผ่นงาน 001 ต้องกดปุ่มส่งข้อมูล แล้วข้อมูล ที่ เซล C3 จะถูกส่งไป แผ่นงาน 002 ที่ตำแหน่ง D1 โดยให้แสดงวันที่ ที่เซลล์ B1 และแสดงเวลาที่เซลล์ C1 ซึ่งเป็นเวลาในการส่งข้อมูลมาครับ

ตอนนี้ที่ผมทำ ข้อมูลส่งมาที่ แผ่นงาน001 เซลล์ G4 และเรียงลงมาเรื่อยๆครับ ซึ่งยังไม่ตรงวัตถุประสงค์
รบกวนชี้แนะด้วยครับ


ส่งข้อมูล.xlsm

Re: อยากคักลอกข้อมูลข้ามชีตโดยเรียงลงมาเรื่อยๆครับ

Posted: Wed Aug 01, 2018 6:57 am
by logic
ลองดูครับ

Code: Select all

Sub save()
Dim Lastrow As Integer
With Sheets("002")
    Lastrow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    .Cells(1 + Lastrow, 2).Value = Sheets("001").Range("c3").Value
    .Cells(1 + Lastrow, 3).Value = Date
    .Cells(1 + Lastrow, 4).Value = Time
End With
End Sub

Re: อยากคักลอกข้อมูลข้ามชีตโดยเรียงลงมาเรื่อยๆครับ

Posted: Wed Aug 01, 2018 8:49 am
by yangkodza
logic wrote: Wed Aug 01, 2018 6:57 am ลองดูครับ

Code: Select all

Sub save()
Dim Lastrow As Integer
With Sheets("002")
    Lastrow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    .Cells(1 + Lastrow, 2).Value = Sheets("001").Range("c3").Value
    .Cells(1 + Lastrow, 3).Value = Date
    .Cells(1 + Lastrow, 4).Value = Time
End With
End Sub
z888.JPG
ขอ run ลำดับอีก 1 รายการครับ ที่ 1 ก็เป็น A0001 ก็ได้ครับ
พอส่งข้อมูลครั้งต่อไปก็เป็น A0002 ครับ
ขอบคุณมากครับ

Re: อยากคักลอกข้อมูลข้ามชีตโดยเรียงลงมาเรื่อยๆครับ

Posted: Wed Aug 01, 2018 8:30 pm
by snasui
:D กรุณาเขียนมาเองก่อน ติดแล้วค่อยถามกัน ทุกปัญหาต้องเขียนมาเองก่อนเสมอครับ

Re: อยากคักลอกข้อมูลข้ามชีตโดยเรียงลงมาเรื่อยๆครับ

Posted: Thu Aug 02, 2018 11:40 am
by yangkodza
ทำได้แล้วครับ ลองผิดลองถูกเองดูพักใหญ่เลย

Code: Select all

With Sheets("ปลายทาง")
    Lastrow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    .Cells(1 + Lastrow, 4).Value = Sheets("ต้นทาง·").Range("R38").Value
    .Cells(1 + Lastrow, 2).Value = Date
    .Cells(1 + Lastrow, 3).Value = Time
    .Cells(1 + Lastrow, 1).Value = "A000" & Lastrow
End With
ขอบคุณมากๆครับ

สอบถามสูตรของค่าแรงรายวันและโอที คะ

Posted: Thu Aug 02, 2018 2:30 pm
by noi1462
ค่าแรงสูตร.xlsx
เรียน อาจารย์คะ

อยากจะสอบถามสูตร ในช่องของ คอลัมภ์ AM6 ,AN6 , AO6 ,AP 6 นะคะว่าจะต้องใช้สูตร excel อะไรคะ ที่จะได้ตัวเลข ของจำนวนวันทำงาน และโอที โดยคิดมาจาก ตารางของใบสรุปเวลาทำงาน นะคะ


ขอบคุณมากคะ

Re: สอบถามสูตรของค่าแรงรายวันและโอที คะ

Posted: Thu Aug 02, 2018 7:43 pm
by snasui
noi1462 wrote: Thu Aug 02, 2018 2:30 pm ค่าแรงสูตร.xlsx

เรียน อาจารย์คะ

อยากจะสอบถามสูตร ในช่องของ คอลัมภ์ AM6 ,AN6 , AO6 ,AP 6 นะคะว่าจะต้องใช้สูตร excel อะไรคะ ที่จะได้ตัวเลข ของจำนวนวันทำงาน และโอที โดยคิดมาจาก ตารางของใบสรุปเวลาทำงาน นะคะ


ขอบคุณมากคะ
:D กรณีไม่เกี่ยวกับกระทู้เดิม กรุณาตั้งกระทู้ใหม่ อ่านวิธีการได้ที่หัวข้อโปรดทราบด้านบนของหน้านี้ครับ :roll: