profile

 

logout

 

login

 

 

 

Macro membuat Arsir peta otomatis

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

Fungsi add in tegakan pokok per ha

untuk lebih mempermudah dalam penentuan tegakan pokok per ha , terpikir gimana kalo dibuat rumusnya dan dibuat addins di microsoft excel, akhirnya tercipta juga sebuah rumus .
hanya dengan mengetikkan =gshart(cell yang akan dirumus) maka keluarlah hasilnya.
misalnya :
pada cell1 kita tulis 130 dan pada cell a2 kita masukkan rumus =gshart1(a1) lalu tekan enter. maka akan muncul hasilnya utara selatan 9,42 timur barat 8,16.

Buat di VBA nya (tekan alt + F11) spt dibawah ini :
1. click menu insert module kemudian ketikan script seperti dibawahn ini :
Public Function gshart(x As Integer)
gshart = "Utara-Selatan " & Round(((5000 / (3 ^ 0.5) * 1 / x)) ^ 0.5 * 2, 2) & " Timur Barat " & Round(10000 / x / (((5000 / (3 ^ 0.5) * 1 / x)) ^ 0.5 * 2), 2)
End Function
2. tupup visual basic editor dan kembali ke msexcel dan simpan sebagai addins : missal gshart.xla
3. tambahkan addins yang telah dibuat tadi msexcel
4. selesai

download addin di http://www.ziddu.com/download/4416529/gshart.rar.html