Page 1 of 1
รบกวนขอเทคการเรียงข้อมูลใหม่ด้วยครับ
Posted: Thu Apr 12, 2012 5:21 pm
by akung
ผมมีข้อมูลอยู่ประมาณ 1 พันราย ต้องการเรียงข้อมูลใหม่เพื่อใช้ในการออก Label ส่งจดหมายครับไม่ทราบพอจะมีวิธีหรือเทคนิคอะไรหรือเปล่าครับขอบคุณครับ
Re: รบกวนขอเทคการเรียงข้อมูลใหม่ด้วยครับ
Posted: Thu Apr 12, 2012 6:46 pm
by songsug
เอาแบบนี้ไปแก้ขัดก่อนนะครับ พอดีวันนี้ฉลองกันนิดหน่อย
เลยคิดไม่ค่อยออก
Code: Select all
Private Sub cmdSort_Click()
Row = 2
MyPaste = 2
Do While Range("A" & Row).Value <> ""
Range("A" & Row, "C" & Row + 1).Copy
Range("E" & MyPaste).PasteSpecial Paste:=xlPasteValues, Transpose:=True
MyPaste = Selection.Row
Row = Row + 2
MyPaste = MyPaste + 4
Loop
MsgBox "เรียบร้อยแล้วครับ", vbOKOnly, "สถานะการทำงาน"
Application.CutCopyMode = xlCopy
Range("A2").Select
End Sub
การทำงานก็ไม่มีอะไรมากครับ ก็เขียนตามที่คุณใ้ห้มานั่นแหละ
Re: รบกวนขอเทคการเรียงข้อมูลใหม่ด้วยครับ
Posted: Fri Apr 13, 2012 4:21 pm
by akung
songsug wrote:เอาแบบนี้ไปแก้ขัดก่อนนะครับ พอดีวันนี้ฉลองกันนิดหน่อย
เลยคิดไม่ค่อยออก
Code: Select all
Private Sub cmdSort_Click()
Row = 2
MyPaste = 2
Do While Range("A" & Row).Value <> ""
Range("A" & Row, "C" & Row + 1).Copy
Range("E" & MyPaste).PasteSpecial Paste:=xlPasteValues, Transpose:=True
MyPaste = Selection.Row
Row = Row + 2
MyPaste = MyPaste + 4
Loop
MsgBox "เรียบร้อยแล้วครับ", vbOKOnly, "สถานะการทำงาน"
Application.CutCopyMode = xlCopy
Range("A2").Select
End Sub
การทำงานก็ไม่มีอะไรมากครับ ก็เขียนตามที่คุณใ้ห้มานั่นแหละ
ขอบคุณมากครับ ไม่เคยรู้เลยว่า Transpose ไว้ใช้ทำงานลักษณะนี้เอง
Re: รบกวนขอเทคการเรียงข้อมูลใหม่ด้วยครับ
Posted: Fri Apr 13, 2012 7:48 pm
by songsug
Transpose ใช้ในกรณีที่เราต้องการวางข้อมูลสลับกับข้อมูลตั้งต้น เช่น คัดลอกมาเป็น Row แล้ววางเป็น Column ครับ หรือ คัดลอกมาเป็นแบบ Column แล้ววางเป็น Row ครับ (สวัสดีวันสงกรานต์ครับ)