Selamat Malam Adha,
Pertama :
Gunakan event lost focus atau before update. Pada file terlampir menggunakan event Lost Focus.
Private Sub TextBox2_LostFocus()
Dim sTeks As String
sTeks = Trim$(TextBox2.Text)
If LenB(sTeks) <> 0 Then
If InStr(sTeks, " ") = 0 Then
MsgBox "Nama :: Minimal 2 kata." & vbCrLf & vbCrLf & _
"Silakan diperbaiki.", vbExclamation, "Nama :: Error"
TextBox2.Activate
End If
End If
End Sub
Kedua :
Cara 1 :
baca nilai dimasing-masing textbox nilai sekalian dijumlahkan (masuk ke satu variabel) lalu dikalkulasi average dengan membagi jumlah textbox yang terisi nilai. Proses ini diletakkan pada event click dari tombol Hitung rerata.
Cara 2 :
manfaatkan properti Linked cells pada textboxes nilai dan nilai akhir. Isi cell linked ke nilai akhir dengan formula average atau cara hitung rerata yang digunakan.
kemudian pada event click hitung rerata, isi dengan :
ActiveSheet.Calculate
sebagai antisipasi jika Excel Calculation diset manual oleh user.
File terlampir menggunakan cara 2.
Regards.
Kid.
gmana cara membuat validation rule yg harus diisi minimal 2 kata di text box..selamat malam semua..
apa kabar??
semoga dalam keadaan sehat selalu..amin
mohon maaf..
file yg terlampir tadi salah,,,
yg pertama:
mw nanya sama master2 excel nih,,
contoh: textbox nama harus 2 kata..
gmana caranya supaya kalo diisi tidak minimal 2 kata akan muncul pesan eror..
yg kedua:
gmana sih caranya jika command button hitung rerata itu di klik,maka nilai yg di input pada juri 1,2,dan 3
sudah menjadi rata2 di textbox nilai akhir...
terima kasih sebelumnya...
file terlampir..
| selamat idul fitri, mohon maaf lahir dan batin... |
| www.linkedin.com/company/xl-mania |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário