Senin, 09 Juli 2012

[belajar-excel] Digest Number 1682

5 New Messages
Digest #1682
1a
help me by "Mohammad Syafii" piihs_klik_kom
1b
Re: help me by "Ki Semprul" ki_semprull
4a
Re: Filter menggunakan Listbox by "rodhy hakim" odhyz83_assasaky

Sun Jul 8, 2012 4:16 am (PDT) . Posted by: "Mohammad Syafii" piihs_klik_kom
Minta bantuannya dong gan.... saya lagi ngerjain vba di excel dan punya sedikit masalah?
saya punya 11 textbox di form1 textbox1 - 5 untuk input numeric textbox6 - 10 adalah hasil perkalian
misalnya
textbox1 * 5000 = textbox6
textbox2 * 20000 = textbox7 dst
dan di textbox 11 hasil penjumlahan dari textbox6, 7, 8, 9 dan textbox10
bagaimana ya caranya supaya setiap saya masukkan angka di textbox1 dan
saya enter textbox 6 langsung menunjukkan hasilnya dan seterusnya begitu
juga dengan textbox11

terima kasih sebelumnya atas pencerahannya
semoga ilmu kita terus bertambah dan berguna bagi orang lain

email : piihs_klik_kom@yahoo.com
Sun Jul 8, 2012 11:34 am (PDT) . Posted by: "Ki Semprul" ki_semprull
Subject kok "HELP ME" ! Jadi Topiknya apa dong ??
Lagi pula ini kan sudah diatur di "Peraturan Milis", Pernah dibaca kah ?

*" > caranya supaya setiap saya masukkan angka di textbox1 dan saya enter
textbox 6
> langsung menunjukkan hasilnya dan seterusnya begitu juga dengan
textbox11"
*
Syarat untuk otomatisnya textbox terisi data tidak perlu DUA syarat spt
itu, malah "bikin" bingung"
Menunut pendapatku saya cukup 1 saja
"-- jika TextBox6 DIENTER dengan Mouse-Pointr maka... : semua hal yg anda
ingnkan terjadi

*Private Sub TextBox6_MouseDown(ByVal Button As Integer, ByVal Shift As
Integer, _*
* ByVal X As
Single, ByVal Y As Single)*
TextBox6.Value = TextBox1.Value * 5000
TextBox7.Value = TextBox2.Value * 20000
'* "dan seterusnya" = tidak bisa diprogramkan
' ("* *dan seterusnya* *" itu sejenis TextBox Kah?)*
TextBox11.Value = Format(TextBox6.Value + TextBox7.Value + TextBox8.Value +
_
TextBox9.Value + TextBox10.Value, "#,##0.00")
*End Sub*

*Private Sub UserForm_Initialize()*
MsgBox "isilah textbox selain textbox 6 dan textbox 11" & vbCr & _
"kemudian Klik TextBox 6 !"
*End Sub*

Semprul..Ki!
file yg saya buat tidak saya lampirkan karena anda tidak melampirkan
lampiran
*

2012/7/8 Mohammad Syafii <piihs_klik_kom@yahoo.com>
> Minta bantuannya dong gan.... saya lagi ngerjain vba di excel dan punya
sedikit masalah?
> saya punya 11 textbox di form1 textbox1 - 5 untuk input numeric textbox6
- 10 adalah hasil perkalian
> misalnya
> textbox1 * 5000 = textbox6
> textbox2 * 20000 = textbox7 dst
> dan di textbox 11 hasil penjumlahan dari textbox6, 7, 8, 9 dan textbox10
> bagaimana ya caranya supaya setiap saya masukkan angka di textbox1 dan
saya enter textbox 6
> langsung menunjukkan hasilnya dan seterusnya begitu juga dengan textbox11
>
> terima kasih sebelumnya atas pencerahannya
> semoga ilmu kita terus bertambah dan berguna bagi orang lain
>
> email : piihs_klik_kom@yahoo.com*
*
*
Sun Jul 8, 2012 7:53 pm (PDT) . Posted by: "dwint ruswanto"
Kenapa tidak memanfaatkan Filter bawaan Excel saja?

pada excel 2007/2010

1. Klik baris 2
2. Pilh Data >> Filter
3. Klik tanda panah kecil (drop list) pada kolom No. DO / PO
4. Ketik angka yang ingin dicari
5. Klik OK

untuk lebih jelasnya silakan lihat screen shoot di bawah ini

-dwint-

[image: Gambar sisip 1]

Pada 7 Juli 2012 21:33, agam Tole <agam_tole@yahoo.com> menulis:

