การทำ Text to Columns ด้วย Macro

[commongirl]

เดียลองทำการ Text to Columns ด้วย Macro แล้ว format วันที่ไม่ถูกต้องค่ะ กลับกันหมด
ถ้าทำแบบไม่ใช้มาโครดันถูก รบกวนผู้รู้ช่วยหน่อยค่ะ YY

Code: Select all

Sub Macro5()
    Sheets("Data").Select
    Selection.Copy
    Sheets("Textto").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1)), TrailingMinusNumbers _
        :=True

End Sub

[snasui]

ลองปรับ Code เป็นด้านล่างครับ

จากเดิมคือ Array(10, 1), Array(11, 1) ปรับเป็น Array(10, 4), Array(11, 4)

[commongirl]

ลองปรับ Code เป็นด้านล่างครับ

จากเดิมคือ Array(10, 1), Array(11, 1) ปรับเป็น Array(10, 4), Array(11, 4)

ลองปรับดูแล้วค่า ยังเป็นเหมือนเดิมเลยคะ ที่ถูกมันต้องเป็นเดือน 5 แต่มันกลายเป็นเดือน 7 ค่ะ YY

[commongirl]

ลองปรับ Code เป็นด้านล่างครับ

จากเดิมคือ Array(10, 1), Array(11, 1) ปรับเป็น Array(10, 4), Array(11, 4)

ลองปรับดูแล้วค่า ยังเป็นเหมือนเดิมเลยคะ ที่ถูกมันต้องเป็นเดือน 5 แต่มันกลายเป็นเดือน 7 ค่ะ YY

ทำได้แล้วค่า เดียลองเปลี่ยนเลข4เป็นเลข2ค่าา *\(^o^)/*

[snasui]

ลองปรับ Code เป็นด้านล่างครับ

จากเดิมคือ Array(10, 1), Array(11, 1) ปรับเป็น Array(10, 4), Array(11, 4)

ลองปรับดูแล้วค่า ยังเป็นเหมือนเดิมเลยคะ ที่ถูกมันต้องเป็นเดือน 5 แต่มันกลายเป็นเดือน 7 ค่ะ YY

ทำได้แล้วค่า เดียลองเปลี่ยนเลข4เป็นเลข2ค่าา *\(^o^)/*

ยินดีด้วยครับ ข้อความที่ผมระบายสีไว้นั้นผิดกฎข้อ 1 ด้านบนนะครับ