4 Messages
Digest #3980
Messages
Fri Sep 30, 2016 10:04 pm (PDT) . Posted by:
praztmath
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
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(
Summing
End Sub
Private Sub TextBox5_Change(
If TextBox5.Value = "" Or TextBox6.Value = "" Then
TextBox7.Value = ""
Exit Sub
End If
TextBox7.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox8_Change(
If TextBox8.Value = "" Or TextBox9.Value = "" Then
TextBox10.Value = ""
Exit Sub
End If
TextBox10.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox11_Change(
If TextBox11.Value = "" Or TextBox12.Value = "" Then
TextBox13.Value = ""
Exit Sub
End If
TextBox13.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox14_Change(
If TextBox14.Value = "" Then
TextBox14.Value = ""
Exit Sub
End If
TextBox14.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox15_Change(
If TextBox15.Value = "" Then
TextBox15.Value = ""
Exit Sub
End If
TextBox15.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox25_Change(
If TextBox25.Value = "" Then
TextBox25.Value = ""
Exit Sub
End If
TextBox25.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox26_Change(
If TextBox26.Value = "" Then
TextBox26.Value = ""
Exit Sub
End If
TextBox26.Value = Format(CDbl(
Summing
End Sub
'menampilkan total
Private Sub CommandButton7_
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(
End Sub
Sent from Mail for Windows 10
Fri Sep 30, 2016 10:41 pm (PDT) . Posted by:
"Toby kenzo" tobykenzo
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, praztmath@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> 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;}
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, praztmath@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> 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(
Summing
End Sub
Private Sub TextBox5_Change(
If TextBox5.Value = "" Or TextBox6.Value = "" Then
TextBox7.Value = ""
Exit Sub
End If
TextBox7.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox8_Change(
If TextBox8.Value = "" Or TextBox9.Value = "" Then
TextBox10.Value = ""
Exit Sub
End If
TextBox10.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox11_Change(
If TextBox11.Value = "" Or TextBox12.Value = "" Then
TextBox13.Value = ""
Exit Sub
End If
TextBox13.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox14_Change(
If TextBox14.Value = "" Then
TextBox14.Value = ""
Exit Sub
End If
TextBox14.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox15_Change(
If TextBox15.Value = "" Then
TextBox15.Value = ""
Exit Sub
End If
TextBox15.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox25_Change(
If TextBox25.Value = "" Then
TextBox25.Value = ""
Exit Sub
End If
TextBox25.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox26_Change(
If TextBox26.Value = "" Then
TextBox26.Value = ""
Exit Sub
End If
TextBox26.Value = Format(CDbl(
Summing
End Sub
'menampilkan total
Private Sub CommandButton7_
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(
End Sub
Sent from Mail for Windows 10
-- #ygrp-mkp {border:1px solid #d8d8d8;font-
Fri Sep 30, 2016 10:46 pm (PDT) . Posted by:
"Toby kenzo" tobykenzo
blockquote, div.yahoo_quoted { margin-left: 0 !important; border-left:1px #715FFA solid !important; padding-left:1ex !important; background-color:white !important; } Hai Prazt,
Sudah pernah belajar tentang Deklarasi, coba kamu pelajari tentang deklarasi di VBA.Tanda "+" bisa berarti penggabungan bukan penjumlahan.
TerimaKasih.
Dikirim dari Yahoo Mail untuk iPad
Pada Sabtu, Oktober 1, 2016, 12:04 PM, praztmath@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> 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;}
Sudah pernah belajar tentang Deklarasi, coba kamu pelajari tentang deklarasi di VBA.Tanda "+" bisa berarti penggabungan bukan penjumlahan.
TerimaKasih.
Dikirim dari Yahoo Mail untuk iPad
Pada Sabtu, Oktober 1, 2016, 12:04 PM, praztmath@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> 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(
Summing
End Sub
Private Sub TextBox5_Change(
If TextBox5.Value = "" Or TextBox6.Value = "" Then
TextBox7.Value = ""
Exit Sub
End If
TextBox7.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox8_Change(
If TextBox8.Value = "" Or TextBox9.Value = "" Then
TextBox10.Value = ""
Exit Sub
End If
TextBox10.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox11_Change(
If TextBox11.Value = "" Or TextBox12.Value = "" Then
TextBox13.Value = ""
Exit Sub
End If
TextBox13.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox14_Change(
If TextBox14.Value = "" Then
TextBox14.Value = ""
Exit Sub
End If
TextBox14.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox15_Change(
If TextBox15.Value = "" Then
TextBox15.Value = ""
Exit Sub
End If
TextBox15.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox25_Change(
If TextBox25.Value = "" Then
TextBox25.Value = ""
Exit Sub
End If
TextBox25.Value = Format(CDbl(
Summing
End Sub
Private Sub TextBox26_Change(
If TextBox26.Value = "" Then
TextBox26.Value = ""
Exit Sub
End If
TextBox26.Value = Format(CDbl(
Summing
End Sub
'menampilkan total
Private Sub CommandButton7_
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(
End Sub
Sent from Mail for Windows 10
-- #ygrp-mkp {border:1px solid #d8d8d8;font-
"PERATURAN MILIS belajar-excel"
------------
Milis belajar-excel dibuat agar menjadi komunitas / tempat berkumpulnya
para pemakai software microsoft excel, untuk saling berbagi pengetahuan
(sharing), diskusi dan tanya-jawab hal-hal yg menyangkut MS Excel.
Setting untuk posting di milis ini masih dipertahankan = "UnModerated&q
(member dapat mengirim posting, tanpa melalui moderasi dan langsung
masuk ke message-list di milis).
Posting pertama & kedua dari member yg baru bergabung harus menunggu
approval dari moderators. Jika dinilai wajar, posting selanjutnya tidak
perlu approval lagi.
Hal ini adalah demi menjadikan milis lebih dinamis, posting tidak
tertunda, diskusi lebih hidup.
Tetapi konsekwensinya, kita sebagai members harus punya niat untuk
menjaga milis ini tetap bersih, enak diikuti, yaitu dengan TIDAK
mengirim posting berisi hal yg mubazir, yg di luar topik, yg "nyampah"
apalagi yg memicu timbulnya pertengkaran yg tidak perlu.
Setiap saat para Moderators akan melihat-lihat lagi msg list, dan akan
membersihkan message list dari posting sampah yg tidak perlu.
Untuk itu kita perlu kesepakatan sebagai berikut:
A. SANGAT DIHARAPKAN:
============
(1)
Posting dari member berupa: share pengetahuan, pertanyaan, jawaban dan/
atau komentar dan tanggapan yg masih relevan dengan pertanyaan/posting;
semuanya harus sekitar atau ada hubungannya dengan Microsoft Excel.
(2)
Size Lampiran dlm rangka memperjelas kasus/penjelasan, agar diupayakan
tidak lebih dari 250KB, jika perlu dicompressed dulu.
(3)
Posting pertanyaan dialamatkan hanya kepada alamat milis, (jangan ke
alamat owner)
(4)
Semua mail dikemukakan secara santun, ceria, menyenangkan, boleh lucu,
saling menghormati, menjauhkan dari masalah SARA.
B. SANGAT TIDAK DIHARAPKAN:
============
(1)
Mail yg isinya melecehkan, menghina fihak lain, berbahasa kasar, memicu
pertengkaran dsb.
(2)
Posting "too good to be true" misalnya "jualan" (MLM), spam, money game,
hoax, mail berantai dan iklan (tanpa lebihdulu mendapat ijin dari owner).
(3)
Cross-posting (mengirim 1 mail sekaligus kepada lebih dari satu milis /
address tujuan).
(4)
Mail yg ditulis dengan ukuran, bentuk/warna font dan cara yg di luar
kewajaran, sehingga menyulitkan pembacaan.
(5)
Mail tanpa judul/subject dan/atau tanpa isi, walaupun melampirkan penjelasan.
(6)
Menyertakan link yang merujuk kepada halaman yang berisi iklan produk /
informasi yang tidak berhubungan dengan Excel / pertanyaan.
C. LAIN LAIN:
========
Saran & Tips menulis mail / posting ke milis:
------------
(a)
Berikan subject yg isinya mewakili kasus yg akan ditulis.
Hindari subject yg tidak jelas dan terlalu general (misal "tolong"
"help"
(b)
Ikuti Subject yg telah ada, (dengan meReply), hanya jika masalah yg akan
ditulis masih berkaitan.
Mengubah Subject (misal dgn menambah kata "Balasan" / "Solusi" /
"Tanggapan&quo
suatu topik, oleh karena itu jangan dilakukan.
Jika anda akan mengajukan topik/kasus baru yg tidak berkaitan dengan
topik yg telah ada, buatlah Subject baru, dengan Compose / New Mail.
JANGAN dengan cara mereply subject yg ada lalu mengganti subjecnya.
(c)
Terutama pada posting pertanyaan/request, tuliskan masalah dengan jelas
di badan email. Penjelasan lebih rinci dapat ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls), dengan nama-file
yang spesifik.
(d)
Posting tanggapan/jawaban hendaknya ditulis secara 'top-posting&#
ATAS "quoted mail" yg ditanggapi, demi mempermudah pembacaan.
'Quoted mail' tidak harus disertakan semua, cukup 1 atau maximal 2 mail
terdahulu.
(e)
Footer yg tidak perlu hendaknya dihapus dulu sebelum mail Anda kirimkan.
Mengenai OOT dan VOOT
------------
Di luar 3 jenis posting di atas, yi: DISKUSI yg berisi sharing,
pertanyaan, tanggapan) akan dianggap Out of Topic (OOT) atau bahkan
VOOT (very out of topic).
Kategory OOT akan dipertimbangkan kasus-demi-kasus dengan kriteria
"manfaat positif bagi komunitas kita".
Kategory OOT atas pertimbangan khusus, misalnya demi kepentingan yg
mendesak dan penting, atau demi "kemanusiaan&q
Jika tidak memenuhi kriteria akan didelete dengan atau tanpa pemberi-
tahuan kpd member.
Kategory VOOT, posting akan langsung didelete, pengirim akan diberi
teguran.
VOOT kedua dari pengirim yg sama akan menyebabkan member ybs didisabled
sementara kemampuan postingnya.
Kelanjutan dari suatu diskusi tanya-jawab, masih layak diposted ke milis,
misal hanya ucapan terima kasih atau pun sejenis konfirmasi bahwa suatu
solusi sudah diterima dan dapat dipakai dsb, ini dapat golongkan sbg OOT
yg masih layak tayang.
Kelanjutan pembicaraan yg sudah tidak relevan lagi bagi member lain,
dapat anda teruskan melalui 'japri&#
Kritik dan saran kepada milis 'belajar-
------------
Kritik dan saran diluar masalah excel demi perbaikan milis ini dapat
disampaikan ke owner / moderators
Hak dan wewenang Moderators
------------
Moderators berhak setelah mempertimbangkan hal-hal diatas untuk
memberikan kartu kuning atau langsung kartu merah dan/atau
mem-banned members yang melakukan pelanggaran rules milis ini.
Himbauan dari milis 'belajar excel' kpd members
------------
Diharapkan para members terus meningkatkan pengetahuannya mengenai
kelaziman cara bermilis & ber-net-ria secara umum.
Perlu selalu disadari bahwa di dunia internet, sama dengan dunia kita
sehari hari.
Jika di dunia nyata kita mengenal "etika / ettiquettes"
ada semacam etika umum yg lazim disebut "nettiquette&q
Kalau anda sering tidak mengindahkan "nettiquettes&
yg menangkap anda; tetapi lama-lama anda akan dijauhi banyak rekan,
karena mereka tentu merasa tidak nyaman ber-korespondensi dengan anda.
Sebagai Members of "milis belajar-excel" dan sebagai 'netter sejati',
anda tentu tidak suka kalau harus dicap sebagai "tidak nettis" yang
artinya setara dgn "tidak etis".
------------
revisi 2: tgl 02Des2013 / dwint
# penambahan point B.6.
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar