15 New Messages
Digest #2555
2g
Re: membuat tabel dengan jumlah baris dan kolom sesuai input [1 Atta by "hendrik karnadi" hendrikkarnadi
Messages
Tue Sep 24, 2013 3:26 pm (PDT) . Posted by:
"Elin Nurhayati"
Ass.Para Master excel, semoga para Master selalu ada dalam lindungan
AllohSWT Amien
Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
wrokbooknya tidak di share!
Sebelumnya saya ucapkan terima kasih.
---------- Forwarded message ----------
From: diman hidayat <dim4nhid4y4t@yahoo.com>
Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
Subject: TRS:
To: elinnurhayati4@gmail.com
Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
project is unviewable !mohon pencerahannya mengapa demikian! Karena
file tida di share wrokbook!
AllohSWT Amien
Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
wrokbooknya tidak di share!
Sebelumnya saya ucapkan terima kasih.
---------- Forwarded message ----------
From: diman hidayat <dim4nhid4y4t@
Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
Subject: TRS:
To: elinnurhayati4@
Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
project is unviewable !mohon pencerahannya mengapa demikian! Karena
file tida di share wrokbook!
Tue Sep 24, 2013 3:38 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Hai Elin,
Agak repot juga ya... Gak di-shared, bukan addin (.xla) atau sebenarnya xla
yang diganti ekstensinya jadi xls (bukan di set statusnya si workbook
supaya bukan xla lagi). VBProject gak bisa dilihat sama sekali.
Gini aja deh...
Kalau boleh tahu, filenya dibuat pakai Excel versi berapa ? Mungkin pakai
Excel 97 atau Excel 2000 kali ya. Kalau memang demikian, dan dulu kala itu
waktu membuatnya diproteksi, maka bisa begini kejadiannya.
Kemungkinan lainnya, si file dulu kala waktu dibuat, disemati digital
signature. Trus, kompie yang sekarang gak punya lagi tuh digital signature.
Maka bisa begini juga jadinya.
Kemungkinan apa lagi ya...
oh iya,
bisa jadi si file corrupt. Maka bisa begini juga kejadiannya.
Solusi dari semuanya apa ya...
Kalau dibuat di Excel 2000 kebawah, sepertinya minta dibuka lagi di Excel
2000 lalu dihilangkan password dan lock for viewing nya.
Kalau gara-gara digital signature, mau gimana lagi, harus minta lagi sama
yang buat. Mungkin gak ya dibuatin baru ? Coba aja di VBE di menu Tools
pilih Digital Signature
Kalau masalah file corrupt, mau diapain ya... kayanya diganti aja sama yang
gak corrupt ya. Di repair kayanya juga gak terlalu bagus kemungkinan
suksesnya, apalagi kalo yang dibutuhkan adalah VBProject-nya.
ya wis lah...
silakan ditimbang-timbang saja mau diputusin pakai cara gimana....
:)
tapi bisa aja semua ocehan diatas keliru kok.
kita tunggu BeExceller yang punya pengalaman beginian ya...
sabar.... sabar.... sabar...
Wassalam,
Kid.
2013/9/24 Elin Nurhayati <elinnurhayati4@gmail.com>
> **
>
>
> Ass.Para Master excel, semoga para Master selalu ada dalam lindungan
> AllohSWT Amien
> Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
> VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
> wrokbooknya tidak di share!
> Sebelumnya saya ucapkan terima kasih.
>
> ---------- Forwarded message ----------
> From: diman hidayat <dim4nhid4y4t@yahoo.com>
> Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
> Subject: TRS:
> To: elinnurhayati4@gmail.com
>
> Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
> selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
> tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
> project is unviewable !mohon pencerahannya mengapa demikian! Karena
> file tida di share wrokbook!
>
>
Hai Elin,
Agak repot juga ya... Gak di-shared, bukan addin (.xla) atau sebenarnya xla
yang diganti ekstensinya jadi xls (bukan di set statusnya si workbook
supaya bukan xla lagi). VBProject gak bisa dilihat sama sekali.
Gini aja deh...
Kalau boleh tahu, filenya dibuat pakai Excel versi berapa ? Mungkin pakai
Excel 97 atau Excel 2000 kali ya. Kalau memang demikian, dan dulu kala itu
waktu membuatnya diproteksi, maka bisa begini kejadiannya.
Kemungkinan lainnya, si file dulu kala waktu dibuat, disemati digital
signature. Trus, kompie yang sekarang gak punya lagi tuh digital signature.
Maka bisa begini juga jadinya.
Kemungkinan apa lagi ya...
oh iya,
bisa jadi si file corrupt. Maka bisa begini juga kejadiannya.
Solusi dari semuanya apa ya...
Kalau dibuat di Excel 2000 kebawah, sepertinya minta dibuka lagi di Excel
2000 lalu dihilangkan password dan lock for viewing nya.
Kalau gara-gara digital signature, mau gimana lagi, harus minta lagi sama
yang buat. Mungkin gak ya dibuatin baru ? Coba aja di VBE di menu Tools
pilih Digital Signature
Kalau masalah file corrupt, mau diapain ya... kayanya diganti aja sama yang
gak corrupt ya. Di repair kayanya juga gak terlalu bagus kemungkinan
suksesnya, apalagi kalo yang dibutuhkan adalah VBProject-nya.
ya wis lah...
silakan ditimbang-timbang saja mau diputusin pakai cara gimana....
:)
tapi bisa aja semua ocehan diatas keliru kok.
kita tunggu BeExceller yang punya pengalaman beginian ya...
sabar.... sabar.... sabar...
Wassalam,
Kid.
2013/9/24 Elin Nurhayati <elinnurhayati4@
> **
>
>
> Ass.Para Master excel, semoga para Master selalu ada dalam lindungan
> AllohSWT Amien
> Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
> VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
> wrokbooknya tidak di share!
> Sebelumnya saya ucapkan terima kasih.
>
> ---------- Forwarded message ----------
> From: diman hidayat <dim4nhid4y4t@
> Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
> Subject: TRS:
> To: elinnurhayati4@
>
> Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
> selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
> tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
> project is unviewable !mohon pencerahannya mengapa demikian! Karena
> file tida di share wrokbook!
>
>
Tue Sep 24, 2013 8:19 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Itulah seninya pake Excel. Disatu sini hebat bener, seolah-olah bisa segalanya, di sisi lain bisa tiba2 ga jelas kayak gini.
Kalau...
- yang buat ga bisa dihubungi (vbanya pasti ga bisa dibuka)
- filenya masih utuh dan masih sangat dibutuhkan
- diperlukan vba untuk menyelesaikannya.
sedikin urun rembug...
- Filenya di save as dengan nama lain (kalau bisa dengan Excel 2007 ke atas)
- Langkah2 yang diinginkan ditulis step by step (istilah Mr. Kid, bahasa manusianya)
- Di share ke milis (file disesuaikan, kalau perlu dibuat dummy file)
Semoga.. bisa sedikit membantu.
Salam,
HK
________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 25 September 2013, 5:38
Subject: Re: [belajar-excel]
Wa'alaikumussalam Wr. Wb.
Hai Elin,
Agak repot juga ya... Gak di-shared, bukan addin (.xla) atau sebenarnya xla yang diganti ekstensinya jadi xls (bukan di set statusnya si workbook supaya bukan xla lagi). VBProject gak bisa dilihat sama sekali.
Gini aja deh...
Kalau boleh tahu, filenya dibuat pakai Excel versi berapa ? Mungkin pakai Excel 97 atau Excel 2000 kali ya. Kalau memang demikian, dan dulu kala itu waktu membuatnya diproteksi, maka bisa begini kejadiannya.
Kemungkinan lainnya, si file dulu kala waktu dibuat, disemati digital signature. Trus, kompie yang sekarang gak punya lagi tuh digital signature. Maka bisa begini juga jadinya.
Kemungkinan apa lagi ya...
oh iya,
bisa jadi si file corrupt. Maka bisa begini juga kejadiannya.
Solusi dari semuanya apa ya...
Kalau dibuat di Excel 2000 kebawah, sepertinya minta dibuka lagi di Excel 2000 lalu dihilangkan password dan lock for viewing nya.
Kalau gara-gara digital signature, mau gimana lagi, harus minta lagi sama yang buat. Mungkin gak ya dibuatin baru ? Coba aja di VBE di menu Tools pilih Digital Signature
Kalau masalah file corrupt, mau diapain ya... kayanya diganti aja sama yang gak corrupt ya. Di repair kayanya juga gak terlalu bagus kemungkinan suksesnya, apalagi kalo yang dibutuhkan adalah VBProject-nya.
ya wis lah...
silakan ditimbang-timbang saja mau diputusin pakai cara gimana....
:)
tapi bisa aja semua ocehan diatas keliru kok.
kita tunggu BeExceller yang punya pengalaman beginian ya...
sabar.... sabar.... sabar...
Wassalam,
Kid.
2013/9/24 Elin Nurhayati <elinnurhayati4@gmail.com>
>
>Ass.Para Master excel, semoga para Master selalu ada dalam lindungan
>AllohSWT Amien
>Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
>VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
>wrokbooknya tidak di share!
>Sebelumnya saya ucapkan terima kasih.
>
>---------- Forwarded message ----------
>From: diman hidayat <dim4nhid4y4t@yahoo.com>
>Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
>Subject: TRS:
>To: elinnurhayati4@gmail.com
>
>Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
>selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
>tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
>project is unviewable !mohon pencerahannya mengapa demikian! Karena
>file tida di share wrokbook!
>
Kalau...
- yang buat ga bisa dihubungi (vbanya pasti ga bisa dibuka)
- filenya masih utuh dan masih sangat dibutuhkan
- diperlukan vba untuk menyelesaikannya.
sedikin urun rembug...
- Filenya di save as dengan nama lain (kalau bisa dengan Excel 2007 ke atas)
- Langkah2 yang diinginkan ditulis step by step (istilah Mr. Kid, bahasa manusianya)
- Di share ke milis (file disesuaikan, kalau perlu dibuat dummy file)
Semoga.. bisa sedikit membantu.
Salam,
HK
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Wednesday, 25 September 2013, 5:38
Subject: Re: [belajar-excel]
Wa'alaikumussal
Hai Elin,
Agak repot juga ya... Gak di-shared, bukan addin (.xla) atau sebenarnya xla yang diganti ekstensinya jadi xls (bukan di set statusnya si workbook supaya bukan xla lagi). VBProject gak bisa dilihat sama sekali.
Gini aja deh...
Kalau boleh tahu, filenya dibuat pakai Excel versi berapa ? Mungkin pakai Excel 97 atau Excel 2000 kali ya. Kalau memang demikian, dan dulu kala itu waktu membuatnya diproteksi, maka bisa begini kejadiannya.
Kemungkinan lainnya, si file dulu kala waktu dibuat, disemati digital signature. Trus, kompie yang sekarang gak punya lagi tuh digital signature. Maka bisa begini juga jadinya.
Kemungkinan apa lagi ya...
oh iya,
bisa jadi si file corrupt. Maka bisa begini juga kejadiannya.
Solusi dari semuanya apa ya...
Kalau dibuat di Excel 2000 kebawah, sepertinya minta dibuka lagi di Excel 2000 lalu dihilangkan password dan lock for viewing nya.
Kalau gara-gara digital signature, mau gimana lagi, harus minta lagi sama yang buat. Mungkin gak ya dibuatin baru ? Coba aja di VBE di menu Tools pilih Digital Signature
Kalau masalah file corrupt, mau diapain ya... kayanya diganti aja sama yang gak corrupt ya. Di repair kayanya juga gak terlalu bagus kemungkinan suksesnya, apalagi kalo yang dibutuhkan adalah VBProject-nya.
ya wis lah...
silakan ditimbang-timbang saja mau diputusin pakai cara gimana....
:)
tapi bisa aja semua ocehan diatas keliru kok.
kita tunggu BeExceller yang punya pengalaman beginian ya...
sabar.... sabar.... sabar...
Wassalam,
Kid.
2013/9/24 Elin Nurhayati <elinnurhayati4@
>
>Ass.Para Master excel, semoga para Master selalu ada dalam lindungan
>AllohSWT Amien
>Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
>VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
>wrokbooknya tidak di share!
>Sebelumnya saya ucapkan terima kasih.
>
>--------
>From: diman hidayat <dim4nhid4y4t@
>Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
>Subject: TRS:
>To: elinnurhayati4@
>
>Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
>selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
>tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
>project is unviewable !mohon pencerahannya mengapa demikian! Karena
>file tida di share wrokbook!
>
Tue Sep 24, 2013 8:39 pm (PDT) . Posted by:
"Elin Nurhayati"
Justru itu yang saya tidak tau Master. Entah dibuat di excel 1997 atau
2000. File tersebut saya download dari sini
Http/:www.excel-tool.com/vbarecovery.html
Sebenarnya file tersebut berfungsi untuk mengrecovery password VBA.
Maksud saya bertanya yang sebenarnya:
1. Saya ingin membuka dan ingin tau isi VBAnya.
2. Saya ingin file excel yang sudah saya buat ingin seperti itu.tidak
bisa di Recovery Passwordnya, sehingga aman dari tangan-tangan jahil.
Sebelumnya saya ucapkan terma kasih
2000. File tersebut saya download dari sini
Http/:www.excel-
Sebenarnya file tersebut berfungsi untuk mengrecovery password VBA.
Maksud saya bertanya yang sebenarnya:
1. Saya ingin membuka dan ingin tau isi VBAnya.
2. Saya ingin file excel yang sudah saya buat ingin seperti itu.tidak
bisa di Recovery Passwordnya, sehingga aman dari tangan-tangan jahil.
Sebelumnya saya ucapkan terma kasih
Tue Sep 24, 2013 8:39 pm (PDT) . Posted by:
mas_nandha
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..hehemohon bantuannya rekan-rekan
terima kasih
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..hehemohon bantuannya rekan-rekan
terima kasih
Tue Sep 24, 2013 8:59 pm (PDT) . Posted by:
"M.Ade Alfarid" aderyo
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, <mas_nandha@yahoo.co.id> 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
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, <mas_nandha@yahoo.
> 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
Tue Sep 24, 2013 9:35 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Contoh terlampir ga pake userform atau tabel, tapi idenya mungkin mirip.
User dapat mendesign sendiri kolom2 untuk Input,Database Input dan Database Output.
Langkah2 yang sudah dilaksanakan:
- Klik tombol "Persiapan" untuk mengisi Field (Judul) pada Sheet Input, DBInput dan DBOutput
- Klik tombol "Input Form" untuk masuk ke Sheet Input
- Isi data kemudian klik tombol "Smiley" untuk menyimpan data pada Sheet DBInput dan menghapus Inputan
- Klik tombol "kembali ke Sheet Design" untuk mengisi Kriteria
- Klik tombol Output utuk memfilter data yang memenuhi kriteria dan menyimpannya pada Sheet DBOutput.
Salam,
HK
________________________________
From: "mas_nandha@yahoo.co.id" <mas_nandha@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 25 September 2013, 7:16
Subject: [belajar-excel] membuat tabel dengan jumlah baris dan kolom sesuai input
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
User dapat mendesign sendiri kolom2 untuk Input,Database Input dan Database Output.
Langkah2 yang sudah dilaksanakan:
- Klik tombol "Persiapan&quo
- Klik tombol "Input Form" untuk masuk ke Sheet Input
- Isi data kemudian klik tombol "Smiley" untuk menyimpan data pada Sheet DBInput dan menghapus Inputan
- Klik tombol "kembali ke Sheet Design" untuk mengisi Kriteria
- Klik tombol Output utuk memfilter data yang memenuhi kriteria dan menyimpannya pada Sheet DBOutput.
Salam,
HK
____________
From: "mas_nandha@yahoo.
To: belajar-excel@
Sent: Wednesday, 25 September 2013, 7:16
Subject: [belajar-excel] membuat tabel dengan jumlah baris dan kolom sesuai input
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
Tue Sep 24, 2013 9:59 pm (PDT) . Posted by:
"Jan Raisin"
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 <QA@kkmi.co.id> 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, <mas_nandha@yahoo.co.id> 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
>
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("
iCol = Range("
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.
Set rgClear = Range(Range(
With rgClear
.Borders(xlDiagonal
.Borders(xlDiagonal
.Borders(xlEdgeLeft
.Borders(xlEdgeTop)
.Borders(xlEdgeBott
.Borders(xlEdgeRigh
.Borders(xlInsideVe
.Borders(xlInsideHo
End With
Set rgTabel = Range(Cells(
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
Application.
End Sub
Salam,
-Miss Jan Raisin-
Pada 25 September 2013 10.45, M.Ade Alfarid <QA@kkmi.co.id> 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, <mas_nandha@yahoo.
>
> > 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
>
Tue Sep 24, 2013 10:14 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Memang belajar VBA harus dua arah:
- Mempermudah yang sulit untuk mempercepat pekerjaan
- Mempersulit yang mudah supaya lebih kreatif
Salam,
HK
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
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 <QA@kkmi.co.id> 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, <mas_nandha@yahoo.co.id> 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
>
- Mempermudah yang sulit untuk mempercepat pekerjaan
- Mempersulit yang mudah supaya lebih kreatif
Salam,
HK
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
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("
iCol = Range("
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.
Set rgClear = Range(Range(
With rgClear
.Borders(xlDiagonal
.Borders(xlDiagonal
.Borders(xlEdgeLeft
.Borders(xlEdgeTop)
.Borders(xlEdgeBott
.Borders(xlEdgeRigh
.Borders(xlInsideVe
.Borders(xlInsideHo
End With
Set rgTabel = Range(Cells(
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
Application.
End Sub
Salam,
-Miss Jan Raisin-
Pada 25 September 2013 10.45, M.Ade Alfarid <QA@kkmi.co.id> 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, <mas_nandha@yahoo.
>
>> 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
>
Tue Sep 24, 2013 10:27 pm (PDT) . Posted by:
mas_nandha
wah terima kasih responnya teman2 Be Excel
jadi gini saya ingin membuat suatu program,
jadi program tersebut input datanya belum pasti jumlahnya,
sehingga saya ada ide membuat suatu userform ( terlampir )
nah, ketika saya meng input angka 20 pada userformnya maka
otomatis dibuat tabel ukuran 2x20 ( karena jumlah kolomnya saya
tentukan 2 buah ), dan tabel tersebut sudah terborder,
untuk kemudiannya saya ingin data di tabel tersebut di plot
menjadi sebuah chart, tapi itu urusan nanti saja..hehe
---In belajar-excel@
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 rgClear As Range, rgTabel As Range lRow =
Range("
< 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.
rgClear = Range(Range(
Range("
.Borders(xlDiagonal
.Borders(xlDiagonal
.Borders(xlEdgeLeft
.Borders(xlEdgeTop)
.Borders(xlEdgeBott
.Borders(xlEdgeRigh
.Borders(xlInsideVe
.Borders(xlInsideHo
Set rgTabel = Range(Cells(
With rgTabel.Borders(
.Weight = xlThin End With With rgTabel.Borders(
.LineStyle = xlContinuous .Weight = xlThin End
With With rgTabel.Borders(
xlContinuous .Weight = xlThin End With With
rgTabel.Borders(
.Weight = xlThin End With With
rgTabel.Borders(
xlContinuous .Weight = xlThin End With With
rgTabel.Borders(
xlContinuous .Weight = xlThin End With
Application.
Salam,
-Miss Jan Raisin-
Pada 25 September 2013 10.45, M.Ade Alfarid <QA@...
<mailto:QA@
Bisa kirim contohnya dan penjelasannya mas nandha?Sketsa atau
pola sederhana lebih dari cukup untuk melihat
permasalahnnya.
inginnya seperti apa. Jangan dibikin bingung mas, mudah2an
BeExceler bisa membantu kesulitannya.
Salam,Ade
On Wed, 25 Sep 2013 07:16:01 +0700, <mas_nandha@
<mailto:mas_
> 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
Tue Sep 24, 2013 11:15 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Kalau tujuannya cuma buat border, kayaknya ga usah repot bikin UserForm, cukup pake tombol (file terlampir)
- Untuk membuat border, select range (termasuk Header) kemudian klik "smiley"
- Untuk menghapus border, select range kemudian klik kanan
Salam,
HK
________________________________
From: "mas_nandha@yahoo.co.id" <mas_nandha@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 25 September 2013, 12:23
Subject: [belajar-excel] RE: membuat tabel dengan jumlah baris dan kolom sesuai input [1 Attachment]
wah terima kasih responnya teman2 Be Excel
jadi gini saya ingin membuat suatu program,
jadi program tersebut input datanya belum pasti jumlahnya, sehingga saya ada ide membuat suatu userform ( terlampir )
nah, ketika saya meng input angka 20 pada userformnya maka otomatis dibuat tabel ukuran 2x20 ( karena jumlah kolomnya saya tentukan 2 buah ), dan tabel tersebut sudah terborder,
untuk kemudiannya saya ingin data di tabel tersebut di plot menjadi sebuah chart, tapi itu urusan nanti saja..hehe
---In belajar-excel@yahoogroups.com, <miss.jan.raisin@...> wrote:
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 <QA@...> 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, <mas_nandha@...> 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
>>
- Untuk membuat border, select range (termasuk Header) kemudian klik "smiley"
- Untuk menghapus border, select range kemudian klik kanan
Salam,
HK
____________
From: "mas_nandha@yahoo.
To: belajar-excel@
Sent: Wednesday, 25 September 2013, 12:23
Subject: [belajar-excel] RE: membuat tabel dengan jumlah baris dan kolom sesuai input [1 Attachment]
wah terima kasih responnya teman2 Be Excel
jadi gini saya ingin membuat suatu program,
jadi program tersebut input datanya belum pasti jumlahnya, sehingga saya ada ide membuat suatu userform ( terlampir )
nah, ketika saya meng input angka 20 pada userformnya maka otomatis dibuat tabel ukuran 2x20 ( karena jumlah kolomnya saya tentukan 2 buah ), dan tabel tersebut sudah terborder,
untuk kemudiannya saya ingin data di tabel tersebut di plot menjadi sebuah chart, tapi itu urusan nanti saja..hehe
---In belajar-excel@
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("
iCol = Range("
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.
Set rgClear = Range(Range(
With rgClear
.Borders(xlDiagonal
.Borders(xlDiagonal
.Borders(xlEdgeLeft
.Borders(xlEdgeTop)
.Borders(xlEdgeBott
.Borders(xlEdgeRigh
.Borders(xlInsideVe
.Borders(xlInsideHo
End With
Set rgTabel = Range(Cells(
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
With rgTabel.Borders(
.LineStyle = xlContinuous
.Weight = xlThin
End With
Application.
End Sub
Salam,
-Miss Jan Raisin-
Pada 25 September 2013 10.45, M.Ade Alfarid <QA@...> 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, <mas_nandha@
>>
>>> 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
>>
Wed Sep 25, 2013 12:52 am (PDT) . Posted by:
mas_nandha
wah terima kasih om hendrik, idenya om hendrik mantap sekali,
tapi masalahnya jumlah barisnya itu belum diketahui, sehingga
membutuhkan input jumlah baris,
nah dari input jumlah barisnya nanti jadi jumlah baris yang
terborder, gitu lho oom?
---In belajar-excel@
Kalau tujuannya cuma buat border, kayaknya ga usah repot bikin
UserForm, cukup pake tombol (file terlampir)- Untuk membuat
border, select range (termasuk Header) kemudian klik "smiley"
Untuk menghapus border, select range kemudian klik kanan
Salam,HK
From: "mas_nandha@
To: belajar-excel@
Sent: Wednesday, 25 September 2013, 12:23
Subject: [belajar-excel] RE: membuat tabel dengan jumlah baris
dan kolom sesuai input [1 Attachment]
wah terima kasih responnya
teman2 Be Exceljadi gini saya ingin membuat suatu program,jadi
program tersebut input datanya belum pasti jumlahnya, sehingga
saya ada ide membuat suatu userform ( terlampir )nah, ketika saya
meng input angka 20 pada userformnya maka otomatis dibuat tabel
ukuran 2x20 ( karena jumlah kolomnya saya tentukan 2 buah ), dan
tabel tersebut sudah terborder,
untuk kemudiannya saya ingin data di tabel tersebut di plot
menjadi sebuah chart, tapi itu urusan nanti saja..hehe
---In belajar-excel@
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 rgClear As Range, rgTabel As Range lRow =
Range("
< 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.
rgClear = Range(Range(
Range("
.Borders(xlDiagonal
.Borders(xlDiagonal
.Borders(xlEdgeLeft
.Borders(xlEdgeTop)
.Borders(xlEdgeBott
.Borders(xlEdgeRigh
.Borders(xlInsideVe
.Borders(xlInsideHo
Set rgTabel = Range(Cells(
With rgTabel.Borders(
.Weight = xlThin End With With rgTabel.Borders(
.LineStyle = xlContinuous .Weight = xlThin End
With With rgTabel.Borders(
xlContinuous .Weight = xlThin End With With
rgTabel.Borders(
.Weight = xlThin End With With
rgTabel.Borders(
xlContinuous .Weight = xlThin End With With
rgTabel.Borders(
xlContinuous .Weight = xlThin End With
Application.
Salam,
-Miss Jan Raisin-
Pada 25 September 2013 10.45, M.Ade Alfarid <QA@...
<mailto:QA@
Bisa kirim contohnya dan penjelasannya mas nandha?Sketsa atau
pola sederhana lebih dari cukup untuk melihat
permasalahnnya.
inginnya seperti apa. Jangan dibikin bingung mas, mudah2an
BeExceler bisa membantu kesulitannya.
Salam,Ade
On Wed, 25 Sep 2013 07:16:01 +0700, <mas_nandha@
<mailto:mas_
> 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
Tue Sep 24, 2013 8:42 pm (PDT) . Posted by:
dayatshogun46
*** Bagaimana kalau daripada sekedar forward posting, dilakukan
penambahan informasi. Bisa jadi posting yang lalu tidak ada yang
tertarik menanggapi karena ketidak jelasan keinginan. Coba
jabarkan data awalnya yang mana, data akhirnya yang mana (hasil
kerja manualnya), kemudian prosesnya mau bagaimana, prosesnya
seberapa sering, apa saja batasannya, dan sebagainya. Kuatirnya,
kalau sekedar forward terus menerus, tetap tidak ada yang
menanggapi. ***
Dear rekan2
Mohon bantuannya untuk berbagi saran untuk pemecahan vb yang
mungkin masih tersenda karena search data januari 2013 belum tau
cara prosess macronya. Mohon saranya terimakasih
Regards
Dayat
Powered by Telkomsel BlackBerry�
penambahan informasi. Bisa jadi posting yang lalu tidak ada yang
tertarik menanggapi karena ketidak jelasan keinginan. Coba
jabarkan data awalnya yang mana, data akhirnya yang mana (hasil
kerja manualnya), kemudian prosesnya mau bagaimana, prosesnya
seberapa sering, apa saja batasannya, dan sebagainya. Kuatirnya,
kalau sekedar forward terus menerus, tetap tidak ada yang
menanggapi. ***
Dear rekan2
Mohon bantuannya untuk berbagi saran untuk pemecahan vb yang
mungkin masih tersenda karena search data januari 2013 belum tau
cara prosess macronya. Mohon saranya terimakasih
Regards
Dayat
Powered by Telkomsel BlackBerry�
Tue Sep 24, 2013 11:38 pm (PDT) . Posted by:
"Elin Nurhayati"
Assalamualaikum. wr.wb
Dear para Master excel. Masih mengenai file terlampir. Saya ingin
membuat file excel seperti file terlampir , ketika dibuka VBAnya
keluar keterangan project is unviewable tetapi tidak dishare !
Kira-kira bagaimana yaa caranya?
Sebelumnya saya ucapkan bnyak terima kasih.
---------- Forwarded message ----------
From: Elin Nurhayati <elinnurhayati4@gmail.com>
Date: Tue, 24 Sep 2013 21:46:02 +0700
Subject: [belajar-excel] [1 Attachment]
To: belajar-excel@yahoogroups.com
Ass.Para Master excel, semoga para Master selalu ada dalam lindungan
AllohSWT Amien
Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
wrokbooknya tidak di share!
Sebelumnya saya ucapkan terima kasih.
---------- Forwarded message ----------
From: diman hidayat <dim4nhid4y4t@yahoo.com>
Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
Subject: TRS:
To: elinnurhayati4@gmail.com
Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
project is unviewable !mohon pencerahannya mengapa demikian! Karena
file tida di share wrokbook!
Dear para Master excel. Masih mengenai file terlampir. Saya ingin
membuat file excel seperti file terlampir , ketika dibuka VBAnya
keluar keterangan project is unviewable tetapi tidak dishare !
Kira-kira bagaimana yaa caranya?
Sebelumnya saya ucapkan bnyak terima kasih.
---------- Forwarded message ----------
From: Elin Nurhayati <elinnurhayati4@
Date: Tue, 24 Sep 2013 21:46:02 +0700
Subject: [belajar-excel] [1 Attachment]
To: belajar-excel@
Ass.Para Master excel, semoga para Master selalu ada dalam lindungan
AllohSWT Amien
Dear Master excel mau tanya mengenai file terlampir. Kenapa kalau
VBAnya dibuka keluar keterangan (Project is unviewable)? padahal
wrokbooknya tidak di share!
Sebelumnya saya ucapkan terima kasih.
---------- Forwarded message ----------
From: diman hidayat <dim4nhid4y4t@
Date: Tue, 24 Sep 2013 22:33:27 +0800 (SGT)
Subject: TRS:
To: elinnurhayati4@
Ass.Para Master excel. salam sejhtera kami ucapken semoga para master
selalu ada dalam lindungan Alloh SWT amien.Dear para Master excel mau
tanya soal file terlampir,ketika saya buka VBAnya muncul keterangan
project is unviewable !mohon pencerahannya mengapa demikian! Karena
file tida di share wrokbook!
Wed Sep 25, 2013 12:23 am (PDT) . Posted by:
"Joyokusumo Naba" respati007
Dear Para Master,,
Saya Sudah mencoba untuk kasus Membuat Filter dengan menggunakan ListBox..
Saya Menggunakan MultiPage, pada Page 1 saya berhasil dengan Filter Listbox
Tapi Pada Page 2 saya tidak berhasil membuat Filter Listbox nya mohon pencerahan para Master, File terlampir untuk di pelajari.
Terima Kasih
Saya Sudah mencoba untuk kasus Membuat Filter dengan menggunakan ListBox..
Saya Menggunakan MultiPage, pada Page 1 saya berhasil dengan Filter Listbox
Tapi Pada Page 2 saya tidak berhasil membuat Filter Listbox nya mohon pencerahan para Master, File terlampir untuk di pelajari.
Terima Kasih
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar