Terima kasih Miss Jan.

Salam,
HK


________________________________
 From: Jan Raisin <[email protected]>
To: [email protected] 
Sent: Thursday, 26 September 2013, 13:08
Subject: Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer
 


  
tetap bisa pak Hendrik..

silakan dicoba dengan mengubah tipe data textbox dari string menjadi single 
atau doubel,
lalu coba masukkan angka2 integer dan lihat hasilnya
coba juga masukkan angka2 desimal dan lihat hasilnya

hanya diperlukan 1 kali ubah tipe data dan bisa digunakan untuk semua nilai 
selama nilai tersebut masuk dalam batasan yang ada (single atau double)

tambahan lagi.. sebaiknya sebelum melakukan kalkulasi perhitungan, ubah dahulu 
nilai yang diambil dari textbox yang defaultnya bertipe string menjadi tipe 
data yang sesuai.
dalam VBA (mungkin juga di VB, belum tau karena belum pernah belajar VB), tanda 
untuk menggabungkan dua buah string selain menggunakan tanda & juga bisa 
menggunakan tanda +


awal dari thread ini adalah nilai dari masing-masing textbox akan dijumlahkan 
menggunakan operator + dimana contohnya adalah 4 + 4 dan hasil yang diinginkan 
adalah 8,
tetapi karena komputer membaca bahwa tipe data dari setiap textbox defaultnya 
adalah string maka hasilnya adalah penggabungan dua buah string tersebut yang 
akhirnya menghasilkan nilai 44 dan bukan nilai 8.


Salam,


-Miss Jan Raisin-


Pada 26 September 2013 11.32, hendrik karnadi <[email protected]> 
menulis:

 
>  
>Miss Jan,
>Jadi ga bisa berlaku untuk kedua2nya tanpa merubah code?
>
>
>Salam,
>HK
>
>
>
>________________________________
> From: Jan Raisin <[email protected]>
>To: [email protected] 
>Sent: Thursday, 26 September 2013, 11:12
>Subject: Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer
> 
>
>
>  
>jika nilai adalah desimal, maka bisa diubah dahulu menjadi data bertipe Single 
>atau Double
>
>
>caranya:
>CSng(...) untuk mengubah menjadi single, atau
>CDbl(....) untuk mengubah menjadi double
>
>
>​oia.. sebaiknya nilai suatu objek dituliskan lengkap sesuai defaultnya.. 
>karena katanya (ini katanya ya..) akan lebih mudah saat akan diubah dari satu 
>bahasa pemrograman yang satu ke bahasa pemrograman yang lain..
>
>
>jadi kalo Range("...") harus ditulis menjadi Range("...").value
>lalu kalo textbox harus ditulis TextBox1.txt sesuai dengan defaultnya
>kalo label berarti harus .Caption dsb​
>
>
>​salam,​
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 26 September 2013 10.47, hendrik karnadi <[email protected]> 
>menulis:
>
> 
>>  
>>Miss Jan,
>>Masih ada "sedikit" pertanyaan kecil,
>>bagaimana kalau angkanya bisa integer atau decimal ?
>>
>>
>>Salam,
>>HK
>>
>>
>>----- Forwarded Message -----
>>From: Andy Ajhis Ramadhan <[email protected]>
>>To: "[email protected]" <[email protected]> 
>>Sent: Thursday, 26 September 2013, 10:30
>>Subject: Trs: [belajar-excel] Nilai tambah pada VBA developer
>> 
>>
>>
>>  
>>Wah terima kasih banyak miss jan :D miss jan Thanks You...
>>hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy 
>>teraktir bakso Xiaa ^_^ xixixi
>>
>>
>>Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss Jan.
>>
>>
>>Salam,
>>Andy Ajhis R
>>
>>
>>----- Pesan yang Diteruskan -----
>>Dari: Jan Raisin <[email protected]>
>>Kepada: [email protected] 
>>Dikirim: Kamis, 26 September 2013 10:21
>>Judul: Re: [belajar-excel] Nilai tambah pada VBA developer
>> 
>>
>>
>>  
>> وَعَلَيْكُمُ  لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>>
>>coba nyekripnya pakai rasa cinta xixixix ^_^
>>
>>
>>Range("C6") = CInt(TextBox2.Value)+ CInt(TextBox3.Value)
>>
>>
>>
>>
>>
>>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 26 September 2013 09.35, Andy Ajhis Ramadhan 
>><[email protected]> menulis:
>>
>> 
>>>  
>>>
>>>
>>>Asslamu allaikum, wr wb
>>>Be-Exceller
>>>
>>>
>>>Bagaimana perumusan nilai tambah pada VBA developer ?
>>>
>>>
>>>Private Sub CommandButton1_Click()
>>>Range("C6") = (TextBox2.Value + TextBox3.Value) 'Nilai Plus disamping malah 
>>>error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya tidak 
>>>masalah.
>>>TextBox4 = Range("C6").Value
>>>End Sub
>>>
>>>
>>>file terlampir.... mohon bantuannya master. Terima Kasih
>>>
>>>
>>>Wassalamu allaikum, wr wb
>>>Andy
>>>_
>>
>>
>>
>>

 

Kirim email ke