hai Shenly,
coba kirimkan sample filenya untuk diteliti bersama.. lebih mudah melihat
filenya langsung daripada hanya membayangkannya
dugaan sementara terjadnya error sbb:
1. penulisan nama sheet salah >> sudah disebutkan oleh pak Hendrik
solusi: perbaiki penulisan nama sheet
2. tombol Input terletak pada sheet yang berbeda
solusi: coba pindahkan script pada suatu modul lalu panggil modul
tersebut melalui tombol input yang tadi
3. tipe data tidak sesuai
solusi: ubah tipe data dengan yang sesuai
saran lain untuk perbaikan, (tidak ada hubungannya dengan pertayaan)
1. gunakan Option Explicit di awal setiap script
2. deklarasikan variabel dengan cara sbb:
Dim NamaVariabel as TipeData , NamaVariabel2 as TipeData ,
NamaVariabel3 as TipeData
dibandingkan cara seperti ini
Dim NamaVariabel , NamaVariabel2 , NamaVariabel3 as TipeData
3. Gunakan tipe data yang sesuai, misal untuk menyimpan nomor baris gunakan
Long Integer dan bukan Integer
coba lihat tabel di bawah ini:
Data type Storage size Range *Byte* 1 byte 0 to 255 *Boolean* 2 bytes *True*or
*False* *Integer* 2 bytes -32,768 to 32,767 *Long*
(long integer) 4 bytes -2,147,483,648 to 2,147,483,647 *LongLong*
(LongLong integer) 8 bytes -9,223,372,036,854,775,808 to
9,223,372,036,854,775,807 (Valid on 64-bit platforms only.) *LongPtr*
(Long integer on 32-bit systems, LongLong integer on 64-bit systems) 4
bytes on 32-bit systems, 8 bytes on 64-bit systems -2,147,483,648 to
2,147,483,647 on 32-bit systems, -9,223,372,036,854,775,808 to
9,223,372,036,854,775,807 on 64-bit systems *Single*
(single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45 for
negative values; 1.401298E-45 to 3.402823E38 for positive values *Double*
(double-precision floating-point) 8 bytes -1.79769313486231E308 to
-4.94065645841247E-324 for negative values; 4.94065645841247E-324 to
1.79769313486232E308 for positive values *Currency*
(scaled integer) 8 bytes -922,337,203,685,477.5808 to
922,337,203,685,477.5807 *Decimal* 14 bytes
+/-79,228,162,514,264,337,593,543,950,335
with no decimal point;
+/-7.9228162514264337593543950335 with 28 places to the right of the
decimal; smallest non-zero number is
+/-0.0000000000000000000000000001 *Date* 8 bytes January 1, 100 to December
31, 9999 *Object* 4 bytes Any *Object* reference *String*
(variable-length) 10 bytes + string length 0 to approximately 2 billion *
String*
(fixed-length) Length of string 1 to approximately 65,400 *Variant*
(with numbers) 16 bytes Any numeric value up to the range of a *Double* *
Variant*
(with characters) 22 bytes + string length (24 bytes on 64-bit systems) Same
range as for variable-length *String* User-defined
(using *Type*) Number required by elements The range of each element is the
same as the range of its data type.
perhatikan keterangan di atas
Tipe data Integer dapat menyimpan sampai dengan nilai 32.767
bandingkan dengan jumlah baris pada Excel di tempat Shenly (tekan CTRL
panah bawah sampai baris terakhir), apakah mungkin tipe data tersebut mampu
menyimpan nilai baris yang diambil dengan script Rows.Count ?
4. Sebisa mungkin hindari penggunaan tipe data Variant atau variabel yang
tidak dideklarasikan terlebih dahulu, ini dia gunanya Option Explicit yang
tadi disebut dinomor 1.
Kenapa harus dihindari? coba lihat kapasitas penyimpanan yang harus
disediakan untuk variabel tersebut, pinjam istilah mr Kid kemarin, kalo
datanya bisa disimpan pakai amplop di dalam saku baju kenapa juga harus
bawa-bawa kontainer segede gaban untuk menyimpan data.
ditunggu samplenya.. mudah-mudahan malah ketemu sendiri penyebabnya setelah
membaca dongeng di atas
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
pooling berikut
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat
berharga untuk Be-Exceler yang lain
Wassalam,
-Miss Jan Raisin-
*>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan
jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
pertanyaan yang diajukan;*
*>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
belajar-excel@yahoogroups.com;*
*>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;*
Pada 6 Juni 2013 14.04, hendrik karnadi <hendrikkarn...@yahoo.com> menulis:
> **
>
>
> Hi Shenly,
> Penulisan nama sheetnya sudah benar?
>
> Salam,
> HK
>
> ------------------------------
> *From:* Shenly Ruchman <shenly_excelma...@yahoo.co.id>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 6 June 2013, 10:47
> *Subject:* [belajar-excel] koreksi my VBA
>
>
> Assalamualakimun Wr.WB
>
> haloo para master, kembali sya bertanya, kemarin saya iseng2 membuat form
> inputan dengan scrip seperti ini
>
>
>
> Private Sub cmdinput_Click()
>
> Dim tanggal, namauser, produk As Integer
> Dim jumlahdeposit, BarisTerakhir, BarisTujuan As Integer
>
> With Worksheets("attainment fist depo")
> tanggal = .Cells(3, 3).Value
> namauser = .Cells(4, 3).Value
> produk = .Cells(5, 3).Value
> jumlahdeposit = .Cells(6, 3).Value
>
> BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
> BarisTujuan = BarisTerakhir + 1
> .Cells(BarisTujuan, 1).Value = tanggal
> .Cells(BarisTujuan, 2).Value = namauser
> .Cells(BarisTujuan, 4).Value = produk
> .Cells(BarisTujuan, 6).Value = jumlahdeposit
> End With
>
> End Sub
>
>
>
>
>
> tapi ko malah error, tolong master-master berkenan memberi pencarahannya
>
> terima kasih
>
> Shenly ^^*
>
>
>
>
