Snasui Excel Forum

ต้องการใช้ Code vba แปลงค่าตัวเลขที่จัดเก็บเป็น Number ให้เป็น Text ในบาง Column จะทำอย่างไรคะ
ตาม File ที่แนบมาต้องการให้ Column A ถึง Column D เป็น Text แต่ Column E เป็น Currency
และ Column F เป็น number ซึ่งปกติใน Excel จะใช้ Fomat Cell แต่ถ้าเป็น Code Vb ทำอย่างไรคะ

อยากได้ Code VBA ในการ Copy มูลไปวางไว้อีก File ค่ะแล้วเอาเฉพาะวันที่ไป
ตัวอย่างจาก File เดิม
26/7/2012 7:09:00
5/12/2012 17:06:00
13/12/2012 12:01:00
19/8/2012 16:59:00
27/7/2012 14:14:00
28/12/2012 11:51:00

ต้องการนำข้อมูลไปวางไว้อีก File โดยให้ข้อมูลแต่ละบรรทัดเป็นแบบนี้ค่ะ
26.07.2012
5.12.2012 ...

ได้แล้วค่ะ ลองทำ Macro ใหม่แล้ว Copy ไป VBA Code แล้ว Run อีกครั้งพอติดก็แก้ไข
ได้เป็น Code ตามด้านล่างนี้ค่ะ ขอบคุณมากนะคะ
Private Sub CmdCopyData_Click()

Windows("Book2.txt").Activate
Selection.Copy
Windows("Book1.xlsm").Activate
Sheets("Data1").Select
Selection.PasteSpecial Paste ...

เวลา Run ด้วย Macro ไม่ติดค่ะ แต่เวลา กดปุ่มเพื่อจะ Copy มัน Error ตั้งแต่บรรทัดแรกเลยค่ะ
ต้องปรับอะไรเพิ่มหรือเปล่าคะ

รบกวนสอบถามรูปแบบการเขียน VBA Code โดยใช้ปุ่ม Command Button Copy .txt File ไปวางใน Sheet ของ File Excel
เช่น Copy C:\New folder\Book2.txt ไปวางที่ C:\New folder\Book1.xlsm Sheet: Data1
Copy C:\New folder\Book3.txt ไปวางที่ C:\New folder\Book1.xlsm Sheet: Data2
Copy C:\New folder\Book4.txt ไปวางท ...

ขอบคุณมากนะคะ จะลองดูค่ะ

อาจารย์คะมีคำถามมาถามค่ะ ต้องการใช้สูตร vba ตัดข้อความใน Excel ค่ะ เช่น
31/7/2012 10:26:00
4/8/2012 19:45:00
11/8/2012 17:46:00
30/10/2012 18:57:00
คือต้องการตัดเฉพาะข้อมูลที่เป็นวันที่ไปใช้ค่ะ ไม่ต้องการเวลา
แต่ข้อมูลที่จะตัดไม่เท่ากันจะใช้ สูตรอะไรดีคะ
รบกวนด้วยค่ะ

เก่งมาก ๆ เลยค่ะ เคยเอาโจทย์นี้ไปถามวิทยากรที่มาสอน Excel ให้กับบริษัทฯ
เค้าให้คำตอบไม่ได้ ดิฉันเป็นมือใหม่หัดเขียน ขอฝากเนื้อฝากตัวด้วยค่ะ

Code ที่ถามเป็น Code ที่เขียนเองแล้วติดปัญหาค่ะ แต่บังเอิญไม่ได้เรียนทางด้านนี้โดยตรง
จบบัญชีมาค่ะ แต่มาศึกษาเอง เปิดหนังสือบ้างอ่านใน Internet บ้างค่ะ
Code ที่ให้ตัวอย่างไป คืออยากให้ Code ปรับข้อมูลที่ฐานข้อมูลก่อนค่ะ ค่อยนำไปที่
Sheet Template (คือ Copy วางที่ฐานข้อมูลเลย) แต่ที่อาจารย์ (ขออน ...

ได้แล้วค่ะ ขอบพระคุณมากเลย และต้องขอโทษด้วยนะคะ
ยังใหม่อยู่ค่ะ กะลังเรียนรู้ บางอย่างอาจไม่ตรงตามคำขอเท่าไหร่

ขอบคุณมากเลยค่ะ จะลองดูนะคะ

Private Sub CmdData_Click()
If r = 0 Then
r = 20000
End If


Sheet2.Range("A1", "BR" & r).ClearFormats

Dim n As Long

n = Sheet2.Range("O1:O2").Cells.Insert

r = 24

For i = 1 To 20000

If Trim(Sheet2.Cells(i, 1)) <> "" And Trim(Sheet2.Cells(i, 7)) <> "" And Trim(Sheet2.Cells(i, 19 ...

ส่ง File ที่เป็น .xlsm มาให้แล้วค่ะ Sheet Control มีการเขียน Code มาให้แล้วค่ะ
Sheet Data เป็นข้่อมูลที่ Load มาค่ะ
ส่วน sheet Template เป็นข้อมูลที่ได้หลังการ run vba แล้ว
ช่องสีเหลืองคือต้องการให้ข้อมูลด้านบนถูก copy มาวาง ตามบรรทัดที่ว่าง
แล้วเมื่อเจอข้อมูลใหม่ก็ให้ Copy ข้อมูลนั้นต่อลงมา ไปเร ...

File ใหญ่มากค่ะ เกิน 300 kb ทำอย่างไรดีคะ zip ไปได้หรือเปล่า

อยากได้สูตร vba ใน excel ในการ Copy ข้อมูลค่ะ จากตัวอย่างที่ส่งมา ต้องการให้ Column N copy รหัสลงมาทุกบรรทัดของข้อความ และเมื่อเริ่ม ข้อความใหม่ให้ copy รหัสใหม่ของข้อความนั้นลงมา
เช่น XL4560 ต้อง copy ลงมาอีก 3 บรรทัด
AK4505 ต้อง copy ลงมาอีก 3 บรรทัด
SK3900 ต้อง copy ลงมาอีก 5 บรรทัด
ข้่อมูลม ...