12 New Messages
Digest #1683
| 1a Macro Terpassword dengan sndirinya by "agam Tole" agam_tole 1b Re: Macro Terpassword dengan sndirinya by "hendrik karnadi" hendrikkarnadi 1c Re: Macro Terpassword dengan sndirinya by "Ki Semprul" ki_semprull 1d Re: Macro Terpassword dengan sndirinya by "agam Tole" agam_tole 1e Re: Macro Terpassword dengan sndirinya by "Ki Semprul" ki_semprull 2a Re: jatuh tempo angsuran mengunakan userform by "didon13@ymail.com" didon13@ymail.com 3a Re: Mengubah struktur data mentah menjadi tabel by "Ki Semprul" ki_semprull 4a Re: help me by "Mohammad Syafii" piihs_klik_kom 4b Re: help me by "Ki Semprul" ki_semprull 5a Re: Bagaimana membuat syntax VBA di Excel untuk men-lock Cell terten by "sakarosadwinanta1979" sakarosadwinanta1979 6a Re: Filter menggunakan Listbox by "hendrik karnadi" hendrikkarnadi 7 Row terbatas utk Concantenante by "Susilo A" |
Mon Jul 9, 2012 1:36 am (PDT) . Posted by: "agam Tole" agam_tole
Kepada yg terhormat teman2 di milis ini.. saya ingin bertanya:
- dengan sndirinya di macro excel saya ada program macro yg tanpa di ketahui ada dengan sndirinya dan mendisable seluruh klik kanan dan formula2 yg ada.. bagaimana caranya untuk menormalkan kembali excel saya.. saya sdh mencoba menguninstal program microsoft office dari PC saya.. dan menginstalnya kembali tapi masih saja program macro tersebut mendisable semua kegiatan klik kanan.. file gambar terlampir nama2 macro yg terproteksi dengan password.. dan saya ingin mencoba menghapusnya tetapi macro tersebut terproteksi password..
mohon sharingnya teman2.. di harapkan dapat membantu saya.. sebelum dan sesudahnya saya mengucapkan terima kasih... salam.,.,
Agam
- dengan sndirinya di macro excel saya ada program macro yg tanpa di ketahui ada dengan sndirinya dan mendisable seluruh klik kanan dan formula2 yg ada.. bagaimana caranya untuk menormalkan kembali excel saya.. saya sdh mencoba menguninstal program microsoft office dari PC saya.. dan menginstalnya kembali tapi masih saja program macro tersebut mendisable semua kegiatan klik kanan.. file gambar terlampir nama2 macro yg terproteksi dengan password.. dan saya ingin mencoba menghapusnya tetapi macro tersebut terproteksi password..
mohon sharingnya teman2.. di harapkan dapat membantu saya.. sebelum dan sesudahnya saya mengucapkan terima kasih... salam.,.,
Agam
Mon Jul 9, 2012 1:47 am (PDT) . Posted by: "hendrik karnadi" hendrikkarnadi
Sudah coba non aktifkan Macronya atau save sebagai Excel Workbook (u/ Excel 2007) ?
Mungkin akan lebih jelas kalau dummy filenya bisa dilampirkan.
Salam,
Hendrik Karnadi
________________________________
From: agam Tole <agam_tole@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 9 July 2012, 15:18
Subject: [belajar-excel] Macro Terpassword dengan sndirinya
Kepada yg terhormat teman2 di milis ini.. saya ingin bertanya:
- dengan sndirinya di macro excel saya ada program macro yg tanpa di ketahui ada dengan sndirinya dan mendisable seluruh klik kanan dan formula2 yg ada.. bagaimana caranya untuk menormalkan kembali excel saya.. saya sdh mencoba menguninstal program microsoft office dari PC saya.. dan menginstalnya kembali tapi masih saja program macro tersebut mendisable semua kegiatan klik kanan.. file gambar terlampir nama2 macro yg terproteksi dengan password.. dan saya ingin mencoba menghapusnya tetapi macro tersebut terproteksi password..
mohon sharingnya teman2.. di harapkan dapat membantu saya.. sebelum dan sesudahnya saya mengucapkan terima kasih... salam.,.,
Agam
Mungkin akan lebih jelas kalau dummy filenya bisa dilampirkan.
Salam,
Hendrik Karnadi
____________
From: agam Tole <agam_tole@yahoo.
To: belajar-excel@
Sent: Monday, 9 July 2012, 15:18
Subject: [belajar-excel] Macro Terpassword dengan sndirinya
Kepada yg terhormat teman2 di milis ini.. saya ingin bertanya:
- dengan sndirinya di macro excel saya ada program macro yg tanpa di ketahui ada dengan sndirinya dan mendisable seluruh klik kanan dan formula2 yg ada.. bagaimana caranya untuk menormalkan kembali excel saya.. saya sdh mencoba menguninstal program microsoft office dari PC saya.. dan menginstalnya kembali tapi masih saja program macro tersebut mendisable semua kegiatan klik kanan.. file gambar terlampir nama2 macro yg terproteksi dengan password.. dan saya ingin mencoba menghapusnya tetapi macro tersebut terproteksi password..
mohon sharingnya teman2.. di harapkan dapat membantu saya.. sebelum dan sesudahnya saya mengucapkan terima kasih... salam.,.,
Agam
Mon Jul 9, 2012 2:17 am (PDT) . Posted by: "Ki Semprul" ki_semprull
Saya ingin menanggapi..
Kemungkinannya: Anda secara tak sadar mengaktifkan beberapa Add-Ins
Untuk me Non-Aktifkan:
Aktifkan *Excel Options*
Pilih Tombol (Tab) "Add-Ins"
Pada 'ComboBox Manage: pilih "Excel Add-Ins"
Klik Tombok "Go"
Akan timbul DialoqBox 'Available Add-Ins', kira-kira seperti ini
[image: Inline image 1]
*Hillangan semua contrengan* pada CheckBoxes nya, *kecuali pada nama Add-In*
*yg memang anda kenal dan perluka*n (misal Analysis Tool Pak)
Mudah2an seperti itu
Semprul Ki!
2012/7/9 agam Tole <agam_tole@yahoo.com >
>
> .. saya ingin bertanya:
> - dengan sndirinya di macro excel saya ada program macro yg tanpa di
ketahui ada dengan sndirinya dan mendisable seluruh klik kanan dan formula2
yg ada.. bagaimana caranya untuk menormalkan kembali excel saya.. saya sdh
mencoba menguninstal program microsoft office dari PC saya.. dan
menginstalnya kembali tapi masih saja program macro tersebut mendisable
semua kegiatan klik kanan.. file gambar terlampir nama2 macro yg
terproteksi dengan password.. dan saya ingin mencoba menghapusnya tetapi
macro tersebut terproteksi password..
>
> mohon sharingnya teman2.. di harapkan dapat membantu saya.. sebelum dan
sesudahnya saya mengucapkan terima kasih... salam.,.,
> Agam
Kemungkinannya: Anda secara tak sadar mengaktifkan beberapa Add-Ins
Untuk me Non-Aktifkan:
Aktifkan *Excel Options*
Pilih Tombol (Tab) "Add-Ins"
Pada 'ComboBox Manage: pilih "Excel Add-Ins"
Klik Tombok "Go"
Akan timbul DialoqBox 'Available Add-Ins', kira-kira seperti ini
[image: Inline image 1]
*Hillangan semua contrengan* pada CheckBoxes nya, *kecuali pada nama Add-In*
*yg memang anda kenal dan perluka*n (misal Analysis Tool Pak)
Mudah2an seperti itu
Semprul Ki!
2012/7/9 agam Tole <agam_tole@yahoo.
>
> .. saya ingin bertanya:
> - dengan sndirinya di macro excel saya ada program macro yg tanpa di
ketahui ada dengan sndirinya dan mendisable seluruh klik kanan dan formula2
yg ada.. bagaimana caranya untuk menormalkan kembali excel saya.. saya sdh
mencoba menguninstal program microsoft office dari PC saya.. dan
menginstalnya kembali tapi masih saja program macro tersebut mendisable
semua kegiatan klik kanan.. file gambar terlampir nama2 macro yg
terproteksi dengan password.. dan saya ingin mencoba menghapusnya tetapi
macro tersebut terproteksi password..
>
> mohon sharingnya teman2.. di harapkan dapat membantu saya.. sebelum dan
sesudahnya saya mengucapkan terima kasih... salam.,.,
> Agam
Mon Jul 9, 2012 5:36 am (PDT) . Posted by: "agam Tole" agam_tole
Terima kasih bantuannya Ki.. sdh saya coba dan berhasil menghilangkan macro yg di password ternyata itu add-in,, tetapi masalah klik kanan tetap tidak bisa Ki.. mohon di berikan solusi biasanya terdisable klik kanan di excel bisa karna apa saja?
salam
--- On Mon, 7/9/12, Ki Semprul <semprul.ki@gmail.com > wrote:
From: Ki Semprul <semprul.ki@gmail.com >
Subject: Re: [belajar-excel] Macro Terpassword dengan sndirinya
To: belajar-excel@yahoogroups.com
Date: Monday, July 9, 2012, 9:17 AM
Saya ingin menanggapi..
Kemungkinannya: Anda secara tak sadar mengaktifkan beberapa Add-Ins
Untuk me Non-Aktifkan:
Aktifkan Excel Options
Pilih Tombol (Tab) "Add-Ins"Pada 'ComboBox Manage: pilih "Excel Add-Ins"
Klik Tombok "Go"
Akan timbul DialoqBox 'Available Add-Ins', kira-kira seperti ini
Hillangan semua contrengan pada CheckBoxes nya, kecuali pada nama Add-Inyg memang anda kenal dan perlukan (misal Analysis Tool Pak)
Mudah2an seperti itu
Semprul Ki!
2012/7/9 agam Tole <agam_tole@yahoo.com >
>
> .. saya ingin bertanya:
> - dengan sndirinya di macro excel saya ada program macro yg tanpa di ketahui ada dengan sndirinya dan mendisable seluruh klik kanan dan formula2 yg ada.. bagaimana caranya untuk menormalkan kembali excel saya.. saya sdh mencoba menguninstal program microsoft office dari PC saya.. dan menginstalnya kembali tapi masih saja program macro tersebut mendisable semua kegiatan klik kanan.. file gambar terlampir nama2 macro yg terproteksi dengan password.. dan saya ingin mencoba menghapusnya tetapi macro tersebut terproteksi password..
>
> mohon sharingnya teman2.. di harapkan dapat membantu saya.. sebelum dan sesudahnya saya mengucapkan terima kasih... salam.,.,
> Agam
salam
--- On Mon, 7/9/12, Ki Semprul <semprul.ki@gmail.
From: Ki Semprul <semprul.ki@gmail.
Subject: Re: [belajar-excel] Macro Terpassword dengan sndirinya
To: belajar-excel@
Date: Monday, July 9, 2012, 9:17 AM
Saya ingin menanggapi..
Kemungkinannya: Anda secara tak sadar mengaktifkan beberapa Add-Ins
Untuk me Non-Aktifkan:
Aktifkan Excel Options
Pilih Tombol (Tab) "Add-Ins"Pada 'ComboBox Manage: pilih "Excel Add-Ins"
Klik Tombok "Go"
Akan timbul DialoqBox 'Available Add-Ins', kira-kira seperti ini
Hillangan semua contrengan pada CheckBoxes nya, kecuali pada nama Add-Inyg memang anda kenal dan perlukan (misal Analysis Tool Pak)
Mudah2an seperti itu
Semprul Ki!
2012/7/9 agam Tole <agam_tole@yahoo.
>
> .. saya ingin bertanya:
> - dengan sndirinya di macro excel saya ada program macro yg tanpa di ketahui ada dengan sndirinya dan mendisable seluruh klik kanan dan formula2 yg ada.. bagaimana caranya untuk menormalkan kembali excel saya.. saya sdh mencoba menguninstal program microsoft office dari PC saya.. dan menginstalnya kembali tapi masih saja program macro tersebut mendisable semua kegiatan klik kanan.. file gambar terlampir nama2 macro yg terproteksi dengan password.. dan saya ingin mencoba menghapusnya tetapi macro tersebut terproteksi password..
>
> mohon sharingnya teman2.. di harapkan dapat membantu saya.. sebelum dan sesudahnya saya mengucapkan terima kasih... salam.,.,
> Agam
Mon Jul 9, 2012 6:39 am (PDT) . Posted by: "Ki Semprul" ki_semprull
Klik Kanan pada cell(s) memang menimbulkan PopUp Menu; Tetapi bila yg
muncul bukan menu bawaan excel maka biasanya ada makro yg
mempengaruhinya yaitu (salah sau dari prosedur spt di bawah ini)
di Module level Sheet
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'---- isi makro----
End Sub
atau di Module level workbook:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target
As Range, Cancel As Boolean)
'---- isi makro----
End Sub
Jika tidak ada add-in yg aktif dan Klik-Kanan *Menu Non-Default* tetap
muncul, mungkin makronya ada di* PERSONAL.XLS atau PERSONAL XLSM* yaitu
personal workbook buatan excel (aas kehendak user) yg selalu ikut terbuka
ketika anda membuka Excel tetapi dlm keadaan tersembunyi.
Makronya tetap dapat anda llihat (dan kalau perlu di hapus) melalui VBE
[image: Inline image 1]
Mungkin ada penyebab lain, kita tunggu tangapan dari teman-teman lain..
Semprul..Ki!
*2012/7/9 agam Tole <agam_tole@yahoo.com >
>
> Terima kasih bantuannya Ki.. sdh saya coba dan berhasil menghilangkan
> macro yg di password ternyata itu add-in,, tetapi masalah klik kanan tetap
> tidak bisa Ki.. mohon di berikan solusi biasanya terdisable klik kanan di
> excel bisa karna apa saja?
> salam
>*
muncul bukan menu bawaan excel maka biasanya ada makro yg
mempengaruhinya yaitu (salah sau dari prosedur spt di bawah ini)
di Module level Sheet
Private Sub Worksheet_BeforeDou
Boolean)
'---- isi makro----
End Sub
atau di Module level workbook:
Private Sub Workbook_SheetBefor
As Range, Cancel As Boolean)
'---- isi makro----
End Sub
Jika tidak ada add-in yg aktif dan Klik-Kanan *Menu Non-Default* tetap
muncul, mungkin makronya ada di* PERSONAL.XLS atau PERSONAL XLSM* yaitu
personal workbook buatan excel (aas kehendak user) yg selalu ikut terbuka
ketika anda membuka Excel tetapi dlm keadaan tersembunyi.
Makronya tetap dapat anda llihat (dan kalau perlu di hapus) melalui VBE
[image: Inline image 1]
Mungkin ada penyebab lain, kita tunggu tangapan dari teman-teman lain..
Semprul..Ki!
*2012/7/9 agam Tole <agam_tole@yahoo.
>
> Terima kasih bantuannya Ki.. sdh saya coba dan berhasil menghilangkan
> macro yg di password ternyata itu add-in,, tetapi masalah klik kanan tetap
> tidak bisa Ki.. mohon di berikan solusi biasanya terdisable klik kanan di
> excel bisa karna apa saja?
> salam
>*
Mon Jul 9, 2012 1:54 am (PDT) . Posted by: "didon13@ymail.com" didon13@ymail.com
Apakah ada yang tahu?
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: achmad adi <didon13@ymail.com >
Sender: belajar-excel@yahoogroups.com
Date: Thu, 5 Jul 2012 22:58:01
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] jatuh tempo angsuran mengunakan userform
selamat malam semuanya,,,
map untuk post sebelumnya yang gak beraturan,,,karena lewat hp,,,gk tahu kalo jadinya seperti itu,,,,
yang ini saya lampirkan fil contoh perhitungan jatuh tempo angsuran di userform,,,,,
terimakasih,,,
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: achmad adi <didon13@ymail.
Sender: belajar-excel@
Date: Thu, 5 Jul 2012 22:58:01
To: belajar-excel@
Reply-To: belajar-excel@
Subject: [belajar-excel] jatuh tempo angsuran mengunakan userform
selamat malam semuanya,,,
map untuk post sebelumnya yang gak beraturan,,,
yang ini saya lampirkan fil contoh perhitungan jatuh tempo angsuran di userform,,,,
terimakasih,
Mon Jul 9, 2012 1:55 am (PDT) . Posted by: "Ki Semprul" ki_semprull
Perbaikan coding makro (karena versi sebelumnya ada vriable yg tidak
terpakai)
Sub Nguawurrr(dMentah As Range)
' Ki Semprul * BeExcel case #18066
'---------------------------------
Dim dMatang As Range, sTgl As String
Dim r As Long, n As Long, i As Long
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, ",")
sTgl = Mid(sTgl, i + 2, Len(sTgl) - i - 1)
dMatang(r + 1, 1).Value = r + 1
dMatang(r + 1, 2).Value = DateValue(sTgl)
dMatang(r + 1, 3).Value = TimeValue(sTgl)
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
*Semprul Ki!*
On Mon, Jul 9, 2012 at 12:32 PM, Ki Semprul <semprul.ki@gmail.com > wrote:
> Kok belum ada yg menaggap ya ?
>
> *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 >
> > Gimana cara mengubah data mentah, menjadi table dengan data yang bisa
> dimanfaatkan.
> > Terima kasih.
> > Emi Lestari
>
terpakai)
Sub Nguawurrr(dMentah As Range)
' Ki Semprul * BeExcel case #18066
'-----------
Dim dMatang As Range, sTgl As String
Dim r As Long, n As Long, i As Long
Set dMatang = dMentah(1, 7)
For n = 0 To dMentah.Rows.
r = n / 7
sTgl = CStr(dMentah(
i = InStr(1, sTgl, ",")
sTgl = Mid(sTgl, i + 2, Len(sTgl) - i - 1)
dMatang(r + 1, 1).Value = r + 1
dMatang(r + 1, 2).Value = DateValue(sTgl)
dMatang(r + 1, 3).Value = TimeValue(sTgl)
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
*Semprul Ki!*
On Mon, Jul 9, 2012 at 12:32 PM, Ki Semprul <semprul.ki@gmail.
> Kok belum ada yg menaggap ya ?
>
> *Solusi Pakai Makro*
>
> Sub Ngawur_Ngawuran(
> ' 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.
> r = n / 7
> sTgl = CStr(dMentah(
> 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@
> > Gimana cara mengubah data mentah, menjadi table dengan data yang bisa
> dimanfaatkan.
> > Terima kasih.
> > Emi Lestari
>
Mon Jul 9, 2012 3:17 am (PDT) . Posted by: "Mohammad Syafii" piihs_klik_kom
sorry gan.....
setelah saya coba cara dari ki semprul hasilnya masih sedikit ngawur
hasil penjumlahannya bukan di jumlahkan tapi ditambahkan di belakangnya
isi ku lampirkan file-nya
tolong gan solusinya
________________________________
From: Ki Semprul <semprul.ki@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, July 9, 2012 2:34 AM
Subject: Re: [belajar-excel] help me
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 seterusnyabegitu 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
setelah saya coba cara dari ki semprul hasilnya masih sedikit ngawur
hasil penjumlahannya bukan di jumlahkan tapi ditambahkan di belakangnya
isi ku lampirkan file-nya
tolong gan solusinya
____________
From: Ki Semprul <semprul.ki@gmail.
To: belajar-excel@
Sent: Monday, July 9, 2012 2:34 AM
Subject: Re: [belajar-excel] help me
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 seterusnyabegitu 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 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.
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@
> 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@
Mon Jul 9, 2012 4:24 am (PDT) . Posted by: "Ki Semprul" ki_semprull
baru di test gitu aja....
Lha ini coding yang lebh ngawurr..
silaken diawurr...
Module UserForm
Private Sub CMDCLS_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
TextBox6.Value = Format(TextBox1.Value * 5000, "#,##0")
Summing
End Sub
Private Sub TextBox2_Change()
TextBox7.Value = Format(TextBox2.Value * 5000, "#,##0")
Summing
End Sub
Private Sub TextBox3_Change()
TextBox8.Value = Format(TextBox3.Value * 5000, "#,##0")
Summing
End Sub
Private Sub TextBox4_Change()
TextBox9.Value = Format(TextBox4.Value * 6000, "#,##0")
Summing
End Sub
Private Sub TextBox5_Change()
TextBox10.Value = Format(TextBox5.Value * 7000, "#,##0")
Summing
End Sub
Private Sub Summing()
TextBox11.Value = Format(Val(TextBox6.Value) + Val(TextBox7.Value) + _
Val(TextBox8.Value) + Val(TextBox9.Value) + _
Val(TextBox10.Value), "#.##0")
End Sub
Semprull Ki!!
*
*
*
*
2012/7/9 Mohammad Syafii <piihs_klik_kom@yahoo.com >
> **
>
> sorry gan.....
> setelah saya coba cara dari ki semprul hasilnya masih sedikit ngawur
> hasil penjumlahannya bukan di jumlahkan tapi ditambahkan di belakangnya
>
> isi ku lampirkan file-nya
> tolong gan solusinya
>
>
Lha ini coding yang lebh ngawurr..
silaken diawurr...
Module UserForm
Private Sub CMDCLS_Click(
Unload Me
End Sub
Private Sub TextBox1_Change(
TextBox6.Value = Format(TextBox1.
Summing
End Sub
Private Sub TextBox2_Change(
TextBox7.Value = Format(TextBox2.
Summing
End Sub
Private Sub TextBox3_Change(
TextBox8.Value = Format(TextBox3.
Summing
End Sub
Private Sub TextBox4_Change(
TextBox9.Value = Format(TextBox4.
Summing
End Sub
Private Sub TextBox5_Change(
TextBox10.Value = Format(TextBox5.
Summing
End Sub
Private Sub Summing()
TextBox11.Value = Format(Val(TextBox6
Val(TextBox8.
Val(TextBox10.
End Sub
Semprull Ki!!
*
*
*
*
2012/7/9 Mohammad Syafii <piihs_klik_kom@
> **
>
> sorry gan.....
> setelah saya coba cara dari ki semprul hasilnya masih sedikit ngawur
> hasil penjumlahannya bukan di jumlahkan tapi ditambahkan di belakangnya
>
> isi ku lampirkan file-nya
> tolong gan solusinya
>
>
Mon Jul 9, 2012 6:37 am (PDT) . Posted by: "sakarosadwinanta1979" sakarosadwinanta1979
Mbak Rara, terimakasih untuk penjelasan sebelumnya :)
Mohon pencerahannya, bagaimana apabila kasus detailnya seperti ini :
Saya punya kolom dari A s.d F yang berisi angka-angka dan masing-masing kolom ingin diberlakukan peraturan seperti dibawah ini :
1. Untuk Kolom A1-A10 s.d B1-B10, isinya bisa di edit dan bisa dilihat.
2. Untuk Kolom C1-C10 s.d D1-D10, isinya tidak bisa di edit tapi bisa dilihat
3. Untuk Kolom E s.d F (dari atas sampai bawah), isinya tidak bisa di edit dan tidak bisa
dilihat(hidden)
4. Dan khusus untuk angka-angka di kolom A1-A10 s.d B1-B10 (yang isinya bisa di edit dan dilihat) dan kolom setelah kolom F , kita tetap bisa melakukan format cell (menebalkan,
menggarisbawahi, dll)
Terimakasih sebelumnya.
Dooowie
--- In belajar-excel@yahoogroups.com , Rara Wilis <ra2wilis@...> wrote:
>
> *Maaf, membuat syntax VBA Excel* harusnya sangat sulit, bahkan mungkin kita
> tidak bisa, karena *sudah* dibuatkan oleh Microsoft, penciptanya.
> Kita para user, hanya bisa menuliskan skrip / VBA-Code di module-module,
> dlm bentuk kelompok-kelompok deklarasi dan prosedur *dengan mengikuti syntax
> * (*aturan* penulisan)-nya
>
> Syntax
> (1) The *arrangement* of words and phrases to create well-formed sentences
> in a language.
> (2) In computer science, the syntax of a programming language is the* set
> of rules* that define the combinations of symbols that are considered to be
> correctly structured programs in that language. The syntax of a language
> defines its surface form. ...
>
> Kalau seperti itu yg dimaksud, mungkin kita perlu membuat 2 prosedur spt ini
>
> *1. ditulis di module 'ThisWorkbook' memanfaatkan event OPEN*
>
> Private Sub Workbook_Open()
> With Sheet1
> .Columns("A:B").Locked = False
> .Columns("A:B").FormulaHidden = False
> .Columns("C:D").Locked = True
> .Columns("C:D").FormulaHidden = False
> .Columns("E:F").Locked = True
> .Columns("E:F").FormulaHidden = True
> .Columns("E:F").EntireColumn.Hidden = True
> .Protect "BeExcel"
> End With
> End Sub
>
> 2. ditulis di module 'Sheet1' (sheet tempat data ditulis ), memanfaatkan
> Event SelectionChange
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Column < 3 Then
> Me.Unprotect "BeExcel"
> Else
> Me.Protect "BeExcel"
> End If
> End Sub
>
> ~Rara
>
>
>
> 2012/7/3 sakarosadwinanta1979 <sakarosadwinanta1979@...>
> > Salam Kenal,
> > Maaf ingin menanyakan, saya ada kasus seperti ini :
> >
> > Saya punya kolom dari A s.d F yang berisi angka-angka dan masing-masing
> kolom ingin diberlakukan peraturan seperti dibawah ini :
> >
> > Untuk Kolom A s.d B, isinya bisa di edit dan bisa dilihat.
> > Untuk Kolom C s.d D, isinya tidak bisa di edit tapi bisa dilihat
> > Untuk Kolom E s.d F, isinya tidak bisa di edit dan tidak bisa
> dilihat(hanya bisa dilihat oleh si empunya, misal dengan memasukkan
> password atau sejenisnya)
> >
> > Dan khusus untuk angka-angka di kolom A s.d B (yang isinya bisa di edit
> dan dilihat), kita tetap bisa melakukan format cell (menebalkan,
> menggarisbawahi, dll)
> >
> > Apakah ada caranya dengan menggunakan VBA - Excel?
> > Mohon saran dari para ahli Excel.
> >
> > Terimakasih sebelumnya.
> > Dooowie
>
Mohon pencerahannya, bagaimana apabila kasus detailnya seperti ini :
Saya punya kolom dari A s.d F yang berisi angka-angka dan masing-masing kolom ingin diberlakukan peraturan seperti dibawah ini :
1. Untuk Kolom A1-A10 s.d B1-B10, isinya bisa di edit dan bisa dilihat.
2. Untuk Kolom C1-C10 s.d D1-D10, isinya tidak bisa di edit tapi bisa dilihat
3. Untuk Kolom E s.d F (dari atas sampai bawah), isinya tidak bisa di edit dan tidak bisa
dilihat(hidden)
4. Dan khusus untuk angka-angka di kolom A1-A10 s.d B1-B10 (yang isinya bisa di edit dan dilihat) dan kolom setelah kolom F , kita tetap bisa melakukan format cell (menebalkan,
menggarisbawahi, dll)
Terimakasih sebelumnya.
Dooowie
--- In belajar-excel@
>
> *Maaf, membuat syntax VBA Excel* harusnya sangat sulit, bahkan mungkin kita
> tidak bisa, karena *sudah* dibuatkan oleh Microsoft, penciptanya.
> Kita para user, hanya bisa menuliskan skrip / VBA-Code di module-module,
> dlm bentuk kelompok-kelompok deklarasi dan prosedur *dengan mengikuti syntax
> * (*aturan* penulisan)-nya
>
> Syntax
> (1) The *arrangement* of words and phrases to create well-formed sentences
> in a language.
> (2) In computer science, the syntax of a programming language is the* set
> of rules* that define the combinations of symbols that are considered to be
> correctly structured programs in that language. The syntax of a language
> defines its surface form. ...
>
> Kalau seperti itu yg dimaksud, mungkin kita perlu membuat 2 prosedur spt ini
>
> *1. ditulis di module 'ThisWorkbook' memanfaatkan event OPEN*
>
> Private Sub Workbook_Open(
> With Sheet1
> .Columns("A:
> .Columns("A:
> .Columns("C:
> .Columns("C:
> .Columns("E:
> .Columns("E:
> .Columns("E:
> .Protect "BeExcel"
> End With
> End Sub
>
> 2. ditulis di module 'Sheet1' (sheet tempat data ditulis ), memanfaatkan
> Event SelectionChange
>
> Private Sub Worksheet_Selection
> If Target.Column < 3 Then
> Me.Unprotect "BeExcel"
> Else
> Me.Protect "BeExcel"
> End If
> End Sub
>
> ~Rara
>
>
>
> 2012/7/3 sakarosadwinanta197
> > Salam Kenal,
> > Maaf ingin menanyakan, saya ada kasus seperti ini :
> >
> > Saya punya kolom dari A s.d F yang berisi angka-angka dan masing-masing
> kolom ingin diberlakukan peraturan seperti dibawah ini :
> >
> > Untuk Kolom A s.d B, isinya bisa di edit dan bisa dilihat.
> > Untuk Kolom C s.d D, isinya tidak bisa di edit tapi bisa dilihat
> > Untuk Kolom E s.d F, isinya tidak bisa di edit dan tidak bisa
> dilihat(hanya bisa dilihat oleh si empunya, misal dengan memasukkan
> password atau sejenisnya)
> >
> > Dan khusus untuk angka-angka di kolom A s.d B (yang isinya bisa di edit
> dan dilihat), kita tetap bisa melakukan format cell (menebalkan,
> menggarisbawahi, dll)
> >
> > Apakah ada caranya dengan menggunakan VBA - Excel?
> > Mohon saran dari para ahli Excel.
> >
> > Terimakasih sebelumnya.
> > Dooowie
>
Mon Jul 9, 2012 7:02 am (PDT) . Posted by: "hendrik karnadi" hendrikkarnadi
Karena anda berkeras pakai list box, barangkali file terlampir merupakan jawabannya (walaupun belum sempurna).
Para pakar VBA tentu dapat menyempurnakannya.
Salam,
Hendrik Karnadi
________________________________
From: rodhy hakim <odhyz83_assasaky@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 9 July 2012, 14:08
Subject: Re: [belajar-excel] Filter menggunakan Listbox
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
Para pakar VBA tentu dapat menyempurnakannya.
Salam,
Hendrik Karnadi
____________
From: rodhy hakim <odhyz83_assasaky@
To: "belajar-excel@
Sent: Monday, 9 July 2012, 14:08
Subject: Re: [belajar-excel] Filter menggunakan Listbox
Dear Master,
Kalo menggunakan Listbox bagaimana caranya biar keliatan lbh Dinamis....
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
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_BeforeDou
(liahat keterangan pada file terlampir).
Salam,
Hendrik Karnadi
From: rodhy hakim <odhyz83_assasaky@
To: "belajar-excel@
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
Mon Jul 9, 2012 11:08 pm (PDT) . Posted by: "Susilo A"
Dear para suhu & rekan2 milist belajar excel,
Mohon pencerahan apakah column/row untuk formula concantenate memang
terbatas tidak bisa melebihi 300 row ?
Contoh terlampir,
Salam,
Agus
Mohon pencerahan apakah column/row untuk formula concantenate memang
terbatas tidak bisa melebihi 300 row ?
Contoh terlampir,
Salam,
Agus
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
---------------------------------------------------------------------
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