15 New Messages
Digest #1991
5a
Re: Kenapa Koma di Text File dianggap sebagai baris baru oleh vba? by "slametharto@gmail.com" slametharto
6a
Re: Masukkan data dari Text File ke Excel (Setiap tab ke setiap kolo by "Mr. Kid" nmkid.family@ymail.com
Messages
Thu Dec 27, 2012 2:04 pm (PST) . Posted by:
"Andre Rahmaidy Teeza" andre_teeza_bn
Sore Master Exceller
terima kasih sebelumnya to Mr. Kid atas petunjuknya belajar tentang macro exel. saya mau tanya lagi Mr. gimana proses macronya untuk pos Laporan laba Rugi yang sebelumnya bergabung di sheet FORM secara otomatis pindah ke sheet lain (sheet RL), ketika saya klik tombol isi data (file terlampir).
Wasalam
Andree
--- Mods ---
Mohon tidak menyertakan akun selain milis Belajar-Excel pada alamat tujuan email.
------------
terima kasih sebelumnya to Mr. Kid atas petunjuknya belajar tentang macro exel. saya mau tanya lagi Mr. gimana proses macronya untuk pos Laporan laba Rugi yang sebelumnya bergabung di sheet FORM secara otomatis pindah ke sheet lain (sheet RL), ketika saya klik tombol isi data (file terlampir).
Wasalam
Andree
--- Mods ---
Mohon tidak menyertakan akun selain milis Belajar-Excel pada alamat tujuan email.
------------
Thu Dec 27, 2012 2:06 pm (PST) . Posted by:
"Dian Anas" anassheva20
dear miss jan raisin,
sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik ternyata muncul debug
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
niatan saya mau menginput data baru
bagaimana cara mengatasinya?
terima kasih
best regards
--- On Fri, 12/21/12, Dian Anas <anassheva20@yahoo.com > wrote:
From: Dian Anas <anassheva20@yahoo.com >
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, December 21, 2012, 3:42 AM
terima kasih atas pencerahannya, semoga tidak merepotkan.
--- On Fri, 12/21/12, Jan Raisin <miss.jan.raisin@gmail.com > wrote:
From: Jan Raisin <miss.jan.raisin@gmail.com >
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, December 21, 2012, 3:08 AM
Maaf, balasnya lama..
sebetulnya Jan inginnya mas Anas agak sedikit kreatif memberikan contoh model inputannya, tetapi yang dimunculkan modelnya sama. ini yang sempat bikin Jan hopeless,�mungkin saja mas Anas yang
terlalu sibuk jadi tidak sempat untuk berkrasi ria sehingga tidak sempat membuat apa yang Jan minta
Gini aja kali ya.. karena Jan lagi malas untuk bikin desain dan data dummy (niatnya sih mau dibikin data dummy aja) maka Jan akan menawarkan sebuah solusi yang sangat simpel dan mudah, tanpa perlu banyak coding script VBA, tanpa harus memikirkan desain untuk inputnya, pokoknya simple tetapi tidak murahan dan tampilannya juga lumayan oke dan tidak mengecewakan.�
Tapi ada syaratnya ya.. Yang ini wajib, kudu, harus, musti diikuti.. jika tidak maka gagal lah hasil Jan merenung di pojok kamar setiap malam sambil menunggu sang pangeran yang akan datang menyelamatkan Jan sambil menunggang kuda putih xixixi.. (Lebay Mode ON)
Hasil input harus disusun sebagai sebuah database yang baikDatabase mulai dari cell A1 dengan baris 1 adalah header datanya
Isi data dimulai dari baris 2Tidak ada merge cell baik di header maupun di dalam data
Tidak ada baris/ kolom kosong antar dataDatabase disusun dengan orientasi vertikal (dari atas ke bawah)
Tipe data setiap kolom harus seragam dan benarDatabase memiliki 1 buah kolom yang berfungsi sebagai Primary Key yang bersifat unik (tidak ada yang sama antar data, dalam kasus ini adalah NIP)
Sebaiknya database dibuat menjadi Tabel/List, pada excel 2007 ke atas dapat diakses melalui ribbon Home >> Styles >> Format as Table, pada versi 2003 ke bawah diakses melalui Data >> List >> Create List
langkah selanjutnya adalah mengaktifkan fitur Data Form-nya Excel, pada Excel 2007 ke atas diaktifkan dengan cara:Masuk ke menu Excel Option >> Quick Acces Toolbar >> pada kotak Choose command form, pilih Commands not in the ribbon >> klik Form >> klik Add >> klik OK. Untuk versi 2003 ke bawah Jan tidak mengetahui fitur ini diakses melalui apa.. semoga ada Be-Exceler lain yang masih memiliki versi 2003 bersedia untuk menjelaskannya.
Jika langkah di atas dilakukan dengan benar, maka seharusnya di pojok kiri atas akan muncul satu buah icon baru bernama Form.
Cara kerjanya gimana?untuk input data baru, klik icon Form sehingga muncul kotak seperti ini:
untuk melakukan input data baru, tarik scroll bar sampai ke paling bawah, sehingga Form akan terlihat kosong, setelah itu input semua data yang diinginkan, setelah selesai klik "NEW"
untuk Edit dan Deletenya gimana?
sebelum masuk ke tahap ini, ada kode yang harus ditulis dahulu di worksheet yang berisi database dengan event Before Double Click
cara memunculkannya, dari lembar kerja Excel, tekan tombol ALT F11 >> double klik nama sheetnya >> ganti General dengan Worksheet >> pilih BeforeDoubelClick
copas scriptnya berikut ke dalam VBE:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
� � With Target� � � � If .Count = 1 Then� � � � � � If .Column = 2 And .Row > 2 Then
� � � � � � � � Range("a1").Select� � � � � � � � ActiveSheet.ShowDataForm
� � � � � � End If� � � � End If� � End With
End Sub
untuk script di atas tidak Jan sertakan keterangannya, nanti kalo ingin mempelajari VBA lebih dalam tidak hanya mau terima jadi saja, Jan akan coba terangkan sejelas-jelasnya.
cara edit atau delete-nya adalah dengan cara melakukan double click pada nama yang ingin diedit atau didelete, jika hanya edit maka setelah melakukan Edit harus menekan tombol New, jika delete maka harus menekan tombol Delete setelah sebelumnya memilih data yang ingin dihapus.
kalo ingin mencari data tinggal klik Criteria, masukkan kriteria pencarian lalu tekan tombol Enter
Untuk pembuatan laporannya dapat menggunakan fitur Pivot table, ini adalah cara yang paling mudah karena hanya dibutuhkan melakukan drag & drop saja. (coba pelajari cara mnggunaan Pivot Table)
Gimana? simpel tetapi efektifkan.. seharusnya ini akan sangat mudah bagi newbie sekalipun
Sortnya datanya gimana? Manual dulu aja deh... nanti di sesi berikutnya insya ALLAH akan Jan ajari bagaimana cara sort data, yang paling mudah adalah dengan melakukan rekam macro. Atau mungkin ada Be-Exceler yang bersedia menambahkan script sortirnya.. sangat dipersilakan, karena punya ilmu gak boleh disimpan untuk diri sendiri.
Best Regard
-Ms. Jan Raisin-
Pada 17 Desember 2012 17:16, Dian Anas <anassheva20@yahoo.com > menulis:
�
terima kasih untuk penyelesaianya untuk duk, tapi saya masih ada permasalahan. jika data yang ada dalam sheet data ditampilkan dan dapat diedit sekaligus di sheet input bagaimana? atau buat tabel bantu untuk sheet input dan display data dari sheet data dibawahnya atau gmn? data input maupun edit tidak ada tersimpan bila tidak mengklik tombol save. terima kasih semoga tidak mengganggu.
best regads
sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik ternyata muncul debug
Range("a9:a10"
niatan saya mau menginput data baru
bagaimana cara mengatasinya?
terima kasih
best regards
--- On Fri, 12/21/12, Dian Anas <anassheva20@
From: Dian Anas <anassheva20@
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@
Date: Friday, December 21, 2012, 3:42 AM
terima kasih atas pencerahannya, semoga tidak merepotkan.
--- On Fri, 12/21/12, Jan Raisin <miss.jan.raisin@
From: Jan Raisin <miss.jan.raisin@
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@
Date: Friday, December 21, 2012, 3:08 AM
Maaf, balasnya lama..
sebetulnya Jan inginnya mas Anas agak sedikit kreatif memberikan contoh model inputannya, tetapi yang dimunculkan modelnya sama. ini yang sempat bikin Jan hopeless,�mungkin saja mas Anas yang
terlalu sibuk jadi tidak sempat untuk berkrasi ria sehingga tidak sempat membuat apa yang Jan minta
Gini aja kali ya.. karena Jan lagi malas untuk bikin desain dan data dummy (niatnya sih mau dibikin data dummy aja) maka Jan akan menawarkan sebuah solusi yang sangat simpel dan mudah, tanpa perlu banyak coding script VBA, tanpa harus memikirkan desain untuk inputnya, pokoknya simple tetapi tidak murahan dan tampilannya juga lumayan oke dan tidak mengecewakan.�
Tapi ada syaratnya ya.. Yang ini wajib, kudu, harus, musti diikuti.. jika tidak maka gagal lah hasil Jan merenung di pojok kamar setiap malam sambil menunggu sang pangeran yang akan datang menyelamatkan Jan sambil menunggang kuda putih xixixi.. (Lebay Mode ON)
Hasil input harus disusun sebagai sebuah database yang baikDatabase mulai dari cell A1 dengan baris 1 adalah header datanya
Isi data dimulai dari baris 2Tidak ada merge cell baik di header maupun di dalam data
Tidak ada baris/ kolom kosong antar dataDatabase disusun dengan orientasi vertikal (dari atas ke bawah)
Tipe data setiap kolom harus seragam dan benarDatabase memiliki 1 buah kolom yang berfungsi sebagai Primary Key yang bersifat unik (tidak ada yang sama antar data, dalam kasus ini adalah NIP)
Sebaiknya database dibuat menjadi Tabel/List, pada excel 2007 ke atas dapat diakses melalui ribbon Home >> Styles >> Format as Table, pada versi 2003 ke bawah diakses melalui Data >> List >> Create List
langkah selanjutnya adalah mengaktifkan fitur Data Form-nya Excel, pada Excel 2007 ke atas diaktifkan dengan cara:Masuk ke menu Excel Option >> Quick Acces Toolbar >> pada kotak Choose command form, pilih Commands not in the ribbon >> klik Form >> klik Add >> klik OK. Untuk versi 2003 ke bawah Jan tidak mengetahui fitur ini diakses melalui apa.. semoga ada Be-Exceler lain yang masih memiliki versi 2003 bersedia untuk menjelaskannya.
Jika langkah di atas dilakukan dengan benar, maka seharusnya di pojok kiri atas akan muncul satu buah icon baru bernama Form.
Cara kerjanya gimana?untuk input data baru, klik icon Form sehingga muncul kotak seperti ini:
untuk melakukan input data baru, tarik scroll bar sampai ke paling bawah, sehingga Form akan terlihat kosong, setelah itu input semua data yang diinginkan, setelah selesai klik "NEW"
untuk Edit dan Deletenya gimana?
sebelum masuk ke tahap ini, ada kode yang harus ditulis dahulu di worksheet yang berisi database dengan event Before Double Click
cara memunculkannya, dari lembar kerja Excel, tekan tombol ALT F11 >> double klik nama sheetnya >> ganti General dengan Worksheet >> pilih BeforeDoubelClick
copas scriptnya berikut ke dalam VBE:Private Sub Worksheet_BeforeDou
� � With Target� � � � If .Count = 1 Then� � � � � � If .Column = 2 And .Row > 2 Then
� � � � � � � � Range("a1").
� � � � � � End If� � � � End If� � End With
End Sub
untuk script di atas tidak Jan sertakan keterangannya, nanti kalo ingin mempelajari VBA lebih dalam tidak hanya mau terima jadi saja, Jan akan coba terangkan sejelas-jelasnya.
cara edit atau delete-nya adalah dengan cara melakukan double click pada nama yang ingin diedit atau didelete, jika hanya edit maka setelah melakukan Edit harus menekan tombol New, jika delete maka harus menekan tombol Delete setelah sebelumnya memilih data yang ingin dihapus.
kalo ingin mencari data tinggal klik Criteria, masukkan kriteria pencarian lalu tekan tombol Enter
Untuk pembuatan laporannya dapat menggunakan fitur Pivot table, ini adalah cara yang paling mudah karena hanya dibutuhkan melakukan drag & drop saja. (coba pelajari cara mnggunaan Pivot Table)
Gimana? simpel tetapi efektifkan.. seharusnya ini akan sangat mudah bagi newbie sekalipun
Sortnya datanya gimana? Manual dulu aja deh... nanti di sesi berikutnya insya ALLAH akan Jan ajari bagaimana cara sort data, yang paling mudah adalah dengan melakukan rekam macro. Atau mungkin ada Be-Exceler yang bersedia menambahkan script sortirnya.. sangat dipersilakan, karena punya ilmu gak boleh disimpan untuk diri sendiri.
Best Regard
-Ms. Jan Raisin-
Pada 17 Desember 2012 17:16, Dian Anas <anassheva20@
�
terima kasih untuk penyelesaianya untuk duk, tapi saya masih ada permasalahan. jika data yang ada dalam sheet data ditampilkan dan dapat diedit sekaligus di sheet input bagaimana? atau buat tabel bantu untuk sheet input dan display data dari sheet data dibawahnya atau gmn? data input maupun edit tidak ada tersimpan bila tidak mengklik tombol save. terima kasih semoga tidak mengganggu.
best regads
Thu Dec 27, 2012 5:21 pm (PST) . Posted by:
"Jan Raisin"
Dear pak Anas,
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim
ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih
kecil.
coba ganti script berikut:
' bikin nomor urut
Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1
elseif idxrow = 10 then
range("a9").value = 1
range("a10").value = 2
else
Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
end if
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@yahoo.com > menulis:
> **
>
>
> dear miss jan raisin,
> sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh
> miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa
> vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun
> balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
> ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik
> ternyata muncul debug
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
> niatan saya mau menginput data baru
> bagaimana cara mengatasinya?
> terima kasih
>
> best regards
>
>
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim
ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih
kecil.
coba ganti script berikut:
' bikin nomor urut
Range("a9").
Range("a10")
Range("a9:a10"
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1
elseif idxrow = 10 then
range("a9").
range("a10")
else
Range("a9").
Range("a10")
Range("a9:a10"
end if
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@
> **
>
>
> dear miss jan raisin,
> sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh
> miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa
> vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun
> balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
> ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik
> ternyata muncul debug
> Range("a9:a10"
> niatan saya mau menginput data baru
> bagaimana cara mengatasinya?
> terima kasih
>
> best regards
>
>
Thu Dec 27, 2012 6:12 pm (PST) . Posted by:
"Dian Anas" anassheva20
sudah dicoba dan berhasil terima kasih banyak miss jan
--- On Fri, 12/28/12, Jan Raisin <miss.jan.raisin@gmail.com > wrote:
From: Jan Raisin <miss.jan.raisin@gmail.com >
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, December 28, 2012, 1:21 AM
Dear pak Anas,
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih kecil.
coba ganti script berikut:
' bikin nomor urut Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1elseif idxrow = 10 then
range("a9").value = 1
range("a10").value = 2else
Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))end if
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@yahoo.com > menulis:
dear miss jan raisin,
sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik ternyata muncul debug
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
niatan saya mau menginput data baru
bagaimana cara mengatasinya?
terima kasih
best regards
--- On Fri, 12/28/12, Jan Raisin <miss.jan.raisin@
From: Jan Raisin <miss.jan.raisin@
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@
Date: Friday, December 28, 2012, 1:21 AM
Dear pak Anas,
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih kecil.
coba ganti script berikut:
' bikin nomor urut Range("a9").
Range("a10")
Range("a9:a10"
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1elseif idxrow = 10 then
range("a9").
range("a10")
Range("a9").
Range("a10")
Range("a9:a10"
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@
dear miss jan raisin,
sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik ternyata muncul debug
Range("a9:a10"
niatan saya mau menginput data baru
bagaimana cara mengatasinya?
terima kasih
best regards
Thu Dec 27, 2012 6:23 pm (PST) . Posted by:
"Dian Anas" anassheva20
desr miss jan,
kalau ditambah sort pada tmt golongan/pangkat secara descending, gmn kodenya atau mengedit kode yang ada.
terima kasih
best regards
--- On Fri, 12/28/12, Jan Raisin <miss.jan.raisin@gmail.com > wrote:
From: Jan Raisin <miss.jan.raisin@gmail.com >
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, December 28, 2012, 1:21 AM
Dear pak Anas,
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih kecil.
coba ganti script berikut:
' bikin nomor urut Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1elseif idxrow = 10 then
range("a9").value = 1
range("a10").value = 2else
Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))end if
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@yahoo.com > menulis:
dear miss jan raisin,
sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik ternyata muncul debug
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
niatan saya mau menginput data baru
bagaimana cara mengatasinya?
terima kasih
best regards
kalau ditambah sort pada tmt golongan/pangkat secara descending, gmn kodenya atau mengedit kode yang ada.
terima kasih
best regards
--- On Fri, 12/28/12, Jan Raisin <miss.jan.raisin@
From: Jan Raisin <miss.jan.raisin@
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@
Date: Friday, December 28, 2012, 1:21 AM
Dear pak Anas,
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih kecil.
coba ganti script berikut:
' bikin nomor urut Range("a9").
Range("a10")
Range("a9:a10"
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1elseif idxrow = 10 then
range("a9").
range("a10")
Range("a9").
Range("a10")
Range("a9:a10"
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@
dear miss jan raisin,
sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik ternyata muncul debug
Range("a9:a10"
niatan saya mau menginput data baru
bagaimana cara mengatasinya?
terima kasih
best regards
Thu Dec 27, 2012 7:04 pm (PST) . Posted by:
"Jan Raisin"
coba pelajari lagi bagian script yang dimerahin & baris di bawahnya,
lakukan modifikasi (penambahan/edit/delete script) sesuai keperluan
' sekarang saatnya melakukan sortir data
' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").Select
' blok seluruh data ke arah kanan dan ke arah bawah
Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.SortFields.Clear
' sort descending berdasarkan Golongan, headernya ada di cell D8
Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
Key:=Range("h8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
Key:=Range("i8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
Best Regard,
-Ms. Jan Raisin-
Pada 28 Desember 2012 09:18, Dian Anas <anassheva20@yahoo.com > menulis:
> **
>
>
> desr miss jan,
> kalau ditambah sort pada tmt golongan/pangkat secara descending, gmn
> kodenya atau mengedit kode yang ada.
>
> terima kasih
> best regards
>
>
>
> --- On *Fri, 12/28/12, Jan Raisin <miss.jan.raisin@gmail.com >* wrote:
>
>
> From: Jan Raisin <miss.jan.raisin@gmail.com >
> Subject: Re: [belajar-excel] membuat duk pns otomatis
> To: belajar-excel@yahoogroups.com
> Date: Friday, December 28, 2012, 1:21 AM
>
>
>
> Dear pak Anas,
>
> yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas
> kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi
> lebih kecil.
>
> coba ganti script berikut:
>
> ' bikin nomor urut
> Range("a9").Value = 1
> Range("a10").Value = 2
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
>
> dengan yang ini:
>
> if idxrow = 9 then
> range("a9"). value = 1
> elseif idxrow = 10 then
> range("a9").value = 1
> range("a10").value = 2
> else
> Range("a9").Value = 1
> Range("a10").Value = 2
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
> end if
>
> semoga sudah tidak muncul error lagi.
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
> Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@yahoo.com <http://mc/compose?to=anassheva20@yahoo.com >
> > menulis:
>
> **
>
>
> dear miss jan raisin,
> sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh
> miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa
> vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun
> balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
> ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik
> ternyata muncul debug
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
> niatan saya mau menginput data baru
> bagaimana cara mengatasinya?
> terima kasih
>
> best regards
>
>
>
lakukan modifikasi (penambahan/
' sekarang saatnya melakukan sortir data
' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").
' blok seluruh data ke arah kanan dan ke arah bawah
Range(Selection, Selection.End(
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.
' sort descending berdasarkan Golongan, headernya ada di cell D8
Sheets("ks dan guru").Sort.
SortOn:=xlSortOnVal
DataOption:=
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.
Key:=Range("
SortOn:=xlSortOnVal
DataOption:=
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.
Key:=Range("
SortOn:=xlSortOnVal
DataOption:=
Best Regard,
-Ms. Jan Raisin-
Pada 28 Desember 2012 09:18, Dian Anas <anassheva20@
> **
>
>
> desr miss jan,
> kalau ditambah sort pada tmt golongan/pangkat secara descending, gmn
> kodenya atau mengedit kode yang ada.
>
> terima kasih
> best regards
>
>
>
> --- On *Fri, 12/28/12, Jan Raisin <miss.jan.raisin@
>
>
> From: Jan Raisin <miss.jan.raisin@
> Subject: Re: [belajar-excel] membuat duk pns otomatis
> To: belajar-excel@
> Date: Friday, December 28, 2012, 1:21 AM
>
>
>
> Dear pak Anas,
>
> yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas
> kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi
> lebih kecil.
>
> coba ganti script berikut:
>
> ' bikin nomor urut
> Range("a9").
> Range("a10")
> Range("a9:a10"
>
> dengan yang ini:
>
> if idxrow = 9 then
> range("a9"). value = 1
> elseif idxrow = 10 then
> range("a9").
> range("a10")
> else
> Range("a9").
> Range("a10")
> Range("a9:a10"
> end if
>
> semoga sudah tidak muncul error lagi.
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
> Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@
> > menulis:
>
> **
>
>
> dear miss jan raisin,
> sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh
> miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa
> vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun
> balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
> ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik
> ternyata muncul debug
> Range("a9:a10"
> niatan saya mau menginput data baru
> bagaimana cara mengatasinya?
> terima kasih
>
> best regards
>
>
>
Thu Dec 27, 2012 9:40 pm (PST) . Posted by:
"Dian Anas" anassheva20
dear miss jan
terima kasih sudah ketemu, mohon maaf merepotkan
--- On Fri, 12/28/12, Jan Raisin <miss.jan.raisin@gmail.com > wrote:
From: Jan Raisin <miss.jan.raisin@gmail.com >
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, December 28, 2012, 3:04 AM
coba pelajari lagi bagian script yang dimerahin & baris di bawahnya, lakukan modifikasi (penambahan/edit/delete script) sesuai keperluan
' sekarang saatnya melakukan sortir data
' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").Select
' blok seluruh data ke arah kanan dan ke arah bawah
Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.SortFields.Clear
' sort descending berdasarkan Golongan, headernya ada di cell D8
Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add Key:=Range("h8"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add Key:=Range("i8"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
Best Regard,
-Ms. Jan Raisin-
Pada 28 Desember 2012 09:18, Dian Anas <anassheva20@yahoo.com > menulis:
desr miss jan,
kalau ditambah sort pada tmt golongan/pangkat secara descending, gmn kodenya atau mengedit kode yang ada.
terima kasih
best regards
--- On Fri, 12/28/12, Jan Raisin <miss.jan.raisin@gmail.com > wrote:
From: Jan Raisin <miss.jan.raisin@gmail.com >
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, December 28, 2012, 1:21 AM
Dear pak Anas,
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih kecil.
coba ganti script berikut:
' bikin nomor urut Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1elseif idxrow = 10 then
range("a9").value = 1
range("a10").value = 2else
Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))end if
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@yahoo.com > menulis:
dear miss jan raisin,
sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik ternyata muncul debug
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
niatan saya mau menginput data baru
bagaimana cara mengatasinya?
terima kasih
best regards
terima kasih sudah ketemu, mohon maaf merepotkan
--- On Fri, 12/28/12, Jan Raisin <miss.jan.raisin@
From: Jan Raisin <miss.jan.raisin@
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@
Date: Friday, December 28, 2012, 3:04 AM
coba pelajari lagi bagian script yang dimerahin & baris di bawahnya, lakukan modifikasi (penambahan/
' sekarang saatnya melakukan sortir data
' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").
' blok seluruh data ke arah kanan dan ke arah bawah
Range(Selection, Selection.End(
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.
' sort descending berdasarkan Golongan, headernya ada di cell D8
Sheets("ks dan guru").Sort.
SortOn:=xlSortOnVal
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.
SortOn:=xlSortOnVal
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.
SortOn:=xlSortOnVal
Best Regard,
-Ms. Jan Raisin-
Pada 28 Desember 2012 09:18, Dian Anas <anassheva20@
desr miss jan,
kalau ditambah sort pada tmt golongan/pangkat secara descending, gmn kodenya atau mengedit kode yang ada.
terima kasih
best regards
--- On Fri, 12/28/12, Jan Raisin <miss.jan.raisin@
From: Jan Raisin <miss.jan.raisin@
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@
Date: Friday, December 28, 2012, 1:21 AM
Dear pak Anas,
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih kecil.
coba ganti script berikut:
' bikin nomor urut Range("a9").
Range("a10")
Range("a9:a10"
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1elseif idxrow = 10 then
range("a9").
range("a10")
Range("a9").
Range("a10")
Range("a9:a10"
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <anassheva20@
dear miss jan raisin,
sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik ternyata muncul debug
Range("a9:a10"
niatan saya mau menginput data baru
bagaimana cara mengatasinya?
terima kasih
best regards
Thu Dec 27, 2012 2:07 pm (PST) . Posted by:
"Tony Bexcel"
Dear Pakar Yang Budiman,
Mohon dengan sangat bantuan pencerahan pada kasus file yang saya Lampirkan,dimana saya ingin memberikan bonus 0.5%.
Untuk jelasnya saya lampirkan data pendukung nya ya temans...
Salam,
Tono
Mohon dengan sangat bantuan pencerahan pada kasus file yang saya Lampirkan,dimana saya ingin memberikan bonus 0.5%.
Untuk jelasnya saya lampirkan data pendukung nya ya temans...
Salam,
Tono
Thu Dec 27, 2012 5:32 pm (PST) . Posted by:
"Jan Raisin"
Dear pak Tono,
coba formula berikut, ditulis di cell K8 =IF((F8>=100%)*(J8>=2);0,5%*E8;0)
copy ke arah bawah
wassalam,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:32, Tony Bexcel <tonybexcel@yahoo.co.id > menulis:
> **
>
>
> Dear Pakar Yang Budiman,
>
> Mohon dengan sangat bantuan pencerahan pada kasus file yang saya
> Lampirkan,dimana saya ingin memberikan bonus 0.5%.
> Untuk jelasnya saya lampirkan data pendukung nya ya temans...
>
> Salam,
> Tono
>
>
>
coba formula berikut, ditulis di cell K8 =IF((F8>=100%
copy ke arah bawah
wassalam,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:32, Tony Bexcel <tonybexcel@yahoo.
> **
>
>
> Dear Pakar Yang Budiman,
>
> Mohon dengan sangat bantuan pencerahan pada kasus file yang saya
> Lampirkan,dimana saya ingin memberikan bonus 0.5%.
> Untuk jelasnya saya lampirkan data pendukung nya ya temans...
>
> Salam,
> Tono
>
>
>
Thu Dec 27, 2012 2:07 pm (PST) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Mohon informasi dari rekan-rekan BeExceller bagaimana caranya mengisi UserForm yang formatnya Currency.
Pada UserForm yang saya buat selama ini hanya berformat Text misalnya 15000. Yang saya inginkan otomatis berformat 15,000.-
Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
Terima kasih & Wassalam,
Harry
Mohon informasi dari rekan-rekan BeExceller bagaimana caranya mengisi UserForm yang formatnya Currency.
Pada UserForm yang saya buat selama ini hanya berformat Text misalnya 15000. Yang saya inginkan otomatis berformat 15,000.-
Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
Terima kasih & Wassalam,
Harry
Thu Dec 27, 2012 7:17 pm (PST) . Posted by:
"Jan Raisin"
Pak Harry,
coba manfaatkan event change pada text box
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "#,###")
End Sub
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 19:21, Harry <hariansyahptk@yahoo.com > menulis:
> **
>
>
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya mengisi
> UserForm yang formatnya Currency.
> Pada UserForm yang saya buat selama ini hanya berformat Text misalnya
> 15000. Yang saya inginkan otomatis berformat 15,000.-
>
> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>
> Terima kasih & Wassalam,
>
>
> Harry
>
>
>
coba manfaatkan event change pada text box
Private Sub TextBox1_Change(
TextBox1.Value = Format(TextBox1.
End Sub
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 19:21, Harry <hariansyahptk@
> **
>
>
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya mengisi
> UserForm yang formatnya Currency.
> Pada UserForm yang saya buat selama ini hanya berformat Text misalnya
> 15000. Yang saya inginkan otomatis berformat 15,000.-
>
> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>
> Terima kasih & Wassalam,
>
>
> Harry
>
>
>
Thu Dec 27, 2012 2:07 pm (PST) . Posted by:
"slametharto@gmail.com" slametharto
وَعَلَيÙ'ÙƒÙÙ…Ù' السÙ'َلاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاته
Coba gunakan script berikut:
sub import()
Dim sData, Char, txt as string
Dim r,c,I as Long
Dim Irng as range
Dim sData as String
Open "D:\jwb.txt" For Input As #1
r = 0: c = 0: txt =""
Set Irng = Cells(5, 2)
Do While Not EOF(1)
Line Input #1, sData
For i = 1 To Len(sData) + 1
Char = Mid(sData, i, 1)
If char = "," or char = ";" or I > Len(sData) Then
Irng.offset(r,c) = txt
c = c + 1
Else
If char <> chr(34) Then txt = txt & Mid(sData, i, 1)
End If
Next i
c = 0: r = r + 1
AcctiveCell.Offset(1, 0).Select
Loop
Close #1
End Sub
Wassalam
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: "Adi" <abduhsuryadi@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Thu, 27 Dec 2012 09:34:48
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Kenapa Koma di Text File dianggap sebagai baris baru oleh vba?
Assalamu'alaikum Wr. Wb.
Saya mempunyai data di text file (jwb.txt) seperti ini:
A007,Abdurrahman,Fisika;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ
Dim sData as String
Open "D:\jwb.txt" For Input As #1
Cells(5, 2).Select
Do While Not EOF(1)
Input #1, sData
ActiveCell.Value = sData
ActiveCell.Offset(1, 0).Select
Loop
Close #1
Pertanyaan:
1. Kenapa tanda koma (,) dianggap sebagai new line?
2. Bagaimana cara untuk memecah data tersebut ke setiap kolom, dimana tanda titik koma (;) menjadi pemisahnya? (5 kolom)
Terima kasih, mohon maaf kalau ada yang salah.
Wassalamu'alaikum Wr. Wb.
Coba gunakan script berikut:
sub import()
Dim sData, Char, txt as string
Dim r,c,I as Long
Dim Irng as range
Dim sData as String
Open "D:\jwb.txt" For Input As #1
r = 0: c = 0: txt =""
Set Irng = Cells(5, 2)
Do While Not EOF(1)
Line Input #1, sData
For i = 1 To Len(sData) + 1
Char = Mid(sData, i, 1)
If char = "," or char = ";" or I > Len(sData) Then
Irng.offset(
c = c + 1
Else
If char <> chr(34) Then txt = txt & Mid(sData, i, 1)
End If
Next i
c = 0: r = r + 1
AcctiveCell.
Loop
Close #1
End Sub
Wassalam
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: "Adi" <abduhsuryadi@
Sender: belajar-excel@
Date: Thu, 27 Dec 2012 09:34:48
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: [belajar-excel] Kenapa Koma di Text File dianggap sebagai baris baru oleh vba?
Assalamu'alaikum Wr. Wb.
Saya mempunyai data di text file (jwb.txt) seperti ini:
A007,Abdurrahman,
Dim sData as String
Open "D:\jwb.txt" For Input As #1
Cells(5, 2).Select
Do While Not EOF(1)
Input #1, sData
ActiveCell.Value = sData
ActiveCell.Offset(
Loop
Close #1
Pertanyaan:
1. Kenapa tanda koma (,) dianggap sebagai new line?
2. Bagaimana cara untuk memecah data tersebut ke setiap kolom, dimana tanda titik koma (;) menjadi pemisahnya? (5 kolom)
Terima kasih, mohon maaf kalau ada yang salah.
Wassalamu'alaikum Wr. Wb.
Thu Dec 27, 2012 2:21 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba ganti baris :
For iCol = 1 To 5
menjadi :
For iCol = 1 To ubound(T)+1
Wassalam,
Kid.
2012/12/27 Adi <abduhsuryadi@gmail.com >
> **
>
>
> trmkash Miss..
> saya coba kode yg terakhir dan ada error: "subscript out of range". kira2
> kenapa ya?
> wassalam...
>
>
> --- In belajar-excel@yahoogroups.com , Jan Raisin <miss.jan.raisin@...>
> wrote:
> >
> > ups.. salah xixixix :D
> > yang tadi untuk space delimiter, coba ubah script menjadi seperti ini:
> >
> > Dim sData As String
> > Dim T As Variant
> > Dim iRow As Long, iCol As Integer
> >
> > Open "D:\jwb.txt" For Input As #1
> > iRow = 5
> > Input #1, sData
> > Do While Not EOF(1)
> > T = Split(sData, vbTab)
> > For iCol = 1 To 5
> > Cells(iRow, iCol + 1) = T(iCol - 1)
> > Next iCol
> > iRow = iRow + 1
> > Input #1, sData
> > Loop
> > Close #1
> >
> > Wassalamu'alaikum wr. wb.,
> >
> > -Ms. Jan Raisin-
> >
> > Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@...> menulis:
>
> >
> > > Wa'alaikumsalam wr. wb.,
> > >
> > > Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> > > setelah close #1
> > > Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
> > > Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True
> > >
> > > Wassalamu'alaikum wr. wb.,
> > >
> > > -Ms. Jan Raisin-
> > >
> > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@...> menulis:
> > >
> > > **
>
> > >>
> > >>
> > >> Assalamu'alaikum Wr. Wb.
> > >>
> > >> Saya mempunyai data di jwb.txt
> > >> isinya kira-kira:
> > >>
> > >> A002 Adi 10-A Biologi DACDEDAEDA
> > >> A004 Ahmad 10-B Fisika ADCDEEAACA
> > >>
> > >> kode saya untuk membaca file tersebut ke excel seperti ini:
> > >>
> > >> Dim sData as String
> > >>
> > >> Open "D:\jwb.txt" For Input As #1
> > >> Cells(5, 2).Select
> > >> Do While Not EOF(1)
> > >> Input #1, sData
> > >> ActiveCell.Value = sData
> > >> ActiveCell.Offset(1, 0).Select
> > >> Loop
> > >> Close #1
> > >>
> > >> Hasil yang didapatkan semua berada di satu kolom.
> > >> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text
> file
> > >> tersebut berada dalam kolom tersendiri?
> > >> Terima kasih, wassalam...
> > >>
> > >>
> > >>
> > >
> > >
> >
>
>
>
For iCol = 1 To 5
menjadi :
For iCol = 1 To ubound(T)+1
Wassalam,
Kid.
2012/12/27 Adi <abduhsuryadi@
> **
>
>
> trmkash Miss..
> saya coba kode yg terakhir dan ada error: "subscript out of range". kira2
> kenapa ya?
> wassalam...
>
>
> --- In belajar-excel@
> wrote:
> >
> > ups.. salah xixixix :D
> > yang tadi untuk space delimiter, coba ubah script menjadi seperti ini:
> >
> > Dim sData As String
> > Dim T As Variant
> > Dim iRow As Long, iCol As Integer
> >
> > Open "D:\jwb.txt" For Input As #1
> > iRow = 5
> > Input #1, sData
> > Do While Not EOF(1)
> > T = Split(sData, vbTab)
> > For iCol = 1 To 5
> > Cells(iRow, iCol + 1) = T(iCol - 1)
> > Next iCol
> > iRow = iRow + 1
> > Input #1, sData
> > Loop
> > Close #1
> >
> > Wassalamu'alaikum wr. wb.,
> >
> > -Ms. Jan Raisin-
> >
> > Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@
>
> >
> > > Wa'alaikumsalam wr. wb.,
> > >
> > > Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> > > setelah close #1
> > > Range(Cells(
> > > Cells(5,2), xlDelimited, xlTextQualifierDoub
> > >
> > > Wassalamu'alaikum wr. wb.,
> > >
> > > -Ms. Jan Raisin-
> > >
> > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@
> > >
> > > **
>
> > >>
> > >>
> > >> Assalamu'alaikum Wr. Wb.
> > >>
> > >> Saya mempunyai data di jwb.txt
> > >> isinya kira-kira:
> > >>
> > >> A002 Adi 10-A Biologi DACDEDAEDA
> > >> A004 Ahmad 10-B Fisika ADCDEEAACA
> > >>
> > >> kode saya untuk membaca file tersebut ke excel seperti ini:
> > >>
> > >> Dim sData as String
> > >>
> > >> Open "D:\jwb.txt" For Input As #1
> > >> Cells(5, 2).Select
> > >> Do While Not EOF(1)
> > >> Input #1, sData
> > >> ActiveCell.Value = sData
> > >> ActiveCell.Offset(
> > >> Loop
> > >> Close #1
> > >>
> > >> Hasil yang didapatkan semua berada di satu kolom.
> > >> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text
> file
> > >> tersebut berada dalam kolom tersendiri?
> > >> Terima kasih, wassalam...
> > >>
> > >>
> > >>
> > >
> > >
> >
>
>
>
Thu Dec 27, 2012 5:49 pm (PST) . Posted by:
"Adi" abduh_suryadi
Terima kasih banyak atas petunjuknya Mr. kalau boleh saya bertanya lagi, kenapa koma dianggap sebagai baris baru? saya mempunya data di text file seperti di bawah ini (contoh):
A007,Abdurrahman,Laki;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ
akan berada di record/row baru yang lain di excel. bagaimana cara menanganinya?
terima kasih Mr.
Wassalam....
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Coba ganti baris :
> For iCol = 1 To 5
> menjadi :
> For iCol = 1 To ubound(T)+1
>
> Wassalam,
> Kid.
>
>
> 2012/12/27 Adi <abduhsuryadi@...>
>
> > **
> >
> >
> > trmkash Miss..
> > saya coba kode yg terakhir dan ada error: "subscript out of range". kira2
> > kenapa ya?
> > wassalam...
> >
> >
> > --- In belajar-excel@yahoogroups.com , Jan Raisin <miss.jan.raisin@>
> > wrote:
> > >
> > > ups.. salah xixixix :D
> > > yang tadi untuk space delimiter, coba ubah script menjadi seperti ini:
> > >
> > > Dim sData As String
> > > Dim T As Variant
> > > Dim iRow As Long, iCol As Integer
> > >
> > > Open "D:\jwb.txt" For Input As #1
> > > iRow = 5
> > > Input #1, sData
> > > Do While Not EOF(1)
> > > T = Split(sData, vbTab)
> > > For iCol = 1 To 5
> > > Cells(iRow, iCol + 1) = T(iCol - 1)
> > > Next iCol
> > > iRow = iRow + 1
> > > Input #1, sData
> > > Loop
> > > Close #1
> > >
> > > Wassalamu'alaikum wr. wb.,
> > >
> > > -Ms. Jan Raisin-
> > >
> > > Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@> menulis:
> >
> > >
> > > > Wa'alaikumsalam wr. wb.,
> > > >
> > > > Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> > > > setelah close #1
> > > > Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
> > > > Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True
> > > >
> > > > Wassalamu'alaikum wr. wb.,
> > > >
> > > > -Ms. Jan Raisin-
> > > >
> > > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@> menulis:
> > > >
> > > > **
> >
> > > >>
> > > >>
> > > >> Assalamu'alaikum Wr. Wb.
> > > >>
> > > >> Saya mempunyai data di jwb.txt
> > > >> isinya kira-kira:
> > > >>
> > > >> A002 Adi 10-A Biologi DACDEDAEDA
> > > >> A004 Ahmad 10-B Fisika ADCDEEAACA
> > > >>
> > > >> kode saya untuk membaca file tersebut ke excel seperti ini:
> > > >>
> > > >> Dim sData as String
> > > >>
> > > >> Open "D:\jwb.txt" For Input As #1
> > > >> Cells(5, 2).Select
> > > >> Do While Not EOF(1)
> > > >> Input #1, sData
> > > >> ActiveCell.Value = sData
> > > >> ActiveCell.Offset(1, 0).Select
> > > >> Loop
> > > >> Close #1
> > > >>
> > > >> Hasil yang didapatkan semua berada di satu kolom.
> > > >> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text
> > file
> > > >> tersebut berada dalam kolom tersendiri?
> > > >> Terima kasih, wassalam...
> > > >>
> > > >>
> > > >>
> > > >
> > > >
> > >
> >
> >
> >
>
A007,Abdurrahman,
akan berada di record/row baru yang lain di excel. bagaimana cara menanganinya?
terima kasih Mr.
Wassalam....
--- In belajar-excel@
>
> Coba ganti baris :
> For iCol = 1 To 5
> menjadi :
> For iCol = 1 To ubound(T)+1
>
> Wassalam,
> Kid.
>
>
> 2012/12/27 Adi <abduhsuryadi@
>
> > **
> >
> >
> > trmkash Miss..
> > saya coba kode yg terakhir dan ada error: "subscript out of range". kira2
> > kenapa ya?
> > wassalam...
> >
> >
> > --- In belajar-excel@
> > wrote:
> > >
> > > ups.. salah xixixix :D
> > > yang tadi untuk space delimiter, coba ubah script menjadi seperti ini:
> > >
> > > Dim sData As String
> > > Dim T As Variant
> > > Dim iRow As Long, iCol As Integer
> > >
> > > Open "D:\jwb.txt" For Input As #1
> > > iRow = 5
> > > Input #1, sData
> > > Do While Not EOF(1)
> > > T = Split(sData, vbTab)
> > > For iCol = 1 To 5
> > > Cells(iRow, iCol + 1) = T(iCol - 1)
> > > Next iCol
> > > iRow = iRow + 1
> > > Input #1, sData
> > > Loop
> > > Close #1
> > >
> > > Wassalamu'alaikum wr. wb.,
> > >
> > > -Ms. Jan Raisin-
> > >
> > > Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@
> >
> > >
> > > > Wa'alaikumsalam wr. wb.,
> > > >
> > > > Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> > > > setelah close #1
> > > > Range(Cells(
> > > > Cells(5,2), xlDelimited, xlTextQualifierDoub
> > > >
> > > > Wassalamu'alaikum wr. wb.,
> > > >
> > > > -Ms. Jan Raisin-
> > > >
> > > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@
> > > >
> > > > **
> >
> > > >>
> > > >>
> > > >> Assalamu'alaikum Wr. Wb.
> > > >>
> > > >> Saya mempunyai data di jwb.txt
> > > >> isinya kira-kira:
> > > >>
> > > >> A002 Adi 10-A Biologi DACDEDAEDA
> > > >> A004 Ahmad 10-B Fisika ADCDEEAACA
> > > >>
> > > >> kode saya untuk membaca file tersebut ke excel seperti ini:
> > > >>
> > > >> Dim sData as String
> > > >>
> > > >> Open "D:\jwb.txt" For Input As #1
> > > >> Cells(5, 2).Select
> > > >> Do While Not EOF(1)
> > > >> Input #1, sData
> > > >> ActiveCell.Value = sData
> > > >> ActiveCell.Offset(
> > > >> Loop
> > > >> Close #1
> > > >>
> > > >> Hasil yang didapatkan semua berada di satu kolom.
> > > >> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text
> > file
> > > >> tersebut berada dalam kolom tersendiri?
> > > >> Terima kasih, wassalam...
> > > >>
> > > >>
> > > >>
> > > >
> > > >
> > >
> >
> >
> >
>
Thu Dec 27, 2012 7:51 pm (PST) . Posted by:
"Jan Raisin"
Dear ibu Teti,
coba aktifkan add-ins Analysis Tool Pack, dari menu:
Option => Add-Ins => pada kotak Manage pilih Excel Add-Ins => Go => beri
cek list pada Analysis Tool Pack => OK
jika dilakukan dengan benar maka pada ribbon Data, tab Analysis akan muncul
icon baru bernama Data Analysis yang berisi seluruh tools untuk melakukan
perhitungan statistika.
maaf tidak melampirkan contoh file yang diminta karena Jan tidak
memilikinya. kalo tidak salah ada BeExceller yang bekerja sebagai
guru/dosen Statisitika (ybs belum lama ini membuat thread yang berhubungan
dengan statistika) bersedia berbagi contoh file untuk belajar bersama.
Wassalam,
-Ms. Jan Raisin-
Pada 27 Desember 2012 14:39, Teti Zhe <teti_zhe@yahoo.com > menulis:
> **
>
>
> Dear All,
> Saya mohon bantuannya, bagaimana cara mengelola data untuk dianalisis di
> excel? Selama ini yang saya dengar, yang paling standar untuk mengolah data
> adalah pake SPSS, namun, browsing2 katanya bisa koq pake excel malah lebih
> mudah gitu.. Apakah teman-teman boleh share ke saya contoh nya (contoh data
> yang kemudian diolah/dianalisis pake excel)..? Mulai dari cara input
> questioner nya hingga analisisnya, gimana gitu ? Jika data tersebut
> misalnya merupakah bahan untuk mengukur berapa persen ketertarikan
> seseorang pada sesuatu hal begitu?? Apakah ada rumus2 statistik yang rumit2
> itu yang perlu dipake?
> Mohon pencerahannya,
> Terimakasih..
>
> Salam,
> Teti.
>
>
>
coba aktifkan add-ins Analysis Tool Pack, dari menu:
Option => Add-Ins => pada kotak Manage pilih Excel Add-Ins => Go => beri
cek list pada Analysis Tool Pack => OK
jika dilakukan dengan benar maka pada ribbon Data, tab Analysis akan muncul
icon baru bernama Data Analysis yang berisi seluruh tools untuk melakukan
perhitungan statistika.
maaf tidak melampirkan contoh file yang diminta karena Jan tidak
memilikinya. kalo tidak salah ada BeExceller yang bekerja sebagai
guru/dosen Statisitika (ybs belum lama ini membuat thread yang berhubungan
dengan statistika) bersedia berbagi contoh file untuk belajar bersama.
Wassalam,
-Ms. Jan Raisin-
Pada 27 Desember 2012 14:39, Teti Zhe <teti_zhe@yahoo.
> **
>
>
> Dear All,
> Saya mohon bantuannya, bagaimana cara mengelola data untuk dianalisis di
> excel? Selama ini yang saya dengar, yang paling standar untuk mengolah data
> adalah pake SPSS, namun, browsing2 katanya bisa koq pake excel malah lebih
> mudah gitu.. Apakah teman-teman boleh share ke saya contoh nya (contoh data
> yang kemudian diolah/dianalisis pake excel)..? Mulai dari cara input
> questioner nya hingga analisisnya, gimana gitu ? Jika data tersebut
> misalnya merupakah bahan untuk mengukur berapa persen ketertarikan
> seseorang pada sesuatu hal begitu?? Apakah ada rumus2 statistik yang rumit2
> itu yang perlu dipake?
> Mohon pencerahannya,
> Terimakasih.
>
> Salam,
> Teti.
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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