[belajar-excel] Digest Number 1405

Milis Belajar Microsoft Excel

Messages In This Digest (7 Messages)

1a.

Memodifikasi TextBox di UserForm From: Yoni Wibawa Abdillah

1b.

Re: Memodifikasi TextBox di UserForm From: Haps

1c.

Re: Memodifikasi TextBox di UserForm From: Kid Mr.

2.

backup file From: R T Gultom

3.

Data grid vba From: ppc lambda

4.

Chatting pada program Excel From: Harry

5.

ambil data dengan kriteria From: Darto Chandra

View All Topics | Create New Topic

Messages

1a.

Memodifikasi TextBox di UserForm

Posted by: "Yoni Wibawa Abdillah" yoniwibawa@yahoo.co.id   yoniwibawa

Sun Nov 20, 2011 7:58 pm (PST)

Dear Pakar Excel,

Mohon bantuan.

Pada file terlampir,saya menghendaki TextBox di UserForm bisa dimodifikasi untuk meng-input data (seperti NPWP misalnya) saat form di-inisialisasi, dgn format misal: (    -     -      -       ), dimana spasi kosong akan diisi dengan angka (nomor NPWP). Kemudian nilai di TextBox dimasukkan ke cells dgn Command Buton Input Data.

Terima kasih dan mohon maaf bila hal ini sudah pernah dibahas di Milis ini.

yoni

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

1b.

Re: Memodifikasi TextBox di UserForm

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Mon Nov 21, 2011 12:48 am (PST)

Daripada menggunakan TEXTBOX mungkin lebih mudah jika bung Yoni menggunakan
MASKEDBOX karena ia memang dibuat khusus untuk keperluan seperti itu
(mask). Sebelum memakai sebaiknya cari penjelasannya dulu di MSDN:
http://msdn.microsoft.com/en-us/library/ms234872(v=vs.80).aspx
karena di situ, semua membersnya (Properties, Methods dan Events, dan
segala parametersnya) dijelaskan semua.
Jadi nantinya kita tidak kebanyakan pertanyaan mengenai pemakaiannya.

Object control ini sepertinya tidak disediakan langsung oleh VBA, tetapi
karena di komputer kita diinstall VB6, maka object control tsb ada.
Keberadaannya memerlukan file : *MsMaskEdBox.OCX* yg biasanya ada di
C:\Windows\System32

Berikut contoh makro di module Userform yg didalamnya ditanamkan sebuah
MaskEditBox

Dim Tbl As Range, NewRo As Long

*' coded by Hapsari // smg, Nov 21, 2011*
*' milis BeExcel Case # 14120*
*'------------------------------------------*

Private Sub UserForm_Initialize()
MaskEdBox1.Mask = "##-###-###-#-###-###"
End Sub

Private Sub UserForm_Activate()
Set Tbl = Sheets("Sheet1").Range("B5")
NewRo = Tbl.CurrentRegion.Rows.Count
Set Tbl = Tbl.Offset(1, 0)
MaskEdBox1.SelStart = 0
MaskEdBox1.SelLength = 1
MaskEdBox1.SetFocus
End Sub

Private Sub CommandButton1_Click()
Tbl(NewRo, 1) = NewRo
Tbl(NewRo, 5) = MaskEdBox1
Tbl(NewRo, 7) = TextBox1
unload Me
End Sub

2011/11/21 Yoni Wibawa Abdillah <yoniwibawa@yahoo.co.id>
>
> Dear Pakar Excel,
> Mohon bantuan.
> Pada file terlampir,saya menghendaki TextBox di UserForm bisa
dimodifikasi untuk meng-input data (seperti NPWP misalnya) saat form
di-inisialisasi, dgn format misal: ( - - - ), dimana
spasi kosong akan diisi dengan angka (nomor NPWP). Kemudian nilai di
TextBox dimasukkan ke cells dgn Command Buton Input Data.
> Terima kasih dan mohon maaf bila hal ini sudah pernah dibahas di Milis
ini.
> yoni

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

1c.

Re: Memodifikasi TextBox di UserForm

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Mon Nov 21, 2011 3:08 am (PST)

Coba event-event berikut ini :

Private Sub CommandButton1_Click()
MsgBox "Output disertai formatnya : " & TextBox1.Text & vbCrLf & _
"Output tanpa formatnya : " & Replace$(TextBox1.Text, "-",
vbNullString)
End Sub

Private Sub TextBox1_Change()
Dim sTeks As String, sChar As String
Dim lChar As Long

