Buat event workbook open :
>> ke VBE -> object ThisWorkbook -> lihat lembar kanannya -> pilih combobox
kiri : workbook -> pilih combobox kanan : open
Isi dengan :
Dim rng As Range, rngTgl As Range
Dim lFail As Long
Dim dtKini As Date
Set rngTgl =
Sheet1.Range("d3").Resize(Workshee
Di object sheet-nya si option
Buat event change dari checkbox1 dan checkbox2 (2 prosedur event change)
isi dengan perintah untuk set visible sheet
Private Sub CheckBox1_Change()
Sheet2.Visible = CheckBox1.Value
Sheet3.Activate
End Sub
Private Sub CheckBox2_Change()
Sheet1.Visible = Che
Mungkin lebih baik begini, menyendiri di sudut kota ini.
(pulang ngamen masih ingat lagu yg tadi saya nyanyikan)
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Sheets("1").Visible = xlSheetVisible
Else
Sheets("1").Visible = xlHidden
End If
End Sub
Private Sub CheckBox2_Click()
If
Setelah workbook dibuka, script akan mulai membaca tabel dan bila ada cell yg
kosong (B2,B2) (contoh tabel dibawah) dengan cell menunjukkan tanggal kemarin
atau 2 hari lalu (A2,A2) atau (A3,A3) dan alert akan muncul
logika sederhananya
JIKA tanggal hari ini ( tanggal 22 Juni ) > tanggal hari ini
Misal data jam awal (dalam desimal) di A2 dan jam akhir (dalam desimal) di
B2 :
=INT(FLOOR(B2+0.02,0.3)-A2)+MOD(FLOOR(B2+0.02,0.3),1)/0.6
Wassalam,
Kid.
2012/6/22 tuti andrayani
> **
>
>
> Dear All,
>
> Mohon pencerahannya, apabila saya ingin menghitung durasi antara 2 waktu
> dalam desimal 0,5
Kapan alert akan muncul ?
Saat diinput tanggal ? saat buka workbook ? saat ada cell berubah isi ?
saat pencet tombol cek ? atau kapan ?
Kid.
2012/6/22 Leonardo Endry widodo
> **
>
>
> Dari hasil script dibawah, script akan meloop sebanyak n (5000x) dengan
> mengabaikan kondisi-kondisi if.
> Mak
yg pendek saja mbak, karena nilai dropdwon itu adalah Bilangan
(index baris range yg dirujuk), tidak seperti yg tampak di dropdownnya;
dan tabel juga punya index, jadi tinggal ambil berdasarkan alamat
Cell(RowIdx,ColumnIdx) saja
tidak perlu membuat select case sebanyak data tabel yg ada
Kalau jml m
coba formula berikut:
=IFB2-A2)*24)-INT((B2-A2)*24))>0,45;INT(((B2-A2)*24))+0,5;INT(((B2-A2)*24)))
mungkin member miliis yang lain bisa memberikan solusi yang lebih baik
-dwint-
Pada 22 Juni 2012 10:11, tuti andrayani menulis:
> **
>
>
> Dear All,
>
> Mohon pencerahannya, apabila saya ing
Mungkin file terlampir bisa membantu memberi penjelasan.
Isinya sekedar celotehan tentang :
1. pengaruh tipe data pada kegiatan me-lookup data,
2. nama range dan cara merujuk nama range secara tidak langsung untuk data
yang terdiri dari tabel grup dan tabel-tabel sub grup,
3. beberapa bentuk umum p
help
apakah ada yg salah dengan kode ku di vb yah?
kenapa saat pilih nama di combo box nya kok gak otomatis tertulis di worksheet
form?
makasih...
Ambil Data.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
ternyata pak widodo aji tidak sedang membuat database, tetapi sekedar
TULISAN-TULISAN
di cel-cel excel yg tidak harus berkaidah database.
jadi (kalau begitu) barangkali kita perlu mengkonversi data-datanya menjadi
TABEL atau LIST (lha wong sheet datanyapun tidak pernah ada /dikirimkan ke
milis, pa
Selamat pagi para pakar
Mohon bantuannya untuk case terlampir
Saya mau menggunakan chekbok untuk memunculkan dan menyembunyikan sheet
Pada posisi pertama ke dua sheet tersembunyi dan bergantung kepada clck
chekbox nya
dan pada saat close pun hanya sheet yg di click yg tetap muncul
Salam
YR
Che
Dari hasil script dibawah, script akan meloop sebanyak n (5000x) dengan
mengabaikan kondisi-kondisi if.
Maksud awal utk di buatnya message alert ini yaitu
message alert akan tampil jika pada kolom B bernilai blank/ kosong dan tanggal
1 hari / 2 hari dari tanggal sekarang
misal
Hari ini tanggal
Dear All,
Mohon pencerahannya, apabila saya ingin menghitung durasi antara 2 waktu dalam
desimal 0,5 an dengan toleransi 2 menit bagaimana rumusnya?
Misal :
10.00 - 15.27 durasinya adalah 5 jam
10.00 - 15.28 durasinya adalah 5,5 jam
10.00 - 15.32 durasinya adalah 5,5 jam
Thanks
Tuti
For ... Next adalah sebuah blok script loop
IF ... END IF adalah sebuah blok script kondisi
Sebuah blok script bisa ada dalam blok script yang lain, tetapi tidak boleh
bersilangan.
Contoh blok script dalam blok script lain (nested)
FOR bla=bli to blo
IF klu=klo THEN
dari informasi yg sy dapatkan, saya mencoba utk m'buat scriptnya dan pada saat
di run terdapat error yaitu Next without For.
dari script yg coba sy buat, dimanakah letak kesalahannya (mav,masih newbie
otodidak) dilihat dari penulisan nama variabelnya
sudah sesuai dengan yg di deklarasikan.
beriku
coba ubah bentuk data base seperti file terlampir, gunakan format cell
Custom 000 untuk kode desa dan kecamatan
untuk mencari nama desa berdasarkan kode kecamatan yang tepat gunakan
formula Index(Match())
-dwint-
Pada 22 Juni 2012 08:26, bagus menulis:
> **
>
>
> **
> Dear Sexomad;
>
> Mungki
Pertanyaan 1:
mengapa E15 ketika angkanya diganti semisal 170 yang seharusnya muncul
kecamatan "CISOLOK" pada kolom H16 kok jadi #N/A ..?
Jawab:
Karena data dalam cell B14 s/d B23 bertipe TEXT sehingga jika cell E15
diisi dengan angka 170 yang bertipe NUMBER akan menghasilkan data #N/A. Hal
in
Dear, sahabat semuanya, saya punya beberapa pertanyaan (sebagaimana file
terlampir) yang membingungkan bagi saya, barangkali atau mungkin bagi
teman-teman semua itu hal yang mudah. nah..! untuk itu, saya mohon maaf karena
akan berbagi kesusahan dengan kalian. Pokoknya saya percaya dengan kawan-k
Coba tutup semua excel, dan mulai buka dari file tersebut. Kemudian di coba
klik shapenya, save.
Kid.
2012/6/22 Absolute - Udin
> **
>
>
> maklumi sy yg byk mau tp sedikit mampu
> Set rngShp = Sheet1.Shapes(sShpName).TopLeftCell
>
> "the item with the specified name wasn't found"
> apa yg salah
maklumi sy yg byk mau tp sedikit mampu
Set rngShp = Sheet1.Shapes(sShpName).TopLeftCell
"the item with the specified name wasn't found"
apa yg salah dan kenapa begitu kalau sy terapkan selain di file lampiran?
Dari: Kid Mr.
Kepada: belajar-excel@yahoogroups.co
Sepertinya sudah dicoba dan sudah memahami dampak dari proses yang namanya
loop.
Jadi loop akan mengulang-ulang proses. Loop dengan For Next, akan
menambahkan nilai dalam variabel yang digunakan pada baris For.
Pada For lBaris=3 to 5000, maka nilai lBaris akan berubah dari 3 sampai
5000.
Loop den
cells( row_index , column_index )
Nanti bisa diisi dengan varibale yang menyimpan data angka, kemudian nilai
dalam variabel itu diganti melalui suatu proses loop.
Misal :
dim lBaris as long
for lBaris=3 to 5000
IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = ""
then
Kl sy coba artikan berarti untuk bagian rngdataku.cells(1,1).value = "" harus
dilakukan berulang kali sampai ke rngdataku.cells(n,n) ???
atau bagaimana ?
From: Kid Mr.
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 21, 2012 4:30 PM
Subject: Re: [belaj
oops salah...
jika variabel today diberi () maka menjadi variabel array.
Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah
variabel,
dim dtTglHariIni as date
dttglhariini=date
jika ingin menyimpan suatu object range dalam sebuah variabel,
dim rngDataKu as range
set rngdataku=
Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch pada tanda -
Sub Test()
Dim today() As Date
Dim range As range
If today() > today() - 1 and range("E3:e5000") = "" Then
a = MsgBox("test")
ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
b = MsgBox("test")
Else: c =
Terima kasih Mr. Kid atas trick nya. Sangat membantu :)
-Original Message-
From: "Kid Mr."
Sender: belajar-excel@yahoogroups.com
Date: Thu, 21 Jun 2012 05:19:47
To:
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tanya: mencari posisi ke-?
Fungsi-fungsi dalam grup l
Coba ganti & dengan AND
Kid.
2012/6/21 Leonardo Endry widodo
> **
>
>
> Kakak" yg ganteng" dan cantik", mohon bantuannya untuk menampilkan message
> alert dengan kriteria tertentu
> Sample file dan keterangan lainnya include didalamnya.
>
> Terima Kasih.
>
>
>
Tambahkan prosedur ini pada sebuah module
Public Sub Cari()
Dim lRec As Long, sQuery As String
On Error Resume Next
sQuery = "SELECT * FROM table1 WHERE 1=1"
If LenB(Range("c8").Value) <> 0 Then
sQuery = sQuery & " AND VARIETY='" & Range("c8").Value & "'"
End If
If
29 matches
Mail list logo
