Page 1 of 1
ทำ Text to Columns ด้วย VBA แต่ วันทีไม่เป็น dd/mm/yyyy มีตัวอย่าง พร้อม Code ครับ
Posted: Sat Oct 22, 2022 4:25 pm
by ballkoong
ทำ Text to Columns ด้วย VBA แต่ วันทีไม่เป็น dd/mm/yyyy ครับ
ทำตั้งแต่เช้า จนเย็น ก็ยัง ทำไม่ได้ ครับ
Code: Select all
Sub Macro_Cell_A18Can_not_to_day()
'
Range("a1").Select
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(11, 1)), TrailingMinusNumbers:=True
End Sub
Re: ทำ Text to Columns ด้วย VBA แต่ วันทีไม่เป็น dd/mm/yyyy มีตัวอย่าง พร้อม Code ครับ
Posted: Sat Oct 22, 2022 4:59 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other code
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 4), Array(11, 1)), TrailingMinusNumbers:=True
'Other code
Re: ทำ Text to Columns ด้วย VBA แต่ วันทีไม่เป็น dd/mm/yyyy มีตัวอย่าง พร้อม Code ครับ
Posted: Sun Oct 23, 2022 9:14 am
by ballkoong
snasui wrote: Sat Oct 22, 2022 4:59 pm
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other code
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 4), Array(11, 1)), TrailingMinusNumbers:=True
'Other code
สุดยอดมาก ขอบคุณมากๆๆ เลยครับอาจารย์
