*Saya mau* menanggapi, mudah-2an tidak salah:
Sub bagaimana_1()
' ctv // 27 sep 2011
' mengatur Lebar Kolom dan Tinggi Baris
' khusus yg berindex GENAP
' pada range 100 Kolom x 100 Baris
Dim i As Long
For i = 1 To 100
If i Mod 2 = 0 Then
Cells(*i*, 1).RowHeight = 25
Cells(1, *i*).ColumnWidth = 20
End If
Next i
End Sub
Sub bagaimana_2()
' ctv // 27 sep 2011
' mengatur Tinggi Baris, khusus yg berindex GANJIL
' pada seluas sheet (semua baris)
' --agar proses tidak kelamaan, terutama di excel 2007/2010,
' --( jumlah baris dlm sheet excel 2007 = 1,048,576 !! )
' --property Rows.Count dapat anda ganti menjadi terbatas
' --misal : 200 atau misal 1000), kan hanya untuk percobaan
Dim i As Long
For i = 1 To Rows.Count
If i Mod 2 > 0 Then Cells(*i*, 1).RowHeight = 33
Next i
End Sub
Sub bagaimana_3()
' ctv // 27 sep 2011
' mengatur Lebar Kolom, khusus yg berindex GANJIL
' pada seluas sheet (semua KOLOM)
Dim i As Long
For i = 1 To Columns.Count
If i Mod 2 > 0 Then Cells(1, i).ColumnWidth = 4
Next i
End Sub
cmiiw
~siti
'-------
Berbedakah: Fungsi dan Formula<http://www.box.net/shared/d27y6st9nbt8la32m3cn>
?
2011/9/26 Iseng <[email protected]>
> Dear pakar XL-mania,
> *Saya mau tanya*, bagaimana cara mengubah height Row hanya khusus Row
> nomor ganjil saja, seperti 1, 3, 5, dst.....??
> Sekalian juga kalau bisa untuk yang Coloumn. Terima kasih.
>
>
