Rabu, 08 Januari 2014

[belajar-excel] Digest Number 2723

5 New Messages

Digest #2723
1a
Re: mengurut data vertikal ke horozontal by "Mr. Kid" nmkid.family@ymail.com
2a
Re: Menggerakan Shape [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
2b
Trs: [belajar-excel] Menggerakan Shape by "Andy Ajhis Ramadhan" andy_ajhis37

Messages

Tue Jan 7, 2014 7:05 am (PST) . Posted by:

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

Coba dilampirkan workbook berisi sumber data dan contoh hasil kerja
manualnya.

Wassalam,
Kid.

2014/1/7 roy sumarna <rohendi_2000@yahoo.co.id>

>
>
>
> pas excel yg baik..
> pertama saya ucapkan dulu selamat taun baru tuk semua.. ada masalah kerja
> nih. yaitu data urut ke bawah / vertikal ingin dirubah ke horizal. saya dah
> coba pake pivot table ternyata untuk data yg banyak jenisnya gak bisa.
> mungkin ada master excel yg tau formulanya.
> terima kasih sebelumnya...
>
>
>
>

Tue Jan 7, 2014 7:08 am (PST) . Posted by:

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

Object shape memiliki properti Top.
Geser shape kekiri dan kekanan berarti mengubah posisi pojok kiri object ke
kiri dan kekanan. Dipojok kiri atas shape ada koordinat x,y tertentu atau
posisi left dan top nya.

Wassalam,
Kid.

On Tue, Jan 7, 2014 at 5:12 PM, Andy Ajhis Ramadhan <
andyajhisramadhan@ymail.com> wrote:

>
>
> Thanks Miss Jan,
> Miss jan kok kalau .LEFT diganti up atau down gda ya miss ? juga rotate?
>
> Terima Kasih,
> Andy
>
>
> Pada Selasa, 7 Januari 2014 14:41, Jan Raisin <miss.jan.raisin@gmail.com>
> menulis:
>
> Hai Andy,
>
> coba copas script ini ke dalam sebuah modul,
> lalu assign masing-masing prosedur ke tombol yang telah ada
>
> Sub Kanan()
> Dim dbPos As Double
>
> With Sheet1.Shapes(1)
> dbPos = .Left
> .Left = dbPos + 1
> End With
> End Sub
>
> Sub Kiri()
> Dim dbPos As Double
>
> With Sheet1.Shapes(1)
> dbPos = .Left
> .Left = dbPos - 1
> End With
> End Sub
>
> solusi file terlampir
> Wasslam,
>
> -Miss Jan Raisin-
>
>
> 2014/1/7 Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
>
>
> Dear,
> Be-Exceller
>
> Bagaimana cara membuat shape bergerak dengan VB ?
> Terima kasih...
>
> Andy Ajhis R
>
>
>
>
>

Wed Jan 8, 2014 1:44 am (PST) . Posted by:

"Andy Ajhis Ramadhan" andy_ajhis37

Oh iya Mr. Kid

Thank u Mr. Kid...

Pada Selasa, 7 Januari 2014 22:08, Mr. Kid <mr.nmkid@gmail.com> menulis:

 
Object shape memiliki properti Top.
Geser shape kekiri dan kekanan berarti mengubah posisi pojok kiri object ke kiri dan kekanan. Dipojok kiri atas shape ada koordinat x,y tertentu atau posisi left dan top nya.

Wassalam,
Kid.

On Tue, Jan 7, 2014 at 5:12 PM, Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com> wrote:

> 
>Thanks Miss Jan,
>Miss jan kok kalau .LEFT diganti up atau down gda ya miss ? juga rotate?
>
>
>Terima Kasih,
>Andy
>
>
>
>Pada Selasa, 7 Januari 2014 14:41, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>
> 
>Hai Andy,
>
>
>coba copas script ini ke dalam sebuah modul,
>lalu assign masing-masing prosedur ke tombol yang telah ada
>
>
>Sub Kanan()
>Dim dbPos As Double
>
>
>With Sheet1.Shapes(1)
>    dbPos = .Left
>    .Left = dbPos + 1
>End With
>End Sub
>
>
>Sub Kiri()
>Dim dbPos As Double
>
>
>With Sheet1.Shapes(1)
>    dbPos = .Left
>    .Left = dbPos - 1
>End With
>End Sub
>
>
>solusi file terlampir
>Wasslam,
>
>
>-Miss Jan Raisin-
>
>
>2014/1/7 Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
>
>
>> 
>>Dear,
>>Be-Exceller
>>
>>
>>Bagaimana cara membuat shape bergerak dengan VB ?
>>Terima kasih...
>>
>>
>>Andy Ajhis R
>
>

Tue Jan 7, 2014 5:46 pm (PST) . Posted by:

"Yan Novianto" yan.novianto

maaf Mr.Kid

Karena saya juga belum paham soal VBA
Jadi nanya lagi soal penulisan kodenya, apa betul saya nulisnya di "view code> difile yg saya inginkan> insert module?
Untuk penulisan di module nya apa langsung saya ketikkan :

dim dtBatas as date��� 'deklarasi tanggal batas (biar gampang saja)
on error resume next���� 'trap error agar tetap ke baris kode berikutnya
dtbatas=cdate("2012-12-31")��� 'init tanggal batas
application.displayalerts=false���� 'turnoff kecerewetan excel dalam meminta konfirmasi tindakan
if now>dtbatas then��� 'cek kekadaluarsaan
��� thisworkbook.changefileaccess=xlreadonly���� 'buat workbook berstatus read only (lepas dari file asli dan hanya membuka salinannya saja)
��� kill thisworkbook.fullname�� 'hapus object file si workbook
��� application.quit����� 'keluar dari aplikasi excel (bisa diganti dengan thisworkbook.close false jika tidak ingin menutup excel)
endif

Tanpa ada tambahan apapun (kecuali rubah tanggal saja, dan saya ganti Quit menjadi Close) diatas atau di bawahnya?

Soalnya kalo saya ketik seperti itu, muncul peringatan seperti terlampir
Ada yg salah di mana untuk penulisannya?

Terimakasih pencerahannya :)

Sent from BlackBerry� on 3

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Wed, 1 Jan 2014 15:19:12
To: BeExcel<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghapus File Setelah Melewati Waktu Tertentu

Oh mau mode bunuh diri ya...

Coba begini :

dim dtBatas as date 'deklarasi tanggal batas (biar gampang saja)
on error resume next 'trap error agar tetap ke baris kode berikutnya
dtbatas=cdate("2012-12-31") 'init tanggal batas
application.displayalerts=false 'turnoff kecerewetan excel dalam
meminta konfirmasi tindakan
if now>dtbatas then 'cek kekadaluarsaan
thisworkbook.changefileaccess=xlreadonly 'buat workbook berstatus
read only (lepas dari file asli dan hanya membuka salinannya saja)
kill thisworkbook.fullname 'hapus object file si workbook
application.quit 'keluar dari aplikasi excel (bisa diganti dengan
thisworkbook.close false jika tidak ingin menutup excel)
endif

*** Peringatan !!!
jangan berikan perintah kepada mahluk hidup

Wassalam,
Kid.

P.s.
file uji cobanya disave dulu jadi file lain, supaya ndak usah buat prosedur
baru.



2014/1/1 Yan Novianto <yan.novianto@yahoo.com>

>
>
> Ikutan nanya yack
>
> Bagiaman jikalau kita mau share file, kemudian jika sudah kadaluarsa/lewat
> batas waktu file nya jadi terhapus?
>
> Terimakasih
> Sent from BlackBerry� on 3
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 1 Jan 2014 14:57:36 +0700
> *To: *BeExcel<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Menghapus File Setelah Melewati Waktu
> Tertentu
>
>
>
> Misal file yang akan dihapus adalah myfile.txt yang ada disebuah subfolder
>
> dim dtBatas as date
> dtbatas=cdate("2012-12-31")
>
> if now>dtbatas then
> kill "d:\foldernya&#92;subfolder&#92;myfile.txt"
> endif
>
> Wassalam,
> Kid.
>
>
>
>
> 2014/1/1 Misbahul Anwar <kewonk_cheseeh@yahoo.co.id>
>
>>
>>
>> Mohon pencerahan, para master...
>> bagaimana coding untuk menghapus file secara permanen setelah melewati
>> waktu.
>>
>> Trims
>>
>>
>
>

Tue Jan 7, 2014 6:02 pm (PST) . Posted by:

"Jan Raisin"

Hai Yan,

penulisannya dilakukan di ThisWorkbook dengan event Open
caranya seperti ini:

1. dobel klik objek ThisWorkbook sehingga terbuka VBE baru
[image: Gambar sisip 1]

2. Pilih objeknya : WorkBook
Pilih evennya : Open
sehingga muncul 2 baris kode seperti di bawah ini:
[image: Gambar sisip 2]

lalu script dari mr. Kid diletakan di antara 2 baris kode tersebut.

3. Setelah itu simpan dengan Macro Enable

4. Pastikan untuk meng-enable-kan macro saat membuka file tersebut, jika
tidak maka script tidak akan bisa berjalan.

Salam,

-Miss Jan Raisin-

Pada 8 Januari 2014 08.25, Yan Novianto <yan.novianto@yahoo.com> menulis:

>
>
> maaf Mr.Kid
>
> Karena saya juga belum paham soal VBA
> Jadi nanya lagi soal penulisan kodenya, apa betul saya nulisnya di "view
> code> difile yg saya inginkan> insert module?
> Untuk penulisan di module nya apa langsung saya ketikkan :
>
> dim dtBatas as date 'deklarasi tanggal batas (biar gampang saja)
> on error resume next 'trap error agar tetap ke baris kode berikutnya
> dtbatas=cdate("2012-12-31") 'init tanggal batas
> application.displayalerts=false 'turnoff kecerewetan excel dalam
> meminta konfirmasi tindakan
> if now>dtbatas then 'cek kekadaluarsaan
> thisworkbook.changefileaccess=xlreadonly 'buat workbook berstatus
> read only (lepas dari file asli dan hanya membuka salinannya saja)
> kill thisworkbook.fullname 'hapus object file si workbook
> application.quit 'keluar dari aplikasi excel (bisa diganti dengan
> thisworkbook.close false jika tidak ingin menutup excel)
> endif
>
> Tanpa ada tambahan apapun (kecuali rubah tanggal saja, dan saya ganti Quit
> menjadi Close) diatas atau di bawahnya?
>
> Soalnya kalo saya ketik seperti itu, muncul peringatan seperti terlampir
> Ada yg salah di mana untuk penulisannya?
>
> Terimakasih pencerahannya :)
> Sent from BlackBerry® on 3
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 1 Jan 2014 15:19:12 +0700
> *To: *BeExcel<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Menghapus File Setelah Melewati Waktu
> Tertentu
>
>
>
> Oh mau mode bunuh diri ya...
>
> Coba begini :
>
> dim dtBatas as date 'deklarasi tanggal batas (biar gampang saja)
> on error resume next 'trap error agar tetap ke baris kode berikutnya
> dtbatas=cdate("2012-12-31") 'init tanggal batas
> application.displayalerts=false 'turnoff kecerewetan excel dalam
> meminta konfirmasi tindakan
> if now>dtbatas then 'cek kekadaluarsaan
> thisworkbook.changefileaccess=xlreadonly 'buat workbook berstatus
> read only (lepas dari file asli dan hanya membuka salinannya saja)
> kill thisworkbook.fullname 'hapus object file si workbook
> application.quit 'keluar dari aplikasi excel (bisa diganti dengan
> thisworkbook.close false jika tidak ingin menutup excel)
> endif
>
> *** Peringatan !!!
> jangan berikan perintah kepada mahluk hidup
>
> Wassalam,
> Kid.
>
> P.s.
> file uji cobanya disave dulu jadi file lain, supaya ndak usah buat
> prosedur baru.
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

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

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)