กำหนดตำแหน่งใน Sheet Excel ด้วย Macro

............................................................................

สูตรใน Macro แบบที่ 1

Sheets("Sheet3").Range("A1").Select

ActiveCell.Value = "1"

 ............................................................................

แปล

วิธีการ
1. เริ่มจากมี File 1 File  ซึ่งเราจะเขียน Macro ไว้ในนั้น ในที่นี้ได้แก้ File 1.xlsm

2. เปิดส่วนของการสร้าง Macro
Copy สูตรไปแปะตามรูป

3. ทดสอบ Macro โดยสั่ง Run ตามรูป

4. ผลที่ได้จาก Run Macro

 ............................................................................

การเลือกตำแหน่งใน Sheet แบบต่างๆ 

วิธีการจะเหมือนเดิมต่างกันแค่ส่วนของสูตรที่นำไปแปะ  และผลที่ได้แตกต่างกันดังนี้


สูตรใน Macro แบบที่ 2

LR = 3

Sheets("Sheet3").Range("B1:B" & LR).Value = "1"

แปล

ผลที่ได้

............................................................................

สูตรใน Macro แบบที่ 3

        For i = 1 To 3

        Sheets("Sheet3").Range("C" & i).Value = "1"

        Next i

แปล

ผลที่ได้

............................................................................

สูตรใน Macro แบบที่ 4

        Sheets("Sheet3").Columns("D:D").Value = "1"

แปล

ผลที่ได้

............................................................................

สูตรใน Macro แบบที่ 5

        Sheets("Sheet3").Rows("5:5").Value = "1"

แปล

ผลที่ได้

 ............................................................................

สูตรใน Macro แบบที่ 6

Sheets("Sheet3").Range("A1").Value = "1"

Sheets("Sheet3").Range("A1").Offset(1, 0).Value = "2"

Sheets("Sheet3").Range("A1").Offset(0, 1).Value = "3"

Sheets("Sheet3").Range("A1").Offset(1, 1).Value = "4"

แปล

ผลที่ได้

............................................................................