blockquote, div.yahoo_quoted { margin-left: 0 !important; border-left:1px
#715FFA solid !important; padding-left:1ex !important; background-color:white
!important; } Hai Prazth,
Sudah pernah belajar tentang Deklarasi pada VBA, coba kmu buka2 lagi file yg
dulu2...Tanda "+" bisa berarti di penggabungan bukan penjumlahan.Cobalah
belajar pelan2, pahami semua fungsi yg ada pada VBA dalam penggunaannya, pasti
kamu bisa......
TerimaKasih,
Pada Sabtu, Oktober 1, 2016, 12:04 PM, [email protected] [belajar-excel]
<[email protected]> menulis:
Assalamu’alaikum…
Dear para master dan rekan-rekan semua
Saya ingin menjumlahkan data dari beberapa textbox tepatnya ada 8 textbox yang
akan saya jumlahkan, dan format masing masing textbox adalah format mata uang
(contoh : 2000 tertulis 2.000), tetapi dalam prosesnya ada debug pada hasil
penjumlahan tersebut, cekrip sbb (debug ada pada bagian yang ada Highlight
kuning) ;
Mohon penyelesaiannya rekan-rekan semua..
'hasil perkalian
Private Sub TextBox2_Change()
If TextBox2.Value = "" Or TextBox3.Value = "" Then
TextBox4.Value = ""
Exit Sub
End If
TextBox4.Value = Format(CDbl(TextBox2.Value) * CDbl(TextBox3.Value), "#,##0")
Summing
End Sub
Private Sub TextBox5_Change()
If TextBox5.Value = "" Or TextBox6.Value = "" Then
TextBox7.Value = ""
Exit Sub
End If
TextBox7.Value = Format(CDbl(TextBox5.Value) * CDbl(TextBox6.Value), "#,##0")
Summing
End Sub
Private Sub TextBox8_Change()
If TextBox8.Value = "" Or TextBox9.Value = "" Then
TextBox10.Value = ""
Exit Sub
End If
TextBox10.Value = Format(CDbl(TextBox8.Value) * CDbl(TextBox9.Value), "#,##0")
Summing
End Sub
Private Sub TextBox11_Change()
If TextBox11.Value = "" Or TextBox12.Value = "" Then
TextBox13.Value = ""
Exit Sub
End If
TextBox13.Value = Format(CDbl(TextBox11.Value) * CDbl(TextBox12.Value), "#,##0")
Summing
End Sub
Private Sub TextBox14_Change()
If TextBox14.Value = "" Then
TextBox14.Value = ""
Exit Sub
End If
TextBox14.Value = Format(CDbl(TextBox14.Value), "#,##0")
Summing
End Sub
Private Sub TextBox15_Change()
If TextBox15.Value = "" Then
TextBox15.Value = ""
Exit Sub
End If
TextBox15.Value = Format(CDbl(TextBox15.Value), "#,##0")
Summing
End Sub
Private Sub TextBox25_Change()
If TextBox25.Value = "" Then
TextBox25.Value = ""
Exit Sub
End If
TextBox25.Value = Format(CDbl(TextBox25.Value), "#,##0")
Summing
End Sub
Private Sub TextBox26_Change()
If TextBox26.Value = "" Then
TextBox26.Value = ""
Exit Sub
End If
TextBox26.Value = Format(CDbl(TextBox26.Value), "#,##0")
Summing
End Sub
'menampilkan total
Private Sub CommandButton7_Click()
Unload Me
End Sub
Private Sub Summing()
On Error GoTo abc
TextBox27 = Format(TextBox27 * 1, "#,##0")
Exit Sub
abc:
TextBox27.Value = ""
TextBox27.Value = Format(CDbl(TextBox4.Value) + CDbl(TextBox7.Value) +
CDbl(TextBox10.Value) + CDbl(TextBox13.Value) + CDbl(TextBox14.Value) +
Val(TextBox15.Value) + Val(TextBox25.Value) + CDbl(TextBox26.Value), "#,##0")
End Sub
Sent from Mail for Windows 10
-- #ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}#ygrp-mkp hr {border:1px solid #d8d8d8;}#ygrp-mkp #hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#ygrp-mkp #ads {margin-bottom:10px;}#ygrp-mkp .ad {padding:0 0;}#ygrp-mkp
.ad p {margin:0;}#ygrp-mkp .ad a
{color:#0000ff;text-decoration:none;}#ygrp-sponsor #ygrp-lc
{font-family:Arial;}#ygrp-sponsor #ygrp-lc #hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#ygrp-sponsor #ygrp-lc .ad
{margin-bottom:10px;padding:0 0;}#actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#activity
span {font-weight:700;}#activity span:first-child
{text-transform:uppercase;}#activity span a
{color:#5085b6;text-decoration:none;}#activity span span
{color:#ff7900;}#activity span .underline {text-decoration:underline;}.attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}.attach div a {text-decoration:none;}.attach img
{border:none;padding-right:5px;}.attach label
{display:block;margin-bottom:5px;}.attach label a
{text-decoration:none;}blockquote {margin:0 0 0 4px;}.bold
{font-family:Arial;font-size:13px;font-weight:700;}.bold a
{text-decoration:none;}dd.last p a
{font-family:Verdana;font-weight:700;}dd.last p span
{margin-right:10px;font-family:Verdana;font-weight:700;}dd.last p
span.yshortcuts {margin-right:0;}div.attach-table div div a
{text-decoration:none;}div.attach-table {width:400px;}div.file-title a,
div.file-title a:active, div.file-title a:hover, div.file-title a:visited
{text-decoration:none;}div.photo-title a, div.photo-title a:active,
div.photo-title a:hover, div.photo-title a:visited
{text-decoration:none;}div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}.green
{color:#628c2a;}.MsoNormal {margin:0 0 0 0;}o {font-size:0;}#photos div
{float:left;width:72px;}#photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#reco-category
{font-size:77%;}#reco-desc {font-size:77%;}.replbq {margin:4px;}#ygrp-actbar
div a:first-child {margin-right:2px;padding-right:5px;}#ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#ygrp-mlmsg
table {font-size:inherit;font:100%;}#ygrp-mlmsg select, input, textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#ygrp-mlmsg pre, code {font:115%
monospace;}#ygrp-mlmsg * {line-height:1.22em;}#ygrp-mlmsg #logo
{padding-bottom:10px;}#ygrp-msg p a {font-family:Verdana;}#ygrp-msg
p#attach-count span {color:#1E66AE;font-weight:700;}#ygrp-reco #reco-head
{color:#ff7900;font-weight:700;}#ygrp-reco
{margin-bottom:20px;padding:0px;}#ygrp-sponsor #ov li a
{font-size:130%;text-decoration:none;}#ygrp-sponsor #ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#ygrp-sponsor #ov ul
{margin:0;padding:0 0 0 8px;}#ygrp-text {font-family:Georgia;}#ygrp-text p
{margin:0 0 1em 0;}#ygrp-text tt {font-size:120%;}#ygrp-vital ul li:last-child
{border-right:none !important;}
