Re: ]] XL-mania [[ VBA cetak data (Auto Number)

 

Sy mo kasih tip untuk pertanyaan no. 4 yaitu menghilangkan nomor baris dan huruf kolom. Intinya menghilang row dan kolom header dari pandangan. Caranya yaitu klik Tool, pilih Option.  Pilih View. Pada View hilangkan centang pada pilihan Row and column headers  seperti gambar pada file yang disertakan. Oya, cara itu ada pada Office 2003. Kalau office 2007, coba cari option seperti tadi.

Semoga membantu.

www.pkmsungaiayak.co.cc

----- Original Message -----

From: Indra Psr

To: XL-mania@yahoogroups.com

Sent: Sunday, November 15, 2009 12:37 AM

Subject: ]] XL-mania [[ VBA cetak data (Auto Number)

 

Dh,

Saya baru belajar dalam penggunaan Visual Basic, (Pls open Attachment) yg mau saya tanyakan :
Cara untuk menjalankan aplikasi (macro cetak) tanpa mengulang2 secara manual kata-kata VBA seperti di bawah ini untuk mengganti angka "1", "2", "3", dst di -ActiveCell.FormulaR1C1 = "2"-

Sub new_sheet()
    Sheets("Cetak").Copy After:=Sheets(2)
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Cetak (2)").Select
    Sheets("Cetak (2)").Name = Cells(8, 4)
    Cells.Select
    ActiveSheet.Shapes("CommandButton1").Select
    Selection.Delete
    ActiveSheet.Shapes("CommandButton2").Select
    Selection.Delete
    Rows("19:76").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Cetak").Select
End Sub

Sub cetak()
    Sheets("Cetak").Select
    Range("D7").Select
    ActiveCell.FormulaR1C1 = "1"
    Application.Run "new_sheet"

    Range("D7").Select
    ActiveCell.FormulaR1C1 = "2"
    Application.Run "new_sheet"

    Range("D7").Select
    ActiveCell.FormulaR1C1 = "3"
    Application.Run "new_sheet"

    Range("D7").Select
    ActiveCell.FormulaR1C1 = "4"
    Application.Run "new_sheet"

    Range("D7").Select
    ActiveCell.FormulaR1C1 = "5"
    Application.Run "new_sheet"
End Sub




yang diinginkan (kalau bisa):

1. maunya sich ketika kita pencet "command button _ Buat Data" langsung nge-link ke sheet_data, otomatis berapa orang yang kedaftar, langsung kecetak segitu banyak juga. jadi kan kalo misalnya data ada 50 orang, yang tercetak 50 orang juga, jadi kita gak cape-cape harus copy manual kata-kata (ActiveCell.FormulaR1C1 = "##") itu sampai 50 copy-an, trus ngegantiin angkanya 1-1. Contoh (untuk 5 data siswa) lihat di VBA app "cetak".
2. keinginan yang ke-2, ketika pencet "command button _ Cetak Pilihan" ada muncul form yang mau di cetak "no.sekian" sampai "no.sekian", atau "no ini", "no ini", dan "no ini". Jadi ceritanya, kalo kita mau nge-cetak, pilih-pilih 15 data dulu, karena data yang lain masih belum lengkap (munculnya seperti pilihan mau-ngeprint itu lo... Jadi kan kita bisa milih tu, data yang mau di cetak no. Mana sampai no. Mana, gitu... Bisa gak ya?)
3. keinginan ke-3, ketika kita ganti secara manual angka yang ada di range_"D7", saat tekan enter aplikasi (macro new_sheet) langsung jalan secara otomatis
4. keinginan ke-4, yg terahir.... (gak nyambung ke VBA) gimana cara ngilangin angka sebelah kiri ini (angka yang ada di row 1,2,3,4) sama ngilangin huruf yang di atas (column A,B,C,D) kalo di ms. Word kan ada tu "ruler..." itu kan gampang aja di ilanginnya, tp di ms. Excel...??? saya udah nyari2 itu... Tapi gak ktemu juga pencetannya.... (triknya dink...)

Itu aja dulu, terimakasih ya... Maaf kalo pertanyaannya banyak banget.
Semoga rekan-rekan dapat membantu saya.

Rgrd,
Indra

__._,_.___

Reply to sender | Reply to group

Messages in this topic (5)

Recent Activity:

• New Members 108

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Kawin... Kawin... Minggu ini momods kawinnnnn...                   |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___