Minggu, 09 November 2014

[belajar-excel] Digest Number 3177

3 Messages

Digest #3177
1a
script textbox by "Andrie Amorius"
1b
Re: script textbox by "Mr. Kid" nmkid.family@ymail.com

Messages

Sat Nov 8, 2014 6:29 pm (PST) . Posted by:

"Andrie Amorius"

Assalamu'alaikum....

Mohon bantuannya paar master,

*Pertama*
Bisa g script ini dipersingkat??!
If TextBox1.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox1.SetFocus
Exit Sub
ElseIf TextBox2.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox2.SetFocus
Exit Sub
ElseIf TextBox3.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox3.SetFocus
Exit Sub
ElseIf TextBox4.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox4.SetFocus
Exit Sub
ElseIf TextBox5.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox5.SetFocus
Exit Sub
ElseIf TextBox6.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox6.SetFocus
Exit Sub
ElseIf TextBox7.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox7.SetFocus
Exit Sub
ElseIf TextBox8.Value = "" Then
MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
vbOKOnly + vbInformation, "GAGAL SIMPAN"
TextBox8.SetFocus
Exit Sub
ini script untuk jika salah satu dari 8 field textbox kosong....

*Kedua*
Bagaimana scriptnya dimana MsgBox br akan keluar jika keseluruhan (8 field
Textbox) yg kosong, tetapi tidak akan keluar jika hanya 1 ato beberapa
field Textbox aja yg kosong

*.*
Terimaksih sebelumnya

Wassalamu'alaikum....

Andrie Amorius, SE. Ak
Desk Service Quality (DSQ)
PT. Bank Riau Kepri
JL. Dt Setia Maharaja / Parit Indah
Perkantoran Grand Sudirman Blok B 2
Telp (0761) 7072974
Pekanbaru - Riau

Sat Nov 8, 2014 7:26 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

Coba jalan-jalan kesini
<http://b-excel.blogspot.com/2013/08/belajarvba-008-blok-if.html>, terutama
pada bagian '*Penggunaan operator logika dalam IF*'.

Wassalamu'alaikum Wr. Wb.
Kid.

2014-11-09 13:10 GMT+11:00 Andrie Amorius bm78ar@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamu'alaikum....
>
> Mohon bantuannya paar master,
>
> *Pertama*
> Bisa g script ini dipersingkat??!
> If TextBox1.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox1.SetFocus
> Exit Sub
> ElseIf TextBox2.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox2.SetFocus
> Exit Sub
> ElseIf TextBox3.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox3.SetFocus
> Exit Sub
> ElseIf TextBox4.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox4.SetFocus
> Exit Sub
> ElseIf TextBox5.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox5.SetFocus
> Exit Sub
> ElseIf TextBox6.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox6.SetFocus
> Exit Sub
> ElseIf TextBox7.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox7.SetFocus
> Exit Sub
> ElseIf TextBox8.Value = "" Then
> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
> vbOKOnly + vbInformation, "GAGAL SIMPAN"
> TextBox8.SetFocus
> Exit Sub
> ini script untuk jika salah satu dari 8 field textbox kosong....
>
>
> *Kedua*
> Bagaimana scriptnya dimana MsgBox br akan keluar jika keseluruhan (8 field
> Textbox) yg kosong, tetapi tidak akan keluar jika hanya 1 ato beberapa
> field Textbox aja yg kosong
>
> *.*
> Terimaksih sebelumnya
>
> Wassalamu'alaikum....
>
>
>
>
>
>
>
> Andrie Amorius, SE. Ak
> Desk Service Quality (DSQ)
> PT. Bank Riau Kepri
> JL. Dt Setia Maharaja / Parit Indah
> Perkantoran Grand Sudirman Blok B 2
> Telp (0761) 7072974
> Pekanbaru - Riau
>
>
>

Sat Nov 8, 2014 7:37 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Mirza,

Formula yang merujuk ke workbook lain selalu menuntut agar workbook yang
dirujuk dalam keadaan terbuka di-instansi Excel yang sama.

Jika dengan data connection, maka proses buka tutup workbook dilakukan oleh
fitur data connection tersebut secara otomatis.
Jika dengan formula, maka proses buka tutup workbook dilakukan secara
manual oleh user.

Jika dengan formula di VBA-kan, maka urutan prosesnya adalah :
1. buka workbook yang dirujuk [direkomendasikan untuk read only]
2. pasang formula dan kalkulasi formula [bila perlu di-values sekalian]
3. save workbook berformula
4. tutup workbook rujukan dengan mem-by pass proses save workbook
rujukan

> Contoh script buka workbook (silakan disesuaikan dengan kebutuhan
setempat)
dim wbkRef as workbook
set wbkref=workbooks.open( "d:\folder\subfolder\namafile.ekstensi" , 2 ,
true ) '2->tidak boleh update link; true->open as read only

> Contoh save workbook berformula
workbooks("nama workbook").save

> Contoh tutup workbook tanpa save
workbooks("nama workbook").close false 'false-> tidak perlu
simpan

atau jika workbook disimpan dalam sebuah variabel seperti wbkRef di atas,
maka bisa dengan :
wbkref.close false

jika wbkref dideklarasi dengan scope minimal adalah scope module (private),
maka prosedur lain bisa mengakses variabel wbkref

Wassalam,
Kid.

2014-11-08 21:14 GMT+11:00 mirza.fairuz@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear all Master,
>
>
> Mohon bantuannya para master, saya membuat vlookup dan sumproduct otomatis
> dengan VBA,
>
> dengan sumber referensi dari file excel yang berbeda, semua sudah
> berjalan dengan lancar, tetapi
>
> pada saat file referensi tersebut saya tutup, dan saya klik kembali
> commandbutton VBA untuk mengambil data tersebut,
>
> maka yang keluar di cell tersebut adalah error (#ref), mohon bantuannya
> kepada para Master, bagaimana agar saya bisa tetap vlookup dan sumproduct
> otomatis dengan vba dengan file referensi yang berbeda file, dan file
> referensi tersebut dalam keadaan tertutup (Close),
>
> berikut saya kirimkan contoh filenya, mohon setelah didownload masukkan
> file tersebut ke Drive "D:\"
>
> atas perhatiannya saya ucakan terima kasih. . . . . .
>
>
> Hs,
>
>
>
>
> M. Mirza
>
>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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:

Poskan Komentar