Excel Forum

คือผมอยากใช้ for ในการเช็คแถวที่ 1 ถึงแถวที่ 10,000 มีวิธีไหนบ้างนอกจากใช้ vba ผมไม่ค่อยมีความรู้ด้าน vba เท่าไหร่ขอบคุณครับ

คือผมเขียน vba ใน access ให้ export เป็น excel โดยให้ save ไว้ที่ไดว์ D แต่เปิดกับบางเครื่องมันฟ้อง error ตาม link ด้านล่าง


https://www.picz.in.th/image/gUkPBy

ส่วนโค้ด vba ก็


Function ExportToExcel()
Dim targetOut As String
targetOut = "D:\Book1.xls" 'ระบุตำแหน่งที่ต้องการ Export ออกไป
DoCmd ...

ได้แล้วครับ ใช้ =left(A1,10) ได้เลยครับ

ถ้าเป็น ms excel ถ้าใช้สูตรนี้กับวันที่มันจะได้เป็นตัวเลขธรรมดา แต่ถ้าใช้กับ google sheet ใช้กับวันที่ มันก็ดึงมาเป็นวันที่ครับ
ขอบคุณครับ

มันจะแสดงเป็น 20/10/2019 7:08 ซึ่งผมก็งงว่าทำไมใส่สูตรแล้วมันถึงไม่ดึงเฉพาะวันที่มา แต่ดึงทั้งหมดมา

ไม่แน่ใจว่าบอร์ดนี้สามารถถามเกี่ยวกับการใช้งาน google sheets ด้วยหรือป่าว ผมมีปัญหาคือย้ายจาก excel ไปที่ google sheets แต่ excel ผมใช้สูตรเยอะมาก แต่ที่มีปัญหาเลยคือสูตร text(A1,"dd/mm/yyyy") โดย A1 เป็น 20/10/2019 7:08 ไม่แน่ใจว่า google sheets มีสูตรดึงมาเฉพาะ dd/mm/yyyy ไหม

คือผมมี csv เยอะมาก หลายร้อยไฟล์ครั้งจะมานั่งเปิดทีละไฟล์แล้ว save as เป็น excel ก็น่าจะช้ามาก เลยอยากสอบถามว่ามีวิธีการแปลงไฟล์หลายๆ ไฟล์ไหม

หรือ

sql server สามารถนำเข้าไฟล์ csv ได้ไหม ผมรู้แต่วิธีนำ excel เข้า แต่ก็นำเข้าทีละไฟล์-

ขอบคุณครับ

งานจะมาเป็น excel ซึ่งมีทั้งงานเก่าและใหม่รวมกัน ซึ่งต้นเดือนผมได้รับงานเป็นงานแรก พอมากลางเดือนได้มาอีกไฟล์ ทีนี้อยากทราบว่า record เป็นงานเก่าหรืองานใหม่

ผมคิดว่ามันต้องมีการกระทบไฟล์เพื่อให้เหลือไฟล์ที่ไม่ซ้ำกัน แต่ผมไม่รู้จะใช้สูตรอะไรดีครับ

ขอบคุณครับ เดี๋ยวผมจะลองทำดูนะครับ พอดีผมเลี่ยง vba มานานมากแล้ว ใช้แต่สูตร excel ธรรมดา แต่เห็นความจำเป็นของ vba เลยมาหัดเขียน

sheet1 จะเป็นข้อมูลต้นทางครับ ซึ่งจะประกอบด้วยวันที่ และ ของเข้า ซึ่งจะคัดลอกข้อมูลของเข้าไปไว้ที่ Sheet2 ตามวันที่ครับ ซึ่งจะคัดลอกข้อมูลตั้งแต่วันที่ยังไม่มีข้อมูลของเขาถึงวันปัจจุบัน
จากตัวอย่าง จะทำการคัดลอก ข้อมูลของเข้าของวันที่ 3/11/2013 กับ 4/11/2013


ด้านล่างนี้เป็น code คัดลอกข้อมูลแต่ย ...

ยังไงหรือครับ สูตรคัดลอกข้อมูลคือ

Dim rs As Range, rt As Range

Set rs = Worksheets("Sheet2").Range("A1:A6") _

Set rt = Worksheets("Sheet").Range("A" & Rows.Count) _
.End(xlUp).Offset(1, 0)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False

คือ จริงๆ แล้วผมยังเขียนเงื่อนไขการคัดลอก ไม่่เป็นเลยครับ เป็นแต่คัดลอกข้อมูลซึ่งเป็นการคัดลองแบบ fix cell ด้วย แต่ผมต้องการคัดลอกตามวันที่คัรบ
เช่น คัดลอกข้อมูลใน วันที่ 1/11/2013 มาไว้อีกชีท โดยใส่ไว้ในวันที่ 1/11/2013

Worksheets("Sheet1").Range("b2").Value

พอดีช่วงนี้ยุ่งๆ แถมลืมอีกก็เลยกลับมาตอบครับ ขอบคุณครับ

ครับ พอดีช่วงนี้งานเข้าเยอะ แถมพอว่างดันลืมครับ ขอบคุณครับที่แจ้งเตือน

ดึงข้อมูลได้แล้วครับ แต่ติดปัญหาใหม่ครับ ตามที่ได้แจ้งข้างบน

ขอบคุณครับ

คือว่าผมทำ vba copy ข้อมูลได้แล้วครับ แต่ผมอยากให้ copy ข้อมูลโดยมีเงืนอไข เงือนไขผมจะcopy ข้อมูลตามวันที่ครับ


เช่น วันที่ 1/11/2013 มีข้อมูล 3 ก็ copy ข้อมูลไป sheet3 ตามวันที่คือ 1/11/2013

ทำให้ Refresh ได้แล้วครับ คือ ตอนที่ผมทำ macro มันก็สร้างเป็นโค้ด vba ให้แล้วครับ
แต่ตอนนี้ปัญหาผมคือจะดึงข้อมูลในเซลของ worksheet จะดึงอย่างไรครับ ใช่
Worksheets("Temp").select
Range(A1).value
หรือป่าวครับ

คือว่าผมใช้ Get External Data > From Web ฉะนั้น ในวันต่อไปผมแค่คลิกขวา Refresh ครับ ของเดิมผมใช้ macro มาช่วยในการกด Refresh แต่ผมอยากเพิ่มเงื่อนไขการกด refresh เลยคิดว่าต้องใช้ vba เข้ามาช่วย แต่ปัญหาคือผมไม่รู้คำสั่งในการ Refresh Wordsheet

พอดีว่าผมใช้ macro สั่งให้ worksheet Refresh ครับ อย่างนี้ VBA มีคำสั่ง Refresh ไหมครับ