Jika menghilangkan agar tidak muncul blank gimana mba? Dalam artian 0 or blank tidak diakui sama sekali? Bagian mana di vba yg hrs dirubah? Powered by Telkomsel BlackBerry®
-----Original Message----- From: Rara Wilis <[email protected]> Sender: [email protected] Date: Thu, 12 Apr 2012 15:02:01 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Menghilangkan angka "0" Dear mbak Hartini, *Di komputer Rara; Nol tampil RAPIH LHO..* di antara angka itu sebenarnya ada charakter TAB-nya, (constant di VBA = vbTab) Karakter Tab itu dimaksudkan untuk mengatur jarak antar angka supaya sama; termasuk angka "" (blank) ex NOL yg dikonversi menjadi "" ) [image: Inline image 1] Karena angka yg digenerate itu adalah sifatnya RANDOM, maka NOL nya juga Random bisa muncul dimana saja (bisa gak muncul) *On Thu, Apr 12, 2012 at 2:23 PM, <[email protected]> wrote: * > > * * > * * > > * Mba rara, untuk angka 0 ingin dihilangkan, tetapi bukan berarti > posisinya menjadi kosong mba, jadi susunannya tetap rapi tanpa angka 0, > gimana cara merubahnya ya mba? * > > ------------------------------ > *From: * Rara Wilis <[email protected]> > *Date: *Thu, 12 Apr 2012 13:26:59 +0700 > *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 >
