Jumat, 26 Mei 2017

[belajar-excel] Digest Number 4195

5 Messages

Digest #4195

Messages

Thu May 25, 2017 10:57 pm (PDT) . Posted by:

"heru Rasna"

Assalamualaikum....salam hormat para master exceller sekalian...
kasus :ada 2 textbox- alamat ktp- alamat sekaranghasil yng di inginkan jika alamat alamat sekarangn sama dengan alamat ktp maka ketika checkbox di centang alamat sekarang terisi otomatis sama dengan alamat ktp.jika tidak dicentang maka alamat sekarang bisa diisi sesuai alamat terbaru
mohon petunjuk penulisan coding vba nya master
untuk jelas terlampir screnshoot

Thu May 25, 2017 10:58 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Yth. Mr. Kid

Ternyata ada yg lebih sederhana dan sudah mencukupi kebutuhan yang saya maksud, dengan kode sbb:

Dim NFile As String

NFile = Dir(ThisWorkbook.Path & "\heru.*")

If NFile <> "" Then ActiveSheet.Shapes(1).Fill.UserPicture (ThisWorkbook.Path & "\" & NFile)

Wassalam

Heru Safrudin

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2017 14:06
To: BeExcel
Subject: Re: [belajar-excel] Tempel file gambar ekstensi sembarang

Wa'alaikumussalam wr wb

Hai Heru,

File gambarnya biar dipilih oleh user saja. Load dialog get filename dengan memberi filter ekstensi yang mampu diproses. Sebaiknya ketahui dulu file gambar dengan format apa saja yang bisa digunakan oleh object yang Anda gunakan.

Contoh pengambilan nama file ada disini <https://app.box.com/s/2pirry5wkdhy9pulq7jq562e5pm2cu3a> . Tambahkan filternya dengan susunan (struktur) seperti yang dicontohkan dalam file tersebut.

Wassalamu'alaikum wr wb

Kid

2017-05-20 12:12 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Be-Exceller

اَلسَّــــلَامُ عَلًيْــــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ

Bagaimanakah caranya menempelkan gambar yang mana nama ekstensi atau format file gambar tidak diketahui ( bisa png, gif, jpg, bmp dll)

Contoh:

activesheet.shapes(1).fill.UserPicture "c:\documents&#92;gambar&#92;heru" ß (file gambar bernama heru(*.png, *.gif, *.jpg, *.bmp dll))

Mohon pembelajarannya

Terima kasih

وَالسَّـــلَامُ عَلَيْـــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ

Heru Safrudin

Thu May 25, 2017 10:58 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Ok. Terima kasih Mr.

Wassalam

Heru Safarudin

ajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2017 14:06
To: BeExcel
Subject: Re: [belajar-excel] Tempel file gambar ekstensi sembarang

Wa'alaikumussalam wr wb

Hai Heru,

File gambarnya biar dipilih oleh user saja. Load dialog get filename dengan memberi filter ekstensi yang mampu diproses. Sebaiknya ketahui dulu file gambar dengan format apa saja yang bisa digunakan oleh object yang Anda gunakan.

Contoh pengambilan nama file ada disini <https://app.box.com/s/2pirry5wkdhy9pulq7jq562e5pm2cu3a> . Tambahkan filternya dengan susunan (struktur) seperti yang dicontohkan dalam file tersebut.

Wassalamu'alaikum wr wb

Kid

2017-05-20 12:12 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear Be-Exceller

اَلسَّــــلَامُ عَلًيْــــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ

Bagaimanakah caranya menempelkan gambar yang mana nama ekstensi atau format file gambar tidak diketahui ( bisa png, gif, jpg, bmp dll)

Contoh:

activesheet.shapes(1).fill.UserPicture "c:\documents&#92;gambar&#92;heru" ß (file gambar bernama heru(*.png, *.gif, *.jpg, *.bmp dll))

Mohon pembelajarannya

Terima kasih

وَالسَّـــلَامُ عَلَيْـــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ

Heru Safrudin

Thu May 25, 2017 11:41 pm (PDT) . Posted by:

"Ryan Sacth" ryan_sacth

Waalaikumsallam.

Sesuai dengan masalahmu, saya coba bantu yah. Mungkin ini hanya sederhana dan para master di sini bisa bantu sempurnakan.

Karena saya tidak mengetahui nama Object dari Textbox dan CheckBox kamu maka saya indikasikan dengan:

namacheckboxkamu ----> Untuk Object CheckBox
namatextboalamatsesuaiKTP ----> Untuk Object TextBox
namatextboxalamatsekarang ----> Untuk Object TextBox

Letakkan code ini pada Userform yang digunakan.

Private Sub namacheckboxkamu_Click()
If namacheckboxkamu.Value = True Then
namatextboalamatsesuaiKTP.Value = namatextboxalamatsekarang.Value
Else
namatextboxalamatsekarang.Value = ""
End If
End Sub

Demikian, semoga berhasil.
Wassalam.
--------------------------------------------
On Thu, 5/25/17, heru Rasna herurasna@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Subject: [belajar-excel] VBA menampilkan textbox jika kondisi sama [2 Attachments]
To: belajar-excel@yahoogroups.com
Date: Thursday, May 25, 2017, 9:27 PM


 







Assalamualaikum....salam
hormat para master exceller sekalian...
kasus
:ada 2
textbox-
alamat ktp-
alamat sekaranghasil
yng di inginkan jika alamat alamat sekarangn sama dengan
alamat ktp maka ketika checkbox di centang alamat sekarang
terisi otomatis sama dengan alamat ktp.jika
tidak dicentang maka alamat sekarang bisa diisi sesuai

alamat terbaru
mohon
petunjuk penulisan coding vba nya master
untuk
jelas terlampir screnshoot












#yiv7997502934 #yiv7997502934 --
#yiv7997502934ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv7997502934 #yiv7997502934ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv7997502934 #yiv7997502934ygrp-mkp #yiv7997502934hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv7997502934 #yiv7997502934ygrp-mkp #yiv7997502934ads {
margin-bottom:10px;}

#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad {
padding:0 0;}

#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad p {
margin:0;}

#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad a {
color:#0000ff;text-decoration:none;}
#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc {
font-family:Arial;}

#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc #yiv7997502934hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc .yiv7997502934ad {
margin-bottom:10px;padding:0 0;}

#yiv7997502934 #yiv7997502934actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv7997502934 #yiv7997502934activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv7997502934 #yiv7997502934activity span {
font-weight:700;}

#yiv7997502934 #yiv7997502934activity span:first-child {
text-transform:uppercase;}

#yiv7997502934 #yiv7997502934activity span a {
color:#5085b6;text-decoration:none;}

#yiv7997502934 #yiv7997502934activity span span {
color:#ff7900;}

#yiv7997502934 #yiv7997502934activity span
.yiv7997502934underline {
text-decoration:underline;}

#yiv7997502934 .yiv7997502934attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv7997502934 .yiv7997502934attach div a {
text-decoration:none;}

#yiv7997502934 .yiv7997502934attach img {
border:none;padding-right:5px;}

#yiv7997502934 .yiv7997502934attach label {
display:block;margin-bottom:5px;}

#yiv7997502934 .yiv7997502934attach label a {
text-decoration:none;}

#yiv7997502934 blockquote {
margin:0 0 0 4px;}

#yiv7997502934 .yiv7997502934bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv7997502934 .yiv7997502934bold a {
text-decoration:none;}

#yiv7997502934 dd.yiv7997502934last p a {
font-family:Verdana;font-weight:700;}

#yiv7997502934 dd.yiv7997502934last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv7997502934 dd.yiv7997502934last p
span.yiv7997502934yshortcuts {
margin-right:0;}

#yiv7997502934 div.yiv7997502934attach-table div div a {
text-decoration:none;}

#yiv7997502934 div.yiv7997502934attach-table {
width:400px;}

#yiv7997502934 div.yiv7997502934file-title a, #yiv7997502934
div.yiv7997502934file-title a:active, #yiv7997502934
div.yiv7997502934file-title a:hover, #yiv7997502934
div.yiv7997502934file-title a:visited {
text-decoration:none;}

#yiv7997502934 div.yiv7997502934photo-title a,
#yiv7997502934 div.yiv7997502934photo-title a:active,
#yiv7997502934 div.yiv7997502934photo-title a:hover,
#yiv7997502934 div.yiv7997502934photo-title a:visited {
text-decoration:none;}

#yiv7997502934 div#yiv7997502934ygrp-mlmsg
#yiv7997502934ygrp-msg p a span.yiv7997502934yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv7997502934 .yiv7997502934green {
color:#628c2a;}

