Vba: cara mengatur nilai sel di lembar lain

Anda dapat menggunakan metode berikut di VBA untuk mengatur nilai sel di lembar lain:

Metode 1: Tetapkan nilai sel di lembar lain

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell value in Sheet2 equal to cell value in Sheet1
    wks2.Range(" A2 ").Value = wks1.Range(" A2 ").Value
    
End Sub

Makro khusus ini akan mengatur nilai sel A2 di Sheet2 sama dengan nilai sel A2 di Sheet1 .

Metode 2: Tetapkan Beberapa Nilai Sel di Lembar Lain

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell range in Sheet2 equal to cell range in Sheet1
    wks2.Range(" A2:A11 ").Value = wks1.Range(" A2:A11 ").Value
    
End Sub

Makro khusus ini akan menetapkan nilai setiap sel dalam rentang A2:A11 di Sheet2 agar sama dengan nilai setiap sel dalam rentang A2:A11 di Sheet1 .

Contoh berikut menunjukkan cara menggunakan masing-masing metode dalam praktik.

Contoh 1: Tetapkan nilai sel di lembar lain

Misalkan kita mempunyai lembar berikut yang disebut Lembar1 yang berisi nama-nama tim bola basket yang berbeda:

Dan misalkan kita mempunyai Sheet2 yang hanya berisi satu baris header:

Kita dapat membuat makro berikut untuk mengatur nilai sel A2 pada Sheet2 agar sama dengan nilai sel A2 pada Sheet1 :

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell value in Sheet2 equal to cell value in Sheet1
    wks2.Range(" A2 ").Value = wks1.Range(" A2 ").Value
    
End Sub

Saat kita menjalankan makro ini, kita dapat melihat bahwa nilai sel A2 dari Sheet2 sekarang disetel ke “Mavs”, yang cocok dengan nilai sel A2 dari Sheet1 :

Contoh 2: Tetapkan Beberapa Nilai Sel di Lembar Lain

Misalkan kita ingin mengatur nilai setiap sel dalam rentang A2:A11 dari Sheet2 agar sama dengan setiap sel dalam rentang A2:A11 dari Sheet1 .

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell range in Sheet2 equal to cell range in Sheet1
    wks2.Range(" A2:A11 ").Value = wks1.Range(" A2:A11 ").Value
    
End Sub

Saat kita menjalankan makro ini, kita dapat melihat bahwa nilai dalam rentang A2:A11 dari Sheet2 sekarang disetel menjadi sama dengan nilai dalam rentang A2:A11 dari Sheet1 :

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menemukan baris yang terakhir digunakan
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghitung jumlah kolom yang digunakan