Re: [belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom
mpilkan apa yang ditampilkan sumber data dan tidak menyimpan nilai sumber
> data)> jadi, ketika mengambil nilai dari listbox (misal si textbox mengambil
> nilai dari listbox, artinya si textbox sebagai peminta) : a. listbox yang
> diisi dengan add item akan menyerahkan nilai yang disimpan oleh si listbox
> kepada pihak yang meminta b. listbox yang diisi dengan listfillrange atau
> rowsource akan mengambilkan nilai dari sumbernya, lalu menyerahkan nilai yang
> diambil itu kepada pihak yang meminta> Pada listbox yang diisi dengan rujukan
> ke object lain (listfillrange atau rowsource) akan didapat nilai asli dari
> sumbernya.> Data tanggal bertipe datetime memiliki nilai asli berupa serial
> date dari 0 sampai sekian. > Kalau ambil dari listbox yang pakai
> listfillrange atau rowsource, dan sumber data bertipe datetime, lakukan
> format sebelum ditampilkan dalam textbox (fungsi Format di VBA, seperti
> fungsi Text di Excel dengan kelebihan dan kekurangan masing-masing)
On Wed, Mar 18, 2020 at 10:01 AM Gobang Gocir gobang13...@yahoo.com
[belajar-excel] wrote:
Dear Mr. Kid dan Milis Belajar Excel,
Trimakasih atas masukan dan pembelajaranya, setelah mencari apa yang di ajari
oleh Mr. Kid saya mendapatkan coding untuk Listbox yang sesuai dengan keinginan
saya, yang saya mau tanyakan bagaimana membuat hasil pencarian lebih flexibel,
karana coding sebelumnya hasil pencarian sangat flexibel, kemudian kenapa ya
textbox yang tampilan dari hasil listbox berupa tanggal, berubah formatnya
berikut codingnya, mohon bantuan untuk modifikasi coding di bawah ini, file
terlampir
Private Sub LbCariData_Click()
Dim Ws As WorksheetSet Ws = Sheets("DB")Dim wsrekap As WorksheetSet wsrekap =
Sheets("CARI")Dim R As RangeSet R = Ws.Range("ListDBA")Dim RFilter As RangeSet
RFilter = Ws.Range("CG1:CG2")Dim RCari As RangeSet RCari = Ws.Range("CG2")Dim C
As Variant
If Ws.FilterMode Then Ws.ShowAllData
If UserForm1.TxtCariData.Text = "" Then MsgBox "Maaf...!! Anda Belum
Memasukkan Data ..!!", 16, "Aplikasi Data" Exit Sub
End If UserForm1..TxtCariData.Text = RCari R.AdvancedFilter
Action:=xlFilterCopy, _ CriteriaRange:=RFilter,
CopyToRange:=wsrekap.Range("B3:BQ3"), Unique:=False ListBox1.RowSource =
"REKAPCARI"
End Sub
Trimakasih
Pada Senin, 16 Maret 2020 22.04.35 GMT+7, 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel] menulis:
ini mesti listbox yang unbound, yang ngisi listbox nya pakai additem trus isi
kolom berikutnya pakai properti List. Kalau pakai ini, maksimal hanya 10
kolom.mbok ya pakai listbox yang bound, ngisi listboxnya pakai ngeset area
range worksheet di properti ListFillRange (kalau listbox di worksheet) atau
RowSource (kalau listbox di userform)..Kalau pakai bound listbox seperti ini,
kalau mau nampilin header, set properti ColumnHeads bernilai true.. Ingat, area
range yang di-set hanya record data. baris header tidak ikut disebut tapi harus
tepat hanya di 1 baris sebelum baris pertama data.Kalau mau hide kolom, set di
columnwidths, supaya lebar kolom itu adalah 0.Kalau mau sort listbox, cukup
sort sumber datanya, lalu set ulang listfillrange atau rowsource
Contoh :regional setting : EN-ussheet bernama 'datanya kid'header di A1:Z1 (26
kolom)data di A2:Z37 (36 baris)header ditampilkankolom B (kolom ke-2) dan kolom
E (kolom ke-5) di-hide, selainnya ditampilkan
set di listbox (pakai script atau sejak design)1. ColumnCount : diset bernilai
262. ColumnHeads : diset true3. ListFillRange (kalau listbox di worksheet) atau
RowSource (kalau di userform) : diset berisi string berbunyi 'datanya
kid'!A2:Z374. ColumnWidths : diset 50;0;50;50;0 -> angka 50 adalah contoh
untuk kolom yang di-set dengan lebar 50 ptjika ada opsi sort isi listbox : -
lakukan sort di A1:Z37- kemudian set nomor 3 dengan vbnullstring -> di clear-
lalu set lagi nomor 3 dengan 'datanya kid'!A2:Z37 -> resetmau clear listbox ?
set nomor 3 dengan vbnullstring
properrti fillcolor untuk control namanya BackColorkondisi 'jika kosong'
berarti panjang karakter isinya adalah 0if len(textboxnya.text)=0 then
textboxnya.backcolor=vbwhite else textboxtnya.backcolor=vbyellow
On Mon, Mar 16, 2020 at 11:48 AM Gobang Gocir gobang13...@yahoo.com
[belajar-excel] wrote:
Dear Para Suhu Milis belajar Excel,
Mohon bantuanya untuk kasus saya, saya sudah mencoba "menyontek" code2 vba dari
internet termasuk dari milis excel, saya mempunyai data dengan banyak kolom,
dan saya ingin memunculkanya di form untuk sebagian informasi yang dianggap
penting, permasalahanya ketika saya mau tampilkan 12 dari kolom yang ada di
listbox ke textbox itu terjadi error, di listbox ke textbox yang ada hanya bisa
menampilkan 10 item.
Kemudian saya juga mencoba untuk membuat textbox berubah warna apa bila di
[belajar-excel] Mohon bantuanya, Bagaimana memunculkan informasi di listbox lebih dari sepuluh kolom
Dear Para Suhu Milis belajar Excel, Mohon bantuanya untuk kasus saya, saya sudah mencoba "menyontek" code2 vba dari internet termasuk dari milis excel, saya mempunyai data dengan banyak kolom, dan saya ingin memunculkanya di form untuk sebagian informasi yang dianggap penting, permasalahanya ketika saya mau tampilkan 12 dari kolom yang ada di listbox ke textbox itu terjadi error, di listbox ke textbox yang ada hanya bisa menampilkan 10 item. Kemudian saya juga mencoba untuk membuat textbox berubah warna apa bila di textbox tersebut kosong Trimakasih sebelum nya dan mohon Bantuanya, file terlampir Best RegardsBambang Assessment Database - Copy.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: [belajar-excel] Macro Untuk mengcopy nama folder di file excel
Dear Pak HK,
Trimakasih banyak, ini sangat membantu
Regards
On Thursday, February 13, 2020, 05:21:16 PM GMT+7, hendrik karnadi
hendrikkarn...@yahoo.com [belajar-excel] wrote:
Coba file terlampir buatan Mr. Kid (List Files in multi level folders).
Salam,HK
On Thursday, 13 February 2020, 02:21:39 pm GMT+7, Gobang Gocir
gobang13...@yahoo.com [belajar-excel] wrote:
Dear Guru2 dan pakar excel,
saya mohon bantuan macro yang bisa ambil semua nama2 folder yang ada dari path
tertentu di list/di urut di dalam excelapabila sudah ada yang bertanya dengan
hal yang sama bisa di share file nya
Trimakasih banyak atas bantuanyaBp #yiv9308582900 #yiv9308582900 --
#yiv9308582900ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}#yiv9308582900 #yiv9308582900ygrp-mkp hr {border:1px solid
#d8d8d8;}#yiv9308582900 #yiv9308582900ygrp-mkp #yiv9308582900hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv9308582900 #yiv9308582900ygrp-mkp #yiv9308582900ads
{margin-bottom:10px;}#yiv9308582900 #yiv9308582900ygrp-mkp .yiv9308582900ad
{padding:0 0;}#yiv9308582900 #yiv9308582900ygrp-mkp .yiv9308582900ad p
{margin:0;}#yiv9308582900 #yiv9308582900ygrp-mkp .yiv9308582900ad a
{color:#ff;text-decoration:none;}#yiv9308582900 #yiv9308582900ygrp-sponsor
#yiv9308582900ygrp-lc {font-family:Arial;}#yiv9308582900
#yiv9308582900ygrp-sponsor #yiv9308582900ygrp-lc #yiv9308582900hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9308582900
#yiv9308582900ygrp-sponsor #yiv9308582900ygrp-lc .yiv9308582900ad
{margin-bottom:10px;padding:0 0;}#yiv9308582900 #yiv9308582900actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9308582900
#yiv9308582900activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9308582900
#yiv9308582900activity span {font-weight:700;}#yiv9308582900
#yiv9308582900activity span:first-child
{text-transform:uppercase;}#yiv9308582900 #yiv9308582900activity span a
{color:#5085b6;text-decoration:none;}#yiv9308582900 #yiv9308582900activity span
span {color:#ff7900;}#yiv9308582900 #yiv9308582900activity span
.yiv9308582900underline {text-decoration:underline;}#yiv9308582900
.yiv9308582900attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv9308582900 .yiv9308582900attach div a
{text-decoration:none;}#yiv9308582900 .yiv9308582900attach img
{border:none;padding-right:5px;}#yiv9308582900 .yiv9308582900attach label
{display:block;margin-bottom:5px;}#yiv9308582900 .yiv9308582900attach label a
{text-decoration:none;}#yiv9308582900 blockquote {margin:0 0 0
4px;}#yiv9308582900 .yiv9308582900bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv9308582900
.yiv9308582900bold a {text-decoration:none;}#yiv9308582900 dd.yiv9308582900last
p a {font-family:Verdana;font-weight:700;}#yiv9308582900 dd.yiv9308582900last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9308582900
dd.yiv9308582900last p span.yiv9308582900yshortcuts
{margin-right:0;}#yiv9308582900 div.yiv9308582900attach-table div div a
{text-decoration:none;}#yiv9308582900 div.yiv9308582900attach-table
{width:400px;}#yiv9308582900 div.yiv9308582900file-title a, #yiv9308582900
div.yiv9308582900file-title a:active, #yiv9308582900
div.yiv9308582900file-title a:hover, #yiv9308582900 div.yiv9308582900file-title
a:visited {text-decoration:none;}#yiv9308582900 div.yiv9308582900photo-title a,
#yiv9308582900 div.yiv9308582900photo-title a:active, #yiv9308582900
div.yiv9308582900photo-title a:hover, #yiv9308582900
div.yiv9308582900photo-title a:visited {text-decoration:none;}#yiv9308582900
div#yiv9308582900ygrp-mlmsg #yiv9308582900ygrp-msg p a
span.yiv9308582900yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9308582900
.yiv9308582900green {color:#628c2a;}#yiv9308582900 .yiv9308582900MsoNormal
{margin:0 0 0 0;}#yiv9308582900 o {font-size:0;}#yiv9308582900
#yiv9308582900photos div {float:left;width:72px;}#yiv9308582900
#yiv9308582900photos div div {border:1px solid
#66;min-height:62px;overflow:hidden;width:62px;}#yiv9308582900
#yiv9308582900photos div label
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9308582900
#yiv9308582900reco-category {font-size:77%;}#yiv9308582900
#yiv9308582900reco-desc {font-size:77%;}#yiv9308582900 .yiv9308582900replbq
{margin:4px;}#yiv9308582900 #yiv9308582900ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv9308582900 #yiv9308582900ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9308582900
#yiv9308582900ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9308582900
#yiv9308582900ygrp-mlmsg select, #yiv9308582900 input, #yiv9308582900 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv9308582900
#yiv9308582900ygrp-mlmsg pre
[belajar-excel] Macro Untuk mengcopy nama folder di file excel
Dear Guru2 dan pakar excel, saya mohon bantuan macro yang bisa ambil semua nama2 folder yang ada dari path tertentu di list/di urut di dalam excelapabila sudah ada yang bertanya dengan hal yang sama bisa di share file nya Trimakasih banyak atas bantuanyaBp
[belajar-excel] Re: [milis-belajar-excel] Mohon Penerangan untuk funsi Concatenate
Dear All,Ok trimakasih
Regards
On Thursday, February 13, 2020, 11:23:12 AM GMT+7,
wrote:
#yiv4141929948 #yiv4141929948 -- _filtered {} _filtered {} _filtered {}
_filtered {}#yiv4141929948 #yiv4141929948 p.yiv4141929948MsoNormal,
#yiv4141929948 li.yiv4141929948MsoNormal, #yiv4141929948
div.yiv4141929948MsoNormal
{margin:0in;margin-bottom:.0001pt;font-size:11.0pt;font-family:sans-serif;}#yiv4141929948
a:link, #yiv4141929948 span.yiv4141929948MsoHyperlink
{color:blue;text-decoration:underline;}#yiv4141929948 a:visited, #yiv4141929948
span.yiv4141929948MsoHyperlinkFollowed
{color:purple;text-decoration:underline;}#yiv4141929948
p.yiv4141929948msonormal0, #yiv4141929948 li.yiv4141929948msonormal0,
#yiv4141929948 div.yiv4141929948msonormal0
{margin-right:0in;margin-left:0in;font-size:11.0pt;font-family:sans-serif;}#yiv4141929948
span.yiv4141929948EmailStyle19
{font-family:sans-serif;color:windowtext;}#yiv4141929948
.yiv4141929948MsoChpDefault {font-size:10.0pt;} _filtered {}#yiv4141929948
div.yiv4141929948WordSection1 {}#yiv4141929948
Di G1, coba ketik =Concatenate(A1,B1,C1,D1…)
Untuk cell kosong isikan dengan spasi
Thanks
Best Regards
Muhammad Iqbal
+62890909010/0811101854
From: 'Gobang Gocir' via milis Belajar-Excel
Sent: Wednesday, February 12, 2020 11:51 AM
To: BeExcel ; Milis Belajar-Excel
Subject: [milis-belajar-excel] Mohon Penerangan untuk funsi Concatenate
Dear All,
Mohon Maaf sebelumny mungkin pertanyaain ini sangat mendasar, saya mau tanya
kenapa saya coba rumus CONCATENATE (AI:AP1) untuk menggabungkan karakter dari
cell A1 sampai AP1 itu tidak berhasil, keluarnya #value,
apa ada yang salah dengan rumus saya,
dan satu lagi bagaimana ketika cell tersebut blank atau tidak terisi menjadi
spasi ketika di jadikan satu cell
Contoh
A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 Hasil di G1
P T A B C P R I M ABC PRIM,PT
Trimakasih Banyak atas bantuanya
Regards
--
You received this message because you are subscribed to the Google Groups
"milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to milis-belajar-excel+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/milis-belajar-excel/1368843981.1904140.1581483059203%40mail.yahoo.com.
Re: [milis-belajar-excel] Re: [belajar-excel] Mohon Penerangan untuk funsi Concatenate
Dear Mr. Kid,
Trimakasih Banyak atas ilmunya
Regards
On Wednesday, February 12, 2020, 12:22:08 PM GMT+7, Mr. Kid
wrote:
Concatenate setara dengan &=Concatenate( a1 , b1, c1 , dstdst
)=a1 yang kosong ingin diganti jadi spasi, pakai ifmisal a1
diganti jadi if(a1=""," ",a1) begitu juga b1,c1,dstdstdst
kalau di xl2019, bisa pakai concat atau
textjoin=concat(a1:ap1)=textjoin("",false,a1:ap1) -> false bisa diganti 0
karena false setara 0 dan true setara bilangan selain 0jika yang kosong ingin
diganti jadi spasi, pakai ifyaitu a1:ap1 diganti if(a1:ap1=""," ",a1:ap1)lalu
formula di entry dengan menekan CTRL SHIFT ENTER (jangan hanya menekan ENTER
doang)
masalah meletakkan ,pt maka ini butuh kriteria yang jelas apa saja batasan
hingga bisa ditulis jadi nama,gelar
kalau datanya banyak baris, ada baiknya menggunakan fitur power querykalau
maunya pakai vba, bikin function sendiri buat menggabungkannya lalu dipakai di
cells
On Wed, Feb 12, 2020 at 11:51 AM Gobang Gocir gobang13...@yahoo.com
[belajar-excel] wrote:
Dear All,
Mohon Maaf sebelumny mungkin pertanyaain ini sangat mendasar, saya mau tanya
kenapa saya coba rumus CONCATENATE (AI:AP1) untuk menggabungkan karakter dari
cell A1 sampai AP1 itu tidak berhasil, keluarnya #value,apa ada yang salah
dengan rumus saya,
dan satu lagi bagaimana ketika cell tersebut blank atau tidak terisi menjadi
spasi ketika di jadikan satu cell
Contoh
A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 Hasil di G1 P T A B C P R I M
ABC PRIM,PT
Trimakasih Banyak atas bantuanyaRegards
--
You received this message because you are subscribed to the Google Groups
"milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to milis-belajar-excel+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/milis-belajar-excel/CAOiZkPsNBvrxbFp%3DJuYPfVOD3Jnc1ApLqdjTgDU2%2BTeTfATG9g%40mail.gmail.com.
[belajar-excel] Mohon Penerangan untuk funsi Concatenate
Dear All, Mohon Maaf sebelumny mungkin pertanyaain ini sangat mendasar, saya mau tanya kenapa saya coba rumus CONCATENATE (AI:AP1) untuk menggabungkan karakter dari cell A1 sampai AP1 itu tidak berhasil, keluarnya #value,apa ada yang salah dengan rumus saya, dan satu lagi bagaimana ketika cell tersebut blank atau tidak terisi menjadi spasi ketika di jadikan satu cell Contoh A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 Hasil di G1 P T A B C P R I M ABC PRIM,PT Trimakasih Banyak atas bantuanyaRegards
