Tecnologia, programação e muito Visual FoxPro.

domingo, 29 de novembro de 2009

Re: ]] XL-mania [[ Bikin nomor urut di sheet excel

 

Memberi nama tabSheet dengan ANGKA yg selalu urut sesuai letaknya
 
Private Sub RenameSheet()
   Dim w As Worksheet
   For Each w In Worksheets
      w.Name = w.Index
   Next
End Sub
atetapi, sebelum prosedur tsb dijalankan, harus ada prosedur lain yg
"jalan" lebih dulu, dan jalannya harus otomatis (tidak perlu user menjalankannya)
 
pada prosedur yg "jalan lebih dulu itu" perlu juga dicegah hal-hal yg "membahayakan"
misalnya mencegah duplikasi penamaan tab sheet)
 
(lihat modules di VBE pada workbook lampiran mail ini)
 
Jika hasilnya tidak anda sukai, nama tab-sheet dapat dikembalikan ke aslinya
dengan :
 
Sub Reset_SheetName()
   Dim w As Worksheet
   For Each w In Worksheets
      w.Name = w.CodeName
   Next w
End Sub
 
 
 

----- Original Message -----
From: Paulus Yokie Radnan K.
To: XL-mania@yahoogroups.com
Sent: Wednesday, November 25, 2009 10:00 AM
Subject: ]] XL-mania [[ Bikin nomor urut di sheet excel

Dear Para Suhu Excel,
Saya ada kendala nih bikin nomor urut di sheet…contohnya :
Sheet 1 dikasih nomor 1, sheet 2 dikasih nomor 2 dan begitu mo move or
copy sheet dia langsung berubah otomatis jadi nomor 3 dan seterusnya…
Please help ya…
Terima kasih

__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Setelah bang momods kawin bulan lalu... bulan ini tanggal         |
| 2 Desember bu guru Siti Vi ulang tahun lhooo....                  |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog