Slamat Siang Trima kasih Mas Agus ternyata saya telah menemukannya ternyata
dengan menambah Range("E3").Value = TextBox1 pada awal, dan berhasil.
Private Sub TextBox1_Change()
Range("E3").Value = TextBox1
If Range("E3")...Value <= 700 Then
MsgBox ("LIMIT UKURAN TIDAK SESUAI (7002400)")
Letakkan pada tombol validasinya saja, jangan pada textbox change.
misalnya tombol OK.
On 10/14/2019 09:39, Budi Priyo monexd...@gmail.com [belajar-excel] wrote:
Maaf Mas Agus
Sudah saya coba tapi baru di ketik satu angka sudah tampil msgbox nya,
dimana meletakkan codingnya?
Trima kasih
Pada
Maaf Mas Agus
Sudah saya coba tapi baru di ketik satu angka sudah tampil msgbox nya,
dimana meletakkan codingnya?
Trima kasih
Pada tanggal Jum, 11 Okt 2019 pukul 21.10 Agus nanga...@gmail.com
[belajar-excel] menulis:
>
>
> Dear Mas Budi,
> bagaimana kalau begini?
>
> If TextBox1.Value < 100
Dear Mas Budi,
bagaimana kalau begini?
If TextBox1.Value < 100 Then
MsgBox "Kekecilen"
TextBox1.SetFocus
End If
If TextBox1.Value > 500 Then
MsgBox "Kebesaren"
TextBox1.SetFocus
On 10/11/2019 16:39, Budi Priyo monexd...@gmail.com [belajar-excel] wrote:
Salam Sejahtera teman2 semua
Saya minta
Wa'alaikumsalam wr. wb.,
imho,
jika TextBox yang diubah dan si cel berubah mengikuti isi dari TextBox,
maka hal tersebut dapat dilakukan memanfaakan event Change milik
TextBox,sedangkan jika yang dilakukan adalah sebaliknya yaitu perubahan
dilakukan di dalam cel dan nilai dari TextBox mengikuti
Alhamdulillah berhasil juga..
Makasih Miss Jan Raisin
From: Jan Raisin miss.jan.rai...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Wednesday, April 2, 2014 1:34 PM
Subject: Re: [belajar-excel] TextBox otomatis
Wa'alaikumsalam wr. wb.,
thread ini
Hai Haris,
1. Bagaimana formulasi yang harus saya buat agar sistem baru membaca
setelah data yang saya input penuh 4 karakter.
sudah dibahas di email yang lalu kan ya (
https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/30083
)
bunyinya begini :
2. nilai data yang dicari
Assalamu'alaikum Mr.Kid
Saya sudah coba seperti yang Mr. Kid sarankan termasuk pada saran Mr. Kid yang
terdahulu.
Berikut script yang saya tuliskan:
if len(skey)4 then
msgboxData tidak ditemukan...
exit sub
endif
Set rgFind = Range(b:b).Find(sKey, lookat:=xlWhole)
وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
script yang diubah adalah yang berwarna biru
sKey = TextBox1.Text
TextBox2.Text = vbNullString
TextBox3.Text = vbNullString
if len(sKey) 4 then
exit sub
end if
Set rgFind = Range(b:b).Find(sKey,
Alhamduliullah hirobbil'alamiin
Terimakasih Mis. Jan Raisin, hasilnya sudah seperti yang saya maksud.
Semoga MIlis ini semakain ramai pengunjung membernya, serta tetep
terpelihara karena sangat berguna terutama bagi yang awam excel seperti saya.
Sekali lagi terimaksih Mis. Jan Raisin
Hai Haris,
pada textbox 1 dikasih event change, lalu diberi script seperti ini:
Dim sKey As String
Dim rgFind As Range
sKey = TextBox1.Text ' simpan nilai textbox 1 ke dalam
variabel
TextBox2.Text = vbNullString ' hapus isi textbox 2
TextBox3.Text =
Pinjam script-nya ya miss...
mo nambahin dikit... sapa tahu ada gunanya...
Dugaan :
1. bisa jadi nanti akan menjadikan userform sebagai alat edit juga.
baris deklarasi variabel range diubah agar ber-scope module dengan
memindahkan dan mengubah scope baris berbunyi :
Dim rgFind As Range 'yang
Terimakasih Mis Jan Raisin, sudah saya coba dan hasilnya sesuai yang saya
maksud.
Betul apa yang disampaikan Mr. Kid, coding tersebut memang saya aplikasikan
dalam userform. Dan terimaksih banyak juga buat Mr. Kid atas tambahan
masukannya.
Saya harap tidak bosen jika saya akan banyak
Workbook contoh disertai ilustrasi kebutuhan dan penjelasan yang lengkap
akan lebih membantu BeExceller yang ingin menanggapi.
Wassalam,
Kid.
2013/12/19 respati...@gmail.com
Dear Para Master,
Langsung pada pertanyaan ya...
Saya membuat textbox pada userform,
Yang saya inginkan bagaimana
Hai Mike,
misal :
1. textbox bernama txtLookUp
2. combo box bernama combobox1
3. nama range test memiliki scope workbook
Coba buat event combobox change. Isi dengan script :
'jika kolom pertama dari range bernama test bertipe numerik bilangan
bulat,
'ganti : combobox1.text menjadi
15 matches
Mail list logo