Salam Excel Yth para suhu dan rekan2 excellers,
Dengan mempelajari tuntunan para suhu disini, saya belajar membuat code VBA di
Module 1.
Sub FormulaRujukSekaligus() telah dicoba eksekusi, dan berjalan dengan baik.
Option Explicit
Public Sub FormulaRujukSekaligus()
Dim rng As Range
Dim lRec As Long
'init range
Set rng = Sheet1.Range("B3").CurrentRegion
lRec = rng.Rows.Count - 1
With rng
'beri nama range
.Offset(1).Resize(lRec, 1).Name = "myNama"
.Offset(1, 1).Resize(lRec, 1).Name = "myNom"
'RUMUS A. Masukkan Formula Biasa di Kolom 3 SEKALIGUS
.Offset(1, 2).Resize(lRec, 1).Formula = "=100-MATCH(B4,myNama,0)"
'RUMUS B. Masukkan FormulaArray di Sel Pertama Kolom 4, lalu Copast ke
Semua Records di Bawahnya.
.Offset(1, 3).Resize(1, 1).FormulaArray =
"=(MAX(IF(myNama=B4,myNom-(myNom>5)*11))+10)*10^4+(100-MATCH(B4,myNama,0))*100+(1+(C4<=5))*10+C4"
.Offset(1, 3).Resize(1, 1).Copy
.Offset(2, 3).Resize(lRec - 1, 1).PasteSpecial xlPasteFormulas
End With
End Sub
'Pertanyaan :
'1. Rumus B. Prosesnya terasa Terlalu Panjang, karena harus membuat rumus
di record pertama, lalu Copast ke records di bawahnya.
'Bagaimana coding VBA pada Rumus B. agar dapat mengkalkulasi SEKALIGUS
seperti pada Rumus A, TANPA harus pake Copast-copast-an?? Kalo bisa, mohon
diberi contoh lebih dari 1 cara :D
'Sekalian mohon diajarkan juga: bisakah method .copy diganti dengan
.filldown dalam kasus ini?? Bagaimana caranya??
'2. Rumus A. lookup_value -nya adalah MERUJUK LANGSUNG ke sel B4.
' Coding VBA dengan merujuk langsung seperti itu rentan merepotkan,
misalnya jika pada akhirnya kolom A ingin diDELETE karena tidak diperlukan,
maka code tsb harus diedit kembali. Padahal jika rumusnya langsung ditulis
disheet (Kolom G dan H), pada saat kolom A diDelete, maka rujukan rumusnya
menyesuaikan diri secara otomatis.
' Bisakah lookup_value ini ditulis dengan cara lain, TANPA harus
merujuk langsung seperti itu, agar bisa menyesuaikan diri secara otomatis
terhadap perubahan posisi sel rujukan??
Mohon berkenan memberi pencerahan, terima kasih sebelumnya.
Salam
Sinurat
VBA_MerujukRange_Susah2Gampang.xlsm
Description: Binary data
