Rumus dasar yg digunakan adalah : 1. Untuk koordinat sumbu X = Xawal + (sin Azimuth x Jarak Datar) 2. Untuk koordinat sumbu Y = Yawal + (Cos Azimuth x Jarak Datar)
Karena dalam Ms.Exel memakai sistem "RADIANS" maka "AZIMUTH" sebagai sudut "ALPA" harus diubah terlebih dahulu dengan cara : 1. Sin(Radians(Azimuth)) untuk di woorkbook Ms.Exel......atau 2. Dengan mengalikan Phi/180 ==> Sin((Azimuth x Phi)/180) untuk di VBA
Silahkan unduh file disini : UNDUH FILE Penggunaan fungsi ini sbb : Misalkan kita mempunyai data koordinat titik A sumbu X = 556695 Y=9724870 dengan hasil ukuran ke titik B Jarak Datar = 140, Azimuth 51,66 (Decimal Degrees) Berapakan koordinat titik B....?
Ketikan : - Azimuth pada cell A1 - Jarak Datar pada cell B1 - Koordinat sumbu X titik A pada cell C1 - Koordinat sumbu Y titik A pada cell D1 - Aktifkan/klik cell C2 untuk mencari koordinat sumbu X titik B dengan rumus : --- =CariKoordX(C1;B1;A1)......enter ==> 556805 -Aktifkan/klik cell D2 untuk mencari koordinat sumbu Y titik B dengan rumus : -- =CariKoordY(C1;B1;A1)......enter ==> 9724957
Catatan : - Cara mengaktifkan macro AddIns fungsi cari koordinat sama seperti postingan sebelumnya - Copy/Paste bisa dilakukan setelah menghapus/delete comment - Copy/Paste bisa dilakukan hanya per cell/tidak bisa di drag - Menghapus comment ==> active cell - klik kanan - Delete Comment - Mohon maaf atas ketidaknyamanannya.
