Selamat pagi teman-teman...
Ada beberapa hal yg ingin sy diskusikan
Misal sy membuat drop down list dari Data Validation di cell A1.Pada cell A5,
sy membuat formula/rumus yg merujuk pada cell A1(nilai/kategori yg dipilih dari
dropdown list tsb).Jadi nilai pada A5, akan berubah sesuai
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 Rahagung,
Menurut saya bergantung kebutuhan dan kerumitan formula, bisa dengan
macro bisa pula dengan formula.
dengan macro-pun dapat diproses di vba baru ditulis di cell, dapat pula
formula ditulis menggunakan VBA.
Sangat disarankan untuk menggunakan fitur yang sudah disediakan excel
Selamat pagi teman-teman...
Ada beberapa hal yg ingin sy diskusikan
Misal sy membuat drop down list dari Data Validation di cell A1.Pada cell A5,
sy membuat formula/rumus yg merujuk pada cell A1(nilai/kategori yg dipilih dari
dropdown list tsb).Jadi nilai pada A5, akan berubah sesuai
Untuk formula/rumus yg akan dimasukkan ke cell A5 tersebut sebenernya sangat
sederhana, karena hanya merujuk ke hasil pilihan di Drop Down List (yg dibuat
pake Macro) lalu ada sedikit perhitungan yg melibatkan 1 cell lain. Kira-kira
fitur apa yg bisa sy gunakan di excel untuk bisa mengakomodir
Menurut saya bisa saja dibuat formula di A5 tanpa makro
*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
*Sent:* Friday, January 25, 2019 7:12 AM
*To:* belajar-excel@yahoogroups.com
*Subject:* [belajar-excel] Drop Down List
Selamat pagi teman-teman...
Ada
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 Object
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 Tio,
Bisa dicoba Cekript ini:
Private Sub CommandButton1_Click()
Dim n As Single
Dim i As Single
Dim y As Single
Dim yy As Single
Dim ii As Single
yy = 1
n = Int(Len(TextBox1.Text) / 41)
For i = 1 To n
For ii = 41 + y To 41 + y + 12
If Mid(TextBox1.Text, ii, 1) = " " Then
y = ii
Exit For
9 matches
Mail list logo