Terima kasih ya atas bantuannya Salam Tini Powered by Telkomsel BlackBerry®
-----Original Message----- From: Rara Wilis <[email protected]> Sender: [email protected] Date: Thu, 12 Apr 2012 13:26:59 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Menghilangkan angka "0" Sub PsikoNumGenerator() '------------------------------------- ' ModifiedBy : Rr_Wilis / 12 Apr 2012 ' BeExcel Case No: # 16740 / Hartini '------------------------------------- Dim N As Integer, Angka As Integer Dim StrN As String, LnFeed As String, Garis As String Randomize N = InputBox("Jumlah angka yang akan dibuat", "BANYAKNYA DATA") If Not IsNumeric(N) Then Exit Sub If Int(N) = 0 Then Exit Sub For i = 1 To N Angka = Int(Rnd(i) * 10) If i Mod 20 = 0 Then LnFeed = vbCrLf Else LnFeed = "" If (i + 20) Mod 200 = 0 Then Garis = "__" Else Garis = "" If Angka = 0 Then StrN = StrN & LnFeed & Garis & vbTab Else StrN = StrN & LnFeed & Garis & vbTab & Angka End If Next Selection.TypeText Text:=StrN End Sub Rara tidak suka dengan object shape misalnya Line Object tsb sulit di letakkan di tempat yg berhubungan dengan beradanya suatu text tertentu; karena Line (dan shape lainnya) sebetulnya berada di LAYER LAIN (tidak se LAYER dengan Text di dalam dokumen. Oleh karena itu bisa dipindah kemana saja. *CMIIW* LINE yg diminta oleh mbak Hartini diganti dengan* text "__"* Menjalankan makronya masih belum diotomatiskan: - hapus dulu data yg ada di dokumen *- Alt + F8 > pilih nama makro ( PsikoNumGenerator )* *- klik tombol RUN* warm regards, ~Rara * On Thu, Apr 12, 2012 at 10:15 AM, <[email protected]> wrote: > > Dear All, > Saya ingin membuat kreaplin, tetapi hasil yg saya inginkan kurang sempurna, * *> saya ingin menghilangkan angka 0 yang muncul serta menambahkan garis datar * *> disetiap 10 barisnya, contoh hasil yg diinginkan ada pada lampiran. > Mohon bantuan dr rekan2 semua > Salam > Tini*
