Dear Pak Hendrik:Selamat malam, saya menggunakan cekript di bawah pada Visual
Basic 6.0. dicoba dahulu pak Hendrik semoga berfungsi dikomputer pak Hendrik.
saya pakai juga di Excel 2007 berfungsi normal.
Option Explicit
Sub SerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Obj
Dear Roni, Maksud Cekript Mr Kid begini:
Private Sub Txt8_Change()
Dim tgl As Date 'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd--") 'kemudian tambahkan dengan
jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil (Txt10=).
End Sub
Dear Y roni,Coba gunakan cekrip: TI.Txt5.Value =
LBFILTER.List(LBFILTER.ListIndex, 1)
TI.Txt6.Value = LBFILTER.List(LBFILTER.ListIndex, 2)
salam
On Saturday, May 19, 2018, 7:18:40 AM GMT+7, y.ron...@yahoo.com
[belajar-excel] wrote:
Dear Mr Kid,
Mohon dibantu1. Saat Saya Double
3 matches
Mail list logo