Snasui Excel Forum

Re: การเขียนโค๊ต VBA ใน Excel ที่ส่งข้อมูลจากชีตหนึ่ง ไปอีกชีตหนึ่ง

• Quote Wreuangsri

#4

by Wreuangsri » Sat Oct 05, 2024 9:20 pm

Re: การเขียนโค๊ต VBA ใน Excel ที่ส่งข้อมูลจากชีตหนึ่ง ไปอีกชีตหนึ่ง

• Quote snasui

#3

by snasui » Sat Oct 05, 2024 9:03 pm

ตัวอย่าง Code ครับ

Code: Select all

Sub test0()
    Dim rAll As Range, r As Range
    Dim rTgAll As Range, i As Integer
    With Worksheets("Sheet1")
        Set rAll = .Range("b:w").SpecialCells(xlCellTypeConstants, 1)
    End With
    i = 1
    With Worksheets("Sheet2")
        .Range("a:x").ClearContents
        Set rTgAll = .Range("b2:w20")
        For Each r In rAll
            rTgAll(i).Value = r.Value
            i = i + 1
        Next r
    End With
End Sub[code]

Re: การเขียนโค๊ต VBA ใน Excel ที่ส่งข้อมูลจากชีตหนึ่ง ไปอีกชีตหนึ่ง

• Quote Wreuangsri

#2

by Wreuangsri » Sat Oct 05, 2024 6:01 pm

Attachments

เวิร์กบุ๊ก1.xlsm

(42.4 KiB) Downloaded 15 times

การเขียนโค๊ต VBA ใน Excel ที่ส่งข้อมูลจากชีตหนึ่ง ไปอีกชีตหนึ่ง

• Quote Wreuangsri

#1

by Wreuangsri » Sat Oct 05, 2024 2:26 pm

Attachments

เวิร์กบุ๊ก1.xlsm

(30.27 KiB) Downloaded 16 times