[belajar-excel] Digest Number 1314

Milis Belajar Microsoft Excel

Messages In This Digest (4 Messages)

1a.

Re: append list secara dynamic From: WIRAnata Kemala

2a.

Re: send attachment thunderbird From: Mr. Kid

3a.

Re: ASAL HEBOH !! Lomba Formula Sederhana. From: Nanang Wisma Ndaru

3b.

Re: ASAL HEBOH !! Lomba Formula Sederhana. (koreksi) From: Nanang Wisma Ndaru

View All Topics | Create New Topic

Messages

1a.

Re: append list secara dynamic

Posted by: "WIRAnata Kemala" kwiranata@gmail.com   kwiranata

Sun Sep 4, 2011 2:58 am (PDT)

Thanks Mr. Kid, segera saya coba ngertikan & aplikasi kan J

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Sunday, September 04, 2011 12:16 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] append list secara dynamic

Dear Wira,

Dengan menyusun 2 buah named range, maka formula bisa disederhanakan menjadi
:
=INDEX(dtSample1,MOD(SMALL(lstSample1,ROW(1:1)),10^(LEN(COUNTA(dtSample1))))
,INT(SMALL(lstSample1,ROW(1:1))/10^(LEN(COUNTA(dtSample1)))))

Regards.
Kid.

2011/8/30 WIRAnata Kemala Deng <kwiranata@gmail.com>

dear all para pakar excel,

mohon bantuannya utk input/advise memecahkan 'trick' untuk menggabungkan
(append) list of accounts secara dynamic (tergantung dengan seberapa panjang
list sebelumnya).

Untuk lebih jelas nya mohon refer ke attachment berikut.

Terima kasih banyak , dan juga Selamat Hari Lebaran :)

regards, Wira

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2a.

Re: send attachment thunderbird

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Sun Sep 4, 2011 3:55 am (PDT)

Coba prosedur-prosedur berikut : (copy ke sebuah module standar yang baru)
Pastikan :
1. Terkoneksi internet, jika tidak, akan muncul pesan tidak ada koneksi
2. library cdosys.dll telah teregistrasi (umumnya ada di folder \system32,
lakukan registrasi dengan regsvr32 bila belum teregistrasi)
3. penulisan fullfilename untuk attachments benar dan ada filenya

'kode mulai dari sini
'fungsi winAPI untuk cek koneksi internet
Public Declare Function InternetGetConnectedState Lib "wininet.dll"
(lpdwFlags As Long, ByVal dwReserved As Long) As Boolean

'cek status koneksi
Public Function StatusKoneksiInet() As Long
InternetGetConnectedState StatusKoneksiInet, 0&
End Function

'kirim email pakai CDO library
'jika digunakan di Excel VBA, maka semua inputan bisa diganti dengan nilai
suatu cell
'lakukan loop terhadap To untuk mailmerge
Public Sub CDOMail()
'Dim cdoMsg As CDO.Message 'untuk referensi ke cdosys.dll diset
pada tools -> references
Dim cdoMsg As Object 'untuk referensi ke cdosys.dll tidak
diset pada tools -> references
Dim sSchema As String

If StatusKoneksiInet = 0 Then
MsgBox "Tidak ada koneksi internet"
Exit Sub
End If

'init new email object
'Set cdoMsg = New CDO.Message 'untuk referensi ke
cdosys.dll diset pada tools -> references
Set cdoMsg = CreateObject("cdo.message") 'untuk referensi ke
cdosys.dll tidak diset pada tools -> references

'setting smtp server mulai dari sini
'daftar fields configuration yang bisa digunakan lihat di :
'http://msdn.microsoft.com/en-us/library/ms526318%28v=EXCHG.10%29.aspx
sSchema = "http://schemas.microsoft.com/cdo/configuration/"
cdoMsg.Configuration.Load cdoDefaults
With cdoMsg.Configuration.Fields
.Item(sSchema & "sendusing") = 2 'cdoSendUsingPort
'lihat smtp server, portnya, setting authentic, dan security
'lihat di :
http://www.emailaddressmanager.com/tips/mail-settings.html untuk daftar
server smtp
.Item(sSchema & "smtpserver") = "smtp.googlemail.com" 'contoh smtp
untuk gmail selain smtp.gmail.com
.Item(sSchema & "smtpserverport") = 465 'outgoing gmail -> google
juga bisa di port 587
.Item(sSchema & "smtpauthenticate") = 1
.Item(sSchema & "sendusername") = "username_smtp@server_smtpnya"
.Item(sSchema & "sendpassword") = "passwordnya"
.Item(sSchema & "smtpusessl") = 1
.Update
End With

'set email mulai dari sini
With cdoMsg
'alamat dan subject. Isi dengan vbNullString jika tidak akan
digunakan. Contoh dengan multi account.
.To = "account_to_ke1@domainnya;account_to_ke2@domainnya"
.CC = "account_cc_ke1@domainnya;account_cc_ke2@domainnya"
'vbNullString
.BCC = "account_bcc_ke1@domainnya;account_bcc_ke2@domainnya"
'vbNullString
.From = "username_smtp@server_smtpnya"
.Subject = "testing"
'vbnullstring

'body email
.TextBody = "Tes pakai text body"
'jika akan pakai plain text
'.HTMLBody = "Tes pakai html body"
'jika akan pakai html text

'attachments disusun disini. non aktifkan bila tidak ada attachments
'.AddAttachment "drive:\folder\file1.ext"
'.AddAttachment "drive:\folder\file2.ext"
'.AddAttachment "drive:\folder\file3.ext"

'kirim
.Send
End With
End Sub
'kode selesai disini

Regards.
Kid.

2011/9/3 Slamet <slametharto@gmail.com>

> **
>
>
> Dear all
>
> Saya temukan code berikut ini, dan email sukses terkirim.
> akan tetapi saya ingin mengirimkan email ini bersama lampiran file nya..
> ada yang tau gimana caranya (mungkin gak yaa.. soalnya dikatakan bahwa
> thunderbird tdk memiliki object model? penasaran.com)
> mohon info dong....
>
> sebelum dan sesudahnya terima kasih yaa
>
> ''http://www.ozgrid.com/forum/showthread.php?t=66702&page=1
>
> Private Declare Function ShellExecute Lib "Shell32.dll" _
> Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
> ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory
> As String, _
> ByVal nShowCmd As Long) As Long
> Sub SEND_Excel_Calls()
>
> Dim msg As String, URL As String
> Dim Recipient As String, Subj As String
> Dim Recipientcc As String, Recipientbcc As String
>
> Dim cell As Range
> Recipient = Sheets("Info_1").Range("A1").Value
> Recipient = Sheets("Info_1").Range("A2").Value
>
> Recipientcc = Sheets("Info_1").Range("A3").Value
> Recipientbcc = Sheets("Info_1").Range("A4").Value
>
> Subj = Sheets("Info_1").Range("A5").Value
>
> For Each cell In Sheets("Info_1").Range("A7:A30") ' ADJUST TO SUIT
> msg = msg & vbNewLine & cell
> Next cell
> msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
> msg = WorksheetFunction.Substitute(msg, vbLf, "%0D%0A")
> URL = "mailto:" & Recipient & "?cc=" & Recipientcc & "&bcc=" &
> Recipientbcc _
> & "&subject=" & Subj & "&body=" & msg
> ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
> vbNormalFocus
>
> Application.Wait (Now + TimeValue("0:00:03"))
> Application.SendKeys "%s"
>
> End Sub
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

3a.

Re: ASAL HEBOH !! Lomba Formula Sederhana.

Posted by: "Nanang Wisma Ndaru" nanang.ndaru@bni.co.id

Sun Sep 4, 2011 6:32 pm (PDT)

klo jawaban sy adalah : =+(D6-MOD(C6;D6))+C6 c6=atas (yg
dibagi)d6=bawah (pembagi)
-----belajar-excel@yahoogroups.com wrote: -----

To: belajar-excel <belajar-excel@yahoogroups.com>
From: "STDEV(i)" <setiyowati.devi@gmail.com>
Sent by: belajar-excel@yahoogroups.com
Date: 08/27/2011 11:07AM
Subject: [belajar-excel] ASAL HEBOH !! Lomba Formula Sederhana.

Yts TTM BeExcellers,...
Menyambut Hari Iedul Fitri, kita adakan Lomba Formula yuk ..
Waktunya pas ndak ya ?, kalau kuranga pas, nanti batas waktunya
bsa di mundurkan saja..
Tebakannya begini:

siti punya dua buah bilangan, semuanya bilangan bulat positip
Bilangan Pertama kita sebut Bilangan AWAL Bilangan Kedua kita
sebut Bilangan Pembagi Bilangan Pembagi selalu lebih kecil d/p
bilangan Awal.
Jika bilangan AWAL dibagi bilangan Pembagi, maka ada 2
kemungkinan : * menyisakan hasil bagi, atau * tidak menyisakan
hasil bagi. Kalau tidak menyisakan hasil bagi, bilangan itu kita
sebut Bilangan PAS / Divisible.
Kalau Hasil Bagi-nya Tidak PAS, yg harus anda kerjakan adalah
Mencari Bilangan PAS (boleh lebih_besar, boleh lebih_kecil
daripada bilangan Awal) Kemudian pilihlah hanya SATU Bilangan PAS
yg PALING DEKAT dgn Bilangan AWAL
Contohnya begini: [BeExcel - Lomba Formula Aug 2011.PNG]

Bilangan AWAL = 73 , Bilangan PEMBAGI = 3 , hasil bagi =
24,3333 Artinya Hasil Bagi ini bukan bilangan Pas
Bilangan PAS yg dekat dengan bilangan AWAL ada 2 'bijik' yaitu 72
dan 75 Cara mencarinya tentu anda sudah tahu.
Dari 72 untuk menuju 73 diperlukan nilai absolut 1 ;
sedangkan dari 75 untuk menuju 73 diperlukan nilai absolut 2
! Maka Bilangan yg kita pilih adalah 72 (karena memerlukan
langkah terpendek untuk menuju bilangan PAS) Bilangan inilah yg
kita cari.
Tugas Anda (yg dilombakan):
* Buatlah Rumus untuk menghasilkan Bilangan Pas Terdekat
* Rumus harus seragam (Universal) satu bentuk tetapi berlaku
untuk semua soal
* Rumus tidak boleh berbantukan rumus lain di cell lain (cell
bantu)
* Rumus tidak boleh didukung oleh fasilitas NAME
* Rumus tidak boleh dibantu VBA makro, ataupun perintah makro
Excel-4
Waktu Lomba: Karena banyak member yg sedang cuti / mudik, maka
untuk memberi kesempatan semua members ikut meramaikan lomba
ini, kita memberikan waktu sampai dengan Minggu, 11 September
pukul 23:59:59
Workbook tempat menuliskan jawaban, dan alamat pengembalian
workbook:
Soal dan Kolom Jawaban sudah tersedia di workbook terlampir .
Siapa saja boleh ikut lomba dengan cara mengirimkan workbook
hasil pekerjaannya (MS Excel versi 2003 atau 2007 (xls atau
xlsx), ke alamat Moderator
belajar-excel-owner@yahoogroups.com
<mailto:belajar-excel-owner@yahoogroups.com> atau
setiyowati.devi@gmail.com <mailto:setiyowati.devi@gmail.com>
atau mr.nmkid@gmail.com <mailto:mr.nmkid@gmail.com> Lain-Lain:
Kegiatan ini lebih untuk mengajak belajar bersama daripada
memperebutkan hadiah yg tidak ada. Pengumuman / daftar formula
dari para peserta akan di tayangkan di milis tgl 17 Sep 2011.
Member dipersilahkan menilai sendiri formula-formula nya (mudah
mudahan ada)
Terima kasih, selamat belajar Selamat Idul Fitri bagi yg
merayakannya Moderators mohon maaf lahir batin, karena tentu
banyak kekhilafan yg kami perbuat (terutama siti! nih suka
ribut!) minal aidin, walfaizin...
mods.


--- This e-mail and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If the receiver or the reader
of this message is not the intended recipient, you are hereby
notified that you are strictly prohibited to copy, redistribute
or disclose its content, and you should notify the sender
immediately and delete it from your system. Please note that any
views or opinion presented in this e-mail are solely those of the
author and do not necessarily represent those of The Company.
Finally the recipient should check this e-mail and any attachment
for the presence of viruses. The Company accept no liability for
any damage caused by any virus transmitted by this e-mail.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)

3b.

Re: ASAL HEBOH !! Lomba Formula Sederhana. (koreksi)

Posted by: "Nanang Wisma Ndaru" nanang.ndaru@bni.co.id

Sun Sep 4, 2011 7:55 pm (PDT)

jawaban jadi lebih panjang:
=+IF(MOD(C6;D6)/D6<=0,5;INT(C6/D6)*D6;(D6-MOD(C6;D6))+C6)
-----belajar-excel@yahoogroups.com wrote: -----

To: belajar-excel@yahoogroups.com
From: Nanang Wisma Ndaru <nanang.ndaru@bni.co.id>
Sent by: belajar-excel@yahoogroups.com
Date: 09/05/2011 08:32AM
Subject: Re: [belajar-excel] ASAL HEBOH !! Lomba Formula
Sederhana.

klo jawaban sy adalah : =+(D6-MOD(C6;D6))+C6 c6=atas (yg
dibagi) d6=bawah (pembagi)
-----belajar-excel@yahoogroups.com wrote: -----

To: belajar-excel <belajar-excel@yahoogroups.com>
From: "STDEV(i)" <setiyowati.devi@gmail.com>
Sent by: belajar-excel@yahoogroups.com
Date: 08/27/2011 11:07AM
Subject: [belajar-excel] ASAL HEBOH !! Lomba Formula Sederhana.

Yts TTM BeExcellers,...
Menyambut Hari Iedul Fitri, kita adakan Lomba Formula yuk ..
Waktunya pas ndak ya ?, kalau kuranga pas, nanti batas waktunya
bsa di mundurkan saja..
Tebakannya begini:

siti punya dua buah bilangan, semuanya bilangan bulat positip
Bilangan Pertama kita sebut Bilangan AWAL Bilangan Kedua kita
sebut Bilangan Pembagi Bilangan Pembagi selalu lebih kecil d/p
bilangan Awal.
Jika bilangan AWAL dibagi bilangan Pembagi, maka ada 2
kemungkinan : * menyisakan hasil bagi, atau * tidak menyisakan
hasil bagi. Kalau tidak menyisakan hasil bagi, bilangan itu kita
sebut Bilangan PAS / Divisible.
Kalau Hasil Bagi-nya Tidak PAS, yg harus anda kerjakan adalah
Mencari Bilangan PAS (boleh lebih_besar, boleh lebih_kecil
daripada bilangan Awal) Kemudian pilihlah hanya SATU Bilangan PAS
yg PALING DEKAT dgn Bilangan AWAL
Contohnya begini: [BeExcel - Lomba Formula Aug 2011.PNG]

Bilangan AWAL = 73 , Bilangan PEMBAGI = 3 , hasil bagi =
24,3333 Artinya Hasil Bagi ini bukan bilangan Pas
Bilangan PAS yg dekat dengan bilangan AWAL ada 2 'bijik' yaitu 72
dan 75 Cara mencarinya tentu anda sudah tahu.
Dari 72 untuk menuju 73 diperlukan nilai absolut 1 ;
sedangkan dari 75 untuk menuju 73 diperlukan nilai absolut 2
! Maka Bilangan yg kita pilih adalah 72 (karena memerlukan
langkah terpendek untuk menuju bilangan PAS) Bilangan inilah yg
kita cari.
Tugas Anda (yg dilombakan):
* Buatlah Rumus untuk menghasilkan Bilangan Pas Terdekat
* Rumus harus seragam (Universal) satu bentuk tetapi berlaku
untuk semua soal
* Rumus tidak boleh berbantukan rumus lain di cell lain (cell
bantu)
* Rumus tidak boleh didukung oleh fasilitas NAME
* Rumus tidak boleh dibantu VBA makro, ataupun perintah makro
Excel-4
Waktu Lomba: Karena banyak member yg sedang cuti / mudik, maka
untuk memberi kesempatan semua members ikut meramaikan lomba
ini, kita memberikan waktu sampai dengan Minggu, 11 September
pukul 23:59:59
Workbook tempat menuliskan jawaban, dan alamat pengembalian
workbook:
Soal dan Kolom Jawaban sudah tersedia di workbook terlampir .
Siapa saja boleh ikut lomba dengan cara mengirimkan workbook
hasil pekerjaannya (MS Excel versi 2003 atau 2007 (xls atau
xlsx), ke alamat Moderator
belajar-excel-owner@yahoogroups.com
<mailto:belajar-excel-owner@yahoogroups.com> atau
setiyowati.devi@gmail.com <mailto:setiyowati.devi@gmail.com>
atau mr.nmkid@gmail.com <mailto:mr.nmkid@gmail.com> Lain-Lain:
Kegiatan ini lebih untuk mengajak belajar bersama daripada
memperebutkan hadiah yg tidak ada. Pengumuman / daftar formula
dari para peserta akan di tayangkan di milis tgl 17 Sep 2011.
Member dipersilahkan menilai sendiri formula-formula nya (mudah
mudahan ada)
Terima kasih, selamat belajar Selamat Idul Fitri bagi yg
merayakannya Moderators mohon maaf lahir batin, karena tentu
banyak kekhilafan yg kami perbuat (terutama siti! nih suka
ribut!) minal aidin, walfaizin...
mods.


--- This e-mail and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If the receiver or the reader
of this message is not the intended recipient, you are hereby
notified that you are strictly prohibited to copy, redistribute
or disclose its content, and you should notify the sender
immediately and delete it from your system. Please note that any
views or opinion presented in this e-mail are solely those of the
author and do not necessarily represent those of The Company.
Finally the recipient should check this e-mail and any attachment
for the presence of viruses. The Company accept no liability for
any damage caused by any virus transmitted by this e-mail.
--- This e-mail and any files transmitted with it are
confidential and intended solely for the use of the individual or
entity to whom they are addressed. If the receiver or the reader
of this message is not the intended recipient, you are hereby
notified that you are strictly prohibited to copy, redistribute
or disclose its content, and you should notify the sender
immediately and delete it from your system. Please note that any
views or opinion presented in this e-mail are solely those of the
author and do not necessarily represent those of The Company.
Finally the recipient should check this e-mail and any attachment
for the presence of viruses. The Company accept no liability for
any damage caused by any virus transmitted by this e-mail.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)

Recent Activity

•  9
  New Members

Visit Your Group

Y! Groups blog

the best source

for the latest

scoop on Groups.

Yahoo! Groups

Dog Group

Connect and share with

dog owners like you

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

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

MARKETPLACE

A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

---

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe