Saturday 25 April 2009

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

Featured Post

profile