terça-feira, 17 de novembro de 2009

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

Mungkin seperti ini,

1.2.3
pengembangan macronya Bu Guru Siti

4.
Tools ==> Option ==> TabView ==> Row & column header ( hilangkan centangnya)

CMIIW

TQ

Menurut Indra Psr nulis sak meniko teng ngandap:

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

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

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

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

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

--
Template

Hery Wahyudi

__._,_.___

Reply to sender | Reply to group

Messages in this topic (3)

Recent Activity:

New Members 98

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Kawin... Kawin... Minggu depan aku 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

Parenting Zone: Your community resource for family and home