Memang belajar VBA harus dua arah: - Mempermudah yang sulit untuk mempercepat pekerjaan - Mempersulit yang mudah supaya lebih kreatif
Salam, HK ________________________________ From: Jan Raisin <[email protected]> To: [email protected] Sent: Wednesday, 25 September 2013, 11:59 Subject: Re: [belajar-excel] membuat tabel dengan jumlah baris dan kolom sesuai input kalo menurut Jan.. lebih mudah dengan cara manual.. tinggal blok area yang ingin diberi border, lalu pilih jenis bordernya.. selesai.. simpel dan tidak berbelit-belit tapi.. kalo mau pakai vba.. coba lihat script di bawah ini: jumlah baris diinput pada cel c1, jumlah kolom diinput pada cel c2, lalu panggil vbanya.. maaf.. tidak melampirkan filenya.. Sub BorderOtomatis() Dim lRow As Long, iCol As Integer Dim rgClear As Range, rgTabel As Range lRow = Range("c1").Value iCol = Range("c2").Value If lRow < 1 Then MsgBox "Jumlah baris minimal harus 1", vbOKOnly Exit Sub End If If iCol < 1 Then MsgBox "Jumlah kolom minimal harus 1", vbOKOnly Exit Sub End If Application.ScreenUpdating = False Set rgClear = Range(Range("a5"), Range("a5").End(xlDown).End(xlToRight)) With rgClear .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone End With Set rgTabel = Range(Cells(5, 1), Cells(lRow + 4, iCol)) With rgTabel.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin End With With rgTabel.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin End With With rgTabel.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With With rgTabel.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin End With With rgTabel.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin End With With rgTabel.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin End With Application.ScreenUpdating = True End Sub Salam, -Miss Jan Raisin- Pada 25 September 2013 10.45, M.Ade Alfarid <[email protected]> menulis: Bisa kirim contohnya dan penjelasannya mas nandha? >Sketsa atau pola sederhana lebih dari cukup untuk melihat permasalahnnya. >Tidak usah script dulu,buatin aja gambar2nya inginnya seperti apa. >Jangan dibikin bingung mas, mudah2an BeExceler bisa membantu kesulitannya. > > >Salam, >Ade > > >On Wed, 25 Sep 2013 07:16:01 +0700, <[email protected]> wrote: > >> hali rekan-rekan, >> >> saya ingin membuat tabel dengan vba for excel, jadi saya ingin membuat >> userform >> isinya jumlah baris dan kolom, kemudian otomatis dibuat tabel sesuai >> jumlah >> baris dan kolom input, >> >> dalam artiannya begini, jika kita input jumlah baris 4 dan kolom 2, maka >> otomatis ada tabel sudah di border dengan 4 baris dan 2 kolom, >> >> scriptnya gimana ya?? bingung saya..hehe >> >> mohon bantuannya rekan-rekan >> >> >> terima kasih >
