Dear Mr Kid and exceller
Terima kasih Mr. Kid untuk pencerahannya...
saya coba aplikasikan dengan formula
Public Function uang(X As Variant)
Dim hasil As Variant
Dim hasila As Variant
Dim hasilb As Variant
Dim hasilc As Variant
Dim hasild As Variant
If X > 5 Then
X = CDec(X - 500
via variant dan fungsi cdec)
Wassalam,
Kid.
2013/10/16 vincent Yoes
>
>Dear rekan2 Be Exceller
>
>macro vba dibawah ini kenapa ya hasilnya jika 5 kebawah currency dalam
>bentuk angka namun jika 5 keatas hasilnya tidak dalam bentuk currency
>namun #value!
>
Dear rekan2 Be Exceller
macro vba dibawah ini kenapa ya hasilnya jika 5 kebawah currency dalam
bentuk angka namun jika 5 keatas hasilnya tidak dalam bentuk currency
namun #value!
Public Function hutang(x As Currency)
Dim hasil As Currency
Dim hasila As Currency
Dim hasilb As Cu
dikehendaki (contoh:Sheet1) klik kanan
Kemudian pilih View Code
Lalu copy aja code dari Miss Jan tadi
seperti ini :
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of vincent Yoes
Sent: 20 Agustus 2013 16:25
To
module This
Workbook
jika ingin muncul di tempat yang spesifik.. caranya sudah ditunjukkan oleh pak
Heru
salam,
-MJR-
Pada 20 Agustus 2013 14.52, vincent Yoes menulis:
>
>Be-Exceller
>hai juga miss Jan Raisin
>
>uuu sorrry.skali lagi maaap
>
>
>thanks
ba gunakan event change punyanya si worksheet
kira-kira scriptnya begini:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Show
End Sub
Salam,
-Miss Jan Raisin-
Pada 20 Agustus 2013 12.07, vincent Yoes menulis:
>
>Exeler maniac
>
>
>Mohon bim
ba gunakan event change punyanya si worksheet
kira-kira scriptnya begini:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Show
End Sub
Salam,
-Miss Jan Raisin-
Pada 20 Agustus 2013 12.07, vincent Yoes menulis:
>
>Exeler maniac
>
>
>Mohon bim
Exeler maniac
Mohon bimbingannya, gimana ya cara menampilkan userform ketika cell di
worksheet digeser atau di click.
(kolom A1 digeser ke B1,userform muncul)
Terima kasih atas informasinya
vincent
;).End(xlDown).Row)
With rgTmp 'range temporary
.Formula = "=A2&B2"
.Offset(, 1).Formula = "=(COUNTIF($Z$2:Z2,Z2)=1)+AA1"
End With
With Range("D2", "D" & Range("A2").End(xlDown).Row)
.Formula = sRumus
.Value = .Value
End With
'
aruslah berurutan.
Jangan lupa untuk mengubah petik (") menjadi dua buah petik ("") saat dipasang dalam VBA.
Wassalam,Kid.2013/3/28 vincent Yoes <vince...@yahoo.com>
Mantab mas jan raisin...ini yg saya mau...maap mas mau tanya lagi kalo kriterianya tanggal dan nama sama ma
lusi formulanya pak Zainul Ulum ya..
script vba-nya menjadi seperti ini:
Sub IdNumber()
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 4), Cells(lRow, 4)).Formula =
"=TEXT(ROWS($A$2:A2),"""")&"" / KAR / Me / &qu
= "=TEXT(ROWS($A$2:A2),"""")&"" / KAR / Me / ""&ROMAN(MONTH(A2))&"" / ""&YEAR(A2)"
Range(Cells(2, 4), Cells(lRow, 4)).Value = Range(Cells(2, 4), Cells(lRow, 4)).ValueEnd Sub
Wassalam,
-Miss Jan Raisin-Pada
siap bung zainul_ulum thanks buat rumusnya cuma kalo rumus itu di vba jadinya gimana ya...jadi nomor tersebut tadinya kosong setelah kita pencet cmd nomor, maka identitasnya langsung terisi dengan format tersebut.mohon pencerahannya terima kasihFrom: zainul_ulum[at]yahoo[dot]com To: be
Dear Rekan-rekan Exceller
mohon pencerahannya untuk penomoran dengan menggunakan VBA.
data terlampir.
Terima Kasih atas pencerahannya
nomor urut vba.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
t nomor urut.
> untuk cetak ke kertas, non aktifkan baris printpreview dan aktifkan baris
> perintah printout
>
> Wassalam,
> Kid.
>
> 2013/1/31 vincent Yoes vince...@yahoo.com>
>
>> **
>>
>>
>> masih gagal Mr.Kid
>> malah sekarang yg
:$B$59)-2),ROW(1:10)+($I$2*10-10))
Wassalam,
Kid.
2013/1/31 vincent Yoes
saya coba belum bisa Mr.Kid
>
>rumusnya begini
>Private Sub cmd_print_Click()
>Dim WKS As Worksheet
>Set WKS = Worksheets("form")
>
>WKS.Activate
> If tb_fr = "" Then
loh ya) setelah baris yang brbunyi :Range("I2") = halaman_Awalsebelum proses printout, disisipi baris berbunyi :
activesheet.calculateJika masih belum juga, mungkin ditambah baris :application.wait now + timevalue("00:00:02")Wassalam,Kid.2013/1/31 vincent Yoes <vince...@y
ActiveSheet.PrintOut From:=1, to:=1, _ Copies:=1, Collate:=True
Next halaman_Awal
End IfBagian IF adalah cek jumlah record di kolom A sheet database (sheet2) yang nilainya adalah sama dengan nilai dalam variabel Page.Wassalam,Kid.
2013/1/30 vincent Yoes &l
n..
hehe
From:
belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of vincent Yoes
Sent: Tuesday, January 29, 2013 1:10 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] print dengan continous form
thanks
akan
mengeprint sesuai jumlah halamannya ya om?
Berarti harus diotak-atik lagi..
File terlampir.
Semoga tepat sasaran..
hehe
From:
belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On
Behalf Of vincent Yoes
Sent: Tuesday, January 29, 2013
thanks to master M.Ferdiansyah
berarti yang tercetak by page ya...
kalo untuk no SJ 2 cara nyambunginnya gimana ya.
thanks
From: M. Ferdiansyah
To: belajar-excel@yahoogroups.com
Sent: Monday, January 28, 2013 9:43 PM
Subject: Re: [belajar-excel] print deng
Dear Master VBA excel
mohon bantuannya
saya mau print ini di form cetakan ternyata jumlah item barang terlalu banyak
dan membutuhkan lembar ke dua dengan no sj yg sama.
gimana ya biar otomatisasinya bisa continous tidak terputus…???
Mohon pencerahannya para MASTER VBA
saya sertakan juga samp
22 matches
Mail list logo
