Jumat, 27 Januari 2017

[belajar-excel] Digest Number 4076

6 Messages

Digest #4076
1a
Menghitung tinggi range by "Heru Safrudin" heru.safrudin
1b
Re: Menghitung tinggi range by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Membuat Form Popup gambar by "Odhyz" odhyz83_assasaky
3b
Re: Membuat Form Popup gambar by "Mr. Kid" nmkid.family@ymail.com
4
register penutupan kas by "Bos Kbrn" bos.kbrn

Messages

Thu Jan 26, 2017 2:05 am (PST) . Posted by:

"Heru Safrudin" heru.safrudin

Dear B-Exceller,

Seandainya tinggi baris(row height) dalam excel =15 atau 20 pixels

Bagaimanakah cara menghitung total tinggi (row height) seluruh baris dan
pada suatu range, misal Range("A1:A5") total tinggi baris= 15*5

Terima kasih

<ymsgr:sendIM?heru.safrudin>; Heru SafrudinBISI,Heru Safrudin,YM online

Thu Jan 26, 2017 3:27 am (PST) . Posted by:

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

Hai Heru,

Excel menggunakan points. 1 (satu) inch = 72 points.

Untuk menghitung tinggi baris suatu range (satu atau lebih cells), biasanya
dengan VBA berupa sebuah UDF. Misal UDF bernama TinggiBaris berikut :
public function TinggiBaris(rng as range) as double 'hanya menghitung
area pertama saja
application.volatile
tinggibaris=rng.height
end function

Regards,
Kid

2017-01-26 15:42 GMT+07:00 'Heru Safrudin'
fcprocessing.bisikediri@bisi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear B-Exceller,
>
>
>
> Seandainya tinggi baris(row height) dalam excel =15 atau 20 pixels
>
> Bagaimanakah cara menghitung total tinggi (row height) seluruh baris dan
> pada suatu range, misal Range("A1:A5") total tinggi baris= 15*5
>
>
>
> Terima kasih
>
>
>
>
>
>
>
> [image: Heru Safrudin][image: BISI,Heru Safrudin,YM online]
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Thu Jan 26, 2017 2:11 am (PST) . Posted by:

"Ahmad Habibillah" abiel_1108

many thanks Bro Susilo,
gw coba n its work..tapi kalau belum bua kalender 1 tahun agak susah ya ....
btw many thanks Ahmad 

Pada Kamis, 19 Januari 2017 12:20, "'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Ahmad, Untuk menghitung spesifik jumlah hari tertentu mestinya harus ada bantuan kalender.Silahkan dibuatkan kalender 1 tahun, dan dihitung jumlah hari tertentunya.Jika menggunakan rumus langsung agak sulit tentunya, mungkin bisa saja lebih simple dengan macro. Terlampir contoh, mudah2an sedikit membantu ade From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, January 19, 2017 8:57 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menghitung jumlah hari tertentu dalam 1 tahun   Dear Ahmad H Pertanyaan ini, saya coba memberikan pancingan saja untuk dieksplorasi lebih lanjut. mencari hari bisa menggunakan =weekday(sel). Sel yang berisi sebuah tanggal, misalkan 1 januari 2016, maka weekday akan menghasilkan angka 6. Angka 6 ini di komputer saya adalah hari jumat. Weekday ini bisa dikombinasikan dengan rumus lain pada sebuah rentang tanggal. Monggo dicoba-coba menggunakan rumus countif, atau mod. Berkreasilah tanpa batas. Rekan-rekan yang lain silakan kalau ada rumus yang paling praktis Terima kasihSusilo        Pada 17 Januari 2017 11.44, Ahmad Habibillah abiel_1108@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:  Dear Para Master Excel, mohon bantuannya formula untuk menghitung jumlah hari tertentu dalam 1 tahun, contoh nya ada berapa hari minggu pada tahun 2016 atas bantuannya terima kasih banyak Many Thanks,Ahmad H  #yiv5549398704 #yiv5549398704 -- #yiv5549398704ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5549398704 #yiv5549398704ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5549398704 #yiv5549398704ygrp-mkp #yiv5549398704hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5549398704 #yiv5549398704ygrp-mkp #yiv5549398704ads {margin-bottom:10px;}#yiv5549398704 #yiv5549398704ygrp-mkp .yiv5549398704ad {padding:0 0;}#yiv5549398704 #yiv5549398704ygrp-mkp .yiv5549398704ad p {margin:0;}#yiv5549398704 #yiv5549398704ygrp-mkp .yiv5549398704ad a {color:#0000ff;text-decoration:none;}#yiv5549398704 #yiv5549398704ygrp-sponsor #yiv5549398704ygrp-lc {font-family:Arial;}#yiv5549398704 #yiv5549398704ygrp-sponsor #yiv5549398704ygrp-lc #yiv5549398704hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5549398704 #yiv5549398704ygrp-sponsor #yiv5549398704ygrp-lc .yiv5549398704ad {margin-bottom:10px;padding:0 0;}#yiv5549398704 #yiv5549398704actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5549398704 #yiv5549398704activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5549398704 #yiv5549398704activity span {font-weight:700;}#yiv5549398704 #yiv5549398704activity span:first-child {text-transform:uppercase;}#yiv5549398704 #yiv5549398704activity span a {color:#5085b6;text-decoration:none;}#yiv5549398704 #yiv5549398704activity span span {color:#ff7900;}#yiv5549398704 #yiv5549398704activity span .yiv5549398704underline {text-decoration:underline;}#yiv5549398704 .yiv5549398704attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5549398704 .yiv5549398704attach div a {text-decoration:none;}#yiv5549398704 .yiv5549398704attach img {border:none;padding-right:5px;}#yiv5549398704 .yiv5549398704attach label {display:block;margin-bottom:5px;}#yiv5549398704 .yiv5549398704attach label a {text-decoration:none;}#yiv5549398704 blockquote {margin:0 0 0 4px;}#yiv5549398704 .yiv5549398704bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5549398704 .yiv5549398704bold a {text-decoration:none;}#yiv5549398704 dd.yiv5549398704last p a {font-family:Verdana;font-weight:700;}#yiv5549398704 dd.yiv5549398704last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5549398704 dd.yiv5549398704last p span.yiv5549398704yshortcuts {margin-right:0;}#yiv5549398704 div.yiv5549398704attach-table div div a {text-decoration:none;}#yiv5549398704 div.yiv5549398704attach-table {width:400px;}#yiv5549398704 div.yiv5549398704file-title a, #yiv5549398704 div.yiv5549398704file-title a:active, #yiv5549398704 div.yiv5549398704file-title a:hover, #yiv5549398704 div.yiv5549398704file-title a:visited {text-decoration:none;}#yiv5549398704 div.yiv5549398704photo-title a, #yiv5549398704 div.yiv5549398704photo-title a:active, #yiv5549398704 div.yiv5549398704photo-title a:hover, #yiv5549398704 div.yiv5549398704photo-title a:visited {text-decoration:none;}#yiv5549398704 div#yiv5549398704ygrp-mlmsg #yiv5549398704ygrp-msg p a span.yiv5549398704yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5549398704 .yiv5549398704green {color:#628c2a;}#yiv5549398704 .yiv5549398704MsoNormal {margin:0 0 0 0;}#yiv5549398704 o {font-size:0;}#yiv5549398704 #yiv5549398704photos div {float:left;width:72px;}#yiv5549398704 #yiv5549398704photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5549398704 #yiv5549398704photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5549398704 #yiv5549398704reco-category {font-size:77%;}#yiv5549398704 #yiv5549398704reco-desc {font-size:77%;}#yiv5549398704 .yiv5549398704replbq {margin:4px;}#yiv5549398704 #yiv5549398704ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5549398704 #yiv5549398704ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5549398704 #yiv5549398704ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5549398704 #yiv5549398704ygrp-mlmsg select, #yiv5549398704 input, #yiv5549398704 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5549398704 #yiv5549398704ygrp-mlmsg pre, #yiv5549398704 code {font:115% monospace;}#yiv5549398704 #yiv5549398704ygrp-mlmsg * {line-height:1.22em;}#yiv5549398704 #yiv5549398704ygrp-mlmsg #yiv5549398704logo {padding-bottom:10px;}#yiv5549398704 #yiv5549398704ygrp-msg p a {font-family:Verdana;}#yiv5549398704 #yiv5549398704ygrp-msg p#yiv5549398704attach-count span {color:#1E66AE;font-weight:700;}#yiv5549398704 #yiv5549398704ygrp-reco #yiv5549398704reco-head {color:#ff7900;font-weight:700;}#yiv5549398704 #yiv5549398704ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5549398704 #yiv5549398704ygrp-sponsor #yiv5549398704ov li a {font-size:130%;text-decoration:none;}#yiv5549398704 #yiv5549398704ygrp-sponsor #yiv5549398704ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5549398704 #yiv5549398704ygrp-sponsor #yiv5549398704ov ul {margin:0;padding:0 0 0 8px;}#yiv5549398704 #yiv5549398704ygrp-text {font-family:Georgia;}#yiv5549398704 #yiv5549398704ygrp-text p {margin:0 0 1em 0;}#yiv5549398704 #yiv5549398704ygrp-text tt {font-size:120%;}#yiv5549398704 #yiv5549398704ygrp-vital ul li:last-child {border-right:none !important;}#yiv5549398704

Thu Jan 26, 2017 1:52 pm (PST) . Posted by:

"Odhyz" odhyz83_assasaky

Dear Master,
Terima kasih atas bantuannya... Codingya sdh running....

Dikirim dari iPhone saya

Pada 24 Jan 2017, pukul 09.14, 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

> Coba kode dikoreksi seperti berikut :
>
>
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> Dim MyPath As String

>
> Dim Mypic As String
>
>
>
> MyPath = ThisWorkbook.Path & "\" & Target.Value & ".jpg" 'Ini sudah mendefinisikan gambarnya
>
> MsgBox MyPath
>
> If Intersect(Target, Range("a1:a5")) Is Nothing Then Exit Sub
>
> Mypic = Target.Value & ".jpg" 'Jadi ini sudah tidak diperlukan lagi
>
> UserForm1.Image1.Picture = LoadPicture(MyPath) 'Coba dengan kode ini
>
> UserForm1.Show
>
>
>
> End Sub
>
>
>
>
>
>
>
> <image002.gif><image004.png>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> Sent: 19 Januari 2017 17:54
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] Membuat Form Popup gambar [1 Attachment]
>
>
>
>
>
> Dear Para Master,
>
> Mohon bantuannya, saya membuat Menu Popup namun belum berhasil (attach), pada saat saya klik tiap cell yang berisi item code akan muncul menu popup gambar sesui dengan item code pada tiap2 cell seperti terlampir.
>
>
>
> Atas bantuannya saya ucapkan banyak terima kasih.
>
>
>
>
>
>
>

Thu Jan 26, 2017 4:41 pm (PST) . Posted by:

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

Hai Odhyz,

File terlampir contoh tanpa userform.
Meski tanpa userform, baris-baris kode yang ada bisa diterapkan pada image
control yang ada dalam suatu userform.

Di dalam baris-baris kode dalam file terlampir juga diberi keterangan dan
beberapa tambahan yang masih non aktif seperti pengaturan ketersediaan
default image file ketika data yang terpilih belum memiliki image file yang
sesuai inputan.

Silakan dikembangkan secara santun.

Regards,
Kid

2017-01-26 20:38 GMT+07:00 Odhyz odhyz83_assasaky@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> Dear Master,
> Terima kasih atas bantuannya... Codingya sdh running....
>
> Dikirim dari iPhone saya
>
> Pada 24 Jan 2017, pukul 09.14, 'Heru Safrudin'
> fcprocessing.bisikediri@bisi.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>
>
> Coba kode dikoreksi seperti berikut :
>
>
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> Dim MyPath As String
>
> Dim Mypic As String
>
>
>
> MyPath = ThisWorkbook.Path & "\" & Target.Value & ".jpg" 'Ini sudah
> mendefinisikan gambarnya
>
> MsgBox MyPath
>
> If Intersect(Target, Range("a1:a5")) Is Nothing Then Exit Sub
>
> Mypic = Target.Value & ".jpg" 'Jadi ini sudah tidak diperlukan lagi
>
> UserForm1.Image1.Picture = LoadPicture(MyPath) 'Coba dengan kode ini
>
> UserForm1.Show
>
>
>
> End Sub
>
>
>
>
>
>
>
> <image002.gif><image004.png>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* 19 Januari 2017 17:54
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Membuat Form Popup gambar [1 Attachment]
>
>
>
>
>
> Dear Para Master,
>
> Mohon bantuannya, saya membuat Menu Popup namun belum berhasil (attach),
> pada saat saya klik tiap cell yang berisi item code akan muncul menu popup
> gambar sesui dengan item code pada tiap2 cell seperti terlampir.
>
>
>
> Atas bantuannya saya ucapkan banyak terima kasih.
>
>
>
>
>
>
>

Fri Jan 27, 2017 12:08 am (PST) . Posted by:

"Bos Kbrn" bos.kbrn

dear master excel,
kami ada kesulitan un tuk menghasilkan berita acara penutupan kas secara otomatis, sheet data ada di realisasi terima dan realisasi keluar, register penutupan kas dan berita acaranya ada di sheet k7b dan k7c, jika dihitung otomatis maka jumlah penerimaan diambil dari pemasukan k3 dan pengeluaran diambil dari kolom keluar k3, sedangkan posisi kas diambil dari saldo k4 dan bank diambil dari saldo k5, apakah harus lewat vba dengan koding untuk menyelesaikannya mohon pencerahan dari para master excel, terima kasih
============================================================
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 01.55

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)