Coba prosedur berikut : (letakkan di sebuah module [di VBE -> menu Insert
-> module])
public sub AturKolom()
dim lCols as long
activesheet.calculate
range("d1").resize(,lCols).columnwidth = 12 'ganti 12 dengan
lebar kolom yang diinginkan
'jika ingin hide kolom, aktifkan baris berikut dan non aktifkan baris
di atas
'range("d1").resize(,lCols).entirecolumn.hidden=true 'ganti true
menjadi false untuk meng-un-hide kolom
end sub
Wassalam,
Kid.
2012/8/18 rere <[email protected]>
> **
>
>
> salam teman2 mau tanya nih mis cell c1 hasil penjumlahan b1 dan a1.
> hasilnya 4. gimana caranya hasil 4 bisa langsung melakukan select otomatis
> ke coulomb d,e,f,g dan langsung merubah ukuran dari coloumb tersebut ??
>
>
>
>
