Xi...xi...xiBener nech. Simple, gampang dimengerti, proses cepat en so on we lachBagi q ini tambahan ide.Tapi tetep q ingin belajar agar formula yang ada di sit name [rhs] itu dituangkan dalam..bukan sebuah gelas atau botol tetapi dalam penulisan makronya tentunya heuheuheu..
Makasih banget bu guru siti...
Terus terang baru tahu sekarang. Setelah sekian lama...
- original message -
Subject:Re: [belajar-excel] Ketemu ERROR di coding ku
From: siti Vi
Date: 20/02/2010 5:31 am
You attempt to use a number in a calculation, and that number is coerced in
yg akan dimasukkan ke TEXTBOX1 itu
**apakah semua karakter ANGKA / NUMERIK ?
**atau ada kemungkinan berupa ALPHABETIK & bahkan karakter lain ??
**apakah panjang (jumlah karakter) dlm input = sudah tertentu (8 karakter)??
hal tsb harus jelas dulu
yg dapat diformat macem-macem adalah data "bilanga
You attempt to use a number in a calculation, and that number is coerced into
an integer,
but the result is larger than an integer. For example:
x = 2000 * 365 ' Error: Overflow
To work around this situation, type the number, like this:
Dim x As Long
x = CLng(2000) * 365
Ketika mas
Suhu/Pakar Excel J, mohon bantuannya untuk menjadikan masukan di textbox dg
format yg kita inginkan
Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text)
End Sub
Missal di masukkan menjadi X..XXX
Salam
Ridwan
Contoh.xls
Description: MS-Excel sprea
GakAneh()
Pi = 4 * Atn(1)
rho = (360# * 3600#) / (2 * Pi)
End Sub
Tidak error
Minta tolong dijelasin dong kenapa?
tengkyu
__ Information from ESET NOD32 Antivirus, version of virus signature
database 4881 (20100219) __
The message was checked by ESET NOD32 Antivirus
tak dialog folder untuk
menyimpan file
tq b 4
__ Information from ESET NOD32 Antivirus, version of virus signature
database 4880 (20100219) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
<>
Tolong dong gimana syntax vba untuk menampilkan kotak dialog folder untuk
menyimpan file
tq b 4
"Kalo isi langsung value dengan kode simple en dapet dimengerti ada lagi gak."
kalo ingin hasil proses sebelumnya tidak dihapus, n hasilnya berupa value,,
coba,
Sub Updating_Click()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(4, Columns.Count).End(xlToLeft).Column
For i = 2 To LC
If Ce
jadi, kesimpulannya, teman-teman
COUNTIF tidak harus mencari kriteria di Range yg dimensinya lebih dari satu
cell,
bisa di satu cell.
COUNTIF dapat menggantikan fungsi FIND selama hanya mengharapkan jawaban ADA
(1)
atau TIDAK(0); dan bukan mengharapkan AngkaPosisi karakter seperti pada
pak Kozhot, kalo gini gimana,
Sub Updating_Click()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(4, Columns.Count).End(xlToLeft).Column
Range(Cells(5, 2), Cells(LR, LC)).ClearContents 'tambahan
For i = 2 To LC
If Cells(4, i) = Range("B2") Then
For n = 1 To LR - 4
Cells(4 +
Walah kebalik, gini nih kalo gak lihat masalahnya langsung. Nanti deh
dilihat. Kalo salah dikoreksi lagi. hehehe.
=IF(CountIF(a5,"*AJU*"),Mid(a5,15,6),Left(a5,9))
On Fri, Feb 19, 2010 at 4:32 PM, Mr. Kid wrote:
> Maaf kalau keliru, karena hanya lihat solusi mas Zainul (belum lihat
> filenya)
>
memang disengaja coding nya nanggung,
biar si penanya nanya2 lagi... xi xi xi...
dengan seperti ini diharapkan kan si penanya ada pembelajaran ^_^
From: Khozhot
To: belajar-excel@yahoogroups.com
Sent: Fri, February 19, 2010 4:10:25 PM
Subject: Re: [belajar-exc
Maaf kalau keliru, karena hanya lihat solusi mas Zainul (belum lihat
filenya)
=IF(CountIF(a5,"*AJU*"),Left(a5,9),Mid(a5,15,6))
tapi kalau ternyata yang diambil (pasti 6 karakter) ada di paling kanan,
Mid() diganti jadi Right(a5,6)
Kid.
On Fri, Feb 19, 2010 at 1:37 PM, zainul ulum wrote:
>
>
>
Title: Template
Dear Pak Anton,bagus nech rumusnya lebih simple dan cukup mudah untuk dimengeti.Sayangnya, karena hasil di cell tujuan berupa Formula, jadi ketika diisi 1/1 (red: satu per satu) tiap kolom.Hasilnya jadi sama cmua dach xi..xi...xi.Tapi gapapa sech, satu lagi ilmu kudapat hari
Title: Template
Dear Pak Hery,Bener banged yang kayak geneech yang q mauk, meskipun belon ngerti cara membaca codingannya.hatur nuhun.-- Wassalamzhot theaUsing Opera's revolutionary e-mail client: http://www.opera.com/mail/On Fri, 19 Feb 2010 14:43:09 +0700, hery wahyudi wrote:
coba,
Sub Updating_Click()
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(4, Columns.Count).End(xlToLeft).Column
For i = 2 To LC
If Cells(4, i) = Range("B2") Then
For n = 1 To LR - 4
Cells(4 + n, i) = "=VLOOKUP(A" & (4 + n) & ",Source!$A$2:$B$9,2,0)"
Next n
End
17 matches
Mail list logo
