7 Messages
Digest #4836
3b
Re: Agar InputBox selalu muncul jika isinya kosong atau data tidak d by "Mr. Kid" nmkid.family@ymail.com
Messages
Thu Aug 29, 2019 11:18 pm (PDT) . Posted by:
"dicky zulkifli" dicky.zulkifli
SalamRekan rekan Excel
Maaf saya belum mendapatkan solusi dengan masalah saya seperti terlampir,Mohon arahan bagaimana rumus untuk memfilter Durasi waktu yang kurang dari 5 menit, sehingga akan terjumlah ada berapa banyaknya.
Terimakasih sebelumnya untuk arahan dan waktu luangnya yang diberikan kepada saya.
Maaf saya belum mendapatkan solusi dengan masalah saya seperti terlampir,Mohon arahan bagaimana rumus untuk memfilter Durasi waktu yang kurang dari 5 menit, sehingga akan terjumlah ada berapa banyaknya.
Terimakasih sebelumnya untuk arahan dan waktu luangnya yang diberikan kepada saya.
Fri Aug 30, 2019 2:41 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
untuk langsung mencari jumlah data yang durasinya kurang dari 5 menit bisa menggunakan formula
=SUMPRODUCT(($D$2:$D$56*86400<300)*1)
Ket:
kolom D2:D56 adalah selisih waktu keluar dikurangi waktu masuk.
dalamsistem penghitungan excel format waktu 1 hari direpresantikan sebagai86400 detik.
makauntuk mengembalikan nilai pengurangan durasi waktu keluar dan waktu masuk harus dikonversikan dulu menjadi detik ,dengan mengalikannya dengan 86400 . karena yang akan dicari sebagai acuan data adalah 5 menit maka angka 5 menit harus dikonversikan juga ke detik menjadi 5 X 60 = 300 detik.
maka terjemahan bebas dari formula di atas :
carijumlah data kolom D2 :D56 yangjumlah detiknya kurang dari 300 detik
wassalam
Ghozi Alkatiri
Pada Jumat, 30 Agustus 2019 13.19.05 GMT+7, dicky zulkifli dicky.zulkifli@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
SalamRekan rekan Excel
Maaf saya belum mendapatkan solusi dengan masalah saya seperti terlampir,Mohon arahan bagaimana rumus untuk memfilter Durasi waktu yang kurang dari 5 menit, sehingga akan terjumlah ada berapa banyaknya.
Terimakasih sebelumnya untuk arahan dan waktu luangnya yang diberikan kepada saya.
#yiv1978749715 #yiv1978749715 -- #yiv1978749715ygrp-
Fri Aug 30, 2019 3:11 am (PDT) . Posted by:
"dicky zulkifli" dicky.zulkifli
Dear Bang Ghozi,
Terimakasih Banyak untuk solusi dan pencerahannya.Sukses Selalu
Salam,
Dicky
Pada Jumat, 30 Agustus 2019 16.42.19 WIB, ghozi alkatiri ghozialkatiri@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
untuk langsung mencari jumlah data yang durasinya kurang dari 5 menit bisa menggunakan formula
=SUMPRODUCT(($D$2:$D$56*86400<300)*1)
Ket:
kolom D2:D56 adalah selisih waktu keluar dikurangi waktu masuk.
dalamsistem penghitungan excel format waktu 1 hari direpresantikan sebagai86400 detik.
makauntuk mengembalikan nilai pengurangan durasi waktu keluar dan waktu masuk harus dikonversikan dulu menjadi detik ,dengan mengalikannya dengan 86400 . karena yang akan dicari sebagai acuan data adalah 5 menit maka angka 5 menit harus dikonversikan juga ke detik menjadi 5 X 60 = 300 detik.
maka terjemahan bebas dari formula di atas :
carijumlah data kolom D2 :D56 yangjumlah detiknya kurang dari 300 detik
wassalam
Ghozi Alkatiri
Pada Jumat, 30 Agustus 2019 13.19.05 GMT+7, dicky zulkifli dicky.zulkifli@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
SalamRekan rekan Excel
Maaf saya belum mendapatkan solusi dengan masalah saya seperti terlampir,Mohon arahan bagaimana rumus untuk memfilter Durasi waktu yang kurang dari 5 menit, sehingga akan terjumlah ada berapa banyaknya.
Terimakasih sebelumnya untuk arahan dan waktu luangnya yang diberikan kepada saya.
Terimakasih Banyak untuk solusi dan pencerahannya.Sukses Selalu
Salam,
Dicky
Pada Jumat, 30 Agustus 2019 16.42.19 WIB, ghozi alkatiri ghozialkatiri@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
untuk langsung mencari jumlah data yang durasinya kurang dari 5 menit bisa menggunakan formula
=SUMPRODUCT(($D$2:$D$56*86400<300)*1)
Ket:
kolom D2:D56 adalah selisih waktu keluar dikurangi waktu masuk.
dalamsistem penghitungan excel format waktu 1 hari direpresantikan sebagai86400 detik.
makauntuk mengembalikan nilai pengurangan durasi waktu keluar dan waktu masuk harus dikonversikan dulu menjadi detik ,dengan mengalikannya dengan 86400 . karena yang akan dicari sebagai acuan data adalah 5 menit maka angka 5 menit harus dikonversikan juga ke detik menjadi 5 X 60 = 300 detik.
maka terjemahan bebas dari formula di atas :
carijumlah data kolom D2 :D56 yangjumlah detiknya kurang dari 300 detik
wassalam
Ghozi Alkatiri
Pada Jumat, 30 Agustus 2019 13.19.05 GMT+7, dicky zulkifli dicky.zulkifli@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
SalamRekan rekan Excel
Maaf saya belum mendapatkan solusi dengan masalah saya seperti terlampir,Mohon arahan bagaimana rumus untuk memfilter Durasi waktu yang kurang dari 5 menit, sehingga akan terjumlah ada berapa banyaknya.
Terimakasih sebelumnya untuk arahan dan waktu luangnya yang diberikan kepada saya.
Fri Aug 30, 2019 1:11 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
=CountIFs( data , "<"&5/24/60 ) -> jumlah cacah cells data yang berisi <
5 menit
1 detik = 1 / 24 jam / 60 menit / 60 detik
60 detik = 1 menit = 60 / 24 jam / 60 menit / 60 detik = 1 / 24 jam / 60
menit
5 menit = 5 / 24 jam / 60 menit
Periksa cells per cells :
=cells < 5/24/60 -> hasilnya true/false
=1*(cells < 5/24/60) -> hasilnya 1/0
Regards,
Kid
On Fri, Aug 30, 2019 at 1:18 PM dicky zulkifli dicky.zulkifli@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Salam
> Rekan rekan Excel
>
> Maaf saya belum mendapatkan solusi dengan masalah saya seperti terlampir,
> Mohon arahan bagaimana rumus untuk memfilter Durasi waktu yang kurang dari
> 5 menit, sehingga akan terjumlah ada berapa banyaknya.
>
> Terimakasih sebelumnya untuk arahan dan waktu luangnya yang diberikan
> kepada saya.
>
>
>
5 menit
1 detik = 1 / 24 jam / 60 menit / 60 detik
60 detik = 1 menit = 60 / 24 jam / 60 menit / 60 detik = 1 / 24 jam / 60
menit
5 menit = 5 / 24 jam / 60 menit
Periksa cells per cells :
=cells < 5/24/60 -> hasilnya true/false
=1*(cells < 5/24/60) -> hasilnya 1/0
Regards,
Kid
On Fri, Aug 30, 2019 at 1:18 PM dicky zulkifli dicky.zulkifli@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Salam
> Rekan rekan Excel
>
> Maaf saya belum mendapatkan solusi dengan masalah saya seperti terlampir,
> Mohon arahan bagaimana rumus untuk memfilter Durasi waktu yang kurang dari
> 5 menit, sehingga akan terjumlah ada berapa banyaknya.
>
> Terimakasih sebelumnya untuk arahan dan waktu luangnya yang diberikan
> kepada saya.
>
>
>
Fri Aug 30, 2019 5:37 am (PDT) . Posted by:
"HAIRUL ALAM"
SalamRekan-rekan BeExcel
Selamat sore, semoga semua dalam keadaan sehat selalu
Saya mau buat data untuk tampilkan textbox di sheet seperti data terlampir.
Bagaimana code macronya kalau misal saya mau memasukkan data di cell c4 dengan kata sequence dan akan tampil di textbox tergantung keinginan kita. mohon pencerahannya
Terimakasih dan maaf jika saya mengganggu kesibukan rekan2
AssalamualaikumHairul Alam
Selamat sore, semoga semua dalam keadaan sehat selalu
Saya mau buat data untuk tampilkan textbox di sheet seperti data terlampir.
Bagaimana code macronya kalau misal saya mau memasukkan data di cell c4 dengan kata sequence dan akan tampil di textbox tergantung keinginan kita. mohon pencerahannya
Terimakasih dan maaf jika saya mengganggu kesibukan rekan2
AssalamualaikumHair
Fri Aug 30, 2019 5:37 am (PDT) . Posted by:
"HAIRUL ALAM"
Salam Mr.Kid, Selamat MalamMaaf saya mengganggu waktunya lagi,
Kalau mau belajar otodidak macro cara C, seperti saya yang pemula ini harus mulai dari mana. Master
AssalamualaikumTerimakasihHairul Alam
Dikirim dari Yahoo Mail di Android
Pada Kam, 5 Nov 2015 pada 13:53, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:
Terimakasih.
Sepertinya memang kebanyakan pengguna VBA yang ada dimilis ini belajar secara otodidak (termasuk saya).
Penghalang utama pembelajar VBA adalah anggapan bahwa memahami VBA sama dengan menjadi seorang programmer.
Padahal VBA adalah alat untuk membantu mengotomasi proses kerja keseharian. Jadi target utmanya bukan untuk programmer atau menjadikan seseorang menjadi seorang programmer.
Umumnya, proses belajar otodidak yang sering dijumpai adalah dengan 3 jalur berikut :
a. record macro
>> cara ini cukup cepat untuk bisa memahami bunyi script sederhana dan menyesuaikannya dengan kebutuhan yang sederhana.
>> kebanyakan akan membutuhkan waktu lama untuk bisa memahami VBA yang akan digunakan secara luas, terutama ketika berjumpa kebutuhan yang dinamis. Contohnya merujuk suatu range yang dinamis berdasar pola peletakan data tertentu dan sebagainya.
>> biasanya pelaku otodidak ini lebih nyaman membuat sebuah alur yang relatif statis
>> yang sering ditemui, pelaku otodidak ini cepat merasa sudah bisa dan nyaman dengan yang dipahaminya, sehingga enggan atau akan merasa sulit sekali memperlajari hal dasar dalam pemrograman seperti datatype, variabel (deklarasi maupun penggunaannya sebagai input parameter, dan sebagainya).
>> ciri yang umum adalah banyaknya prosedur yang relatif sama kerjanya didalam sebuah alur proses.
b. copas script dan sesuaikan
>> cara ini relatif instan, tetapi sulit sekali untuk bisa memahami apa yang ada di dalam suatu prosedur yang di-copas.
>> kendala pertama yang sering ditemui pelaku ini adalah tergantung pada kemiripan kebutuhan dengan script yang sudah ada
>> biasanya pelaku ini akan sangat merasa berat untuk mempelajari hal dasar tentang pemrograman, karena sudah kadung ketagihan copas dan sesuaikan, sehingga sulit membuat sesuatu yang dibutuhkannya secara cepat dan tepat.
c. belajar dari dasar
>> cara ini bisa cepat dan bisa juga lambat. Jika penuh semangat dan berani mencoba, maka cara ini sebenarnya lebih cepat dibanding dua cara di atas.
>> membosankan diawalnya, karena akan sulit mengerti dan butuh berulang-ulang melakukannya (membaca dan mencoba).
>> yang merepotkan adalah bahwa cara ini menuntut konsistensi dalam belajar setahap demi setahap penuh kesabaran.
>> pelaku cara ini dituntut untuk paham kode yang ditulis dan apa yang terwujud darinya.
Andaikan ada sebuah kasus yang perlu sentuhan VBA, pelaku otodidak di atas akan memiliki perbedaan. Kira-kira begini :
pelaku a :
1. usaha record macro kalau bisa
2. kalau tidak bisa, maka search di internet tentang kasus tersebut lalu menjadi pelaku b alias copas
3. ubah kode-kode yang ada (entah hasil 1 atau 2)
pelaku b :
1. search di internet tentang kasus tersebut, yang kalau dicopas bisa jalan dan sesuai harapan
2.. ubah kode-kode hasil 1 agar bisa sesuai kebutuhan
pelaku c :
1. mencari tahu apa saja yang dibutuhkan lalu mengatur urutannya
2. mencoba menyusun kode, kalau tidak bisa, search di internet tentang object yang dibutuhkan (namanya, cara pakainya, kemampuan yang dimiliki si object, dan sebagainya)
3. mencoba menyusun kode lagi dengan tambahan informasi yang ada.
Hasil yang diperoleh :
pelaku a :
* jadi tahu ada object seperti itu tapi baru bisa memakai kemampuan object yang dia temui dari hasil record atau search di internet saja.
pelaku b :
* jadi tahu ada prosedur itu dan bisa diubah begini begitu.. alias bertambah daftar prosedur yang diketahuinya
pelaku c :
* jadi tahu kemampuan sesungguhnya dari setiap object yang ditemuinya, karena lebih jelas arahnya saat mencoba memanfaatkannya di suatu kode
Jadi, kalau memang akan sering bersentuhan dengan pekerjaan yang acap kali membutuhkan proses otomasi, mulailah berani belajar sebagai pelaku c.
Percaya deh... ndak perlu jadi programmer untuk mempelajari VBA dan tidak akan serta merta menjadi programmer setelah bisa VBA.
Ada beberapa member milis yang mencoba dengan nekad pakai cara c, dan progresnya sangat pesat dibanding yang pakai cara a dan b.
Berani mencoba cara c ?
atau
Sudah puas dengan apa yang Anda bisa tentang VBA saat ini ?
;)
Wassalam,
Kid
2015-11-05 11:34 GMT+07:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Luar Biasa Mr. Kid..., penjelasannya luar biasa.... Pola berfikir saya belum terstruktur, maklum otodidak, googling, nemu coding, trus diterapkan, g jadi dan nanya deh. Semoga Mr. Kid Sehat Selalu.. Amin
Salam Kagum
Haris
--------------------------------------------
On Mon, 11/2/15, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Subject: Re: [belajar-excel] Agar InputBox selalu muncul jika isinya kosong atau data tidak ditemukan
To: "BeExcel" <belajar-excel@yahoogroups.com>
Date: Monday, November 2, 2015, 4:07 AM
Wa'alaikumussalam wr wb
Hai Haris,
Sebenarnya bagian ini
akan ditulis dipaling akhir...tapi...
Sebaiknya sejak awal belajar VBA,
biasakanlah memaksa diri untuk menggunakan Option Explicit,
sehingga seluruh variabel yang akan digunakan akan dipaksa
oleh compiler untuk dideklarasikan.
Contoh :
Pastikan bunyi Option Explicit dihapus
(baris pertama module tersebut). 1. Jika range A1
berisi teks berbunyi 'Kid', apa hasil dari baris
kode berikut :
msgbox range("a1")
Jawabnya adalah muncul sebuah kotak
pesan berisi tulisan 'Kid' alias nilai yang ada di
range A1 pada sheet aktif.
berikutnya...
2. Jika range A1 berisi teks
berbunyi 'Kid', apa hasil dari baris kode berikut
: dim rng as range
set
rng=range("a1")
msgbox rng
Jawabnya adalah muncul sebuah kotak
pesan berisi tulisan 'Kid' alias nilai yang ada di
range A1 pada sheet aktif.
*** sama ya antara no 1 dan 2
3. Jika range A1
berisi teks berbunyi 'Kid', apa hasil dari baris
kode berikut : set
rng=range("a1")
msgbox rng
Jawabnya adalah muncul sebuah kotak pesan
berisi tulisan 'Kid' alias nilai yang ada di range
A1 pada sheet aktif.
*** loh... sama juga hasilnya
Tapi, variabel rng di nomor 2
bertipe object range, dan variabel rng di nomor 3 bertipe
variant.
trus kenapa... toh sama
saja hasilnya...
ya iyalah, itu
cuma baca doink....
Sekarang gini :
1. apa hasil baris kode berikut :
dim rng as range
set
rng=range("A1")
rng="Tulis
ini"
Jawabnya adalah nilai
di range A1 sheet yang aktif akan berubah nilainya menjadi
berbunyi 'Tulis ini'
2. apa hasil baris kode berikut
:
set
rng=range("a1")
rng="Lagi-lagi
tulis"
Jawabnya adalah range
A1 sheet yang aktif tidak akan berubah nilainya
menjadi 'Lagi-lagi tulis'
***
Tampak bedanya kan...
Sekarang, kalau ada baris kode
berikut :
for each rng in
range("a1:a3")
msgbox rng
rng="tulis"
rng.clearcontents
next
rng
Apa hasilnya ?
Jawabnya adalah error, terus tanya
ke milis... Master n rekan sekalian, kenapa kok macronya
error... blablabla... cape deh
-----------------------
2. yang ini serius
ah... mulai urun solusi kasus...
A. bagian :
Sheets("Opening").Visible = 1
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Opening" Then
Sh.Visible = 1
End If
Next Sh
sebaiknya variabel bernama Sh
dideklarasikan termasuk datatype-nya.
dim Sh as worksheet
Sheets("Opening").Visible = 1
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Opening" Then
Sh.Visible = 1
End If
Next Sh
B. InputBox selalu muncul jika isinya
kosong atau data tidak ditemukan.B.1.. Kalau pakai
InputBox nya VB, maka akan sulit dibedakan antara user
menekan Cancel (termasuk Close [tanda x]) dengan user
menekan OK tapi belum mengisi apapun.
Strukturnya begini :
dim sInput as string
ULANGI:
'ini namanya memberi label
sinput=inputbox("isi
sesuatu ya","ini teks caption nya")
if len(sinput)=0 then
'user gak isi apa-apa langsung tekan OK atau user tekan
Cancel atau user tekan close (x kecil)
'isi
perlakuan Anda disini, misal tampilkan msgbox atau apa
saja
'setelah perlakuan diatas, kalau mau menampilkan si
input box lagi, beri perintah ini :
goto ULANGI
else
'isi dengan
proses cek nilai sInput sesuai dengan yang dimaksud atau
tidak
'seperti proses yang ada Find-find an itu
'termasuk
proses menampilkan msgbox hasil find-find an dan
sebagainya
endif
B.2. Kalau pakai inputbox nya
application, maka bisa dibedakan antara user menekan Cancel
(termasuk close) dengan user menekan OK tapi masih kosongan.
Yang sedikit berbeda pada pemakaiannya dengan inputbox nya
VB adalah ada opsi tipe data inputan yang akan dimasukkan
oleh user.
Strukturnya begini :
dim vInput as variant
ULANGI:
'ini namanya memberi label
vinput=application.inputbox("isi sesuatu
ya","ini teks caption nya",type:=2)
'2 adalah untuk tipe input ber-datatype string
if vartype(vinput)=11
then 'user tekan Cancel atau user tekan close (x
kecil)
'isi perlakuan Anda disini, misal tampilkan msgbox atau
apa saja
'termasuk proses tutup workbook misalnya
elseif len(vinput)=0
then 'user belum isi apa-apa tapi sudah tekan
OK
'isi
perlakuan Anda disini, misal tampilkan pesan atau apa saja
deh...
'kalau akan menampilkan si inputbox lagi, tulis perintah
ini :
goto
ULANGI
else
'isi dengan
proses cek nilai sInput sesuai dengan yang dimaksud atau
tidak
'seperti proses yang ada Find-find an itu
'termasuk
proses menampilkan msgbox hasil find-find an
endif
*** InputBox
nya VB atau application tidak bisa menyembunyikan karakter
yang di-input oleh user.
***
kalau pengen menyembunyikan karakter yang di-input user,
maka buatlah userform khusus yang salah satu object nya
adalah sebuah textbox untuk user menuliskan sesuatu. Textbox
ini diatur agar properti passwordchar nya diisi sebuah
karakter tertentu. Biasanya diisi karakter * supaya kalau
user menulis sesuatu, yang tampak adalah deretan * seperti
*** (user baru ketik 3 karakter)
Udah ah...
dah adzan subuh...
Wassalamu'alaikum wr wb
Kid
On Sat, Oct 31, 2015 at
11:24 AM, ris ha har1sn.excel@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:
Assalamu'alaikum.
Dear master semua, saya
punya kesulitan, yaitu Agar InputBox selalu muncul jika
isinya kosong atau data tidak ditemukan. Saya udah
mempraktekan, tapi belum ketemu. Kesalahan macro saya
dimananya ya... File terlampir
Private Sub
Workbook_Open()
Sheets("Opening").Visible = 1
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Opening" Then
Sh.Visible = 1
End If
Next Sh
ID =
InputBox("Pak " &
Sheets("DataPassword").Range("C3")..Value
& ", silahkan masukkan password anda.",
APPNAME)
Do Until ID <>
vbNullString
If ID = vbNullString Then
Pesan = MsgBox("Tidak Boleh
Kosong.", vbOKCancel, APPNAME)
If Pesan = vbOK Then
ID =
InputBox("Pak " &
Sheets("DataPassword").Range("C3")..Value
& ", silahkan masukkan password anda.",
APPNAME)
Else
ThisWorkbook.Save
ThisWorkbook.Close
End If
Else
With
Sheets("DataPassword").Range("E6:E10")
Set Rng = .Find(what:=ID,
After:=.Cells(1), LookIn:=xlFormulas, SearchOrder:=xlByRows,
MatchCase:=True)
If Not Rng Is
Nothing Then
Sheets("Opening").Visible = 1
For Each Sh In
ThisWorkbook.Worksheets
If
Sh.Name <> "Opening" Then
Sh.Visible = 2
End If
Next Sh
Else
Pesan =
MsgBox("Password Salah", vbOKCancel, APPNAME)
If Pesan = vbOK Then
ID = InputBox("Pak
" &
Sheets("DataPassword").Range("C3")..Value
& ", silahkan masukkan password anda.",
APPNAME)
Else
ThisWorkbook.Save
ThisWorkbook.Close
End If
End If
End With
End If
Loop
ThisWorkbook.Save
End Sub
Terima kasih atas bantuan
dan solusinya...
SalamHaris
#yiv7543240622 #yiv7543240622 --
#yiv7543240622ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}
#yiv7543240622 #yiv7543240622ygrp-mkp hr {
border:1px solid #d8d8d8;}
#yiv7543240622 #yiv7543240622ygrp-mkp #yiv7543240622hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}
#yiv7543240622 #yiv7543240622ygrp-mkp #yiv7543240622ads {
margin-bottom:10px;}
#yiv7543240622 #yiv7543240622ygrp-mkp .yiv7543240622ad {
padding:0 0;}
#yiv7543240622 #yiv7543240622ygrp-mkp .yiv7543240622ad p {
margin:0;}
#yiv7543240622 #yiv7543240622ygrp-mkp .yiv7543240622ad a {
color:#0000ff;text-decoration:none;}
#yiv7543240622 #yiv7543240622ygrp-sponsor
#yiv7543240622ygrp-lc {
font-family:Arial;}
#yiv7543240622 #yiv7543240622ygrp-sponsor
#yiv7543240622ygrp-lc #yiv7543240622hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}
#yiv7543240622 #yiv7543240622ygrp-sponsor
#yiv7543240622ygrp-lc .yiv7543240622ad {
margin-bottom:10px;padding:0 0;}
#yiv7543240622 #yiv7543240622actions {
font-family:Verdana;font-size:11px;padding:10px 0;}
#yiv7543240622 #yiv7543240622activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}
#yiv7543240622 #yiv7543240622activity span {
font-weight:700;}
#yiv7543240622 #yiv7543240622activity span:first-child {
text-transform:uppercase;}
#yiv7543240622 #yiv7543240622activity span a {
color:#5085b6;text-decoration:none;}
#yiv7543240622 #yiv7543240622activity span span {
color:#ff7900;}
#yiv7543240622 #yiv7543240622activity span
.yiv7543240622underline {
text-decoration:underline;}
#yiv7543240622 .yiv7543240622attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}
#yiv7543240622 .yiv7543240622attach div a {
text-decoration:none;}
#yiv7543240622 .yiv7543240622attach img {
border:none;padding-right:5px;}
#yiv7543240622 .yiv7543240622attach label {
display:block;margin-bottom:5px;}
#yiv7543240622 .yiv7543240622attach label a {
text-decoration:none;}
#yiv7543240622 blockquote {
margin:0 0 0 4px;}
#yiv7543240622 .yiv7543240622bold {
font-family:Arial;font-size:13px;font-weight:700;}
#yiv7543240622 .yiv7543240622bold a {
text-decoration:none;}
#yiv7543240622 dd.yiv7543240622last p a {
font-family:Verdana;font-weight:700;}
#yiv7543240622 dd.yiv7543240622last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}
#yiv7543240622 dd.yiv7543240622last p
span.yiv7543240622yshortcuts {
margin-right:0;}
#yiv7543240622 div.yiv7543240622attach-table div div a {
text-decoration:none;}
#yiv7543240622 div.yiv7543240622attach-table {
width:400px;}
#yiv7543240622 div.yiv7543240622file-title a, #yiv7543240622
div.yiv7543240622file-title a:active, #yiv7543240622
div.yiv7543240622file-title a:hover, #yiv7543240622
div.yiv7543240622file-title a:visited {
text-decoration:none;}
#yiv7543240622 div.yiv7543240622photo-title a,
#yiv7543240622 div.yiv7543240622photo-title a:active,
#yiv7543240622 div.yiv7543240622photo-title a:hover,
#yiv7543240622 div..yiv7543240622photo-title a:visited {
text-decoration:none;}
#yiv7543240622 div#yiv7543240622ygrp-mlmsg
#yiv7543240622ygrp-msg p a span.yiv7543240622yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}
#yiv7543240622 .yiv7543240622green {
color:#628c2a;}
#yiv7543240622 .yiv7543240622MsoNormal {
margin:0 0 0 0;}
#yiv7543240622 o {
font-size:0;}
#yiv7543240622 #yiv7543240622photos div {
float:left;width:72px;}
#yiv7543240622 #yiv7543240622photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}
#yiv7543240622 #yiv7543240622photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}
#yiv7543240622 #yiv7543240622reco-category {
font-size:77%;}
#yiv7543240622 #yiv7543240622reco-desc {
font-size:77%;}
#yiv7543240622 .yiv7543240622replbq {
margin:4px;}
#yiv7543240622 #yiv7543240622ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}
#yiv7543240622 #yiv7543240622ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}
#yiv7543240622 #yiv7543240622ygrp-mlmsg table {
font-size:inherit;font:100%;}
#yiv7543240622 #yiv7543240622ygrp-mlmsg select,
#yiv7543240622 input, #yiv7543240622 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv7543240622 #yiv7543240622ygrp-mlmsg pre, #yiv7543240622
code {
font:115% monospace;}
#yiv7543240622 #yiv7543240622ygrp-mlmsg * {
line-height:1.22em;}
#yiv7543240622 #yiv7543240622ygrp-mlmsg #yiv7543240622logo {
padding-bottom:10px;}
#yiv7543240622 #yiv7543240622ygrp-msg p a {
font-family:Verdana;}
#yiv7543240622 #yiv7543240622ygrp-msg
p#yiv7543240622attach-count span {
color:#1E66AE;font-weight:700;}
#yiv7543240622 #yiv7543240622ygrp-reco
#yiv7543240622reco-head {
color:#ff7900;font-weight:700;}
#yiv7543240622 #yiv7543240622ygrp-reco {
margin-bottom:20px;padding:0px;}
#yiv7543240622 #yiv7543240622ygrp-sponsor #yiv7543240622ov
li a {
font-size:130%;text-decoration:none;}
#yiv7543240622 #yiv7543240622ygrp-sponsor #yiv7543240622ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}
#yiv7543240622 #yiv7543240622ygrp-sponsor #yiv7543240622ov
ul {
margin:0;padding:0 0 0 8px;}
#yiv7543240622 #yiv7543240622ygrp-text {
font-family:Georgia;}
#yiv7543240622 #yiv7543240622ygrp-text p {
margin:0 0 1em 0;}
#yiv7543240622 #yiv7543240622ygrp-text tt {
font-size:120%;}
#yiv7543240622 #yiv7543240622ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv7543240622
#yiv2960514097 #yiv2960514097 -- #yiv2960514097ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2960514097 #yiv2960514097ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2960514097 #yiv2960514097ygrp-mkp #yiv2960514097hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2960514097 #yiv2960514097ygrp-mkp #yiv2960514097ads {margin-bottom:10px;}#yiv2960514097 #yiv2960514097ygrp-mkp .yiv2960514097ad {padding:0 0;}#yiv2960514097 #yiv2960514097ygrp-mkp .yiv2960514097ad p {margin:0;}#yiv2960514097 #yiv2960514097ygrp-mkp .yiv2960514097ad a {color:#0000ff;text-decoration:
Kalau mau belajar otodidak macro cara C, seperti saya yang pemula ini harus mulai dari mana. Master
AssalamualaikumTerimakasihHairul Alam
Dikirim dari Yahoo Mail di Android
Pada Kam, 5 Nov 2015 pada 13:53, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:
Terimakasih.
Sepertinya memang kebanyakan pengguna VBA yang ada dimilis ini belajar secara otodidak (termasuk saya).
Penghalang utama pembelajar VBA adalah anggapan bahwa memahami VBA sama dengan menjadi seorang programmer.
Padahal VBA adalah alat untuk membantu mengotomasi proses kerja keseharian. Jadi target utmanya bukan untuk programmer atau menjadikan seseorang menjadi seorang programmer.
Umumnya, proses belajar otodidak yang sering dijumpai adalah dengan 3 jalur berikut :
a. record macro
>> cara ini cukup cepat untuk bisa memahami bunyi script sederhana dan menyesuaikannya dengan kebutuhan yang sederhana.
>> kebanyakan akan membutuhkan waktu lama untuk bisa memahami VBA yang akan digunakan secara luas, terutama ketika berjumpa kebutuhan yang dinamis. Contohnya merujuk suatu range yang dinamis berdasar pola peletakan data tertentu dan sebagainya.
>> biasanya pelaku otodidak ini lebih nyaman membuat sebuah alur yang relatif statis
>> yang sering ditemui, pelaku otodidak ini cepat merasa sudah bisa dan nyaman dengan yang dipahaminya, sehingga enggan atau akan merasa sulit sekali memperlajari hal dasar dalam pemrograman seperti datatype, variabel (deklarasi maupun penggunaannya sebagai input parameter, dan sebagainya).
>> ciri yang umum adalah banyaknya prosedur yang relatif sama kerjanya didalam sebuah alur proses.
b. copas script dan sesuaikan
>> cara ini relatif instan, tetapi sulit sekali untuk bisa memahami apa yang ada di dalam suatu prosedur yang di-copas.
>> kendala pertama yang sering ditemui pelaku ini adalah tergantung pada kemiripan kebutuhan dengan script yang sudah ada
>> biasanya pelaku ini akan sangat merasa berat untuk mempelajari hal dasar tentang pemrograman, karena sudah kadung ketagihan copas dan sesuaikan, sehingga sulit membuat sesuatu yang dibutuhkannya secara cepat dan tepat.
c. belajar dari dasar
>> cara ini bisa cepat dan bisa juga lambat. Jika penuh semangat dan berani mencoba, maka cara ini sebenarnya lebih cepat dibanding dua cara di atas.
>> membosankan diawalnya, karena akan sulit mengerti dan butuh berulang-ulang melakukannya (membaca dan mencoba).
>> yang merepotkan adalah bahwa cara ini menuntut konsistensi dalam belajar setahap demi setahap penuh kesabaran.
>> pelaku cara ini dituntut untuk paham kode yang ditulis dan apa yang terwujud darinya.
Andaikan ada sebuah kasus yang perlu sentuhan VBA, pelaku otodidak di atas akan memiliki perbedaan. Kira-kira begini :
pelaku a :
1. usaha record macro kalau bisa
2. kalau tidak bisa, maka search di internet tentang kasus tersebut lalu menjadi pelaku b alias copas
3. ubah kode-kode yang ada (entah hasil 1 atau 2)
pelaku b :
1. search di internet tentang kasus tersebut, yang kalau dicopas bisa jalan dan sesuai harapan
2.. ubah kode-kode hasil 1 agar bisa sesuai kebutuhan
pelaku c :
1. mencari tahu apa saja yang dibutuhkan lalu mengatur urutannya
2. mencoba menyusun kode, kalau tidak bisa, search di internet tentang object yang dibutuhkan (namanya, cara pakainya, kemampuan yang dimiliki si object, dan sebagainya)
3. mencoba menyusun kode lagi dengan tambahan informasi yang ada.
Hasil yang diperoleh :
pelaku a :
* jadi tahu ada object seperti itu tapi baru bisa memakai kemampuan object yang dia temui dari hasil record atau search di internet saja.
pelaku b :
* jadi tahu ada prosedur itu dan bisa diubah begini begitu.. alias bertambah daftar prosedur yang diketahuinya
pelaku c :
* jadi tahu kemampuan sesungguhnya dari setiap object yang ditemuinya, karena lebih jelas arahnya saat mencoba memanfaatkannya di suatu kode
Jadi, kalau memang akan sering bersentuhan dengan pekerjaan yang acap kali membutuhkan proses otomasi, mulailah berani belajar sebagai pelaku c.
Percaya deh... ndak perlu jadi programmer untuk mempelajari VBA dan tidak akan serta merta menjadi programmer setelah bisa VBA.
Ada beberapa member milis yang mencoba dengan nekad pakai cara c, dan progresnya sangat pesat dibanding yang pakai cara a dan b.
Berani mencoba cara c ?
atau
Sudah puas dengan apa yang Anda bisa tentang VBA saat ini ?
;)
Wassalam,
Kid
2015-11-05 11:34 GMT+07:00 ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Luar Biasa Mr. Kid..., penjelasannya luar biasa.... Pola berfikir saya belum terstruktur, maklum otodidak, googling, nemu coding, trus diterapkan, g jadi dan nanya deh. Semoga Mr. Kid Sehat Selalu.. Amin
Salam Kagum
Haris
--------------------------------------------
On Mon, 11/2/15, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Subject: Re: [belajar-excel] Agar InputBox selalu muncul jika isinya kosong atau data tidak ditemukan
To: "BeExcel" <belajar-excel@yahoogroups.com>
Date: Monday, November 2, 2015, 4:07 AM
Wa'alaikumussalam wr wb
Hai Haris,
Sebenarnya bagian ini
akan ditulis dipaling akhir...tapi...
Sebaiknya sejak awal belajar VBA,
biasakanlah memaksa diri untuk menggunakan Option Explicit,
sehingga seluruh variabel yang akan digunakan akan dipaksa
oleh compiler untuk dideklarasikan.
Contoh :
Pastikan bunyi Option Explicit dihapus
(baris pertama module tersebut). 1. Jika range A1
berisi teks berbunyi 'Kid', apa hasil dari baris
kode berikut :
msgbox range("a1")
Jawabnya adalah muncul sebuah kotak
pesan berisi tulisan 'Kid' alias nilai yang ada di
range A1 pada sheet aktif.
berikutnya...
2. Jika range A1 berisi teks
berbunyi 'Kid', apa hasil dari baris kode berikut
: dim rng as range
set
rng=range("a1")
msgbox rng
Jawabnya adalah muncul sebuah kotak
pesan berisi tulisan 'Kid' alias nilai yang ada di
range A1 pada sheet aktif.
*** sama ya antara no 1 dan 2
3. Jika range A1
berisi teks berbunyi 'Kid', apa hasil dari baris
kode berikut : set
rng=range("a1")
msgbox rng
Jawabnya adalah muncul sebuah kotak pesan
berisi tulisan 'Kid' alias nilai yang ada di range
A1 pada sheet aktif.
*** loh... sama juga hasilnya
Tapi, variabel rng di nomor 2
bertipe object range, dan variabel rng di nomor 3 bertipe
variant.
trus kenapa... toh sama
saja hasilnya...
ya iyalah, itu
cuma baca doink....
Sekarang gini :
1. apa hasil baris kode berikut :
dim rng as range
set
rng=range("A1")
rng="Tulis
ini"
Jawabnya adalah nilai
di range A1 sheet yang aktif akan berubah nilainya menjadi
berbunyi 'Tulis ini'
2. apa hasil baris kode berikut
:
set
rng=range("a1")
rng="Lagi-lagi
tulis"
Jawabnya adalah range
A1 sheet yang aktif tidak akan berubah nilainya
menjadi 'Lagi-lagi tulis'
***
Tampak bedanya kan...
Sekarang, kalau ada baris kode
berikut :
for each rng in
range("a1:a3")
msgbox rng
rng="tulis"
rng.clearcontents
next
rng
Apa hasilnya ?
Jawabnya adalah error, terus tanya
ke milis... Master n rekan sekalian, kenapa kok macronya
error... blablabla... cape deh
-----------------------
2. yang ini serius
ah... mulai urun solusi kasus...
A. bagian :
Sheets("Opening").Visible = 1
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Opening" Then
Sh.Visible = 1
End If
Next Sh
sebaiknya variabel bernama Sh
dideklarasikan termasuk datatype-nya.
dim Sh as worksheet
Sheets("Opening").Visible = 1
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Opening" Then
Sh.Visible = 1
End If
Next Sh
B. InputBox selalu muncul jika isinya
kosong atau data tidak ditemukan.B.1.. Kalau pakai
InputBox nya VB, maka akan sulit dibedakan antara user
menekan Cancel (termasuk Close [tanda x]) dengan user
menekan OK tapi belum mengisi apapun.
Strukturnya begini :
dim sInput as string
ULANGI:
'ini namanya memberi label
sinput=inputbox("isi
sesuatu ya","ini teks caption nya")
if len(sinput)=0 then
'user gak isi apa-apa langsung tekan OK atau user tekan
Cancel atau user tekan close (x kecil)
'isi
perlakuan Anda disini, misal tampilkan msgbox atau apa
saja
'setelah perlakuan diatas, kalau mau menampilkan si
input box lagi, beri perintah ini :
goto ULANGI
else
'isi dengan
proses cek nilai sInput sesuai dengan yang dimaksud atau
tidak
'seperti proses yang ada Find-find an itu
'termasuk
proses menampilkan msgbox hasil find-find an dan
sebagainya
endif
B.2. Kalau pakai inputbox nya
application, maka bisa dibedakan antara user menekan Cancel
(termasuk close) dengan user menekan OK tapi masih kosongan.
Yang sedikit berbeda pada pemakaiannya dengan inputbox nya
VB adalah ada opsi tipe data inputan yang akan dimasukkan
oleh user.
Strukturnya begini :
dim vInput as variant
ULANGI:
'ini namanya memberi label
vinput=application.inputbox("isi sesuatu
ya","ini teks caption nya",type:=2)
'2 adalah untuk tipe input ber-datatype string
if vartype(vinput)=11
then 'user tekan Cancel atau user tekan close (x
kecil)
'isi perlakuan Anda disini, misal tampilkan msgbox atau
apa saja
'termasuk proses tutup workbook misalnya
elseif len(vinput)=0
then 'user belum isi apa-apa tapi sudah tekan
OK
'isi
perlakuan Anda disini, misal tampilkan pesan atau apa saja
deh...
'kalau akan menampilkan si inputbox lagi, tulis perintah
ini :
goto
ULANGI
else
'isi dengan
proses cek nilai sInput sesuai dengan yang dimaksud atau
tidak
'seperti proses yang ada Find-find an itu
'termasuk
proses menampilkan msgbox hasil find-find an
endif
*** InputBox
nya VB atau application tidak bisa menyembunyikan karakter
yang di-input oleh user.
***
kalau pengen menyembunyikan karakter yang di-input user,
maka buatlah userform khusus yang salah satu object nya
adalah sebuah textbox untuk user menuliskan sesuatu. Textbox
ini diatur agar properti passwordchar nya diisi sebuah
karakter tertentu. Biasanya diisi karakter * supaya kalau
user menulis sesuatu, yang tampak adalah deretan * seperti
*** (user baru ketik 3 karakter)
Udah ah...
dah adzan subuh...
Wassalamu'alaikum wr wb
Kid
On Sat, Oct 31, 2015 at
11:24 AM, ris ha har1sn.excel@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:
Assalamu'
Dear master semua, saya
punya kesulitan, yaitu Agar InputBox selalu muncul jika
isinya kosong atau data tidak ditemukan. Saya udah
mempraktekan, tapi belum ketemu. Kesalahan macro saya
dimananya ya... File terlampir
Private Sub
Workbook_Open(
Sheets("
For Each Sh In ThisWorkbook.
If Sh.Name <> "Opening" Then
Sh.Visible = 1
End If
Next Sh
ID =
InputBox("
Sheets("
& ", silahkan masukkan password anda.",
APPNAME)
Do Until ID <>
vbNullString
If ID = vbNullString Then
Pesan = MsgBox("
Kosong."
If Pesan = vbOK Then
ID =
InputBox("
Sheets("
& ", silahkan masukkan password anda.",
APPNAME)
Else
ThisWorkbook.
ThisWorkbook.
End If
Else
With
Sheets("
Set Rng = .Find(what:=
After:=.Cells(
MatchCase:=True)
If Not Rng Is
Nothing Then
Sheets("
For Each Sh In
ThisWorkbook.
If
Sh.Name <> "Opening" Then
Sh.Visible = 2
End If
Next Sh
Else
Pesan =
MsgBox("
If Pesan = vbOK Then
ID = InputBox("
" &
Sheets("
& ", silahkan masukkan password anda.",
APPNAME)
Else
ThisWorkbook.
ThisWorkbook.
End If
End If
End With
End If
Loop
ThisWorkbook.
End Sub
Terima kasih atas bantuan
dan solusinya...
SalamHaris
#yiv7543240622 #yiv7543240622 --
#yiv7543240622ygrp-
border:1px solid #d8d8d8;font-
0;padding:0 10px;}
#yiv7543240622 #yiv7543240622ygrp-
border:1px solid #d8d8d8;}
#yiv7543240622 #yiv7543240622ygrp-
color:#628c2a;
0;}
#yiv7543240622 #yiv7543240622ygrp-
margin-bottom:
#yiv7543240622 #yiv7543240622ygrp-
padding:0 0;}
#yiv7543240622 #yiv7543240622ygrp-
margin:0;}
#yiv7543240622 #yiv7543240622ygrp-
color:#0000ff;
#yiv7543240622 #yiv7543240622ygrp-
#yiv7543240622ygrp-
font-family:
#yiv7543240622 #yiv7543240622ygrp-
#yiv7543240622ygrp-
margin:10px
0px;font-weight:
#yiv7543240622 #yiv7543240622ygrp-
#yiv7543240622ygrp-
margin-bottom:
#yiv7543240622 #yiv7543240622actio
font-family:
#yiv7543240622 #yiv7543240622activ
background-color:
#yiv7543240622 #yiv7543240622activ
font-weight:
#yiv7543240622 #yiv7543240622activ
text-transform:
#yiv7543240622 #yiv7543240622activ
color:#5085b6;
#yiv7543240622 #yiv7543240622activ
color:#ff7900;
#yiv7543240622 #yiv7543240622activ
.yiv7543240622under
text-decoration:
#yiv7543240622 .yiv7543240622attac
clear:both;display:
0;width:400px;
#yiv7543240622 .yiv7543240622attac
text-decoration:
#yiv7543240622 .yiv7543240622attac
border:none;
#yiv7543240622 .yiv7543240622attac
display:block;
#yiv7543240622 .yiv7543240622attac
text-decoration:
#yiv7543240622 blockquote {
margin:0 0 0 4px;}
#yiv7543240622 .yiv7543240622bold {
font-family:
#yiv7543240622 .yiv7543240622bold a {
text-decoration:
#yiv7543240622 dd.yiv7543240622las
font-family:
#yiv7543240622 dd.yiv7543240622las
margin-right:
#yiv7543240622 dd.yiv7543240622las
span.yiv7543240622y
margin-right:
#yiv7543240622 div.yiv7543240622at
text-decoration:
#yiv7543240622 div.yiv7543240622at
width:400px;
#yiv7543240622 div.yiv7543240622fi
div.yiv7543240622fi
div.yiv7543240622fi
div.yiv7543240622fi
text-decoration:
#yiv7543240622 div.yiv7543240622ph
#yiv7543240622 div.yiv7543240622ph
#yiv7543240622 div.yiv7543240622ph
#yiv7543240622 div..yiv7543240622p
text-decoration:
#yiv7543240622 div#yiv7543240622yg
#yiv7543240622ygrp-
font-family:
#yiv7543240622 .yiv7543240622green {
color:#628c2a;
#yiv7543240622 .yiv7543240622MsoNo
margin:0 0 0 0;}
#yiv7543240622 o {
font-size:0;
#yiv7543240622 #yiv7543240622photo
float:left;width:
#yiv7543240622 #yiv7543240622photo
border:1px solid
#666666;height:
#yiv7543240622 #yiv7543240622photo
color:#666666;
#yiv7543240622 #yiv7543240622reco-
font-size:77%
#yiv7543240622 #yiv7543240622reco-
font-size:77%
#yiv7543240622 .yiv7543240622replb
margin:4px;}
#yiv7543240622 #yiv7543240622ygrp-
margin-right:
#yiv7543240622 #yiv7543240622ygrp-
font-size:13px;
sans-serif;}
#yiv7543240622 #yiv7543240622ygrp-
font-size:inherit;
#yiv7543240622 #yiv7543240622ygrp-
#yiv7543240622 input, #yiv7543240622 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv7543240622 #yiv7543240622ygrp-
code {
font:115% monospace;}
#yiv7543240622 #yiv7543240622ygrp-
line-height:
#yiv7543240622 #yiv7543240622ygrp-
padding-bottom:
#yiv7543240622 #yiv7543240622ygrp-
font-family:
#yiv7543240622 #yiv7543240622ygrp-
p#yiv7543240622atta
color:#1E66AE;
#yiv7543240622 #yiv7543240622ygrp-
#yiv7543240622reco-
color:#ff7900;
#yiv7543240622 #yiv7543240622ygrp-
margin-bottom:
#yiv7543240622 #yiv7543240622ygrp-
li a {
font-size:130%
#yiv7543240622 #yiv7543240622ygrp-
li {
font-size:77%
#yiv7543240622 #yiv7543240622ygrp-
ul {
margin:0;padding:
#yiv7543240622 #yiv7543240622ygrp-
font-family:
#yiv7543240622 #yiv7543240622ygrp-
margin:0 0 1em 0;}
#yiv7543240622 #yiv7543240622ygrp-
font-size:120%
#yiv7543240622 #yiv7543240622ygrp-
border-right:
}
#yiv7543240622
#yiv2960514097 #yiv2960514097 -- #yiv2960514097ygrp-