Application.EnableEvents = False
sTeks = Replace$(TextBox1.Text, " ", vbNullString)
sTeks = Replace$(sTeks, "-", vbNullString)
lChar = 1
Do While lChar <= Len(sTeks)
sChar = Mid$(sTeks, lChar, 1)
If InStr("0123456789", sChar) = 0 Then
sTeks = Replace$(sTeks, sChar, vbNullString)
Else
lChar = lChar + 1
End If
Loop
TextBox1.Text = Replace$(Trim$(Format$(Left$(sTeks, 15), "## ### ###
### ####")), " ", "-")
Application.EnableEvents = True
End Sub

Private Sub TextBox1_Enter()
TextBox1.SelStart = Len(TextBox1.Text)
End Sub

Wassalam,
Kid.

2011/11/21 Yoni Wibawa Abdillah <yoniwibawa@yahoo.co.id>

> **
>
>
> Dear Pakar Excel,
>
> Mohon bantuan.
> Pada file terlampir,saya menghendaki TextBox di UserForm bisa dimodifikasi
> untuk meng-input data (seperti NPWP misalnya) saat form di-inisialisasi,
> dgn format misal: ( - - - ), dimana spasi kosong akan
> diisi dengan angka (nomor NPWP). Kemudian nilai di TextBox dimasukkan ke
> cells dgn Command Buton Input Data.
>
> Terima kasih dan mohon maaf bila hal ini sudah pernah dibahas di Milis ini.
>
> yoni
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

2.

backup file

Posted by: "R T Gultom" ro_tag@yahoo.com   ro_tag

Sun Nov 20, 2011 8:45 pm (PST)

   Dear All,

Saya punya dua data di internal h_disk sama di external h_disk (backup)

setiap bulan saya bakcup file yang ada di internal h_disk dengan cara manual
agar saya bisa membuat backup cara automatic apakah bisa di VBA bisa (maksa)

kondisinya adalah folder, file nama yang sama tapi berbeda tanggal modificasinya dicopy  (ditimpa)
sedangkan folder, File yang nama dan modificasi sama maka tidak perlu dicopy (ditimpa)
mudah-mudahan ada yang bisa mengerti

Regards,

Gultom (kurang kerjaan)

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

3.

Data grid vba

Posted by: "ppc lambda" ppc_03@sami.co.id

Sun Nov 20, 2011 10:24 pm (PST)

Maize

para pakar excel
minta solusinya doong,
saya coba masukin DataGrid ke UserForm VBA excel kok tidak bisa ya???
file .OCX nya sudah di masukkan ke folder system32,refrences dan additional controls sudah di pilih/aktifkan

Terimakasih
Best Regard
<>.<>.<>.<>.<>.<>.
sidoel

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

4.

Chatting pada program Excel

Posted by: "Harry" hariansyahptk@yahoo.com   hariansyahptk

Mon Nov 21, 2011 3:56 am (PST)

Dear BeExellers,
 
Mhn informasi akan pertanyaan saya sbb:
Pada program Excel yang menggunakan fitur LAN,
bisa atau tidak jika kita ingin menjalankan 1 workbook dengan 2 PC yang menginput
data secara bersamaan yang hasilnya outputnya Update ke masing-masing PC…???
Sbgai penjelasan, jika PC 1 dan PC 2 sama-sama
membuka File “PERCOBAAN” pada waktu yang sama. Jika PC 1 menginput kata “NAMA”,
maka PC 2 dapat langsung mengetahui / membaca apa yang sedang di input PC 1
tersebut dan sebaliknya. Atau dengan penjelasan lain;  PC 1 dan PC 2 bisa melakukan Chatting
(berkomunikasi 2 arah pada waktu yang sama).
 
Jika hal tersebut diatas memungkinkan digunakan
pada program Excel, mohon dapat diinformasikan cara dan rumusnya.
 
Terima kasih atas berkenan informasi da/atau
rumusnya.
 
Regards,
 
 
Harry

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

5.

ambil data dengan kriteria

Posted by: "Darto Chandra" d_c@gmx.com

Mon Nov 21, 2011 4:58 am (PST)

Mohon bantuan para master untuk kasus saya seperti terlampir dalam file attach. Terima kasih

Darto Chandra
085881648818

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Recent Activity

•  25
  New Members

Visit Your Group

Yahoo! Groups

Mental Health Zone

Learn about issues

Find support

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Tips for a happy,

healthy home

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe