11 Messages
Digest #3459
2a
Re: Bagaimana menampilkan query dari database berformat txt ke xls-2 by "Mr. Kid" nmkid.family@ymail.com
Messages
Wed Jun 3, 2015 9:40 pm (PDT) . Posted by:
"Toby kenzo" tobykenzo
Dear Nisa, Bisa di kirim ngga file excelnya.. TerimaKasih.
Pada Kamis, 4 Juni 2015 2:35, "Nisa Khairunnisa punyanisa16@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Mohon bantuannya para master, saya kebingungan dengan error unable to set the formula array property of the range class.sudah dicoba diutak atik tapi ttp error .hasil dari fungsi linestnya ada di 2 kolom 5 baris. Mohon pencerahannya, terimakasih.
Dim outRow, rowNum, outSheet
Dim x, y As Integer
Private Sub CommandButton1_Click()
outRow = 5 'Untuk menentukan dimana hasil perhitungan ditampilkan
outSheet = "Forecast Linier"
Worksheets(outSheet).Activate
' Membersihkan bagian output pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
Selection.Clear
Selection.ClearContents
If ComboBox1 = "Regresi Linier" Then
Sheets("Forecast Linier").Cells(1, 1) = TxtPeriode.Text
For y = 1 To Cells(1, 1).Value
Cells(8 + y, 4) = InputBox("masukkan nilai")
Cells(8 + y, 4).Select
Next y
MsgBox " Data yang anda masukkan sudah terpenuhi"
Else
If ComboBox1 = "Regresi Kuadrat" Then
InputPenjualan_kuadrat.Show
Else
If ComboBox1 = "Eksponensial" Then
InputPenjualan_eksponensial.Show
End If
End If
End If
End Sub
Private Sub Hitung_Click()
For rowNum = 1 To Cells(1, 1).Value
x = rowNum - 1
Cells(outRow + rowNum + 3, 3).Value = rowNum 'Periode
Cells(outRow + rowNum + 3, 5).Value = x
Next rowNum
Range("I10:J14").Select
ActiveCell.FormulaR1C1 = "=linest"
Range("I10:J14").Select
Selection.FormulaArray = _
"=LINEST(y,x,1,1)"
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Regresi Linier"
.AddItem "Regresi Kuadrat"
.AddItem "Eksponensial"
End With
End Sub
#yiv4090725577 #yiv4090725577 -- #yiv4090725577ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4090725577 #yiv4090725577ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4090725577 #yiv4090725577ygrp-mkp #yiv4090725577hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4090725577 #yiv4090725577ygrp-mkp #yiv4090725577ads {margin-bottom:10px;}#yiv4090725577 #yiv4090725577ygrp-mkp .yiv4090725577ad {padding:0 0;}#yiv4090725577 #yiv4090725577ygrp-mkp .yiv4090725577ad p {margin:0;}#yiv4090725577 #yiv4090725577ygrp-mkp .yiv4090725577ad a {color:#0000ff;text-decoration:none;}#yiv4090725577 #yiv4090725577ygrp-sponsor #yiv4090725577ygrp-lc {font-family:Arial;}#yiv4090725577 #yiv4090725577ygrp-sponsor #yiv4090725577ygrp-lc #yiv4090725577hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4090725577 #yiv4090725577ygrp-sponsor #yiv4090725577ygrp-lc .yiv4090725577ad {margin-bottom:10px;padding:0 0;}#yiv4090725577 #yiv4090725577actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4090725577 #yiv4090725577activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4090725577 #yiv4090725577activity span {font-weight:700;}#yiv4090725577 #yiv4090725577activity span:first-child {text-transform:uppercase;}#yiv4090725577 #yiv4090725577activity span a {color:#5085b6;text-decoration:none;}#yiv4090725577 #yiv4090725577activity span span {color:#ff7900;}#yiv4090725577 #yiv4090725577activity span .yiv4090725577underline {text-decoration:underline;}#yiv4090725577 .yiv4090725577attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4090725577 .yiv4090725577attach div a {text-decoration:none;}#yiv4090725577 .yiv4090725577attach img {border:none;padding-right:5px;}#yiv4090725577 .yiv4090725577attach label {display:block;margin-bottom:5px;}#yiv4090725577 .yiv4090725577attach label a {text-decoration:none;}#yiv4090725577 blockquote {margin:0 0 0 4px;}#yiv4090725577 .yiv4090725577bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4090725577 .yiv4090725577bold a {text-decoration:none;}#yiv4090725577 dd.yiv4090725577last p a {font-family:Verdana;font-weight:700;}#yiv4090725577 dd.yiv4090725577last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4090725577 dd.yiv4090725577last p span.yiv4090725577yshortcuts {margin-right:0;}#yiv4090725577 div.yiv4090725577attach-table div div a {text-decoration:none;}#yiv4090725577 div.yiv4090725577attach-table {width:400px;}#yiv4090725577 div.yiv4090725577file-title a, #yiv4090725577 div.yiv4090725577file-title a:active, #yiv4090725577 div.yiv4090725577file-title a:hover, #yiv4090725577 div.yiv4090725577file-title a:visited {text-decoration:none;}#yiv4090725577 div.yiv4090725577photo-title a, #yiv4090725577 div.yiv4090725577photo-title a:active, #yiv4090725577 div.yiv4090725577photo-title a:hover, #yiv4090725577 div.yiv4090725577photo-title a:visited {text-decoration:none;}#yiv4090725577 div#yiv4090725577ygrp-mlmsg #yiv4090725577ygrp-msg p a span.yiv4090725577yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4090725577 .yiv4090725577green {color:#628c2a;}#yiv4090725577 .yiv4090725577MsoNormal {margin:0 0 0 0;}#yiv4090725577 o {font-size:0;}#yiv4090725577 #yiv4090725577photos div {float:left;width:72px;}#yiv4090725577 #yiv4090725577photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv4090725577 #yiv4090725577photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4090725577 #yiv4090725577reco-category {font-size:77%;}#yiv4090725577 #yiv4090725577reco-desc {font-size:77%;}#yiv4090725577 .yiv4090725577replbq {margin:4px;}#yiv4090725577 #yiv4090725577ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4090725577 #yiv4090725577ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4090725577 #yiv4090725577ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4090725577 #yiv4090725577ygrp-mlmsg select, #yiv4090725577 input, #yiv4090725577 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4090725577 #yiv4090725577ygrp-mlmsg pre, #yiv4090725577 code {font:115% monospace;}#yiv4090725577 #yiv4090725577ygrp-mlmsg * {line-height:1.22em;}#yiv4090725577 #yiv4090725577ygrp-mlmsg #yiv4090725577logo {padding-bottom:10px;}#yiv4090725577 #yiv4090725577ygrp-msg p a {font-family:Verdana;}#yiv4090725577 #yiv4090725577ygrp-msg p#yiv4090725577attach-count span {color:#1E66AE;font-weight:700;}#yiv4090725577 #yiv4090725577ygrp-reco #yiv4090725577reco-head {color:#ff7900;font-weight:700;}#yiv4090725577 #yiv4090725577ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4090725577 #yiv4090725577ygrp-sponsor #yiv4090725577ov li a {font-size:130%;text-decoration:none;}#yiv4090725577 #yiv4090725577ygrp-sponsor #yiv4090725577ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4090725577 #yiv4090725577ygrp-sponsor #yiv4090725577ov ul {margin:0;padding:0 0 0 8px;}#yiv4090725577 #yiv4090725577ygrp-text {font-family:Georgia;}#yiv4090725577 #yiv4090725577ygrp-text p {margin:0 0 1em 0;}#yiv4090725577 #yiv4090725577ygrp-text tt {font-size:120%;}#yiv4090725577 #yiv4090725577ygrp-vital ul li:last-child {border-right:none !important;}#yiv4090725577
Pada Kamis, 4 Juni 2015 2:35, "Nisa Khairunnisa punyanisa16@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Mohon bantuannya para master, saya kebingungan dengan error unable to set the formula array property of the range class.sudah dicoba diutak atik tapi ttp error .hasil dari fungsi linestnya ada di 2 kolom 5 baris. Mohon pencerahannya, terimakasih.
Dim outRow, rowNum, outSheet
Dim x, y As Integer
Private Sub CommandButton1_
outRow = 5 'Untuk menentukan dimana hasil perhitungan ditampilkan
outSheet = "Forecast Linier"
Worksheets(outSheet
' Membersihkan bagian output pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
Selection.Clear
Selection.ClearCont
If ComboBox1 = "Regresi Linier" Then
Sheets("
For y = 1 To Cells(1, 1).Value
Cells(8 + y, 4) = InputBox("
Cells(8 + y, 4).Select
Next y
MsgBox " Data yang anda masukkan sudah terpenuhi"
Else
If ComboBox1 = "Regresi Kuadrat" Then
InputPenjualan_
Else
If ComboBox1 = "Eksponensial&
InputPenjualan_
End If
End If
End If
End Sub
Private Sub Hitung_Click(
For rowNum = 1 To Cells(1, 1).Value
x = rowNum - 1
Cells(outRow + rowNum + 3, 3).Value = rowNum 'Periode
Cells(outRow + rowNum + 3, 5).Value = x
Next rowNum
Range("
ActiveCell.FormulaR
Range("
Selection.FormulaAr
"=LINEST(
End Sub
Private Sub UserForm_Initialize
With ComboBox1
.AddItem "Regresi Linier"
.AddItem "Regresi Kuadrat"
.AddItem "Eksponensial&
End With
End Sub
#yiv4090725577 #yiv4090725577 -- #yiv4090725577ygrp-
Thu Jun 4, 2015 1:03 am (PDT) . Posted by:
"Nisa Khairunnisa"
bisa, mohon bantuannya mr. toby
--- Mods ---
File lampiran yang melebihi 250KB dilepas dari email. Silakan melampirkan ulang file yang diusahakan maksimum 250KB dengan cara me-reply email ini.
---------------
Pada Kamis, 4 Juni 2015 11:40, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" menulis:
Dear Nisa,
Bisa di kirim ngga file excelnya..
TerimaKasih.
Pada Kamis, 4 Juni 2015 2:35, "Nisa Khairunnisa punyanisa16@yahoo.co.id [belajar-excel]" menulis:
Mohon bantuannya para master, saya kebingungan dengan error unable to set the formula array property of the range class.sudah dicoba diutak atik tapi ttp error .hasil dari fungsi linestnya ada di 2 kolom 5 baris. Mohon pencerahannya, terimakasih.
Dim outRow, rowNum, outSheet
Dim x, y As Integer
Private Sub CommandButton1_Click()
outRow = 5 'Untuk menentukan dimana hasil perhitungan ditampilkan
outSheet = "Forecast Linier"
Worksheets(outSheet).Activate
' Membersihkan bagian output pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
Selection.Clear
Selection.ClearContents
If ComboBox1 = "Regresi Linier" Then
Sheets("Forecast Linier").Cells(1, 1) = TxtPeriode.Text
For y = 1 To Cells(1, 1).Value
Cells(8 + y, 4) = InputBox("masukkan nilai")
Cells(8 + y, 4).Select
Next y
MsgBox " Data yang anda masukkan sudah terpenuhi"
Else
If ComboBox1 = "Regresi Kuadrat" Then
InputPenjualan_kuadrat.Show
Else
If ComboBox1 = "Eksponensial" Then
InputPenjualan_eksponensial.Show
End If
End If
End If
End Sub
Private Sub Hitung_Click()
For rowNum = 1 To Cells(1, 1).Value
x = rowNum - 1
Cells(outRow + rowNum + 3, 3).Value = rowNum 'Periode
Cells(outRow + rowNum + 3, 5).Value = x
Next rowNum
Range("I10:J14").Select
ActiveCell.FormulaR1C1 = "=linest"
Range("I10:J14").Select
Selection.FormulaArray = _
"=LINEST(y,x,1,1)"
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Regresi Linier"
.AddItem "Regresi Kuadrat"
.AddItem "Eksponensial"
End With
End Sub
--- Mods ---
File lampiran yang melebihi 250KB dilepas dari email. Silakan melampirkan ulang file yang diusahakan maksimum 250KB dengan cara me-reply email ini.
---------------
Pada Kamis, 4 Juni 2015 11:40, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" menulis:
Dear Nisa,
Bisa di kirim ngga file excelnya..
TerimaKasih.
Pada Kamis, 4 Juni 2015 2:35, "Nisa Khairunnisa punyanisa16@yahoo.co.id [belajar-excel]
Mohon bantuannya para master, saya kebingungan dengan error unable to set the formula array property of the range class.sudah dicoba diutak atik tapi ttp error .hasil dari fungsi linestnya ada di 2 kolom 5 baris. Mohon pencerahannya, terimakasih.
Dim outRow, rowNum, outSheet
Dim x, y As Integer
Private Sub CommandButton1_
outRow = 5 'Untuk menentukan dimana hasil perhitungan ditampilkan
outSheet = "Forecast Linier"
Worksheets(outSheet
' Membersihkan bagian output pada worksheet
Rows(outRow + 4 & ":" & outRow + 30).Select
Selection.Clear
Selection.ClearCont
If ComboBox1 = "Regresi Linier" Then
Sheets("
For y = 1 To Cells(1, 1).Value
Cells(8 + y, 4) = InputBox("
Cells(8 + y, 4).Select
Next y
MsgBox " Data yang anda masukkan sudah terpenuhi"
Else
If ComboBox1 = "Regresi Kuadrat" Then
InputPenjualan_
Else
If ComboBox1 = "Eksponensial&
InputPenjualan_
End If
End If
End If
End Sub
Private Sub Hitung_Click(
For rowNum = 1 To Cells(1, 1).Value
x = rowNum - 1
Cells(outRow + rowNum + 3, 3).Value = rowNum 'Periode
Cells(outRow + rowNum + 3, 5).Value = x
Next rowNum
Range("
ActiveCell.FormulaR
Range("
Selection.FormulaAr
"=LINEST(
End Sub
Private Sub UserForm_Initialize
With ComboBox1
.AddItem "Regresi Linier"
.AddItem "Regresi Kuadrat"
.AddItem "Eksponensial&
End With
End Sub
Wed Jun 3, 2015 9:57 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
imho,
Disebuah sheet disediakan hasil query textfile seluruhnya. Misal sheet
diberi nama 'txt'
Di sheet lain sudah ada tabel inputan yang kolom A di worksheet berisi item
yang identik dengan field Item yang ada di file.csv. Sedangkan kolom B pada
worksheet berisi Quantity yang harus sama dengan field Quantity yg ada di
file.csv. Misal worksheet ini bernama 'inputan'
Di sheet baru (entah temporary atau sheet report sekalian) dibuat sebuah
tabel hasil perbandingan kedua tabel 'txt' vs 'inputan'. Tabel ini bisa
disusun dengan query join yang sesuai kebutuhan atau bisa juga dengan
formula. Jika kolom utama tabel hanyalah 1 kolom dan diletakkan di paling
kiri, maka pivot consolidation juga bisa digunakan. Semua cara di atas bisa
diotomasi juga dengan VBA. Proses find pun bisa dilakukan dengan adanya 2
buah sheet tersebut (txt dan inputan), yaitu baca dari inputan, cari di
txt, sebagai sebuah proses loop. Biasanya cara ini agak lama ketika record
di 'inputan' ada banyak, dan record di 'txt' juga banyak.
Cara lainnya adalah dengan membaca text file sebagai sebuah recordset lalu
pencarian dilakukan dengan loop setiap record dalam recordset. Andai yang
dicari (nilai dari 'inputan') ada banyak, dan recordset dari txt juga
banyak, maka cara ini juga akan lama.
Bisa juga dengan baca text file sebagai input file. Lalu loop setiap baris
text filenya untuk mancari ada atau tidak nilai 'inputan' di baris
tersebut. Jika text file punya banyak baris dan 'inputan' (yang dicari)
juga punya banyak baris, maka proses akan lama juga.
Kalau saya, cenderung lebih suka dengan bermain query.
- [1 kali buat seumur hidup workbook] Cukup menyediakan sebuah sheet
temporary untuk txt file (misal bernama 'txt') diisi hasil query ke text
file.
- [1 kali buat seumur hidup workbook] Kemudian menyediakan sebuah sheet
temporary hasil perbandingan, misal bernama 'banding' yang diisi dengan
hasil proses query ke file excel yang ini juga, mengambil data dari 2
sheet, yaitu sheet 'txt' dan 'inputan' dalam proses query join (mungkin
left join atau inner join akan cukup buat Anda. Bisa jadi full outer join
akan memberi banyak informasi.)
- [bisa diotomasi dengan VBA 2 baris kode] Refresh koneksi text file di
temporari sheet bernama 'txt', lalu save workbook
- [bisa diotomasi dengan VBA 1 baris kode] Refresh koneksi ke file excel di
temporari sheet bernama 'banding'
- filter hasil query di sheet 'banding' untuk diambil nilai yang dibutuhkan
output (kalau menyusun query-nya tidak sekaligus untuk menghasilkan tabel
output)
Wassalam,
Kid
2015-06-04 12:05 GMT+10:00 Heru Safrudin superheruu@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Betul Mr.
> Katakanlah kolom A di worksheet berisi item yang identik dengan field Item
> yang ada di file.csv. Sedangkan kolom B pada worksheet berisi Quantity yang
> harus sama dengan field Quantity yg ada di file.csv, Nah quantity ini yg
> akan dicek apakah ada perbedaan.
> Demikian, terima kasih
>
> Wassalam,
>
> Heru Safrudin
> Pada 2015 6 3 17:14, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> hmm..
>>
>> jadi suatu nilai di range tertentu akan dicari apakah ada dalam text file
>> ?
>>
>>
>>
>>
>>
>>
>> 2015-06-03 20:11 GMT+10:00 Heru Safrudin superheruu@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Baca txt per baris/record, karena kita akan cocokkan jumlah stok per
>>> item (yg ada di data hasil download yg berformat csv/txt), dengan item yang
>>> ada di data excel dengan menggunakan vba FIND item
>>>
>>> Wassalam,
>>>
>>> Heru Safrudin
>>> PT. BISI International, Tbk.
>>> Pada 2015 6 3 16:47, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
>>> belajar-excel@yahoogroups.com> menulis:
>>>
>>>>
>>>>
>>>> Boleh tahu kenapa dibaca per record ?
>>>> Jika txt berisi 1000 record, akan ditampilkan sebagai tabel berisi 1000
>>>> record atau tabel berisi 1 record bergantian ?
>>>>
>>>> 2015-06-03 17:42 GMT+10:00 Heru Safrudin superheruu@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Mr. Bisakah data dibaca per record ?
>>>>>
>>>>> Wassalam,
>>>>>
>>>>> Heru Safrudin
>>>>> Pada 2015 6 1 16:24, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
>>>>> belajar-excel@yahoogroups.com> menulis:
>>>>>
>>>>>>
>>>>>>
>>>>>> Hai Heru,
>>>>>>
>>>>>> Coretan tentang koneksi data ke txt file mulai disini
>>>>>> <http://excel-mr-kid.blogspot.com/2011/07/koneksi-data-ke-text-file-01.html>
>>>>>> .
>>>>>>
>>>>>> Wassalam,
>>>>>> Kid
>>>>>>
>>>>>>
>>>>>> 2015-06-01 18:55 GMT+10:00 Heru Safrudin superheruu@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> Dear para master,
>>>>>>>
>>>>>>> Mohon pencerahannya cara mengkoneksi data txt dan membuat hasil
>>>>>>> query ke excel 2003
>>>>>>> Terima kasih sebelumnya
>>>>>>>
>>>>>>> Wassalam,
>>>>>>>
>>>>>>> Heru Safrudin
>>>>>>>
>>>>>>>
>>>>>>
>>>>
>>
>
Disebuah sheet disediakan hasil query textfile seluruhnya. Misal sheet
diberi nama 'txt'
Di sheet lain sudah ada tabel inputan yang kolom A di worksheet berisi item
yang identik dengan field Item yang ada di file.csv. Sedangkan kolom B pada
worksheet berisi Quantity yang harus sama dengan field Quantity yg ada di
file.csv. Misal worksheet ini bernama 'inputan'
Di sheet baru (entah temporary atau sheet report sekalian) dibuat sebuah
tabel hasil perbandingan kedua tabel 'txt' vs 'inputan'. Tabel ini bisa
disusun dengan query join yang sesuai kebutuhan atau bisa juga dengan
formula. Jika kolom utama tabel hanyalah 1 kolom dan diletakkan di paling
kiri, maka pivot consolidation juga bisa digunakan. Semua cara di atas bisa
diotomasi juga dengan VBA. Proses find pun bisa dilakukan dengan adanya 2
buah sheet tersebut (txt dan inputan), yaitu baca dari inputan, cari di
txt, sebagai sebuah proses loop. Biasanya cara ini agak lama ketika record
di 'inputan' ada banyak, dan record di 'txt' juga banyak.
Cara lainnya adalah dengan membaca text file sebagai sebuah recordset lalu
pencarian dilakukan dengan loop setiap record dalam recordset. Andai yang
dicari (nilai dari 'inputan') ada banyak, dan recordset dari txt juga
banyak, maka cara ini juga akan lama.
Bisa juga dengan baca text file sebagai input file. Lalu loop setiap baris
text filenya untuk mancari ada atau tidak nilai 'inputan' di baris
tersebut. Jika text file punya banyak baris dan 'inputan' (yang dicari)
juga punya banyak baris, maka proses akan lama juga.
Kalau saya, cenderung lebih suka dengan bermain query.
- [1 kali buat seumur hidup workbook] Cukup menyediakan sebuah sheet
temporary untuk txt file (misal bernama 'txt') diisi hasil query ke text
file.
- [1 kali buat seumur hidup workbook] Kemudian menyediakan sebuah sheet
temporary hasil perbandingan, misal bernama 'banding' yang diisi dengan
hasil proses query ke file excel yang ini juga, mengambil data dari 2
sheet, yaitu sheet 'txt' dan 'inputan' dalam proses query join (mungkin
left join atau inner join akan cukup buat Anda. Bisa jadi full outer join
akan memberi banyak informasi.)
- [bisa diotomasi dengan VBA 2 baris kode] Refresh koneksi text file di
temporari sheet bernama 'txt', lalu save workbook
- [bisa diotomasi dengan VBA 1 baris kode] Refresh koneksi ke file excel di
temporari sheet bernama 'banding'
- filter hasil query di sheet 'banding' untuk diambil nilai yang dibutuhkan
output (kalau menyusun query-nya tidak sekaligus untuk menghasilkan tabel
output)
Wassalam,
Kid
2015-06-04 12:05 GMT+10:00 Heru Safrudin superheruu@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Betul Mr.
> Katakanlah kolom A di worksheet berisi item yang identik dengan field Item
> yang ada di file.csv. Sedangkan kolom B pada worksheet berisi Quantity yang
> harus sama dengan field Quantity yg ada di file.csv, Nah quantity ini yg
> akan dicek apakah ada perbedaan.
> Demikian, terima kasih
>
> Wassalam,
>
> Heru Safrudin
> Pada 2015 6 3 17:14, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> hmm..
>>
>> jadi suatu nilai di range tertentu akan dicari apakah ada dalam text file
>> ?
>>
>>
>>
>>
>>
>>
>> 2015-06-03 20:11 GMT+10:00 Heru Safrudin superheruu@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Baca txt per baris/record, karena kita akan cocokkan jumlah stok per
>>> item (yg ada di data hasil download yg berformat csv/txt), dengan item yang
>>> ada di data excel dengan menggunakan vba FIND item
>>>
>>> Wassalam,
>>>
>>> Heru Safrudin
>>> PT. BISI International, Tbk.
>>> Pada 2015 6 3 16:47, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
>>> belajar-excel@yahoogroups.com> menulis:
>>>
>>>>
>>>>
>>>> Boleh tahu kenapa dibaca per record ?
>>>> Jika txt berisi 1000 record, akan ditampilkan sebagai tabel berisi 1000
>>>> record atau tabel berisi 1 record bergantian ?
>>>>
>>>> 2015-06-03 17:42 GMT+10:00 Heru Safrudin superheruu@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Mr. Bisakah data dibaca per record ?
>>>>>
>>>>> Wassalam,
>>>>>
>>>>> Heru Safrudin
>>>>> Pada 2015 6 1 16:24, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
>>>>> belajar-excel@yahoogroups.com> menulis:
>>>>>
>>>>>>
>>>>>>
>>>>>> Hai Heru,
>>>>>>
>>>>>> Coretan tentang koneksi data ke txt file mulai disini
>>>>>> <http://excel-mr-kid.blogspot.com/2011/07/koneksi-data-ke-text-file-01.html>
>>>>>> .
>>>>>>
>>>>>> Wassalam,
>>>>>> Kid
>>>>>>
>>>>>>
>>>>>> 2015-06-01 18:55 GMT+10:00 Heru Safrudin superheruu@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
Wed Jun 3, 2015 9:58 pm (PDT) . Posted by:
"Fajar Fatahillah" fajar.fatahillah
Siap pak Matzen,hehehe.. masih penasaran nih,soalnya dengan file yang sama dan rumus yang sama, di tempat saya hasilnya benar.apakah mungkin karena settingan komputernya atau format excelnya yang beda ya??penasaran.com
Best Regards,
Fajar Fatahillah
On Thursday, June 4, 2015 9:35 AM, "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dea mas Fajar Terima kasih atas formula ya, akan tetapi ketika saya coba di hari yang sama hanya berbeda beberapa jam saja, maka hasilnya tidak sesuai dengan jumlah durasi jam sebenarnya. Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 03 Juni 2015 16:56
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Durasi Waktu [1 Attachment] di excel saya bisa pak, file terlampir, bisa lihat file excelnya lagi pak? Best Regards,
Fajar Fatahillah On Wednesday, June 3, 2015 4:42 PM, "'Subroto, Matzen'matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote: Untuk formula yang di bawah sudah saya coba tapi hasilnya seperti ini
| Tanggal start | Tanggal Finish | Waktu start | Waktu Finish | Durasi waktu yang dipakai |
| 25 Mei 2015 | 26 Mei 2015 | 6:15:10 | 1:30:15 | 19:15:05 |
| 25 Mei 2015 | 27 Mei 2015 | 6:15:10 | 1:30:15 | 19:15:05 |
| 25 Mei 2015 | 30 Mei 2015 | 6:15:10 | 1:30:15 | 19:15:05 |
| 25 Mei 2015 | 02 Juni 2015 | 6:15:10 | 1:30:15 | 19:15:05 |
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 03 Juni 2015 13:58
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Durasi Waktu Dear pak Matzen, mungkin formulanya seperti ini: = ( Tanggal_Finish + Waktu_Finish ) - ( Tanggal_Start + Waktu_Start) maaf, tidak bisa melampirkan file excel-nya. cmiiw, Regards, -putri- Pada 3 Juni 2015 12.53, 'Subroto, Matzen'matzen.subroto@akzonobel.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis: Dear master Semoga semua selalu dalam Limpahan Berkah dan Hidayah Nya Mohon tambahan ilmunya, dengan kasus yang saya dapati, yaitu menghitung Durasi waktu dengan hari yang berbeda seperti file terlampir Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________
__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________ #yiv2286893234 #yiv2286893234 -- #yiv2286893234ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2286893234 #yiv2286893234ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2286893234 #yiv2286893234ygrp-mkp #yiv2286893234hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2286893234 #yiv2286893234ygrp-mkp #yiv2286893234ads {margin-bottom:10px;}#yiv2286893234 #yiv2286893234ygrp-mkp .yiv2286893234ad {padding:0 0;}#yiv2286893234 #yiv2286893234ygrp-mkp .yiv2286893234ad p {margin:0;}#yiv2286893234 #yiv2286893234ygrp-mkp .yiv2286893234ad a {color:#0000ff;text-decoration:none;}#yiv2286893234 #yiv2286893234ygrp-sponsor #yiv2286893234ygrp-lc {font-family:Arial;}#yiv2286893234 #yiv2286893234ygrp-sponsor #yiv2286893234ygrp-lc #yiv2286893234hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2286893234 #yiv2286893234ygrp-sponsor #yiv2286893234ygrp-lc .yiv2286893234ad {margin-bottom:10px;padding:0 0;}#yiv2286893234 #yiv2286893234actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2286893234 #yiv2286893234activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2286893234 #yiv2286893234activity span {font-weight:700;}#yiv2286893234 #yiv2286893234activity span:first-child {text-transform:uppercase;}#yiv2286893234 #yiv2286893234activity span a {color:#5085b6;text-decoration:none;}#yiv2286893234 #yiv2286893234activity span span {color:#ff7900;}#yiv2286893234 #yiv2286893234activity span .yiv2286893234underline {text-decoration:underline;}#yiv2286893234 .yiv2286893234attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2286893234 .yiv2286893234attach div a {text-decoration:none;}#yiv2286893234 .yiv2286893234attach img {border:none;padding-right:5px;}#yiv2286893234 .yiv2286893234attach label {display:block;margin-bottom:5px;}#yiv2286893234 .yiv2286893234attach label a {text-decoration:none;}#yiv2286893234 blockquote {margin:0 0 0 4px;}#yiv2286893234 .yiv2286893234bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2286893234 .yiv2286893234bold a {text-decoration:none;}#yiv2286893234 dd.yiv2286893234last p a {font-family:Verdana;font-weight:700;}#yiv2286893234 dd.yiv2286893234last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2286893234 dd.yiv2286893234last p span.yiv2286893234yshortcuts {margin-right:0;}#yiv2286893234 div.yiv2286893234attach-table div div a {text-decoration:none;}#yiv2286893234 div.yiv2286893234attach-table {width:400px;}#yiv2286893234 div.yiv2286893234file-title a, #yiv2286893234 div.yiv2286893234file-title a:active, #yiv2286893234 div.yiv2286893234file-title a:hover, #yiv2286893234 div.yiv2286893234file-title a:visited {text-decoration:none;}#yiv2286893234 div.yiv2286893234photo-title a, #yiv2286893234 div.yiv2286893234photo-title a:active, #yiv2286893234 div.yiv2286893234photo-title a:hover, #yiv2286893234 div.yiv2286893234photo-title a:visited {text-decoration:none;}#yiv2286893234 div#yiv2286893234ygrp-mlmsg #yiv2286893234ygrp-msg p a span.yiv2286893234yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2286893234 .yiv2286893234green {color:#628c2a;}#yiv2286893234 .yiv2286893234MsoNormal {margin:0 0 0 0;}#yiv2286893234 o {font-size:0;}#yiv2286893234 #yiv2286893234photos div {float:left;width:72px;}#yiv2286893234 #yiv2286893234photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2286893234 #yiv2286893234photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2286893234 #yiv2286893234reco-category {font-size:77%;}#yiv2286893234 #yiv2286893234reco-desc {font-size:77%;}#yiv2286893234 .yiv2286893234replbq {margin:4px;}#yiv2286893234 #yiv2286893234ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2286893234 #yiv2286893234ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2286893234 #yiv2286893234ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2286893234 #yiv2286893234ygrp-mlmsg select, #yiv2286893234 input, #yiv2286893234 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2286893234 #yiv2286893234ygrp-mlmsg pre, #yiv2286893234 code {font:115% monospace;}#yiv2286893234 #yiv2286893234ygrp-mlmsg * {line-height:1.22em;}#yiv2286893234 #yiv2286893234ygrp-mlmsg #yiv2286893234logo {padding-bottom:10px;}#yiv2286893234 #yiv2286893234ygrp-msg p a {font-family:Verdana;}#yiv2286893234 #yiv2286893234ygrp-msg p#yiv2286893234attach-count span {color:#1E66AE;font-weight:700;}#yiv2286893234 #yiv2286893234ygrp-reco #yiv2286893234reco-head {color:#ff7900;font-weight:700;}#yiv2286893234 #yiv2286893234ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2286893234 #yiv2286893234ygrp-sponsor #yiv2286893234ov li a {font-size:130%;text-decoration:none;}#yiv2286893234 #yiv2286893234ygrp-sponsor #yiv2286893234ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2286893234 #yiv2286893234ygrp-sponsor #yiv2286893234ov ul {margin:0;padding:0 0 0 8px;}#yiv2286893234 #yiv2286893234ygrp-text {font-family:Georgia;}#yiv2286893234 #yiv2286893234ygrp-text p {margin:0 0 1em 0;}#yiv2286893234 #yiv2286893234ygrp-text tt {font-size:120%;}#yiv2286893234 #yiv2286893234ygrp-vital ul li:last-child {border-right:none !important;}
Best Regards,
Fajar Fatahillah
On Thursday, June 4, 2015 9:35 AM, "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Dea mas Fajar Terima kasih atas formula ya, akan tetapi ketika saya coba di hari yang sama hanya berbeda beberapa jam saja, maka hasilnya tidak sesuai dengan jumlah durasi jam sebenarnya. Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 03 Juni 2015 16:56
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Durasi Waktu [1 Attachment] di excel saya bisa pak, file terlampir, bisa lihat file excelnya lagi pak? Best Regards,
Fajar Fatahillah On Wednesday, June 3, 2015 4:42 PM, "'Subroto, Matzen'matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote: Untuk formula yang di bawah sudah saya coba tapi hasilnya seperti ini
| Tanggal start | Tanggal Finish | Waktu start | Waktu Finish | Durasi waktu yang dipakai |
| 25 Mei 2015 | 26 Mei 2015 | 6:15:10 | 1:30:15 | 19:15:05 |
| 25 Mei 2015 | 27 Mei 2015 | 6:15:10 | 1:30:15 | 19:15:05 |
| 25 Mei 2015 | 30 Mei 2015 | 6:15:10 | 1:30:15 | 19:15:05 |
| 25 Mei 2015 | 02 Juni 2015 | 6:15:10 | 1:30:15 | 19:15:05 |
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 03 Juni 2015 13:58
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Durasi Waktu Dear pak Matzen, mungkin formulanya seperti ini: = ( Tanggal_Finish + Waktu_Finish ) - ( Tanggal_Start + Waktu_Start) maaf, tidak bisa melampirkan file excel-nya. cmiiw, Regards, -putri- Pada 3 Juni 2015 12.53, 'Subroto, Matzen'matzen.subroto@akzonobel.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis: Dear master Semoga semua selalu dalam Limpahan Berkah dan Hidayah Nya Mohon tambahan ilmunya, dengan kasus yang saya dapati, yaitu menghitung Durasi waktu dengan hari yang berbeda seperti file terlampir Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan Terima Kasih Matzen
____________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
____________
____________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
____________