'alamat range yang
panjang banget disimpan di cells a1
end with
lha wong sudah jelas bahwa :
object range menuntut, jika pakai notasi alamat bertipe string, maka maksimal
panjang karakter string alamat range-nya adalah 255 karakter.
sak jan-jan nya...
kalau area yang akan diprose
tidak bisa diperpendekkah ?
bukankah repot buanget penyesuaian baris kode-nya jika dilakukan insert atau
delete column atau row ?
ada baiknya dipilih metode lain saja deh...
gimana ?
hehehe
2018-05-15 12:47 GMT+07:00 Prazt Math praztm...@gmail.com [belajar-excel]
:
Selamat siang p
wong sudah jelas bahwa :
object range menuntut, jika pakai notasi alamat bertipe string, maka maksimal
panjang karakter string alamat range-nya adalah 255 karakter.
sak jan-jan nya...
kalau area yang akan diproses tersebut memiliki pola dan memiliki identifier,
mungkin ada lebih banyak cara yang bisa
s 'alamat range yang
panjang banget disimpan di cells a1
end with
lha wong sudah jelas bahwa :
object range menuntut, jika pakai notasi alamat bertipe string, maka maksimal
panjang karakter string alamat range-nya adalah 255 karakter.
sak jan-jan nya...
kalau area yang akan d
is kodenya
tidak bisa diperpendekkah ?
bukankah repot buanget penyesuaian baris kode-nya jika dilakukan insert atau
delete column atau row ?
ada baiknya dipilih metode lain saja deh...
gimana ?
hehehe
2018-05-15 12:47 GMT+07:00 Prazt Math praztm...@gmail.com [belajar-excel]
:
Selamat
Selamat siang para master, mohon pecerahannya, saya ingin membuat macro vba
untuk menghapus kolom nilai tetati terkendala, vba yang saya bikn seperti
berikut ;
Sub hapus1()
Range("F10").Select
Sheets("OlahNil").Select
Range("F10:I45,K10:N45,P10:S45,U10:X45,Z10:AC45,AE10:AH45,AJ10:AM
salam Warahmatullahiwabarakatuh.
Mas Prazt Math..
Pengubahan XML menjadi Excel jadwal anda lebih mudah menggunakan VBA, atau
Pivot
Pada lampiran saya mencoba menggunakan Formula untuk hari Senin jam ke-2, dan
ke-3, silahkan dikembangkan sesuai kebutuhan. Dengan sedikit cara tersebut
tentunya dapat digunakan se
Assalamu’alaikum
Siang para master, saya pernah membaca diskusi tentang “Insert foto otomatis
dari sebuah foldr” di milis ini
Kalau ga salah ini linknya dan di sana saya menemukan cekrip dari mr. kid yang
berbunyi ;
Isi object control activex image diganti dengan memanfaatkan event
worksheet ch
batasi banyak minimal dan maksimal penulisandi
TextBox
Coba:
If len(TextBox1.value) = then
' jalankan perintah penyimpanan
else
'Tuliskan pesannya kalau panjang textBox1 tidak sesuai
End If
2016-04-23 11:38 GMT+07:00 Prazt Math praztm...@gmail.com [belajar-excel]
:
rekan rekan
rekan rekan mohon bantuannya
saya membuat UserForm yang mana pada UserForm tersebut saya kasih TextBox,
katakanlah TextBox1 yang datanya nanti akan masuk pada Sheet1 Range (“A:A”)
yang berupa 4 digit angka (ankgka 0 boleh di depan) .
pertanyaan:
bagaimana cekripnya supaya user hanya bisa menginpu
arena di komputer saya
belum terpasang mscal.ocx
wasalamualaikumwarahmatullah
thole Agus
On 21/04/2016 16:55, Prazt Math praztm...@gmail.com [belajar-excel] wrote:
Assalamu’alaikum para master dan rekan rekan semua
Mohon penyelesaiannya pada kasus saya tentang menampilkan, edit dan sim
kembali tombol simpan, jika
kriteria tersebut tidak terpenuhi.
(CommandButton1.Visible = True)
untuk pertanyaan lainnya saya belum bisa mencobanya karena di komputer saya
belum terpasang mscal.ocx
wasalamualaikumwarahmatullah
thole Agus
On 21/04/2016 16:55, Prazt Math praztm...@gmail.com [belaj
kai vba dan gak pernah dibuka tutup proteksinya dan user
sama sekali tidak boleh ubah apapun selain ubah nilai di unlocked cells, bisa
proteksi dengan set properti userinterfacesonly bernilai TRUE saat menggunakan
methods protect pada sheet.
Regards,
Kid
2016-03-15 15:20 GMT+07:00 Prazt Ma
emunculkan
error tersebut (BUKAN BARIS memasang nilai Calendar Control)
2016-03-15 14:32 GMT+07:00 Prazt Math praztm...@gmail.com [belajar-excel]
:
Salam para master,
Saya menambahkan calendar control pada sheet1 di beberapa cell (cells
E17:E100), tetapi jika sheet1 tersebut saya pas
S memasang nilai Calendar Control)
2016-03-15 14:32 GMT+07:00 Prazt Math praztm...@gmail.com [belajar-excel]
:
Salam para master,
Saya menambahkan calendar control pada sheet1 di beberapa cell (cells
E17:E100), tetapi jika sheet1 tersebut saya password maka calendar tersebut
terjadi bug p
Salam para master,
Saya menambahkan calendar control pada sheet1 di beberapa cell (cells
E17:E100), tetapi jika sheet1 tersebut saya password maka calendar tersebut
terjadi bug pada VBAnya (seperti pada lampiran), padahal cells E17:E100 tidak
saya protect, tetapi jika sheet1 saya buka passwordny
Salam para master,
Saya menambahkan calendar control pada sheet1 di beberapa cell (cells
E17:E100), tetapi jika sheet1 tersebut saya password maka calendar tersebut
terjadi bug pada VBAnya (seperti pada lampiran), padahal cells E17:E100 tidak
saya protect, tetapi jika sheet1 saya buka passwordny
Ok MK, syukron hehehe
Pada 1 Nov 2013 14:20, "Mr. Kid" menulis:
> **
>
>
> Coba manfaatkan fitur Find.
>
> Saat workbook terbuka -> aktifkan fitur Find (CTRL F) -> tekan Options ->
> atur :
> ** find what dengan =*[*.*]*
> ** within : pilih Workbook
> ** lookin : formulas
> ** centang opsi Match
oma " & rept("nol ",
> int(mod( a1,1) * 100) <10 ) & terbilang( int(mod( a1,1) * 100) ) , "" )
>
> gitu kali ya
>
>
> 2013/10/19 prazt math
>
>> **
>>
>>
>> Trimakasih MK, udah bisa jalan dengan fungsi dari mr Kid tapi
Trimakasih MK, udah bisa jalan dengan fungsi dari mr Kid tapi masih ada
kendala sewaktu saya memasukkan angka 1,01kok terbaca "satu koma satu",
yang saya inginkan misal 1,01 terbaca "satu koma nol satu". Mohon
pencerahan mr.Kid
Pada 19 Okt 2013 06:41, "Mr. Kid" menulis:
> **
>
>
> Pakai Fungsi te
Pk De saya jadi tertarik pada tulisan yang saya kutip sbb: Selain enkripsi
2 arah yang bisa diketaui nilai awalnya, ada juga enkripsi 1 arah, yang
mustahil untuk diketahui nilai awalnya karena sudah diacak2, dibolak-balik,
diaduk-aduk, diobok-obok dst... sehingga menghasilkan sebuah deret huruf
dan
Amiin ya Rob...smoga aja Mr.Kid segera pulih n kembali kemilis lagi
Ok mis jan saya coba, emmm saya malah kagak kepikiran ke si cint(blablabla)
itu to trnyata hehehe...
Pada 10 Sep 2013 15:13, "Jan Raisin" menulis:
> **
>
>
> Sebelumnya, mohon do'a dari Be-Exceller untuk kesembuhan mr Kid (mo
Malah kagak ada kriterianya bos, jadi hilang malah yg no urut 1&3
Pada 4 Sep 2013 14:19, "Bagus" menulis:
> **
>
>
> **
> Pak Prazt;
>
> Coba ganti formula yg ada di AL21
> =IF(OR(F$11=0,F$11=""),"",IF(OR(U21="",AI21=""),"",CP21))
> menjadi
> =IF(OR(F$11=0,F$11=""),"",IF(OR(U21=0,AI21=0),"",CP21)
"isi" yang mau dikumpulkan pak ? mungkin kira2
> seperti FAQ (Frequently Asked Questions) gitu lah...
>
> Salam,
> HK
>
> --
> *From:* prazt math
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, 27 August 2013, 21:05
> *Su
Sekedar usul mr HK..Mungkin isinya dkumpulkan dulu, nah nanti dari situ
bisa lebih mudah mnyusunya modelnya mau kayak gmn bsrta dftar isinya mau
sperti apa...
Pada 28 Agt 2013 10:11, "hendrik karnadi"
menulis:
> **
>
>
> Maaf, saya hanya baru bisa bermimpi.
> Untuk mewujudkan mimpi tersebut,
S7 mr HK
Thk's para master trutma mr.kid, mr.hendrik, ms jan yg tlah mebantu shingga
masalah jd teratasi hehehe...wassalam.
Hehehe maap ya dah jd mrepotkan pa lagi sm ms jan yg kuta internetnya hmpr
hbs hehehe...untuk vba saya lupa kmarin masih keprotect tp udah tdk ada
data vba, dan saya coba bongkar smua dan saya hapus tu cell kosong dan
masih di level 3 mb..mentok sampe sgitu coba saya plajari dl file yg para
master
Dear para master yg terhormat...
Mohon pencerhannya pada para masterapakah ada fungsi untuk membulatkan
angka selain fungsi INT, Round, rounddown, dan roundup..? Trimakasih..
Value <= 10 Then
ActiveSheet.PageSetup.PrintArea = "$E$6:$K$313"
Else
ActiveSheet.PageSetup.PrintArea = "$M$6:$S$313"
End If
End If
End If
End With
End Sub
Silakan di copas ke Sheet1 pa
kin saya salah lihat atau kurang teliti, tapi yang diblok warna kuning
di range mana ya?
wassalam,
-aji mumpung-
baru bisa ol lagi setelah nge-giring hewan ternak dari luar kota
Pada 22 Oktober 2012 17:08, Prazt Math menulis:
Untuk lebih jelasnya saya lampirkan lagi filenya Mr. Hend
Untuk lebih jelasnya saya lampirkan lagi filenya Mr. Hendrik
re Mr.Hendrik.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
dakan pilihan (langsung "Yes")
If Target.Count = 1 Then
If Target.Address = "$G$4" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & Target.Value
End If
End If
End Sub
_
From: Prazt Math
To: belajar-excel@ya
"G4").
Salam,
Hendrik Karnadi
_
From: Prazt Math
To: belajar-excel@yahoogroups.com
Sent: Monday, 22 October 2012, 9:11
Subject: [belajar-excel] set ptint area dengan kriteria
Selamat pagi para exceller, mohon bantuan untuk kasus tentang select print area
dengan krit
Selamat pagi para exceller, mohon bantuan untuk kasus tentang select print
area dengan kriteria seperti file terlampir..sebelumnya saya ucapkan
terimakasih...wassalam.
print area dengan syarat.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
kata yang pasti ada disemua
sheet.
Wassalam,
Kid.
2012/10/13 Prazt Math
'tentukan area data yang akan diprint berdasar kata 'nilai'
Set rng = .UsedRange.Find("nilai").CurrentRegion
'kirim
ke printer
End If 'akhit
blok cek keberadaan area data
End With'selesai
kerja si sheet tersebut
Next vShtName 'nama
sheet berikutnya
End Sub
>> Kemudian set si button (bukan bottom ya) agar menjalankan prosedur
tersebut.
Konsep :
Membuat teks berisi daftar nama-nama sheet yang akan diprint, yang
dipisahkan oleh sebuah karakter pemisah (delimiter).
Dari teks inilah akan didapat array nama sheet yang akan di-print.
Wassalam,
Kid.
2012/10/10 Prazt Math
Dear exceller...
Mohonbantuannya dengan permasalahan yang menyandung langkah saya seperti
pada file terlampir
(permasalahan / pertanyaan ada di file lampiran)
Terimakasih atas segala bantuan beserta ilmunya...
<><>
belum sampai ke tahap ini..
sambil saya pelajari lebih lanjut kasusnya mungkin nanti ada member millis
ini yang berbaik hati berbagi ilmunya.. sekaligus menerangkan algoritma
pemrogramannya..
tetap semangat pak..
wassalam,
-aji mumpung-
Pada 11 Oktober 2012 10:22, Prazt Math menuli
2012 10:22, Prazt Math menulis:
Dear pk Aji.
Permalasahannya datanya berubah-ubah, terus sebetulnya sheetnya banyak
sekali, sudah saya coba jadikan dalam satu sheet tp malah tambah ribet ,
sering ada errornya pada data...maka dari itu, saya berpikir bagaimana kl
tidak jd 1 sheet seperti pada
Dear pk Aji.
Permalasahannya datanya berubah-ubah, terus sebetulnya sheetnya banyak
sekali, sudah saya coba jadikan dalam satu sheet tp malah tambah ribet ,
sering ada errornya pada data...maka dari itu, saya berpikir bagaimana kl
tidak jd 1 sheet seperti pada permasalahan yang sudah saya tulis...
Dear exceller...
Mohonbantuannya dengan permasalahan yang menyandung langkah saya seperti
pada file terlampir
(permasalahan / pertanyaan ada di file lampiran)
Terimakasih atas segala bantuan beserta ilmunya...
tanya print.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
merahnya Pak.
Sdh disorot datanya Pak ?
Salam,
Hendrik Karnadi
_
From: Prazt Math
To: belajar-excel@yahoogroups.com
Sent: Thursday, 20 September 2012, 13:31
Subject: RE: [belajar-excel] FW: filter baris
Setelah saya jalankan macronya dari pk Hendrik masih ada kendala
e(1, lCols).Sort rng, xlDescending, Header:=xlNo,
Orientation:=xlSortRows
rng.Resize(1, lCols).Select
For Each r In Selection
If r = 0 Then r = ""
Next r
Next rng
End Sub
Cara menjalankannya : Sorot data pada Sheet1 kemudian klik tombol pada Sheet1
End If
Next rng
Keluar:
Err.Clear
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Silakan dikembangkan. Mungkin lebih bagus jika inputan user menggunakan
userform.
hehe
filter
baris..??
From: Prazt Math [mailto:praztm...@gmail.com]
Sent: 19 September 2012 12:40
To: belajar-excel@yahoogroups.com
Subject: filter baris
Dear para suhu excell, ane mau minta bantuan pada para exceller tapi mohon
maaf apabila sudah ada pertanyaan yang serupa dan agak sembrono
-excel] Menggabungkan data dari banyak Shee
File terlampir.
Syarat : Sheet hasil selalu dipaling kanan sheets data.
Wassalam,
Kid.
2012/9/5 Prazt Math
Ingin hati sambung menyambung jadi satu, tapi apa daya pikiran tak mampu,
maka saya minta bantuan pada para master untuk menyambungkan
Ingin hati sambung menyambung jadi satu, tapi apa daya pikiran tak mampu,
maka saya minta bantuan pada para master untuk menyambungkan/Menggabungkan
data dari banyak Sheet seperti file terlampir
menyambung.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
47 matches
Mail list logo
