Rabu, 24 Oktober 2012

[belajar-excel] Digest Number 1866

4 New Messages

Digest #1866
1a
2a
OLEOBJECTS CAPTION by "Mr. Kid" nmkid.family@ymail.com
3a
Bls: [belajar-excel] Pembagian kata untuk komen by "ghozi alkatiri" ghozialkatiri
4
Pengingat Expired Date by "catursins" catursins

Messages

Wed Oct 24, 2012 2:42 am (PDT) . Posted by:

"PRAZT" praztmath

Terimakasih saya ucapkan kepada exceller, terutama pada Mr.kid dan Mr. Hendrik karena telah membantu menyelesaikan

Select Print Area dengan criteria, file sedikit saya modifikasi menggunakan macro+tombol Botton dan file saya unggah kembali mungkin

Ada masukan lagi dari para exceller..

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 23 Oktober 2012 9:51
To: belajar-excel@yahoogroups.com
Subject: Fw: [belajar-excel] set ptint area dengan kriteria

Coba ganti bagian yang berwarna merah menjadi:

ActiveSheet.PageSetup.PrintArea = "$E$6:$K$313, $M$6:$S$313"

Salam,

Hendrik Karnadi

----- Forwarded Message -----
From: Mr. Kid <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 23 October 2012, 7:05
Subject: Re: [belajar-excel] set ptint area dengan kriteria

Susunan kondisi sudah dibuatkan Pak Hendrik.
Pengennya sekarang areanya ditambah.
Bagaimana kalau mencoba sendiri dengan record macro.
1. Blok range yang akan diset masuk sebagai print area
2. lakukan record macro
3. set print area (di xl2007 ke ribbon page layout -> Print Area -> Set print Area)
4. stop record macro
5. Ke VBE (tekan ALT F11) dan lihat cara mengubah print area sehingga seperti yang dilakukan.

Wassalam,
Kid.

On Tue, Oct 23, 2012 at 6:59 AM, Prazt Math <praztmath@gmail.com> wrote:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.DisplayAlerts = False 'untuk meniadakan pilihan (langsung "Yes")

With Target

If .Count = 1 Then

If .Address = "$G$3" Then

If .Value <= 10 Then

ActiveSheet.PageSetup.PrintArea = "$E$6:$K$313"

Else

ActiveSheet.PageSetup.PrintArea = "$E$6:$K$313" .................. (1)

ActiveSheet.PageSetup.PrintArea = "$M$6:$S$313" .................. (2) "saya ingin jika G3 terisi lebih dari 10 maka (1) tetap jadi print area dan di tambah

Yang (2), cara menggabungnya bagaimana Mr. Hendrik..?"

End If

End If

End If

End With

End Sub

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 22 Oktober 2012 22:41
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] set ptint area dengan kriteria

Ini Macronya Pak,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = False 'untuk meniadakan pilihan (langsung "Yes")
With Target
If .Count = 1 Then
If .Address = "$G$3" Then
If .Value <= 10 Then
ActiveSheet.PageSetup.PrintArea = "$E$6:$K$313"
Else
ActiveSheet.PageSetup.PrintArea = "$M$6:$S$313"
End If
End If
End If
End With
End Sub

Silakan di copas ke Sheet1 pada VBA Sheet (untuk menampilkan VBA Sheet tekan Alt F11).

Salam,
Hendrik Karnadi

_____

From: Prazt Math <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 22 October 2012, 17:08
Subject: RE: [belajar-excel] set ptint area dengan kriteria

Untuk lebih jelasnya saya lampirkan lagi filenya Mr. Hendrik

Wed Oct 24, 2012 3:07 am (PDT) . Posted by:

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

Maaf ada yang error dengan emailnya, jadi thread Pak Heru berjudul
'OLEOBJECTS CAPTION' gak masuk ke Inbox. Jadi reply-nya bakal seperti
jadi thread
baru deh.

Coba gunakan event change dari togglebutton. Misal untuk yang 'A'

Private Sub ToggleButton37_Change()
Dim X As Long
Dim bVal As Boolean
bVal = ToggleButton37.Value
For X = 1 To 36
Sheet2.OLEObjects("ToggleButton" & X).Object.Caption = IIf(bVal,
"A" & X, vbNullString)
Next X
End Sub

Wassalam,
Kid.

Wed Oct 24, 2012 4:15 am (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

buatkan tabel klasifikasi %  sesuai kaidah excel.

range tabel ($G$4:$H$8)

ambil rujukan dari tabel ini dengan fungsi vlookup  
tulis formula di E4
=VLOOKUP(C4;$G$4:$H$8;2)
copy ke bawah

lihat attachment

wassalam

Ghozi Alkatiri

________________________________
Dari: Tony Bexcel <tonybexcel@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 24 Oktober 2012 15:27
Judul: [belajar-excel] Pembagian kata untuk komen


 
Dear Pakar yang Budiman,
 
Mohon bantuan nya untuk mengklasifikasi untuk kolom komen berdasarkan percentage seperti contoh terlampir.
 
Terimakasih atas segal bantuan nya ya temans..
 
Salam,
Tony

Wed Oct 24, 2012 7:28 am (PDT) . Posted by:

"catursins" catursins

Dear Beexcelers,
Saya ditugaskan untuk membuat rumus untuk membuat form mengenai Raw Material yang bisa berubah sendiri,saya mencontoh dari ctv HUT yg bisa berubah miliknya (alm) siti Vi
tetapi terjadi masalah ketika tanggal expired itu suadah terlewat.
bisakah nilai KDKT itu diterapkan pada kasus ini? periode expired datenya berbeda-beda,1 tahun dan 2 tahun
saya lampirkan file tersebut,,
sebelumnya saya ucapkan terima kasih.

--- Mods ---
File lampirannya masih tercecer di komputer penanya.
Harap bersabar.
------------

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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 08.31

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)