#yiv7997502934 .yiv7997502934MsoNormal {
margin:0 0 0 0;}

#yiv7997502934 o {
font-size:0;}

#yiv7997502934 #yiv7997502934photos div {
float:left;width:72px;}

#yiv7997502934 #yiv7997502934photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}

#yiv7997502934 #yiv7997502934photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv7997502934 #yiv7997502934reco-category {
font-size:77%;}

#yiv7997502934 #yiv7997502934reco-desc {
font-size:77%;}

#yiv7997502934 .yiv7997502934replbq {
margin:4px;}

#yiv7997502934 #yiv7997502934ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg select,
#yiv7997502934 input, #yiv7997502934 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg pre, #yiv7997502934
code {
font:115% monospace;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg * {
line-height:1.22em;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg #yiv7997502934logo {
padding-bottom:10px;}


#yiv7997502934 #yiv7997502934ygrp-msg p a {

font-family:Verdana;}

#yiv7997502934 #yiv7997502934ygrp-msg
p#yiv7997502934attach-count span {
color:#1E66AE;font-weight:700;}

#yiv7997502934 #yiv7997502934ygrp-reco
#yiv7997502934reco-head {
color:#ff7900;font-weight:700;}

#yiv7997502934 #yiv7997502934ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov

li a {
font-size:130%;text-decoration:none;}

#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv7997502934 #yiv7997502934ygrp-text {
font-family:Georgia;}

#yiv7997502934 #yiv7997502934ygrp-text p {
margin:0 0 1em 0;}

#yiv7997502934 #yiv7997502934ygrp-text tt {
font-size:120%;}

#yiv7997502934 #yiv7997502934ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv7997502934


Fri May 26, 2017 1:20 pm (PDT) . Posted by:

"Heru Din"


Trima kasih mas ryan atas masukannya. Case solved... 😊
Pada tanggal 26 Mei 2017 14.28, "Ryan Sacth ryan_sacth@yahoo.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
 
Waalaikumsallam.

Sesuai dengan masalahmu, saya coba bantu yah. Mungkin ini hanya
sederhana dan para master di sini bisa bantu sempurnakan.

Karena saya tidak mengetahui nama Object dari Textbox dan
CheckBox kamu maka saya indikasikan dengan:

namacheckboxkamu ----> Untuk Object CheckBox
namatextboalamatsesuaiKTP ----> Untuk Object TextBox
namatextboxalamatsekarang ----> Untuk Object TextBox

Letakkan code ini pada Userform yang digunakan.

Private Sub namacheckboxkamu_Click()
If namacheckboxkamu.Value = True Then
namatextboalamatsesuaiKTP.Value = namatextboxalamatsekarang.Value
Else
namatextboxalamatsekarang.Value = ""
End If
End Sub

Demikian, semoga berhasil.
Wassalam.
--------------------------------------------
On Thu, 5/25/17, heru Rasna herurasna@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:

Subject: [belajar-excel] VBA menampilkan textbox jika kondisi
sama [2 Attachments]
To: belajar-excel@yahoogroups.com
Date: Thursday, May 25, 2017, 9:27 PM


 







Assalamualaikum....salam
hormat para master exceller sekalian...
kasus
:ada 2
textbox-
alamat ktp-
alamat sekaranghasil
yng di inginkan jika alamat alamat sekarangn sama dengan
alamat ktp maka ketika checkbox di centang alamat sekarang
terisi otomatis sama dengan alamat ktp.jika
tidak dicentang maka alamat sekarang bisa diisi sesuai

alamat terbaru
mohon
petunjuk penulisan coding vba nya master
untuk
jelas terlampir screnshoot












#yiv7997502934 #yiv7997502934 --
#yiv7997502934ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv7997502934 #yiv7997502934ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv7997502934 #yiv7997502934ygrp-mkp #yiv7997502934hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;marg&#92;
in:10px
0;}

#yiv7997502934 #yiv7997502934ygrp-mkp #yiv7997502934ads {
margin-bottom:10px;}

#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad {
padding:0 0;}

#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad p {
margin:0;}

#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad a {
color:#0000ff;text-decoration:none;}
#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc {
font-family:Arial;}

#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc #yiv7997502934hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc .yiv7997502934ad {
margin-bottom:10px;padding:0 0;}

#yiv7997502934 #yiv7997502934actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv7997502934 #yiv7997502934activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size&#92;
:10px;padding:10px;}

#yiv7997502934 #yiv7997502934activity span {
font-weight:700;}

#yiv7997502934 #yiv7997502934activity span:first-child {
text-transform:uppercase;}

#yiv7997502934 #yiv7997502934activity span a {
color:#5085b6;text-decoration:none;}

#yiv7997502934 #yiv7997502934activity span span {
color:#ff7900;}

#yiv7997502934 #yiv7997502934activity span
.yiv7997502934underline {
text-decoration:underline;}

#yiv7997502934 .yiv7997502934attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding&#92;
:10px
0;width:400px;}

#yiv7997502934 .yiv7997502934attach div a {
text-decoration:none;}

#yiv7997502934 .yiv7997502934attach img {
border:none;padding-right:5px;}

#yiv7997502934 .yiv7997502934attach label {
display:block;margin-bottom:5px;}

#yiv7997502934 .yiv7997502934attach label a {
text-decoration:none;}

#yiv7997502934 blockquote {
margin:0 0 0 4px;}

#yiv7997502934 .yiv7997502934bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv7997502934 .yiv7997502934bold a {
text-decoration:none;}

#yiv7997502934 dd.yiv7997502934last p a {
font-family:Verdana;font-weight:700;}

#yiv7997502934 dd.yiv7997502934last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv7997502934 dd.yiv7997502934last p
span.yiv7997502934yshortcuts {
margin-right:0;}

#yiv7997502934 div.yiv7997502934attach-table div div a {
text-decoration:none;}

#yiv7997502934 div.yiv7997502934attach-table {
width:400px;}

#yiv7997502934 div.yiv7997502934file-title a, #yiv7997502934
div.yiv7997502934file-title a:active, #yiv7997502934
div.yiv7997502934file-title a:hover, #yiv7997502934
div.yiv7997502934file-title a:visited {
text-decoration:none;}

#yiv7997502934 div.yiv7997502934photo-title a,
#yiv7997502934 div.yiv7997502934photo-title a:active,
#yiv7997502934 div.yiv7997502934photo-title a:hover,
#yiv7997502934 div.yiv7997502934photo-title a:visited {
text-decoration:none;}

#yiv7997502934 div#yiv7997502934ygrp-mlmsg
#yiv7997502934ygrp-msg p a span.yiv7997502934yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv7997502934 .yiv7997502934green {
color:#628c2a;}

#yiv7997502934 .yiv7997502934MsoNormal {
margin:0 0 0 0;}

#yiv7997502934 o {
font-size:0;}

#yiv7997502934 #yiv7997502934photos div {
float:left;width:72px;}

#yiv7997502934 #yiv7997502934photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}

#yiv7997502934 #yiv7997502934photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;wh\
ite-space:nowrap;width:64px;}

#yiv7997502934 #yiv7997502934reco-category {
font-size:77%;}

#yiv7997502934 #yiv7997502934reco-desc {
font-size:77%;}

#yiv7997502934 .yiv7997502934replbq {
margin:4px;}

#yiv7997502934 #yiv7997502934ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg select,
#yiv7997502934 input, #yiv7997502934 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg pre, #yiv7997502934
code {
font:115% monospace;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg * {
line-height:1.22em;}

#yiv7997502934 #yiv7997502934ygrp-mlmsg #yiv7997502934logo {
padding-bottom:10px;}


#yiv7997502934 #yiv7997502934ygrp-msg p a {

font-family:Verdana;}

#yiv7997502934 #yiv7997502934ygrp-msg
p#yiv7997502934attach-count span {
color:#1E66AE;font-weight:700;}

#yiv7997502934 #yiv7997502934ygrp-reco
#yiv7997502934reco-head {
color:#ff7900;font-weight:700;}

#yiv7997502934 #yiv7997502934ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov

li a {
font-size:130%;text-decoration:none;}

#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv7997502934 #yiv7997502934ygrp-text {
font-family:Georgia;}

#yiv7997502934 #yiv7997502934ygrp-text p {
margin:0 0 1em 0;}

#yiv7997502934 #yiv7997502934ygrp-text tt {
font-size:120%;}

#yiv7997502934 #yiv7997502934ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv7997502934


============================================================
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:

Posting Komentar