Snasui Excel Forum

ขอบคุณครับอาจารย์ ทางผมได้นำไปปรับใช้ แล้วสามารถช่วยให้ Excel เร็วขึ้นพอสมควร ดีกว่าการ Copy มากๆครับ

รบกวนทาง อาจารย์และผู้รู้ทั้งหมดครับ รบกวนช่วยดู Code ให้หน่อยครับว่าพอจะสามารถเขียนให้สั้นลงมากกว่านี้อีกไหมครับพอดีว่า พอนำไปใช้งานแล้ว Excel ค่อนข้างใช้เวลานานพอสมควร

พอดีทางผมต้องการให้ VBA ทำงานโดยการเปิดไฟล์ตามตำแหน่งที่อยู่ใน คอลัมน์ C4 และ Copyข้อมูลเฉพาะ บางคอลัมน์และมีทั้งหมด3 Sheet ...

ขอบคุณครับอาจารย์ สำหรับแนวทาง ตอนนี้ทางผมได้นำ Code ที่ได้มา แต่ในCode ที่ Macro ทำให้เป็นการกำหนดชื่อตามรูปแบบที่ผมเคยกำหนดไว้ แต่ถ้าหากเราต้องการให้ ผู้ใช้ตั้งชื่อด้วยตนเองต้องเพิ่ม Code อะไรลงไปครับ

ตัวอย่าง Code Macro ที่ได้
Sheets("Graph").Select
Cells.Select
Selection.Copy
Workbooks.Add ...

ขอบคุณครับอาจารย์ สำหรับแนวทาง ตอนนี้ทางผมได้นำ Code ที่ได้มา แต่ในCode ที่ Macro ทำให้เป็นการกำหนดชื่อตามรูปแบบที่ผมเคยกำหนดไว้ แต่ถ้าหากเราต้องการให้ ผู้ใช้ตั้งชื่อด้วยตนเองต้องเพิ่ม Code อะไรลงไปครับ

ตัวอย่าง Code Macro ที่ได้
Sheets("Graph").Select
Cells.Select
Selection.Copy
Workbooks.Add ...

ขอบคุณครับที่ช่วยตอบโพสของผม พอดีผมกลับไปแก้ไขได้แล้วครับ เกิดจากที่อยู่ไฟล์ที่จะImport Data ผิดรูปแบบครับ

อาจารย์ครับผมรบกวนอีกคำถาม คือพอดีผมต้องการ Copy SheetReport ให้เป็น New Workbook โดยให้กำหนดที่อยู่และชื่อไฟล์เอง ต้องใช้ คำสั่งด้านไหนครับ
ตัวอย่างโค้ดที่ทำขึ้น
Function saveandprint ...

เรียน อาจารย์
คือทางผมต้องการเขียน โค้ด VBA โดยการดึงข้อมูล Excel ทีอยู่คนละไฟล์กัน โดยผ่าน Textbox แต่ผมพยามแก้โค้ดหลายครั้งแล้วไม่แนน่ใจว่าผิดพลาดตรงคำสั่งไหนจึงทำให้ไม่สามารถ Copy ข้อมูลได้ ทั้งนี้ทางผมได้แนบตัวอย่าง โค้ดดังนี้ครับ

Function Dataperforman()
Dim wbI As Workbook, wbO As Workbook ...

:D ตัวอย่างสูตรการอ่านค่าในเซลล์ A1 ตามด้านล่างครับ
=SUBSTITUTE(BAHTTEXT(INT(A1))&IF(MOD(A1,1)=0,"","จุด"&BAHTTEXT(MID(TEXT(A1,"0.000"),3,1))&BAHTTEXT(MID(TEXT(A1,"0.000"),4,1))&BAHTTEXT(MID(TEXT(A1,"0.000"),5,1))),"บาทถ้วน","")


ขอบคุณครับ

snasui wrote: ช่วยยกตัวอย่างตัวเลขและคำอ่านที่ต้องการมาด้วยครับ

ตัวอย่าง 1.328 แปลงเป็น หนึ่งจุดสามสองแปด ประมาณนี้ครับ

ขอบคุณครับ

ผมได้ลองใช้แล้วครับ ทศนิยมได้แค่ 2 ตำแหน่ง ตำแหน่งที่สามมันไม่อ่านค่าครับ

รบกวนสอบถาม การแปลงจำนวนเงินให้เป็นตัวอักษร ถ้าเป็น ทศนิยม3ตำแหน่งสามารถใช้ ฟังก์ชัน ตัวไหนได้บ้างครับผม รบกวนหน่อยครับ

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

ผมรบกวนขอคำอธิบายตรงส่วนโค้ดด้วยได้หรือเปล่าครับ พอดีผมพึงเริ่มเขียน VBA ก่อนหน้านี้ ใช้แค่ C
wss.Range("A2:D2") _
.Resize(wss.Range("E1"), 4).Copy <<<<<ทำไหมต้องกำหนดค่าให้ E1 = 1
exOpen.Sheets("data").Range("A" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
wss.Range("A2:D2 ...

ขอบคุณครับ

ต้องขอโทษครับพอดีผมไม่ได้แจ้ง ว่าถ้าต้องการดึงจาก textboxในหน้า Userform นี้จะต้องเพิ่มยังไงบ้างครับ

เรียน คุณBank9597

ขอบคุณมากครับสำหรับไฟล์ตัวอย่าง ขอบคุณมากครับสำหรับสูตร ถ้าผมต้องการเมื่อขึ้นเดือนใหม่ให้ทำการรันเลข 0000ใหม่ แบบนี้ต้องเขียน เงื่อนไขอย่างไรครับ

แล้วถ้าจะต้องการให้ทำการบันทึกข้าม workbook โดยไฟล์ไม่ต้องเปิดแบบนี้ ประมาณไหนครับ


ขอบคุณมากๆครับ

ขอบคุณครับ

1.คือถ้าผมต้องการ ให้ TextBox แสดงข้อมูล แบบ อันตโนมัน ตามนี้ 2014060001 คำอธิบายคือ 2014 คือปีปัจจุบัน 06 คือเดือนปัจจุบัน 0001 คือลำดับที่มีการสมัครเข้ามาตามลำดับ ไม่ทราบว่าจะต้องเขียน สูตร VBA อย่าไรครับ
2.และมีการ นำข้อมูลจาก Form ที่กรอกข้อมูล ไปSave ในไฟล์ Excel อื่น จะต้องเขียนสูตรอย่างไรครับ ...