> **
>
>
> Salam,
>
> Izinkan saya untuk mengajukan permintaan bantuan kepada para pakar excel
> di milis ini:
>
> Pertanyaan :
>
> - Jika saya mengetik angka NO DO pada J5 selanjutnya ia akan mendeteksi
> I3:I209
> -Mengisi Angka yg akan di input pada data Netto akhir setelah menemukan NO
> DO yang ada pada I3:I209
> -Setelah kita menekan tombol input, maka angka pada K5 akan otomatis
> terisi pada cell yg sejajar baris G3:G29 yg sesuai dengan data J5 yg
> terdeteksi pada I3:I209
>
> File Terlampir
> mohon kiranya dapat membantu.. Sebelum dan sesudahnya saya ucapkan terima
> kasih.. salam
>
> Agam
>
>
>
Sun Jul 8, 2012 10:32 pm (PDT) . Posted by: "Ki Semprul" ki_semprull
Kok belum ada yg menaggap ya ?
padahal kalau mau pakai Kolom dan Garis bantu semua menjadi tidak sulit

*Solusi Pakai Formula*

Baris bantu ada di Row 2, Kolom Bantu ada di kolom F. Formula-nya ada dua
macem

1. sambil memecah data TEXT TGL "FullStyle" menjadi DATE dan TIME
=DATEVALUE(MID(INDEX($A$4:$A$38,H$2+7*$F4,1),FIND(",",INDEX($A$4:$A$38,H$2+7*$F4,1))+1,99))

2 hanya mengambil data
*=INDEX($A$4:$A$38,J$2+7*$F4,1)*

*Solusi Pakai Makro*

Sub Ngawur_Ngawuran(dMentah As Range)
' Ki Semprul * BeExcel case #18066
'---------------------------------
Dim dMatang As Range, Ark
Dim r As Long, n As Long, i As Long
Dim sTgl As String, dTgl As String

Ark = Array(4, 4, 5, 2, 6)
Set dMatang = dMentah(1, 7)

For n = 0 To dMentah.Rows.Count - 1 Step 7
r = n / 7
sTgl = CStr(dMentah(4 + n, 1).Value)
i = InStr(1, sTgl, ",")
dTgl = Mid(sTgl, i + 2, Len(sTgl) - i - 1)

dMatang(r + 1, 1).Value = r + 1
dMatang(r + 1, 2).Value = DateValue(dTgl)
dMatang(r + 1, 3).Value = TimeValue(dTgl)
dMatang(r + 1, 4).Value = dMentah(5 + n, 1).Value
dMatang(r + 1, 5).Value = dMentah(2 + n, 1).Value
dMatang(r + 1, 6).Value = dMentah(6 + n, 1).Value
Next

End Sub

Semprull Ki!

2012/7/8 Emi <emilestariklcc@yahoo.com>
>
> Teman dan suhu BeExcel,
> Gimana cara mengubah data mentah, menjadi table dengan data yang bisa
dimanfaatkan.
>
> Terima kasih.
> Emi Lestari
>
>
> DATA MENTAH
> To:
> 552225
> Sent:
> Tuesday, 26 June 2012 10:34 PM
> 200000070
> wiiieieimmakkkd
> --
> To:
> 200000070
> Sent:
> Thursday, 28 June 2012 5:22 PM
> 552225
> hhddk
> To:
> 552225
> Sent:
> Thursday, 28 June 2012 5:25 PM
> 200000070
> hfgfdfddn jjj
> ***
> To:
> 200000070
> Sent:
> Thursday, 28 June 2012 5:27 PM
> 552225
> hjj klllldddd
> To:
> 552225
> Sent:
> Thursday, 28 June 2012 5:30 PM
> 200000070
> sdffg jjjk nnbb
> ***
>
> Hasil yang diharapkan
> No Tanggal Waktu Pengirim Penerima Mesej
> 1 26 Juni 2012 10:34 PM 200000070 552225 wiiieieimmakkkd
> 2 28 Juni 2012 5:22 PM 552225 200000070 hhddk
> 3 28 Juni 2012 5:25 PM 200000070 552225 hfgfdfddn jjj
> 4 28 Juni 2012 5:27 PM 552225 200000070 hjj klllldddd
> 5 28 Juni 2012 5:30 PM 200000070 552225 sdffg jjjk nnbb
>
Mon Jul 9, 2012 12:14 am (PDT) . Posted by: "rodhy hakim" odhyz83_assasaky
Dear Master,
Kalo menggunakan Listbox bagaimana caranya biar keliatan lbh Dinamis....

From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, July 5, 2012 11:34 PM
Subject: Re: [belajar-excel] Filter menggunakan Listbox

 
Menjumlahkan (seluruh data) cukup pakai formula SumIf

Memfilter lebih mudah menggunakan Event Worksheet_BeforeDoubleClick daripada harus menulis

(liahat keterangan pada file terlampir).

Salam,
Hendrik Karnadi

From: rodhy hakim <odhyz83_assasaky@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 5 July 2012, 17:23
Subject: [belajar-excel] Filter menggunakan Listbox

 
Dear Master,

Bagaimana cara memfilter data menggunakan Listbox dan menjumlahkan data yang ada di database,
Terima Kasih atas pencerahannya.
Note: file terlampir
 
Regards,
Odhy

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.26

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)