Setelah melihat video tutorial yang dibuat oleh jorgecamoes
Tergugah hati untuk membuat peta tematik di kebun dekat saya. file dapat di download di sini atau hubungi gshart1@gmail.com
Petunjuk pembuatan pembuatan arsiran warna blok :
1. Pada setiap blok buat image shape dan beri nama ( misal blok601) untuk lebih jelasnya klic blok 601 kemudian lihat pada status boxname.
2. Pada sel T3..u39 berinama blok
3. pada AA1 berinama kode0 pada AA2 berinama kode1 dst sampai AA7(untuk lebih jelasnya tempat kursor pada AA1, kemudian AA2 dst. dan lihat status nameboxnya.
4.Pada AD2..AE7 berinama nilai kode.
5. pada AD adalah batasan nilainya. pada AE diisi sesuai nama cell pada AA2 sd AA7 .
6. Pada AB12 berinama isiblok pada AB13 berinama nilai blok. dan masukkan rumus =VLOOKUP(isiblok;blok;2;FALSE) pada AB14 berinama kodewarna dan masukkan rumus =VLOOKUP(nilaiblok;AD2:AE7;2;TRUE)
Untuk membuat macro tombol ngecet peta
a. buka vba insert module dan masukkan macronya spt berikut :
Sub gantiwarna()
For i = 3 To 39
Range("isiblok").Value = Range("Peta!Q" & i).Value
ActiveSheet.Shapes(Range("isiblok").Value).Select
Selection.ShapeRange.Fill.ForeColor.RGB=Range(Range("kodewarna").Value).Interior.Color
Next i
Range("a27").Select
End Sub
Keterangan macro
3 to 39 adalah row 3 sampai dengan 39
Peta!Q adalah sheet Peta pada kolom Q untuk row 3 - 39 yang ditunjuk pada for i = 3 to 39.
b. Buat tombol :
- Insert button contol dan arahkan pada macro gantiwarna
SEKIAN
