WdApp = Nothing
Ngisorr:
End Sub
'--
http://www.box.com/s/088a6a211bd261d8eecb
[image: Inline image 1]
*
*
*- i Haps -*
*
*
*2012/3/18 Muhammad Risky m_risky_b...@yahoo.co.id
Teman2,
bagaimana caranya agar memindahkan tulisan dari notepad ke msword,
seperti
Mr Yan dan temans lain
Mumpung 'tofik'nya masih nyambung, jika masih ingin 'menukik lebih dalam'
dlm memahami
peng-Kode-an CUSTOM NUMBER FORMATTING; Anda dapat mengunjungi situs-situs
ini
*bahasa indonesia* (unduhan)
http://tech.groups.yahoo.com/group/belajar-excel/files/
(cari dan klik link file
maafkan, koreksi salah tulis...
tertulis
***3*: Jarak horisontalnya (jika *+* = kebawah /jika *- *= ke atas) = *1*
seharusnya
***3*: Jarak horisontalnya (jika *+* = keKANAN /jika *- *= ke KIRI) = *1*
[image: arg fungsi offset.PNG]
2012/2/15 i Haps hapsari.stlizb...@gmail.com
yang dlm
masukannya
Salam
Nor Hidayat
--- Pada Sab, 11/2/12, i Haps hapsari.stlizb...@gmail.com menulis:
Bagaimana ya (dlm rangka memenuhi keinginan dayat).. kalau seandainya
If LenB(sPath) = 0 Then
sFilePath = ThisWorkbook.Path \
diganti dengan
If LenB(sPath) = 0 Then
sFilePath
Mohon tambahan info; bisakah pertanyaan yg sedikit itu diperjelas
saya kutipkan bagian inti pertanyaan anda
Sedikit pertanyaan dari saya,
jika kita menggunakan file excel dalam satu folder dan hanya ingin
mengetahui
list isi dalam folder itu sendiri,
kemudian berada di drive C: kita copy ke
)
Bagaimana ya (dlm rangka memenuhi keinginan dayat).. kalau seandainya
If LenB(sPath) = 0 Then
sFilePath = ThisWorkbook.Path \
diganti dengan
If LenB(sPath) = 0 Then
sFilePath = CurDir \
kindest regards,
- i -
-- Forwarded message --
From: i Haps hapsari.stlizb
selengkapnya dapat dilihat pada lampiran.
Kepada Mbak I-Haps; terima kasih telah mengingatkan saya tempo hari.
Salam
Terima kasih*
Menghitung Bersyarat (dgn syarat berupa SebagianKarakter dari Cell) (iHaps).xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
) workbook dibuka dan disave oleh 7
orang admin dalam waktu yang bersamaan,
kalau bisa, mohon berikan contoh
salam
syah
--- Pada Jum, 10/2/12, i Haps hapsari.stlizb...@gmail.com menulis:
Dari: i Haps hapsari.stlizb...@gmail.com
Tanggal: Jumat, 10 Februari, 2012, 10:48 AM
Jawabannya : BISA dan
selain pakai sumproduct;
sementara biar MUDAH, agar anda tidak semakin bingung dan stress
kita pakai kolom bantu dulu
Kolom bantu adalah gabungan kolom 1 dan 2 pada tabel sumber
rumus di tabel hasil
=VLOOKUP(J5K5,B5:E13,4,FALSE)
Lihat lampiran dengan seksama ( dan dalam tempoh yg sesingkat
, K5 )*
( kebetulan kolom E adalah data type Numbers (Bilangan) )
Lilhat Lampiran ...
2012/2/1 i Haps hapsari.stlizb...@gmail.com
selain pakai sumproduct;
sementara biar MUDAH, agar anda tidak semakin bingung dan stress
kita pakai kolom bantu dulu
Kolom bantu adalah gabungan kolom 1 dan 2
mungkin bisa dicoba pakai Barcode_FONTS saja
http://www.barcodingfonts.com/index-g.htm?source=adwordscampaign=barcodeadgroup=barcode_fontsad=001
http://download.cnet.com/Free-TrueType-Code-39-Barcode-Font/3000-2190_4-10067143.html
http://www.barcodesinc.com/free-barcode-font/
pendek dari para pakar; pakar jagung,
pakar sate, pakar ikan dsb.. )
- i Haps-
(ibu Hapsah, penjual gado² di gang sebelah)
2012/1/31 o' Seno ontosen...@gmail.com
**
Kalau data anda di A1; dan data tsb berupa data TYPE DATE (bukan text)
(berarti regional setting komputer anda = indonesian
mudahan tiak sempat ngana biking-pusing
2012/2/1 i Haps hapsari.stlizb...@gmail.com
*» *Cacah_Peminjaman maupun cacah_Pengembalian suatu Buku: GAMPANG dicari
dengan fungsi COUNTIF
*
*
*» *Kedua hasil COUNTIF itu dengan GAMPANG dapat dibandingkan untuk
mnghasilkan FALSE / TRUE, yg berarti
Sub KopiSheet()
* ' TEPATNYA COPY RANGE ANTAR SHEET*
* ' YANG DICOPY BUKAN SHEET PAK *
* ' iHaps*
* ' *
Dim Sumber As Range
Set Sumber = Worksheets(SUMBER).Cells(5, 1).CurrentRegion
Application.ScreenUpdating = False
With Worksheets(HASIL)
pula..
sambil - lah cari-cari posting lawas di milis ini juga
barangkali ada yang cucok dengan masalah yg sedang dihadapi
misalnya :
http://tech.groups.yahoo.com/group/belajar-excel/message/14601
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mohon-bantuannya-td5067157.html
atau
waduh lampirannya 635 KB
bgmana ini, milisnya sendiri kok di tabrak terus ??
saya suah isi lihat filenya
sebenarnya makro dari Mr. Kid sudah SANGAT SIAP untuk menangani SHAPE
makronya sudah disiapkan ; anda tinggal mn SET shp = nama Shape
tiap baris makro bahkan sudan diberi petunjuk
Betul apa kata Ki Ageng Semprul !
Menggabng bersyarat sudah ada yg berexperiment dan menghasilkan berita
menyedihkan
Ingin tahu sengsaranya menggabung bersyarat tanpa dibantu makro ?
Ada! di Workbook terlampir
Pekerjaan diselesaikan dengan 2 tahap
*Tahap 1 *
Array Formula Multi Hasil ( di
/vba.htm
http://www.ehow.com/how_5551671_automatically-powerpoint-using-vba-macro.html
*- i Haps -*
*
2012/1/24 yusajing_...@yahoo.com
Seperti yang kita ketahui bahwa utk membuat chart di PowerPoint 2007,
data selalu di taruh di dalam excel.
Pertanyaan saya adalah,
1. Apakah bisa kita membuat
waduh bang/pok Mods...
*kena BOOM file 2,4 MB kita !!! ck ck ck*
( mungkin bapak firman lupa / blum baca UUD - nya )
teganya... teganya... teganya... teganya teganya
*- i Haps -*
mau menjawab (meskipun salah) jadi ditunda dulu deh...
*2012/1/25 firman 21 firman.2...@gmail.com
to MyRange.Rows.Count*
* Combobox1.AddItem MyRange(R,1)*
*Next R*
yg terisikan ke Combobox List hanya range A2:An saja, karena MyRange itu
Range Dinamis
(didapat sesaat sebelum diisikan sbg list di kombobox)
A2 dianggap BUKAN Heading (judul kolom)
CMIIW
*- i Haps -*
2012/1/25 Aliif Akbar aliif.ak
tanpa sengaja di SET, suatu setting bisa terubah antara lain (khusus dlm
kasus ini)
menjalankan workbook bermakro di mana makronya terdapat perintah
Sub hanallah()
Application.Calculation = xlCalculationManual
-- loop penulisan / data di sheet / cells
Application.Calculation =
ada dua hal yg* tidak diceritakan *oleh guru muda
setelah diberi makro NAMA FILENYA diberi EXTENSI APA ?
xlsx ? xlsm ?
workbook 'makro enable' harus berxtensi xlsm atau xlsb
setting makro anda bgmana? mestinya sudah baik (untuk bisa menjalankan
makro)
(sesuai cerita di step 6 )
CMIIW
*
Untuk sementara kita anggap mbak Hart ingin *mengambil *
*KARAKTER KE 3 saja *dari sebuah string (text)
(dalam pertanyaan: ingin mengambil data ke 2 tanpa memunculkan data pertama
fungsi yg paling cocok
*=MID(DataTextnya,3,1)*
atau
*=MID(A1,3,1)*
dimana A1 berisi data text
Bahasa Semarangnya =
ini rumus emergency
di tulis di cell E23, kemudian di tularkan ke cells di bawahnya
=IF(OR(E22=,ISERROR(
INDEX($K$4:$K$38,MATCH($E$22,$J$4:$J$38,0)+J5))),,
INDEX($K$4:$K$38,MATCH($E$22,$J$4:$J$38,0)+J5))
yg saya maksud dgn 'emergency', artinya: *kebetulan masih bisa*
sebab tabel yg dirujuk
lebih baik..
- i -
2012/1/20 i Haps hapsari.stlizb...@gmail.com:
ini rumus emergency
di tulis di cell E23, kemudian di tularkan ke cells di bawahnya
=IF(OR(E22=,ISERROR(
INDEX($K$4:$K$38,MATCH($E$22,$J$4:$J$38,0)+J5))),,
INDEX($K$4:$K$38,MATCH($E$22,$J$4:$J$38,0)+J5))
yg saya maksud dgn
Terbilang (konversi ANGKA ke KATA-KATA dlm bahasa Indonesia) yg JALAN di
WORD pernah di'siar'kan di milis ini
http://tech.groups.yahoo.com/group/belajar-excel/message/8833
bertepatan dengan hari April Mop 2011
Saat ini file workbook tsb sudah di update sehingga tidak bermasalah jika
harus
oh ya tambahan kalau mau edit kira2 bisa gak?
kira-kira BISA,
terutama kalau anda sendiri jelas mengenai kemauan anda
*apa yg mau diedit*
*semula : seperti apa*
*diinginkan menjadi : seperti apa*
hal yg sangat sulit adalah menangkap maksud sekaligus menjawab keinginan:
* saya mau edit (TITIK
bagaimana kalau khusus untuk pak Boss kita berikan makro ini :
ditulis di module sheet DATA
Private Sub CommandButton1_Click()
*'Summaries20120111---*
*' coded by: indri Hapsari*
*' smg, 11 jan 2011*
*'-*
Dim RefTabel As Range, PlanYear As Range
Dim Kriteria As Range,
Berarti variable anda yg bernama TANGGAL_EXPIRED itu
harus berupa data: tiga buah angka (angkaTAHUN, angkaBULAN dan
angkaTANGGAL
(bgmana ya cara membuatnya 1 variable berisi 3 bilangan ??)
saya tebak sebelum bertanya, anda belum mencobanya dulu..
x = DateSerial(*2011, 04, 15*)
menghasilkan x =
Di milis sudah banyak contoh meng-Entri Data ke suatu tabel penampung data.
Tabel penampung data di tempatkan pada sheet tersendiri, range tabelnya
dilocked
dan sheetnya di proteksi; agar data tidak diubah2 oleh pihak lain !
Cara memasukkan data (entri data) ke sheet penampung yg diproteksi tsb
Paling praktis, kayaknya pakai makro saja, dibuatkan UDF
Fungsi buatan sendiri itu akan mengembalikan Text Comment dari cell yg
dirujuk
code VBA ditulis di module standard
Function TextComment(Cell As Range) As String
TextComment = Replace(Cell.Comment.Text, Chr(10), )
End Function
berhubung dlm topik ini banyak sekali file terbilang yg dikirimkan oleh
para penanggap, kita perlu tahu: file yg mana yg anda pakai
bisakah di tunjukkan dengan jelas, atau dilampirkan ?
atau paling tidak kutipkan full text ex Prosedur UDF nya ?
(makronya)
sekedar komentar
sebanarnya terbilng yg
RUMUS untuk kolom SHIPMENT
=COUNTIF(C2:E2, 0)
hitunglah ada berapa* cacah* (bukan jumlah) data di C2:E2 yg BUKAN eNol
jika semua data di kolom C:E pasti data bilangan positip, rumusnya
=COUNTIF(C2:E2, 0)
pak mulk ini hanya lupa saja, karena dulu, setahu saya
excellevelnya sudah oke... *(sok
(1)
tp juga* mengurutkan dahulu no Customernya*,
*j**ika tidak urut* maka* tidak “jalan” */ atau harus menyesuaikan
manual.
apa benar dan sudah di check ??
contoh berikut (*terlampir*) sudah saya acak-acak* tanpa memnyentuh* lagi
rumus2 nya.
atau yg dimaksud lain lagi ya ..??
-Mohon di recek
sayangnya di sini bukan tempat berguru, disini tempat belajar-excel bersama
:)
*GAMPANG... masalahnya tidak terlalu sulit... *
--
stop pre
kalimat senada dengan ini sering kita pakai sbg pembuka jawaban.
ternyata, seperti kita sudah duga, ada
Permohonan dikabulkan (walaupun jawabannya salah.. lihat lampiran)
Kepada para members yg saat ini sedang hanya bisa mengakses terbatas (di
web)
maupun melalui di device yg gak bisa membuka Lampiran Excel Spreadsheet),..
kami mohon maaf sekecil-kecilnya; karena diskusi khusus topik ini cuma
kalau ingin dengan* formula*:
ini ada warisan ex jaman celeng ucul di toko sebelah
duWa-duWan-ya: *Array Formula Hasil Tunggal*
1.
hasilnya UnSorted List of Unique Values (urutan sesuai data)
=INDEX(IF($A$2:$A$31a=0a,0,IF($A$2:$A$31=,A$2,$A$2:$A$31)),
emm... datanya dikirim dlm pdf ya
baiklah teman, kami hanya bisa menebak-nebak karena tidak bisa meyakini
type data yg ada di E2:E9, apakah Bilangan ? ataukah TEXT
Data yg tampak sebagai karakter_ANGKA bisa bertpe text dengan berbagai sebab
misalnya spasi spasi spasi 9 tampak seperti 9 tetapi
--
*From:* i Haps hapsari.stlizb...@gmail.com
*To:* belajar-excel@yahoogroups.com
*Sent:* Tuesday, January 3, 2012 3:17 PM
*Subject:* Re: [belajar-excel] Nomor otomatis berdasarkan tanggal
gampang...
Array formula MultiHasil, ditulis di [19 Cells Sekolom], misal C2:C20,
sesuai
. P. Sudirman 117A Kudus
Mobile : 0813 2547 3877
CUG : 78313
*
Pada 3 Januari 2012 18:38, i Haps hapsari.stlizb...@gmail.com menulis:
Dear Pak Guritno van soto Kudus...
Formula itu (H7:H20) adalah *ARRAY FORMULA* *MULTI HASIL*
yaitu formula yg cara menuliskannya di cell / cells harus
sebenarnya telah terjawab sendiri : (kutipan email pak heru mul, dipertegas)
nilai rata-rata dibulatkan (KE ATAS)
menjadi tanpa pecahan (bilangan bulat)
Rata-rata saja
RataRata = Average(J4:K4)
RataRata dibulatkan ke atas dlm menjadi bilangan bulat
=ROUNDUP(RataRata, 0)
atau rumus dapat
petanyaannya kan: trick nya
biasanya trick dlm pemrograman berkonotasi : cara nyeleneh yg
sulit dipahami orang lain tapi ternyata lebih oke (dlm mencapai tujuan)
CMIIW.
jika begitu.. berarti coding biasa (yg bukan suatu trick), pastinya sudah
dipunyai oleh pak abe R125
boleh-kah ditunjukkan ke
jika maksudnya ingin dijadikan 1 nilai dalam 1 cell berupa data type
bilangan
(konversi degrees ke decimal);
sepertinya data lebih baik ditulis di 3 kolom (Derajat; Menit, Detik)
misalnya data tertulis di 3 kolom
B3 = 135
C3 = 30
D3 = 30
Untuk kosmetika-nya, Tiap kolom bisa di
Maap pak Suyatno, ada salah tulis dan salah urat... sedikit...
yg di badan email rumusnya salah; (yg di workbook /lampiran sudah benar)
koreksi yg di email, seharusya :
=INDEX( $A$6:$O$8,
MAX(IF($A$6:$O$8=A12,ROW($A$6:$O$8)-5,0)),
MAX(IF($A$6:$O$8=A12,COLUMN($A$6:$O$8),0))*+1*)
pertanyaannya saya perbaiki
* how to mengecilkan file excel yg besar karena diduga tidak wajar.
() membuang (mendelete) area (kolom . baris) yg tidak berisi data
() menghaps shapes (drawing object yg tidak ada gunanya)
() menghapus NAME (define name) yg berisi #REF / salah dan juga Name
yg
BLOK (Select Range M3:Q3 ( range 5 cell sebaris)
klik FORMULA-BAR
Tuliskan di formula Bar rumus ini (satu baris tak terputus):
*=IFERROR(INDEX($C$3:$G$3, SMALL(IF(((COLUMN()-12)=$K3)**
* ((COLUMN()-12)=$L3), $C$2:$G$2,), $C$2:$G$2)), )*
Akhiri dengan menekan : 3 tombol *Ctrl + Shift,
setelah melihat Userform bernama 'Welcome', ada satu hal yg membuat
berdecak
kagum, yaitu ada sebuah prosedur kecil yg isinya mengandung beberapa
kesamaan
jika dibandingkan -vs- *prosedur **lain* (yg pernah dibuat orang):
http://tech.groups.yahoo.com/group/XL-mania/message/7572
menggunakan conditional formating.
wassalam
Ghozi Alkatiri
*Dari:* i Haps hapsari.stlizb...@gmail.com
*Dikirim:* Senin, 19 Desember 2011 15:48
Private Sub Worksheet_Change(ByVal Target As Range)
' iHaps // 19 dec , 2001
' assignment hasil expressi ke suatu cell/range
48 matches
Mail list logo