Minggu, 08 Desember 2013

[belajar-excel] Digest Number 2684

5 New Messages

Digest #2684
2a
Re: Macro Membuat Nomor Urut by "Mr. Kid" nmkid.family@ymail.com
3a
4a
Nilai tidak berubah secara otomatis by "Nora Ismanti" noraismanti
4b

Messages

Sat Dec 7, 2013 7:30 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Odhy,

Coba file yang ada disini
<https://app.box.com/s/fk487us4h7t09eoqfbl8>disesuaikan dengan data
setempat.

Wassalam,
Kid.

2013/12/7 Odhy <odhyz83_assasaky@yahoo.com>

>
>
> Dear Mr. Kid,
>
> Begini pak...
> Saya ingin mencopy data dari file luar (tetap file excel), kemudian saya
> masukkan ke workbook template ini, data yang ingin saya copy itu
> berdasarkan header/judul kolom (bukan posisi kolom) karena terkadang posisi
> kolom pada file luar itu berubah. data yang ingin saya copy itu yaitu
> dengan header : Plant, Material dan ClosingBalQty.
>
>
> Terima Kasih atas pencerahannya,
>
> Odhy.
>
>
> On Friday, December 6, 2013 11:39 PM, Mr. Kid <mr.nmkid@gmail.com>
> wrote:
>
> Hai Odhy,
>
> Bisa diperjelas bagaimana cara meng-copy manualnya ?
>
> Jika isi file A berisi 5 record akan di copy ke file B berisi 19 record
> hanya pada kolom Kol1,kol9,kol13 saja, apa saja yang menjadi kolom-kolom
> kunci dari tabel data tersebut ?
>
> Bagaimana nasib sisa 14 record yang sudah ada di file B ?
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/12/4 Odhy <odhyz83_assasaky@yahoo.com>
>
>
> Dear Para Master,
> 1. Dibawa ini code VBA yang saya gunakan untuk mengcopy data pada
> kolom yang sudah saya tentukan, akan tetapi ternyata posisi kolom yang saya
> copy posisinya berubah-rubah, yang ingin saya tanyakan bagaimana caranya
> mengcopy kolom berdasarkan Header / judul kolom (3 kolom):
> Misalnya saya mau mengcopy semua data pada kolom |Plant|, |Material|,|
> ClosingBalQty|,
> Private Sub CommandButton9_Click()
> FileTerpilih = Application.GetOpenFilename _
> ("Excel 2003(*.xls),*.xls, Excel 2010 (*.xlsx),*.xlsx&quot;, Title:="Open
> file", MultiSelect:=True)
> If VarType(FileTerpilih) = vbBoolean Then
> Exit Sub
> End If
> NamaFileUtama = ActiveWorkbook.Name
> JumlahFile = UBound(FileTerpilih)
> Application.DisplayAlerts = False
> For i = 1 To JumlahFile
> Workbooks.Open FileTerpilih(i)
> With ActiveWorkbook.Worksheets(1)
> Selection.AutoFilter Field:=3, Criteria1:=1000
> BarisTerakhirFilePilihan = .Cells(.Rows.Count,
> 1).End(xlUp).Row
> BarisTerakhirFileUtama =
> Workbooks(NamaFileUtama).Worksheets(1) _
> .Cells(Workbooks(NamaFileUtama).Worksheets(1).Rows.Count,
> 1).End(xlUp).Row
> .Range("A2:A100,A2:A100,X2:X100&quot;).Copy
>
> //bagaimana mengcopy 3 kolom??
>
>
>
>
>
>
> End With
>
>
> With Workbooks(NamaFileUtama).Worksheets("DATA";)
> Range("A4").PasteSpecial Paste:=xlValues
> End With
> ActiveWorkbook.Close
> Next i
> Application.DisplayAlerts = True
> End Sub
>
>
> 2. Kalau saya menggunakan code : Application.Quit maka semua
> workbook akan tertutup semua, atau kadang2 worbook yang lain terhide, nah
> bagaimana caranya agar apabila menutup sebuah workbook menggunakan code VBA
> hanya workbook tersebut yang tertutup/ diclose.
>
> Terima Kasih atas pencerahannya,
>
> Odhy.
>
>
>
>
>
>

Sat Dec 7, 2013 7:43 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Indra,

Bagaimana jika memanfaatkan formula seperti script berikut :
Asumsinya : kolom A pasti ada isinya sebanyak jumlah baris data yang ada di
kolom B dan seterusnya
Sub AutoShape6_Click()
Dim rngOut As Range, rngFields As Range

Set rngOut = Sheet2.Range("a8").Offset(1, 0)
Set rngFields = range(rngout,rngOut.End(xlDown))

With rngfields
.formula = "=Row()-" & rngout.row-1
.parent.calculate
.value=.value
End With
End Sub

Jika maksudnya adalah memberi nomor pada kolom A mengikuti jumlah data yang
ada di kolom B dan seterusnya, dan kolom B pasti terisi penuh data (tidak
ada cell yang blank sampai record terakhir), maka ganti bagian :
Set rngFields = range(rngout,rngOut.End(xlDown))
menjadi :
Set rngFields = range( rngOut.offset(0,1).End(xlDown).offset(0,-1) ,
rngout )

Wassalam,
Kid.

On Fri, Dec 6, 2013 at 8:22 PM, ChordJR <vendeta_06@yahoo.co.id> wrote:

>
>
> Dear Be-Exceller,
>
> Mau tanya tentang macro yang sudah saya buat kok tidak bisa berjalan
> sesuai keinginan...mohon di koreksi apabila ada kesalahan pada
> coding"nya...
>
> Sub AutoShape6_Click()
> Dim rngOut As Range, rngFields As Range
> Dim lHitung As Long, lFields As Long
>
> Set rngOut = Sheet2.Range("a8").Offset(1, 0)
> Set rngFields = rngOut.End(xlDown)
> lHitung = 0
> lFields = rngFields.Count
> lHitung = lHitung + 1
>
> With rngOut
> .Value = lHitung
> .Resize(0, rngFields).DataSeries Rowcol:=xlColumns,
> Type:=xlLinear, Date:=xlDay, _
> Step:=1, Trend:=False
> End With
> End Sub
>
> Wassalam,
>
> Indra
>
>

Sat Dec 7, 2013 10:00 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

;)

Hai Tio,

Kok ya aneh-aneh aja sih kepengenannya... ya wis lah...

Tombol PRNTSCR tidak didefinisikan secara khusus seperti tombol lain (misal
CTRL atau ALT).
Untuk meng-handle tombol ini memang harus melalui emaknya, yaitu si OS itu
sendiri (misal Windows).
Untuk mencolek emaknya dibutuhkan fungsi-fungsi kelas WinAPI.

Aplikasi yang dijalankan di Windows berada disebuah area yang berada diatas
area si Windows itu sendiri, karena si Windows menjadi platform si
aplikasi. Jadi WinAPI ada diarea bawah itu.

*Beberapa *fungsi-fungsi WinAPI memiliki tabiat gak peduli dengan aplikasi
yang memerintahkan dia untuk bekerja.
Artinya, si fungsi WinAPI itu akan terus bekerja dan bekerja sampai batasan
yang ditentukannya sendiri seperti ketika sudah tidak ada lagi yang bisa
dikerjakannya.
Sedangkan si aplikasi yang minta tolong ke fungsi WinAPI itu pengen ada
informasi tentang hal-hal yang terjadi saat si fungsi WinAPI itu bekerja.
Nah, untuk bisa mendapatkan informasi tersebut, maka si aplikasi harus
mengirim personel yang berupa sebuah fungsi yang akan terus mengamati kerja
si fungsi WinAPI.
Fungsi WinAPI akan memberikan informasi ke personel ini sembari terus sibuk
bekerja. Lalu personel inilah yang akan menyampaikan informasi tersebut ke
aplikasi yang minta tolong.
Personel yang berupa fungsi ini dikenal sebagai Callback Function. Nama
personelnya (nama fungsi callbacknya) bebas, seperti WindowProc atau
CallbackSomething, dsb.
Personel ini dikenalkan ke fungsi WinAPI dengan merujuk ke nomor induknya
(pointer si personel). Caranya dengan menggunakan AddressOf.
Proses mencolek fungsi WinAPI yang sukanya bekerja ini sering disebut
proses hook.

Pada kasus seperti ingin meng-handle keyboard, maka fungsi WinAPI yang
dibutuhkan salah satunya adalah yang termasuk kelompok gak pedulian ini,
sehingga dibutuhkan callback function.
Fungsi WinAPI yang digunakan untuk meng-handle keyboard adalah
> SetWindowsHookEx untuk menangkap aksi user,
> CallNextHookEx untuk terus waspada pada aksi user,
> UnhookWindowsHookEx untuk menghentikan kegiatan pengawasan terhadap aksi
user

Karena fungsi WinAPI selalu menggunakan nomor induk (pointer) dalam
memproses dan memberikan informasi, maka perlu petugas yang melihat data
detil dari pemilik nomor induk tersebut.
Fungsi WinAPI yang berlaku sebagai petugas itu salah satunya adalah
CopyMemory

Semua hasil pengawasan yang dilaporkan akan dapat diketahui detil
pemiliknya.
Kemudian aplikasi (yang mendapat informasi dari callback function) akan
melakukan proses sesuai keinginan si aplikasi berdasar informasi tersebut.

Itulah gambaran dasar tentang proses hook.
Contohnya adalah seperti file yang ada
disini<https://app.box.com/s/jo7krc5ik3s3bwehjeou>,
yang berusaha meng-hook (mengawasi aksi user terhadap) keyboard, khususnya
tombol PRNTSCR.

Moga-moga filenya bisa dijalankan juga di xl2003. Biasanya OS WinXP keatas
bisa menggunakannya.
Khusus pada Office 64 Bit, dibutuhkan penyesuaian variabel long ke kelompok
ptrsafe seperti LongLong pengganti datatype long dan LongPtr untuk
penyikpan pointer.
Kelompok ptrsafe ini bisa dijalankan juga pada VBA7 (32 Bit), tetapi masih
belum bisa di VBA6 ataupun VBA6.5

Wassalam,
Kid.

2013/12/6 Jan Raisin <miss.jan.raisin@gmail.com>

>
>
> Hai Tio..
>
> untuk tombol Print Screen kelihatannya memiliki perlakuan yang berbeda..
> Jan sudah coba dengan script OnKey tetapi tidak berhasil.. kelihatannya
> solusi untuk kasus ini harus bermain-main dengan API,
>
> mungkin nanti mr Kid bisa memberikan sedikit pencerahan.. tetapi
> kelihatannya harus bersabar agak lama karena saat ini mr. Kid masih sibuk
> kejar setoran xixixixi ^_^
> atau mungkin ada BeExeller lain yang memiliki pengetahuan tentang windows
> API silakan sharing ilmunya ke sini.
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 5 Desember 2013 15.08, Tio Adi Bayu Adjie <tio.adjie@ptssb.co.id>menulis:
>
>
>>
>> Salam Excel,
>>
>>
>>
>> Adakah para Suhu Excel yang tahu untuk permasalahan saya di bawah ini ?
>>
>>
>>
>> Terima kasih dan semoga Allah SWT membalas kebaikan para Suhu.
>>
>>
>>
>> Salam,
>>
>>
>>
>> *From:* belajar-excel@yahoogroups.com [mailto:
>> belajar-excel@yahoogroups.com] *On Behalf Of *Tio Adi Bayu Adjie
>> *Sent:* Tuesday, December 03, 2013 3:16 PM
>> *To:* belajar-excel@yahoogroups.com
>> *Subject:* [belajar-excel] Perintah macro di Excel agar tidak bisa print
>> screen
>>
>>
>>
>>
>>
>> Salam Excel,
>>
>> Newbie mau tanya, bisakah buat macro di Excel untuk disable tombol print
>> screen ?
>>
>>
>>
>> Terima kasih,
>>
>> Salam,
>>
>> Tio
>>
>>
>>
>> _
>>
> _
>

Sat Dec 7, 2013 2:49 pm (PST) . Posted by:

"Nora Ismanti" noraismanti

Kepada para master dan anggota milis.

Mohon saya dibantu atas persoalan yang saya hadapi:

Mengapa nilai pada cell C4, C5, C8, dan E8 tidak bisa berubah secara langsung apabila nilai pada G2 diubah. Untuk mengubahnya harus meng-klik tombol SAVE terlebih dahulu. Padahal seharusnya berubah secara otomatis sesuai dengan rumus yang ada pada cell-cell tersebut (C4, C5, C8, dan E8).

Selengkapnya dapat dilihat pada lampiran dan videonya.

Saya juga sertakan video dari problem saya tersebut agar inti persoalan dapat ditangkap dengan jelas.

ini link videonya:

https://app.box.com/s/hdkojft7vbdgdttt5ryn

Sat Dec 7, 2013 3:31 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Nora,

Sepertinya setting calculation Excel dalam opsi Manual. Coba ubah ke
Automatic agar proses kalkulasi bisa langsung dilakukan oleh Excel.
Caranya melalui ribbon Formulas -> group Calculation -> item Calculation
Options -> pilih Automatic.

Wassalam,
Kid.

2013/12/8 Nora Ismanti <noraismanti@yahoo.com>

>
>
> Kepada para master dan anggota milis.
>
> Mohon saya dibantu atas persoalan yang saya hadapi:
>
> Mengapa nilai pada cell C4, C5, C8, dan E8 tidak bisa berubah secara
> langsung apabila nilai pada G2 diubah. Untuk mengubahnya harus meng-klik
> tombol SAVE terlebih dahulu. Padahal seharusnya berubah secara otomatis
> sesuai dengan rumus yang ada pada cell-cell tersebut (C4, C5, C8, dan E8).
>
> Selengkapnya dapat dilihat pada lampiran dan videonya.
>
> Saya juga sertakan video dari problem saya tersebut agar inti persoalan
> dapat ditangkap dengan jelas.
>
> ini link videonya:
>
> https://app.box.com/s/hdkojft7vbdgdttt5ryn
>
>
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar