Minggu, 04 September 2011

[belajar-excel] Digest Number 1313

Milis Belajar Microsoft Excel

Messages In This Digest (11 Messages)

Messages

1.

Bagaimana membuat rumus sendiri di Ex-cel?

Posted by: "Tjahya Hartono" tjahyahartono@yahoo.co.id   tjahyahartono

Sat Sep 3, 2011 1:04 am (PDT)



Dear master excel,

Saya bingung ketika belajar penyelesaian kasus ini, sepertinya penyelesaiannya membuat rumus =GabungKol(F4:H13). Mohon petunjuknya?

terima kasih

Tjahya Hartono
2a.

Re: Bagaimana Cara membuat Inbox seperti kasus ini

Posted by: "tjahyahartono@yahoo.co.id" tjahyahartono@yahoo.co.id   tjahyahartono

Sat Sep 3, 2011 1:05 am (PDT)



Terima kasih mbak hapsari,jgn bosen ya.


tjahya
Sent from my BlackBerry®

-----Original Message-----
From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 2 Sep 2011 06:02:31
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Bagaimana Cara membuat Inbox seperti kasus ini

Tidak ada INBOX di dalam workbook untuk menjawab request o'Seno tsb; yg ada

1. Penambahan SubMenu pada PopUp /Context-menu (berupa commandbar);
khusus: klik kanan pd cell A1 sheet1.

2. Input Box (method milik object Application) yg mampu memilih Range.

Keduanya 'hadir' berkat perintah makro yg ada di Module sheet1.

Sekedar info:
InputBox ada ada 2 jenis,
yaitu METHOD: member dari Application, dan
FUNCTION member dari VBA.

Perbedaannya pernah ditulis secara lucu (di toko sebelah, mesage
#8242, mei 2007) oleh 'cik' villager.girl, subject: ' sesama input box
dilarang saling mendahului'.

Hope it helps..
®Hapsari.


On 9/1/11, Tjahya Hartono <tjahyahartono@yahoo.co.id> wrote:
>
> Saya mencoba mencari di form kok g ada ya, form yang memunculkan inbox seperti contoh kasus pak Onto Seno, karena saya lihat disheet satu ada
> command bars nya. Mohon petunjuknya?
>
> Terima kasih
> Tjahya

3a.

skip msgbox

Posted by: "Selvrida Kusumawati" selvri_k@yahoo.com   selvri_k

Sat Sep 3, 2011 1:08 am (PDT)



Dear temans,

Salam kenal dan ijinkan ku bertanya yaa...  jika ku punya banyak macro tapi di setiap makro nya ada msgbox ttg timer
timer ini diperlukan untuk mengetahui berapa lama proses makro yg ada

contohnya:
modul A
Sub A()
Dim xtimer as variant
xtimer = time
'kemudian macronya...sebut saja bla.. bla..

msgbox "selesai dalam" & xtimer
End Sub

lalu ada lagi modul B
Sub B()
Dim xtimer as variant
xtimer = time
'kemudian macronya...sebut saja bla.. bla..

msgbox "selesai dalam" & xtimerEnd sub

Saya ingin menjalankan modul A dan Modul B melalui modul C, tetapi mengabaikan msgbox timer di masing-masing modul A dan modul B
Contohnya

Sub PanggilA_B()

Dim xtimer as variant
xtimer = time
Call A
Call B

msgbox "selesai dalam" & xtimerEnd Sub

Kira-kira gimana caranya skip msgbox timer di modul A dan B, jadi yang jalan adalah msgbox timer di modul PanggilA_B saja yaa

mhon maaf jika kurang jelas... terima kasih dan semoga berkenan menjawabnya yaa

salam hangat,
selvi
3b.

Re: skip msgbox

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

Sat Sep 3, 2011 1:46 am (PDT)



Bagaimana kalau Sub A dan Sub B diubah dikit menjadi :

Sub A(*optional lFlag as long=0*)
Dim xtimer as variant
xtimer = time
'kemudian macronya...sebut saja bla.. bla..
*if lFlag=0 then*
msgbox "selesai dalam" & xtimer
*endif*
End Sub

Sub B(*optional lFlag as long=0*)
Dim xtimer as variant
xtimer = time
'kemudian macronya...sebut saja bla.. bla..
*if lFlag=0 then*
msgbox "selesai dalam" & xtimer
*endif*
End Sub

Sub PanggilA_B()
Dim xtimer as variant
xtimer = time
Call A *123*
Call B *123*
msgbox "selesai dalam" & xtimer
End Sub

Kid.

2011/9/3 Selvrida Kusumawati <selvri_k@yahoo.com>

> **
>
>
> Dear temans,
>
> Salam kenal dan ijinkan ku bertanya yaa... jika ku punya banyak macro tapi
> di setiap makro nya ada msgbox ttg timer
> timer ini diperlukan untuk mengetahui berapa lama proses makro yg ada
>
> contohnya:
> modul A
> Sub A()
> Dim xtimer as variant
> xtimer = time
> 'kemudian macronya...sebut saja bla.. bla..
> msgbox "selesai dalam" & xtimer
> End Sub
>
> lalu ada lagi modul B
> Sub B()
> Dim xtimer as variant
> xtimer = time
> 'kemudian macronya...sebut saja bla.. bla..
> msgbox "selesai dalam" & xtimer
> End sub
>
> Saya ingin menjalankan modul A dan Modul B melalui modul C, tetapi
> mengabaikan msgbox timer di masing-masing modul A dan modul B
> Contohnya
>
> Sub PanggilA_B()
> Dim xtimer as variant
> xtimer = time
> Call A
> Call B
> msgbox "selesai dalam" & xtimer
> End Sub
>
> Kira-kira gimana caranya skip msgbox timer di modul A dan B, jadi yang
> jalan adalah msgbox timer di modul PanggilA_B saja yaa
>
> mhon maaf jika kurang jelas... terima kasih dan semoga berkenan menjawabnya
> yaa
>
> salam hangat,
> selvi
>
>
>
>
>
4a.

ListBox UserForm + Password

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Sat Sep 3, 2011 6:50 am (PDT)



Kepada teman-teman Master Excel,

Mohon dapat diinformasikan cara dan formulanya akan pertanyaan saya ini.
Terutama pada pertanyaan No. 1 (Jika pada table / sheet dimaksud kita lindungi
dengan password apakah UserForm tersebut masih bisa difungsikan…??? Jika bisa,
bagaimana caranya…??? Mohon berkenan lampirannya)

Terima kasih atas berkenan jawabannya.

________________________________
Dari: Harry <hariansyahptk@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 2 September 2011 21:52
Judul: Bls: [belajar-excel] Filter Range kemudian memasukkannya dalam ListBox UserForm

 
Dear Moderator (Pakar Excel),
 
Saya tertarik dengan pembahasan tentang “ctv ListBox
Multi Kolom” ini dan ingin tahu lebih lanjut mengenai hal-2 sbb:
1.       Jika pada table / sheet dimaksud kita lindungi
dengan password apakah UserForm tersebut masih bisa difungsikan…??? Jika bisa,
bagaimana caranya…??? Mohon berkenan lampirannya.
2.       Untuk contoh pada Form dimaksud mengacu pada “Cabang”.
Bagaimana caranya jika kita ingin menggantinya dengan mangacu pada “Tanggal”
atau “Nama Pejabat”…???
3.       Jika kita ingin membuatnya lebih spesifik,
bisakah kita mengacu pada 2 kriteria, mis: “Cabang” dan “Nama Pejabat”…???
 
Terima kasih atas berkanan jawabannya.
 
Regards,
 
Harry

________________________________
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 21 Juli 2011 19:21
Judul: Re: [belajar-excel] Filter Range kemudian memasukkannya dalam ListBox UserForm

 
biasa"nya" begini:

' (module userform)
Dim Tbl As Range

Private Sub UserForm_Initialize()
  ' siti Vi // 21 Juli 2011
   '------------------------
   Dim Cabang As Range, UniqCabang, n As Long
   Set Tbl = Sheets("Sheet1").Cells(4, 3).CurrentRegion
   Set Cabang = Tbl.Offset(2, 2).Resize(Tbl.Rows.Count - 2, 1)
   ' prosedur ini perlu fungsi Louv (list of UniqValues)
   UniqCabang = LOUV(Cabang)
   ComboBox1.Clear
   For n = LBound(UniqCabang) To UBound(UniqCabang)
      ComboBox1.AddItem UniqCabang(n)
   Next n
End Sub

Private Sub ComboBox1_Change()
  ' siti Vi / 21 Jul 2011
   '----------------------
   Dim HeadArray(), r As Long, n As Long, c As Integer
   ReDim HeadArray(0 To Tbl.Columns.Count - 1)
   With ListBox1
      .ColumnCount = Tbl.Columns.Count
      .Clear
      ' Header dlm listbox
      For c = 0 To Tbl.Columns.Count - 1
          HeadArray(c) = Tbl(2, c + 1)
      Next c
      .AddItem: .Column() = HeadArray
      n = 0: r = 0: c = 0
      ' items dlm listbox
      For r = 3 To Tbl.Rows.Count
         If ComboBox1.ListIndex > -1 Then
            If Tbl(r, 3) = ComboBox1 Then
               n = n + 1
               For c = 1 To Tbl.Columns.Count
                  .AddItem: .List(n, c - 1) = Tbl(r, c)
               Next c
            End If
         End If
      Next r
   End With
End Sub

'  Note
' Pengisian ComboBox tidak secara Hardcoded (merujuk Alamat range yg dibuat manual )
' tetapi dengan cara mengambil UniqValue pada Kolom Cabang
' cara ini hanya berguna bila tabelnya dinamis dan nama cabang bisa bertambah / berkurang
' Combobox akan berisi sesuai UniqList dari Kolom Cabang tsb)
' Untuk pekerjaan spt ini diperlukan UDF seperti Louv (tidak harus Louv, silakan dibuat sendiri
' yg sesuai selera)

2011/7/21 MAMUDA PONTIM <uud_mamuda@yahoo.com>
>
> Para Pakar Excel yang budiman.
> Kali ini saya minta pencerahan tentang cara memfilter range dan menampilkan hasil filter di ListBox UserForm. Filter yang dimaksud berdasarkan value ComboBox di UserForm juga. Dalam file yang saya sertakan, misalnya di Combo Box saya Pilih Cabang Surabaya, maka pada ListBox akan ditampilkan hasil filter range TabelKunjungan yang berasal dari Surabaya saja.
> Terima kasih.

 

5a.

Re: append list secara dynamic

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

Sat Sep 3, 2011 10:16 am (PDT)



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
>
>
>
6a.

Re: Filter Range kemudian memasukkannya dalam ListBox UserForm

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

Sat Sep 3, 2011 12:58 pm (PDT)



Sedikit variasi.

Unique list bisa juga disusun menggunakan fitur pivot table.
listbox memiliki properti row source seperti combobox. Penggunan fitur sort
data dan beberapa named range bisa digunakan untuk menyusun list box row
source seperti pada file
*named_range.xls

fitur autofilter dan proses copy paste values juga bisa digunakan untuk
menyusun list box row source, seperti pada file *autofilter.xls

Regards.
Kid.

2011/7/21 MAMUDA PONTIM <uud_mamuda@yahoo.com>

> **
>
>
> Para Pakar Excel yang budiman.
> Kali ini saya minta pencerahan tentang cara memfilter range dan menampilkan
> hasil filter di ListBox UserForm. Filter yang dimaksud berdasarkan value
> ComboBox di UserForm juga. Dalam file yang saya sertakan, misalnya di Combo
> Box saya Pilih Cabang Surabaya, maka pada ListBox akan ditampilkan hasil
> filter range TabelKunjungan yang berasal dari Surabaya saja.
> Terima kasih.
>
>
>
>
6b.

Re: Filter Range kemudian memasukkannya dalam ListBox UserForm

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

Sat Sep 3, 2011 1:15 pm (PDT)



Dear Harry,

No. 1.
Biasanya pada saat proses terhadap range melalui VBA, pada sheet yang
diproteksi tidak boleh select cells yang di locked, didahului dengan
unprotect sheet. Usai proses dengan VBA diakhiri dengan protect sheet
kembali.
Contoh pada suatu event VBA :
'unpritect dulu
sheet1.unprotect "passwordnya"

'disini seluruh proses pada prosedur ini

'akhiri dengan protect sheet lagi
sheet1.protect "passwordnya"

No. 2.
Ubah rujukan range yang merujuk ke kolom cabang menjadi merujuk ke kolom
yang diinginkan. *Pahami lebih dulu proses yang dilakukan terhadap contoh
dengan kolom cabang tersebut.* Range mana saja yang dirujuk oleh setiap
baris kode dalam VBA. Nama range apa saja yang digunakan dan sebagainya.
Kemudian ganti dengan rujukan yang dibutuhkan.

No. 3.
Menambahkan kriteria baru (jadi lebih dari 1), buat combobox untuk kriteria
baru tersebut, terapkan proses seperti pada combobox cabang (seluruh
prosedur event dan seluruh kegiatan terhadap combobox cabang) pada combobox
baru dengan merujuk ke range atau seluruh komponen yang berkaitan.

Hal tersebut memang cukup merepotkan dalam proses pembangunannya, dan tidak
semua kemampuan autofilter bisa terpenuhi melalui userform. Mungkin
memaksimalkan fitur autofilter dan sedikit menambah hiasan sheet beserta
mengatur tampilannya akan lebih mudah.

Regards.
Kid.

2011/9/2 Harry <hariansyahptk@yahoo.com>

> **
>
>
> Dear Moderator (Pakar Excel),
>
> Saya tertarik dengan pembahasan tentang "ctv ListBox Multi Kolom" ini dan
> ingin tahu lebih lanjut mengenai hal-2 sbb:
> 1. Jika pada table / sheet dimaksud kita lindungi dengan password
> apakah UserForm tersebut masih bisa difungsikan…??? Jika bisa, bagaimana
> caranya…??? Mohon berkenan lampirannya.
> 2. Untuk contoh pada Form dimaksud mengacu pada "Cabang". Bagaimana
> caranya jika kita ingin menggantinya dengan mangacu pada "Tanggal" atau
> "Nama Pejabat"…???
> 3. Jika kita ingin membuatnya lebih spesifik, bisakah kita mengacu
> pada 2 kriteria, mis: "Cabang" dan "Nama Pejabat"…???
>
> Terima kasih atas berkanan jawabannya.
>
> Regards,
>
> Harry
>
> ------------------------------
> **
>
7a.

send attachment thunderbird

Posted by: "Slamet" slametharto@gmail.com   slametharto

Sat Sep 3, 2011 1:19 pm (PDT)



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

7b.

Re: send attachment thunderbird

Posted by: "summonery" summonery@yahoo.com   summonery

Sat Sep 3, 2011 3:30 pm (PDT)



http://www.rondebruin.nl/cdo.htm

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Slamet <slametharto@...> wrote:
>
> 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
>

8a.

Re: Create fungsi di excel

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

Sat Sep 3, 2011 1:35 pm (PDT)



Dear Tjahya,

Fungsi buatan sendiri (User Defined Function) adalah prosedur jenis
Function. Pelajari tentang VBA agar bisa lebih leluasa menyusun kode-kode
proses menggunakan VBA.
Banyak tutorial tentang hal ini. Di milis Files ada daftar link tutorial
yang bermanfaat.

Contoh sederhananya :
1. ke VBE (Alt F11)
2. buat sebuah module standar (Insert Module)
3. buat sebuah prosedur Function seperti :
'fungsi untuk hitung nilai order suatu item
Public Function Nilainya( qty as double, price as double ) as double
Nilainya = qty * price
end function

4. kembali ke worksheet (Alt F11)
5. ketik disebuah cell
=Nilainya( 20, 1000 )
atau di i3 tulis formula (isi g3 dan h3 dengan suatu nilai)
=Nilainya( G3, H3 )

Baris kode :
Nilainya = qty * price
bisa dikembangkan sesuai kebutuhan proses kalkulasi.

Seluruh batasan formula berlaku pada function ketika digunakan dalam sebuah
formula disuatu cell.

Regards.
Kid.

2011/9/2 Tjahya Hartono <tjahyahartono@yahoo.co.id>

> **
>
>
> Dear master excel,
>
> Saya sering melihat para master2 excel dsini membuat fungsi sendiri, untuk
> mengerjakan kasusnya, bisakah saya diajarkan bagaimana cara membuat fungsi
> sendiri di ex-cel.
>
>
> terima kasih
>
> tjahya
>
>
>
>
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Find support for

Mental illnesses

Yahoo! Groups

Do More For Dogs Group

Connect and share with

dog owners like you

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

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


A bad score is 579. A good idea is checking yours at freecreditscore.com.

Tidak ada komentar:

Posting Komentar