Dear Mba Siti dan Pakar Excell semua
Terima kasih untuk bantuannya, sungguh sangat membantu dan mempermudah
kerjaan saya
Tapi bolehkah saya bertanya lagi
Kalau saya mau buat *beberapa sheet yang bisa diprint langusung* seperti
sheet surat itu macronya gimana ya ?
Terus boleh dijelaskan ga arti formula dibawah, pengen banget bisa create
seperti itu sendiri
Terima kasih sebelumnya
Private Sub Worksheet_Deactivate()
Dim dTabel As Range, T As Long
Set dTabel = Me.Range("D4").CurrentRegion.Offset(2, 0)
T = dTabel.Rows.Count - 2
Sheets("contoh surat").SpinButton1.Min = 1
Sheets("contoh surat").SpinButton1.Max = T
End Sub
2 ada di module sheet FORM surat
Private Sub Print1_Button_Click()
Me.PrintPreview
' Me.PrintOut
End Sub
Private Sub Print2_Button_Click()
Dim i As Long
For i = Range("N11") To Range("N13")
Range("N2") = i
Me.PrintPreview
' Me.PrintOut
Next i
End Sub
2011/7/8 STDEV(i) <[email protected]>
> **
>
>
> seperti ini kah yang dimaksod ??
>
> 1.
> perubahan data di FORM surat: hanya mengandalkan RUMUS
> Rumusnya pun sangat sederhana, karena hanya sekitar Ofset-ofset-an saja...
> (boleh digandi denan index-index-an (ndak usah pakai If-If-an !! he he)
>
> 2.
> perubahan record (baris data) 1 ke berikutnya (di tabel data) dibantu
> oleh
> SPIN BUTTON (itu lho pak, tombol yg kalo diceklik angkanya "maju" atau
> "mundur")
>
> 3.
> Spin Butoon diberi nilai MAX = sebanyak jumlah records (agar tidak
> kebablasan
> merujuk ke data kosong)
> lha... ini baru perlu makro !!
> makro dijalankan setiap kali ada orang men-*DeAktifkan sheet Data*
> (berarti baru saja melihat data, entah mengediit atau hanya melihat saja)
> pokoknya urusan kita merefresh nilai MAX milis si SpinButton.
>
> 4.
> untuk dapat mencetak secara BULK ( anda hanya membatasi NOMOR "MULAI"
> dan NOMOR "SAMPAIDENGAN" juga perlu makro
>
> 5
> jadi ada dua kelompok makro
>
> 1 ada di module sheet data
>
> Private Sub Worksheet_Deactivate()
> Dim dTabel As Range, T As Long
> Set dTabel = Me.Range("D4").CurrentRegion.Offset(2, 0)
> T = dTabel.Rows.Count - 2
> Sheets("contoh surat").SpinButton1.Min = 1
> Sheets("contoh surat").SpinButton1.Max = T
> End Sub
>
>
> 2 ada di module sheet FORM surat
>
> Private Sub Print1_Button_Click()
> Me.PrintPreview
> ' Me.PrintOut
> End Sub
>
> Private Sub Print2_Button_Click()
> Dim i As Long
> For i = Range("N11") To Range("N13")
> Range("N2") = i
> Me.PrintPreview
> ' Me.PrintOut
> Next i
> End Sub
>
> ' note
> selama untuk coba coba pakai PrintPreview dulu
> kalau sudah oke baru diganti perintah PrintOut.
>
> ~ siti
>
>
>
> 2011/7/8 Yusril Ramadani <[email protected]>
>
>> **
>>
>> Dear para pakar
>> Mohon bantuannya
>> Saya ingin membuat surat otomatis yang seperti Mail merge di excell
>> Suratnya cukup sederhana sih tapi kalau bisa dengan macro dan otomoatis
>> akan sangat memudahkan
>> Dengan list tabel yang ada bisa dibuat progarm untuk otomatisasi surat
>> sehingga tinggal print
>> Mohon solusinya para pakar
>> terimakasih banyak seblumnya
>> terlampir contoh sederhananya
>>
>> Salam
>> YR
>>
>>
>
