Snasui Excel Forum

อาจารย์ครับ
พอจะมีวิธี VBA ในการ export ข้อมูลที่แนบมาเป็น .text ให้มีการ เว้นวรรค ต่างๆ เหมือนกับข้อมูลด้านล่างใไฟล์ที่แนบมา ครับ

VBA สามารถช่วยได้ไหมครับ อาจารย์

อาจารย์ครับ ผมใช่สูตร =A1&B1&C1 ใน cell D ซึ่งใน cell A , B , C มีข้อมูลเป็นตัวเลข ดังนี้ตามลำดับครับ
A / B / C
3.600 / 4.450 / 5.400

เวลาผมใส่สูตร ใน cell D =A1&" "&B1&" " &C1

ค่าที่ได้ 3.6 4.45 5.4

แต่ผมอยากให้ตัวเลขมาทั้ง 3 ตำแหน่งเลขครับอาจารย์ ผมอยากให้เป็น 3.600 4.450 5.400
ต้องทำยังไงดีคร ...

อาจารย์ครับ
ผมมีตัวเลขอยู่ใน cell A1:A4 เช่น
A B

3.6
5.55
4.5
6.65

ผมอยากเพิ่มเลข 0 ข้างหลัง ครับ ให้ครบ 3 ตำแหน่ง ซึ่งผม ทำการใส่สูตร = ในcell B แล้วอยากให้ตัวเลข ใน cell B เป็น
A B

3.6 3.600
5.55 5.550
4.5 4.550
6.65 6.650

รบกวนอาจารย์ ด้วยนะครับ :D

ข้อมูล input ใส่ค่า E เป็นช่วง เช่น 37000-37600 แล้วก็ใส่ค่า N เช่น 70000-80600 ถ้าหากข้อมูล ใน DATA มีค่า E กับ N ตามที่ได้ ใส่เข้ามา จะแสดงในช่องผลลัพธ์แล้วผมอยากให้ ข้อมูลในช่องผลลัพธ์แต่ละตัว ไปทำการดึงข้อมูล จาก sheets"DAT201" เช่น ผลลัพธ์ที่เป็น x5 ก็จะไปทำการดึงข้อมูล ที่เป็น X5 ทั้งหมดจาก ...

ขอบคุณมากครับอาจารย์ ของผม 2007 เลยติดปัญหาครับ

ยัง error อยู่เลยครับอาจารย์ excel มันไม่ save เป็น pdf แต่มันกลับสร้าง file excel อันใหม่ ที่มีชื่อ sheet เป็น test run ครับ แฮะๆ

ไฟล์ นี้ครับอาจารย์

ขอบคุณมากนะครับอาจารย์

เกรงใจอาจารย์ จังเลยครับ

Sub wsToText()
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets

Sheets(ws.Name).Select
Sheets(ws.Name).Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\text for app\" & ws.Name ...

พอดีผมมี Code ที่ save chart เป็น .gif แล้วครับ

คือ อันนี้
Sub Create_GIF()
Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects("Sheet1").Chart
mychart.Export Filename:="D:\Mychart.gif", FilterName:="GIF"
End Sub

แต่ยังไม่สามารถนำมาปรับใช้ กับ code ข้องล่างได้ครับ ไม่รู้ว่าต้องทำย ...

Sub wsToText()
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets

Sheets(ws.Name).Select
Sheets(ws.Name).Copy
ActiveWorkbook.SaveAs Filename:= _
"D:\text for app\" & ws.Name, _
FileFormat:=xlText, CreateBackup ...

เย่ๆๆ ได้แล้วครับ อาจารย์ ขอบคุณมากนะครับ

อาจารย์ช่วยลองดูให้ผมด้วยนะครับ

ขอบคุณมากครับ อาจารย์

Sub wsToText()
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets

Sheets(ws.Name).Select
Sheets(ws.Name).Copy
ActiveWorkbook.SaveAs Filename:= _
"D:\text for app" & ws.Name, _
FileFormat:=xlText, CreateBackup ...

Sub wsToText()
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets

Sheets(ws.Name).Select
Sheets(ws.Name).Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Administrator\Desktop\text for app" & ws.Name & ".txt ...

ขอบคุณครับอาจารย์ ผมจะลองทำดูครับ พอดีผมมือใหม่มากๆเลย ครับ แฮะๆๆ ขอบคุณมากนะครับ

พอจะแนะนำวิธีการ หรือ ไอเดีย ที่ให้ผมสามารถ copy ข้อมูลแต่ละชุด แล้ว วางใน sheet ที่ชื่อเหมือนกันกับข้อมมูล เช่นข้อมูล A ก็วางใน sheet A

พอดีผม มีข้อมูลชุดหนึ่งครับ

A 1 1
A 1 1
A 1 1
A 1 1

B 2 2
B 2 2
B 2 2
B 2 2
B 2 2

C 3 3
C 3 3
C 3 3
C 3 3

D 4 4
D 4 4
D 4 4
D 4 4

1.ผมได้สร้าง sheet A,B,C ...