15 New Messages
Digest #2216
Messages
Sun Apr 7, 2013 6:51 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Rauf,
File terlampir menggunakan Conditional Formatting.
Wassalam,
Kid.
2013/4/7 dedy rauf <dedy.rauf@gmail.com >
> **
>
>
> yth para master excel
> mohon bantuannya untuk membuat sebuah file excel berisi monitoring absensi
> dan tugas pegawai
> inginnya saya itu setiap pegawai dapat dimonitor beban kerja (banyaknya
> tugas yang diperoleh) dan absensi setiap pegawai secara otomatis
>
> file terlampir
> best regard
> rauf
>
>
File terlampir menggunakan Conditional Formatting.
Wassalam,
Kid.
2013/4/7 dedy rauf <dedy.rauf@gmail.
> **
>
>
> yth para master excel
> mohon bantuannya untuk membuat sebuah file excel berisi monitoring absensi
> dan tugas pegawai
> inginnya saya itu setiap pegawai dapat dimonitor beban kerja (banyaknya
> tugas yang diperoleh) dan absensi setiap pegawai secara otomatis
>
> file terlampir
> best regard
> rauf
>
>
Sun Apr 7, 2013 6:55 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Jangan lupa, pada baris sebelum yang di-merah oleh Pak Mansor ada statement
berbunyi :
Dim askForCell As String
askForCell = "Select your range"
sehingga askForCell pada baris :
Set selectedRng = Application.InputBox(Prompt:=askForCell,
Title:=askTitle, Type:=8)
sebagai pengisi input parameter Prompt adalah sebuah variabel string.
Wassalam,
Kid.
On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <hendrikkarnadi@yahoo.com >wrote:
> Ini saya dapat dari ozgrid, coba tambahkan tanda "" (string).
> Salam,
> HK
>
> Mansor <dbpermatasari@gmail.com > wrote:
>
>
> Para Teman BeExcel,
>
> Tolong saya cari di mana error nya. File dilampirkan
>
> Terima kasih
> -Mansor
>
> Private Sub CommandButton1_Click()
>
> Dim rng As Range, cell As Range, selectedRng As Range
>
> Dim askForCell As String, askTitle As String
>
> askForCell = "Select your range"
>
> askTitle = "Get cell"
>
> Set selectedRng = Application.InputBox(Prompt:=askForCell,
> Title:=askTitle, Type:=8)
>
> Set rng = Range(selectedRng)
>
> For Each cell In rng
>
> If cell.Value >= 50 Then
>
> cell.Font.ColorIndex = 5
>
> Else
>
> cell.Font.ColorIndex = 3
>
> End If
>
> Next cell
>
> End Sub
>
>
berbunyi :
Dim askForCell As String
askForCell = "Select your range"
sehingga askForCell pada baris :
Set selectedRng = Application.
Title:=askTitle, Type:=8)
sebagai pengisi input parameter Prompt adalah sebuah variabel string.
Wassalam,
Kid.
On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <hendrikkarnadi@
> Ini saya dapat dari ozgrid, coba tambahkan tanda "" (string).
> Salam,
> HK
>
> Mansor <dbpermatasari@
>
>
> Para Teman BeExcel,
>
> Tolong saya cari di mana error nya. File dilampirkan
>
> Terima kasih
> -Mansor
>
> Private Sub CommandButton1_
>
> Dim rng As Range, cell As Range, selectedRng As Range
>
> Dim askForCell As String, askTitle As String
>
> askForCell = "Select your range"
>
> askTitle = "Get cell"
>
> Set selectedRng = Application.
> Title:=askTitle, Type:=8)
>
> Set rng = Range(selectedRng)
>
> For Each cell In rng
>
> If cell.Value >= 50 Then
>
> cell.Font.ColorInde
>
> Else
>
> cell.Font.ColorInde
>
> End If
>
> Next cell
>
> End Sub
>
>
Sun Apr 7, 2013 8:17 am (PDT) . Posted by:
"Mansor" nbmy1980
Terima kasih Pak Kid dan Pak Hendrik,
Setelah dicoba, masalah input range nya udah jalan, tetapi font untuk value
yang kurang dari 50 juga ikut berubah warna.
Lihat file yang dilampir di sheet Input data from inputbox.
2013/4/7 Mr. Kid <mr.nmkid@gmail.com >
> **
>
>
> Jangan lupa, pada baris sebelum yang di-merah oleh Pak Mansor ada
> statement berbunyi :
> Dim askForCell As String
>
> askForCell = "Select your range"
> sehingga askForCell pada baris :
>
> Set selectedRng = Application.InputBox(Prompt:=askForCell,
> Title:=askTitle, Type:=8)
> sebagai pengisi input parameter Prompt adalah sebuah variabel string.
>
> Wassalam,
> Kid.
>
>
>
>
> On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <hendrikkarnadi@yahoo.com >wrote:
>
>> Ini saya dapat dari ozgrid, coba tambahkan tanda "" (string).
>> Salam,
>> HK
>>
>> Mansor <dbpermatasari@gmail.com > wrote:
>>
>>
>> Para Teman BeExcel,
>>
>> Tolong saya cari di mana error nya. File dilampirkan
>>
>> Terima kasih
>> -Mansor
>>
>> Private Sub CommandButton1_Click()
>>
>> Dim rng As Range, cell As Range, selectedRng As Range
>>
>> Dim askForCell As String, askTitle As String
>>
>> askForCell = "Select your range"
>>
>> askTitle = "Get cell"
>>
>> Set selectedRng = Application.InputBox(Prompt:=askForCell,
>> Title:=askTitle, Type:=8)
>>
>> Set rng = Range(selectedRng)
>>
>> For Each cell In rng
>>
>> If cell.Value >= 50 Then
>>
>> cell.Font.ColorIndex = 5
>>
>> Else
>>
>> cell.Font.ColorIndex = 3
>>
>> End If
>>
>> Next cell
>>
>> End Sub
>>
>>
>
>
Setelah dicoba, masalah input range nya udah jalan, tetapi font untuk value
yang kurang dari 50 juga ikut berubah warna.
Lihat file yang dilampir di sheet Input data from inputbox.
2013/4/7 Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Jangan lupa, pada baris sebelum yang di-merah oleh Pak Mansor ada
> statement berbunyi :
> Dim askForCell As String
>
> askForCell = "Select your range"
> sehingga askForCell pada baris :
>
> Set selectedRng = Application.
> Title:=askTitle, Type:=8)
> sebagai pengisi input parameter Prompt adalah sebuah variabel string.
>
> Wassalam,
> Kid.
>
>
>
>
> On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <hendrikkarnadi@
>
>> Ini saya dapat dari ozgrid, coba tambahkan tanda "" (string).
>> Salam,
>> HK
>>
>> Mansor <dbpermatasari@
>>
>>
>> Para Teman BeExcel,
>>
>> Tolong saya cari di mana error nya. File dilampirkan
>>
>> Terima kasih
>> -Mansor
>>
>> Private Sub CommandButton1_
>>
>> Dim rng As Range, cell As Range, selectedRng As Range
>>
>> Dim askForCell As String, askTitle As String
>>
>> askForCell = "Select your range"
>>
>> askTitle = "Get cell"
>>
>> Set selectedRng = Application.
>> Title:=askTitle, Type:=8)
>>
>> Set rng = Range(selectedRng)
>>
>> For Each cell In rng
>>
>> If cell.Value >= 50 Then
>>
>> cell.Font.ColorInde
>>
>> Else
>>
>> cell.Font.ColorInde
>>
>> End If
>>
>> Next cell
>>
>> End Sub
>>
>>
>
>
Sun Apr 7, 2013 8:31 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pastikan pada blok :
If cell.Value >= 50 Then
cell.Font.ColorIndex = 5
Else
cell.Font.ColorIndex = 3
End If
yang berbunyi :
cell.Font.ColorIndex = 5
diganti angka 5-nya dengan nomor warna font untuk kondisi >=50
dan pada baris yang berbunyi :
cell.Font.ColorIndex = 3
diganti angka 3-nya dengan nomor warna font untuk kondisi <50
Wassalam,
Kid.
2013/4/7 Mansor <dbpermatasari@gmail.com >
> **
>
>
> Terima kasih Pak Kid dan Pak Hendrik,
>
> Setelah dicoba, masalah input range nya udah jalan, tetapi font untuk
> value yang kurang dari 50 juga ikut berubah warna.
>
>
> Lihat file yang dilampir di sheet Input data from inputbox.
>
>
>
>
> 2013/4/7 Mr. Kid <mr.nmkid@gmail.com >
>
> **
>>
>>
>> Jangan lupa, pada baris sebelum yang di-merah oleh Pak Mansor ada
>> statement berbunyi :
>> Dim askForCell As String
>>
>> askForCell = "Select your range"
>> sehingga askForCell pada baris :
>>
>> Set selectedRng = Application.InputBox(Prompt:=askForCell,
>> Title:=askTitle, Type:=8)
>> sebagai pengisi input parameter Prompt adalah sebuah variabel string.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>> On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <hendrikkarnadi@yahoo.com
>> > wrote:
>>
>>> Ini saya dapat dari ozgrid, coba tambahkan tanda "" (string).
>>> Salam,
>>> HK
>>>
>>> Mansor <dbpermatasari@gmail.com > wrote:
>>>
>>>
>>> Para Teman BeExcel,
>>>
>>> Tolong saya cari di mana error nya. File dilampirkan
>>>
>>> Terima kasih
>>> -Mansor
>>>
>>> Private Sub CommandButton1_Click()
>>>
>>> Dim rng As Range, cell As Range, selectedRng As Range
>>>
>>> Dim askForCell As String, askTitle As String
>>>
>>> askForCell = "Select your range"
>>>
>>> askTitle = "Get cell"
>>>
>>> Set selectedRng = Application.InputBox(Prompt:=askForCell,
>>> Title:=askTitle, Type:=8)
>>>
>>> Set rng = Range(selectedRng)
>>>
>>> For Each cell In rng
>>>
>>> If cell.Value >= 50 Then
>>>
>>> cell.Font.ColorIndex = 5
>>>
>>> Else
>>>
>>> cell.Font.ColorIndex = 3
>>>
>>> End If
>>>
>>> Next cell
>>>
>>> End Sub
>>>
>>>
>>
>
>
If cell.Value >= 50 Then
cell.Font.ColorInde
Else
cell.Font.ColorInde
End If
yang berbunyi :
cell.Font.ColorInde
diganti angka 5-nya dengan nomor warna font untuk kondisi >=50
dan pada baris yang berbunyi :
cell.Font.ColorInde
diganti angka 3-nya dengan nomor warna font untuk kondisi <50
Wassalam,
Kid.
2013/4/7 Mansor <dbpermatasari@
> **
>
>
> Terima kasih Pak Kid dan Pak Hendrik,
>
> Setelah dicoba, masalah input range nya udah jalan, tetapi font untuk
> value yang kurang dari 50 juga ikut berubah warna.
>
>
> Lihat file yang dilampir di sheet Input data from inputbox.
>
>
>
>
> 2013/4/7 Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> Jangan lupa, pada baris sebelum yang di-merah oleh Pak Mansor ada
>> statement berbunyi :
>> Dim askForCell As String
>>
>> askForCell = "Select your range"
>> sehingga askForCell pada baris :
>>
>> Set selectedRng = Application.
>> Title:=askTitle, Type:=8)
>> sebagai pengisi input parameter Prompt adalah sebuah variabel string.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>> On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <hendrikkarnadi@
>> > wrote:
>>
>>> Ini saya dapat dari ozgrid, coba tambahkan tanda "" (string).
>>> Salam,
>>> HK
>>>
>>> Mansor <dbpermatasari@
>>>
>>>
>>> Para Teman BeExcel,
>>>
>>> Tolong saya cari di mana error nya. File dilampirkan
>>>
>>> Terima kasih
>>> -Mansor
>>>
>>> Private Sub CommandButton1_
>>>
>>> Dim rng As Range, cell As Range, selectedRng As Range
>>>
>>> Dim askForCell As String, askTitle As String
>>>
>>> askForCell = "Select your range"
>>>
>>> askTitle = "Get cell"
>>>
>>> Set selectedRng = Application.
>>> Title:=askTitle, Type:=8)
>>>
>>> Set rng = Range(selectedRng)
>>>
>>> For Each cell In rng
>>>
>>> If cell.Value >= 50 Then
>>>
>>> cell.Font.ColorInde
>>>
>>> Else
>>>
>>> cell.Font.ColorInde
>>>
>>> End If
>>>
>>> Next cell
>>>
>>> End Sub
>>>
>>>
>>
>
>
Sun Apr 7, 2013 4:55 pm (PDT) . Posted by:
"Mansor" nbmy1980
Ok, Pak Kid,
Semuanya sudah berhasil.
Terima kasih.
2013/4/7 Mr. Kid <mr.nmkid@gmail.com >
> **
>
>
> Pastikan pada blok :
>
> If cell.Value >= 50 Then
>
> cell.Font.ColorIndex = 5
>
> Else
>
> cell.Font.ColorIndex = 3
>
> End If
> yang berbunyi :
> cell.Font.ColorIndex = 5
> diganti angka 5-nya dengan nomor warna font untuk kondisi >=50
> dan pada baris yang berbunyi :
> cell.Font.ColorIndex = 3
> diganti angka 3-nya dengan nomor warna font untuk kondisi <50
>
> Wassalam,
> Kid.
>
>
> 2013/4/7 Mansor <dbpermatasari@gmail.com >
>
>> **
>>
>>
>> Terima kasih Pak Kid dan Pak Hendrik,
>>
>> Setelah dicoba, masalah input range nya udah jalan, tetapi font untuk
>> value yang kurang dari 50 juga ikut berubah warna.
>>
>>
>> Lihat file yang dilampir di sheet Input data from inputbox.
>>
>>
>>
>>
>> 2013/4/7 Mr. Kid <mr.nmkid@gmail.com >
>>
>> **
>>>
>>>
>>> Jangan lupa, pada baris sebelum yang di-merah oleh Pak Mansor ada
>>> statement berbunyi :
>>> Dim askForCell As String
>>>
>>> askForCell = "Select your range"
>>> sehingga askForCell pada baris :
>>>
>>> Set selectedRng = Application.InputBox(Prompt:=askForCell,
>>> Title:=askTitle, Type:=8)
>>> sebagai pengisi input parameter Prompt adalah sebuah variabel string.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>> On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <
>>> hendrikkarnadi@yahoo.com > wrote:
>>>
>>>> Ini saya dapat dari ozgrid, coba tambahkan tanda "" (string).
>>>> Salam,
>>>> HK
>>>>
>>>> Mansor <dbpermatasari@gmail.com > wrote:
>>>>
>>>>
>>>> Para Teman BeExcel,
>>>>
>>>> Tolong saya cari di mana error nya. File dilampirkan
>>>>
>>>> Terima kasih
>>>> -Mansor
>>>>
>>>> Private Sub CommandButton1_Click()
>>>>
>>>> Dim rng As Range, cell As Range, selectedRng As Range
>>>>
>>>> Dim askForCell As String, askTitle As String
>>>>
>>>> askForCell = "Select your range"
>>>>
>>>> askTitle = "Get cell"
>>>>
>>>> Set selectedRng = Application.InputBox(Prompt:=askForCell,
>>>> Title:=askTitle, Type:=8)
>>>>
>>>> Set rng = Range(selectedRng)
>>>>
>>>> For Each cell In rng
>>>>
>>>> If cell.Value >= 50 Then
>>>>
>>>> cell.Font.ColorIndex = 5
>>>>
>>>> Else
>>>>
>>>> cell.Font.ColorIndex = 3
>>>>
>>>> End If
>>>>
>>>> Next cell
>>>>
>>>> End Sub
>>>>
>>>>
>>>
>>
>
>
Semuanya sudah berhasil.
Terima kasih.
2013/4/7 Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Pastikan pada blok :
>
> If cell.Value >= 50 Then
>
> cell.Font.ColorInde
>
> Else
>
> cell.Font.ColorInde
>
> End If
> yang berbunyi :
> cell.Font.ColorInde
> diganti angka 5-nya dengan nomor warna font untuk kondisi >=50
> dan pada baris yang berbunyi :
> cell.Font.ColorInde
> diganti angka 3-nya dengan nomor warna font untuk kondisi <50
>
> Wassalam,
> Kid.
>
>
> 2013/4/7 Mansor <dbpermatasari@
>
>> **
>>
>>
>> Terima kasih Pak Kid dan Pak Hendrik,
>>
>> Setelah dicoba, masalah input range nya udah jalan, tetapi font untuk
>> value yang kurang dari 50 juga ikut berubah warna.
>>
>>
>> Lihat file yang dilampir di sheet Input data from inputbox.
>>
>>
>>
>>
>> 2013/4/7 Mr. Kid <mr.nmkid@gmail.
>>
>> **
>>>
>>>
>>> Jangan lupa, pada baris sebelum yang di-merah oleh Pak Mansor ada
>>> statement berbunyi :
>>> Dim askForCell As String
>>>
>>> askForCell = "Select your range"
>>> sehingga askForCell pada baris :
>>>
>>> Set selectedRng = Application.
>>> Title:=askTitle, Type:=8)
>>> sebagai pengisi input parameter Prompt adalah sebuah variabel string.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>> On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <
>>> hendrikkarnadi@
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Sun Apr 7, 2013 5:22 pm (PDT) . Posted by:
"cepwahyu" juragan_75
Maaf, Mr Kid
Saya kok ga bisa download attachment-nya ya?
Best Regards
CW
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 06 April 2013 4:51
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Oleh Pak Cecep sudah dibuatkan thread (topik) baru disini :
http://tech.groups.yahoo.com/group/belajar-excel/message/24141
Wassalam,
Kid.
2013/4/5 cepwahyu <cepwahyu@gmail.com >
Saya tadi sudah email juga ke milis contoh file-nya, sy mengirim email
dengan judul "Mengambil nilai menggunakan formula SUMPRODUCT".
Barangkali Mr. Kid bisa memberikan solusi alternatif selain sumproduct.
Contoh file terlampir
Best Regards
CW
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 05 April 2013 13:59
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Maaf, hanya ndak bisa membayangkan saja dengan kesibukan pencet calculate
karena di set manual.
Sebenarnya fungsi SumProduct tersebut digunakan untuk apa ?
Bisa jadi ada formula lain yang lebih efisien daripada perkalian array dalam
sumproduct.
Wassalam,
Kid.
2013/4/5 cecep <cepwahyu@gmail.com >
Terimakasih miss Jan atas responsenya,
Formula yg saya gunakan merujuk pada worksheet yg berbeda.
Formula yg saya gunakan sbb:
=SUMPRODUCT((PRODUCTION!$B$4:$B$33=DELIVERY!$B$5)*(PRODUCTION!$F$5:$F$34="de
l")*(PRODUCTION!$T$3:$AF$3+PRODUCTION!$D$4:$D$33=DELIVERY!Q4)*PRODUCTION!$T$
5:$AF$34)
Akhirnya saya ubah proses kalkulasinya dari automatic menjadi manual.
Sekali lagi terimakasih
Regards
CW
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Jan Raisin
Sent: 04 April 2013 14:43
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
coba dicek, apakah ada formula yang menggunakan iterasi, misal OffSet, rand,
RandBeetwen dan sejenisnya? kalo ada ganti dengan formula yang lain.
coba juga cek, apakah ada cell yang merujuk ke workbook lain? karena
logikanya adalah begini:
merujuk ke workbook lain lebih lama prosesnya dari pada merujuk ke workbook
yang sama
merujuk ke worksheet lain lebih lama prosesnya dari pada merujuk ke
worksheet yang sama
jika masih lambat juga, coba ubah proses kalkulasi dari automatic menjadi
manual.
Mungkin ada tambahan dari member yang lain.
Wassalam,
-Miss Jan Raisin-
Pada 4 April 2013 12.53, cecep <cepwahyu@gmail.com > menulis:
Dear para Be-Exceller,
Saya mempunyai data di sheet1 dan sheet2, nah di sheet2 saya membuat formula
SUMPRODUCT yg datanya saya ambil dari sheet1,Masalah yg saya hadapi saat ini
yaitu ketika saya mengedit data yg ada di sheet1 menjadi sangat lambat
karena Calculating Process. Ini menjadi tidak efektif karena denga mengubah
satu data saja bisa memerlukan waktu 15 sampe 30 detik.
Apakah ada rekan2 yg mengalami ini? Adakah solusinya?
Best Regards
CW
Saya kok ga bisa download attachment-nya ya?
Best Regards
CW
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 06 April 2013 4:51
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Oleh Pak Cecep sudah dibuatkan thread (topik) baru disini :
http://tech.
Wassalam,
Kid.
2013/4/5 cepwahyu <cepwahyu@gmail.
Saya tadi sudah email juga ke milis contoh file-nya, sy mengirim email
dengan judul "Mengambil nilai menggunakan formula SUMPRODUCT"
Barangkali Mr. Kid bisa memberikan solusi alternatif selain sumproduct.
Contoh file terlampir
Best Regards
CW
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 05 April 2013 13:59
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Maaf, hanya ndak bisa membayangkan saja dengan kesibukan pencet calculate
karena di set manual.
Sebenarnya fungsi SumProduct tersebut digunakan untuk apa ?
Bisa jadi ada formula lain yang lebih efisien daripada perkalian array dalam
sumproduct.
Wassalam,
Kid.
2013/4/5 cecep <cepwahyu@gmail.
Terimakasih miss Jan atas responsenya,
Formula yg saya gunakan merujuk pada worksheet yg berbeda.
Formula yg saya gunakan sbb:
=SUMPRODUCT(
l")*(PRODUCTIO
5:$AF$34)
Akhirnya saya ubah proses kalkulasinya dari automatic menjadi manual.
Sekali lagi terimakasih
Regards
CW
From: belajar-excel@
On Behalf Of Jan Raisin
Sent: 04 April 2013 14:43
To: belajar-excel@
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
coba dicek, apakah ada formula yang menggunakan iterasi, misal OffSet, rand,
RandBeetwen dan sejenisnya? kalo ada ganti dengan formula yang lain.
coba juga cek, apakah ada cell yang merujuk ke workbook lain? karena
logikanya adalah begini:
merujuk ke workbook lain lebih lama prosesnya dari pada merujuk ke workbook
yang sama
merujuk ke worksheet lain lebih lama prosesnya dari pada merujuk ke
worksheet yang sama
jika masih lambat juga, coba ubah proses kalkulasi dari automatic menjadi
manual.
Mungkin ada tambahan dari member yang lain.
Wassalam,
-Miss Jan Raisin-
Pada 4 April 2013 12.53, cecep <cepwahyu@gmail.
Dear para Be-Exceller,
Saya mempunyai data di sheet1 dan sheet2, nah di sheet2 saya membuat formula
SUMPRODUCT yg datanya saya ambil dari sheet1,Masalah yg saya hadapi saat ini
yaitu ketika saya mengedit data yg ada di sheet1 menjadi sangat lambat
karena Calculating Process. Ini menjadi tidak efektif karena denga mengubah
satu data saja bisa memerlukan waktu 15 sampe 30 detik.
Apakah ada rekan2 yg mengalami ini? Adakah solusinya?
Best Regards
CW
Sun Apr 7, 2013 8:43 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Cecep,
Coba cari dalam *akun email pribadi Bapak* dengan kata kunci pencarian
adalah judul dari topik yang dirujuk oleh si link yang saya berikan, yaitu
*Mengambil nilai mengunakan formula SUMPRODUCT *
Cari yang ada file attachment nya dalam daftar email hasil pencarian
tersebut.
Cara lain :
1. ke link http://www.mail-archive.com/belajar-excel@yahoogroups.com/ dan
cari dengan kata kunci yang ditunjukkan di atas.
2. ke link http://milis-belajar-excel.1048464.n5.nabble.com/ dan cari
dengan kata kunci yang ditunjukkan di atas.
Wassalam,
Kid.
2013/4/8 cepwahyu <cepwahyu@gmail.com >
> **
>
>
> Maaf, Mr Kid****
>
> Saya kok ga bisa download attachment-nya ya?****
>
> ** **
>
> Best Regards****
>
> *CW*
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 06 April 2013 4:51
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] pake rumus sumproduct lambat ketika edit
> data****
>
> ** **
>
> ****
>
> Oleh Pak Cecep sudah dibuatkan thread (topik) baru disini :
> http://tech.groups.yahoo.com/group/belajar-excel/message/24141****
>
> Wassalam,****
>
> Kid.****
>
> ** **
>
> 2013/4/5 cepwahyu <cepwahyu@gmail.com >****
>
> ****
>
> Saya tadi sudah email juga ke milis contoh file-nya, sy mengirim email
> dengan judul "Mengambil nilai menggunakan formula SUMPRODUCT".****
>
> Barangkali Mr. Kid bisa memberikan solusi alternatif selain sumproduct.***
> *
>
> ****
>
> Contoh file terlampir****
>
> ****
>
> Best Regards****
>
> *CW*****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 05 April 2013 13:59
> *To:* BeExcel****
>
>
> *Subject:* Re: [belajar-excel] pake rumus sumproduct lambat ketika edit
> data****
>
> ****
>
> ****
>
> Maaf, hanya ndak bisa membayangkan saja dengan kesibukan pencet calculate
> karena di set manual.
> Sebenarnya fungsi SumProduct tersebut digunakan untuk apa ?****
>
> Bisa jadi ada formula lain yang lebih efisien daripada perkalian array
> dalam sumproduct.****
>
> Wassalam,
> Kid.****
>
> ****
>
> 2013/4/5 cecep <cepwahyu@gmail.com >****
>
> ****
>
> Terimakasih miss Jan atas responsenya,****
>
> Formula yg saya gunakan merujuk pada worksheet yg berbeda.****
>
> Formula yg saya gunakan sbb:****
>
>
> =SUMPRODUCT((PRODUCTION!$B$4:$B$33=DELIVERY!$B$5)*(PRODUCTION!$F$5:$F$34="del")*(PRODUCTION!$T$3:$AF$3+PRODUCTION!$D$4:$D$33=DELIVERY!Q4)*PRODUCTION!$T$5:$AF$34)
> ****
>
> ****
>
> Akhirnya saya ubah proses kalkulasinya dari automatic menjadi manual.****
>
> Sekali lagi terimakasih****
>
> ****
>
> Regards****
>
> CW****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Jan Raisin
> *Sent:* 04 April 2013 14:43
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] pake rumus sumproduct lambat ketika edit
> data****
>
> ****
>
> ****
>
> coba dicek, apakah ada formula yang menggunakan iterasi, misal OffSet,
> rand, RandBeetwen dan sejenisnya? kalo ada ganti dengan formula yang lain.
> ****
>
> ****
>
> coba juga cek, apakah ada cell yang merujuk ke workbook lain? karena
> logikanya adalah begini:****
>
> merujuk ke workbook lain lebih lama prosesnya dari pada merujuk ke
> workbook yang sama****
>
> merujuk ke worksheet lain lebih lama prosesnya dari pada merujuk ke
> worksheet yang sama****
>
> ****
>
> jika masih lambat juga, coba ubah proses kalkulasi dari automatic menjadi
> manual.****
>
> ****
>
> Mungkin ada tambahan dari member yang lain.****
>
> ****
>
> Wassalam,****
>
> ****
>
> -Miss Jan Raisin-****
>
> ****
>
> Pada 4 April 2013 12.53, cecep <cepwahyu@gmail.com > menulis:****
>
> ****
>
> Dear para Be-Exceller,****
>
> ****
>
> Saya mempunyai data di sheet1 dan sheet2, nah di sheet2 saya membuat
> formula SUMPRODUCT yg datanya saya ambil dari sheet1,Masalah yg saya hadapi
> saat ini yaitu ketika saya mengedit data yg ada di sheet1 menjadi sangat
> lambat karena Calculating Process. Ini menjadi tidak efektif karena denga
> mengubah satu data saja bisa memerlukan waktu 15 sampe 30 detik.****
>
> Apakah ada rekan2 yg mengalami ini? Adakah solusinya? ****
>
> ****
>
> ****
>
> Best Regards****
>
> CW****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>
Coba cari dalam *akun email pribadi Bapak* dengan kata kunci pencarian
adalah judul dari topik yang dirujuk oleh si link yang saya berikan, yaitu
*Mengambil nilai mengunakan formula SUMPRODUCT *
Cari yang ada file attachment nya dalam daftar email hasil pencarian
tersebut.
Cara lain :
1. ke link http://www.mail-
cari dengan kata kunci yang ditunjukkan di atas.
2. ke link http://milis-
dengan kata kunci yang ditunjukkan di atas.
Wassalam,
Kid.
2013/4/8 cepwahyu <cepwahyu@gmail.
> **
>
>
> Maaf, Mr Kid****
>
> Saya kok ga bisa download attachment-nya ya?****
>
> ** **
>
> Best Regards****
>
> *CW*
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 06 April 2013 4:51
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] pake rumus sumproduct lambat ketika edit
> data****
>
> ** **
>
> ****
>
> Oleh Pak Cecep sudah dibuatkan thread (topik) baru disini :
> http://tech.
>
> Wassalam,***
>
> Kid.****
>
> ** **
>
> 2013/4/5 cepwahyu <cepwahyu@gmail.
>
> ****
>
> Saya tadi sudah email juga ke milis contoh file-nya, sy mengirim email
> dengan judul "Mengambil nilai menggunakan formula SUMPRODUCT".*
>
> Barangkali Mr. Kid bisa memberikan solusi alternatif selain sumproduct.*
> *
>
> ****
>
> Contoh file terlampir***
>
> ****
>
> Best Regards****
>
> *CW*****
>
> ****
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 05 April 2013 13:59
> *To:* BeExcel****
>
>
> *Subject:* Re: [belajar-excel] pake rumus sumproduct lambat ketika edit
> data****
>
> ****
>
> ****
>
> Maaf, hanya ndak bisa membayangkan saja dengan kesibukan pencet calculate
> karena di set manual.
> Sebenarnya fungsi SumProduct tersebut digunakan untuk apa ?****
>
> Bisa jadi ada formula lain yang lebih efisien daripada perkalian array
> dalam sumproduct.*
>
> Wassalam,
> Kid.****
>
> ****
>
> 2013/4/5 cecep <cepwahyu@gmail.
>
> ****
>
> Terimakasih miss Jan atas responsenya,
>
> Formula yg saya gunakan merujuk pada worksheet yg berbeda.****
>
> Formula yg saya gunakan sbb:****
>
>
> =SUMPRODUCT(
> ****
>
> ****
>
> Akhirnya saya ubah proses kalkulasinya dari automatic menjadi manual.****
>
> Sekali lagi terimakasih*
>
> ****
>
> Regards****
>
> CW****
>
> ****
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 04 April 2013 14:43
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] pake rumus sumproduct lambat ketika edit
> data****
>
> ****
>
> ****
>
> coba dicek, apakah ada formula yang menggunakan iterasi, misal OffSet,
> rand, RandBeetwen dan sejenisnya? kalo ada ganti dengan formula yang lain.
> ****
>
> ****
>
> coba juga cek, apakah ada cell yang merujuk ke workbook lain? karena
> logikanya adalah begini:****
>
> merujuk ke workbook lain lebih lama prosesnya dari pada merujuk ke
> workbook yang sama****
>
> merujuk ke worksheet lain lebih lama prosesnya dari pada merujuk ke
> worksheet yang sama****
>
> ****
>
> jika masih lambat juga, coba ubah proses kalkulasi dari automatic menjadi
> manual.****
>
> ****
>
> Mungkin ada tambahan dari member yang lain.****
>
> ****
>
> Wassalam,***
>
> ****
>
> -Miss Jan Raisin-****
>
> ****
>
> Pada 4 April 2013 12.53, cecep <cepwahyu@gmail.
>
> ****
>
> Dear para Be-Exceller,
>
> ****
>
> Saya mempunyai data di sheet1 dan sheet2, nah di sheet2 saya membuat
> formula SUMPRODUCT yg datanya saya ambil dari sheet1,Masalah yg saya hadapi
> saat ini yaitu ketika saya mengedit data yg ada di sheet1 menjadi sangat
> lambat karena Calculating Process. Ini menjadi tidak efektif karena denga
> mengubah satu data saja bisa memerlukan waktu 15 sampe 30 detik.****
>
> Apakah ada rekan2 yg mengalami ini? Adakah solusinya? ****
>
> ****
>
> ****
>
> Best Regards****
>
> CW****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>
Sun Apr 7, 2013 10:57 pm (PDT) . Posted by:
"cepwahyu" juragan_75
Okeh deh Mr. Kid saya dah bisa buka..
Terimakasih atas saran dan ilmunya, saya aka pelajari dulu.
Best Regards
CW
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 08 April 2013 10:43
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Pak Cecep,
Coba cari dalam akun email pribadi Bapak dengan kata kunci pencarian adalah
judul dari topik yang dirujuk oleh si link yang saya berikan, yaitu
Mengambil nilai mengunakan formula SUMPRODUCT
Cari yang ada file attachment nya dalam daftar email hasil pencarian
tersebut.
Cara lain :
1. ke link http://www.mail-archive.com/belajar-excel@yahoogroups.com/ dan
cari dengan kata kunci yang ditunjukkan di atas.
2. ke link http://milis-belajar-excel.1048464.n5.nabble.com/ dan cari dengan
kata kunci yang ditunjukkan di atas.
Wassalam,
Kid.
2013/4/8 cepwahyu <cepwahyu@gmail.com >
Maaf, Mr Kid
Saya kok ga bisa download attachment-nya ya?
Best Regards
CW
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 06 April 2013 4:51
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Oleh Pak Cecep sudah dibuatkan thread (topik) baru disini :
http://tech.groups.yahoo.com/group/belajar-excel/message/24141
Wassalam,
Kid.
2013/4/5 cepwahyu <cepwahyu@gmail.com >
Saya tadi sudah email juga ke milis contoh file-nya, sy mengirim email
dengan judul "Mengambil nilai menggunakan formula SUMPRODUCT".
Barangkali Mr. Kid bisa memberikan solusi alternatif selain sumproduct.
Contoh file terlampir
Best Regards
CW
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 05 April 2013 13:59
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Maaf, hanya ndak bisa membayangkan saja dengan kesibukan pencet calculate
karena di set manual.
Sebenarnya fungsi SumProduct tersebut digunakan untuk apa ?
Bisa jadi ada formula lain yang lebih efisien daripada perkalian array dalam
sumproduct.
Wassalam,
Kid.
2013/4/5 cecep <cepwahyu@gmail.com >
Terimakasih miss Jan atas responsenya,
Formula yg saya gunakan merujuk pada worksheet yg berbeda.
Formula yg saya gunakan sbb:
=SUMPRODUCT((PRODUCTION!$B$4:$B$33=DELIVERY!$B$5)*(PRODUCTION!$F$5:$F$34="de
l")*(PRODUCTION!$T$3:$AF$3+PRODUCTION!$D$4:$D$33=DELIVERY!Q4)*PRODUCTION!$T$
5:$AF$34)
Akhirnya saya ubah proses kalkulasinya dari automatic menjadi manual.
Sekali lagi terimakasih
Regards
CW
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Jan Raisin
Sent: 04 April 2013 14:43
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
coba dicek, apakah ada formula yang menggunakan iterasi, misal OffSet, rand,
RandBeetwen dan sejenisnya? kalo ada ganti dengan formula yang lain.
coba juga cek, apakah ada cell yang merujuk ke workbook lain? karena
logikanya adalah begini:
merujuk ke workbook lain lebih lama prosesnya dari pada merujuk ke workbook
yang sama
merujuk ke worksheet lain lebih lama prosesnya dari pada merujuk ke
worksheet yang sama
jika masih lambat juga, coba ubah proses kalkulasi dari automatic menjadi
manual.
Mungkin ada tambahan dari member yang lain.
Wassalam,
-Miss Jan Raisin-
Pada 4 April 2013 12.53, cecep <cepwahyu@gmail.com > menulis:
Dear para Be-Exceller,
Saya mempunyai data di sheet1 dan sheet2, nah di sheet2 saya membuat formula
SUMPRODUCT yg datanya saya ambil dari sheet1,Masalah yg saya hadapi saat ini
yaitu ketika saya mengedit data yg ada di sheet1 menjadi sangat lambat
karena Calculating Process. Ini menjadi tidak efektif karena denga mengubah
satu data saja bisa memerlukan waktu 15 sampe 30 detik.
Apakah ada rekan2 yg mengalami ini? Adakah solusinya?
Best Regards
CW
Terimakasih atas saran dan ilmunya, saya aka pelajari dulu.
Best Regards
CW
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 08 April 2013 10:43
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Pak Cecep,
Coba cari dalam akun email pribadi Bapak dengan kata kunci pencarian adalah
judul dari topik yang dirujuk oleh si link yang saya berikan, yaitu
Mengambil nilai mengunakan formula SUMPRODUCT
Cari yang ada file attachment nya dalam daftar email hasil pencarian
tersebut.
Cara lain :
1. ke link http://www.mail-
cari dengan kata kunci yang ditunjukkan di atas.
2. ke link http://milis-
kata kunci yang ditunjukkan di atas.
Wassalam,
Kid.
2013/4/8 cepwahyu <cepwahyu@gmail.
Maaf, Mr Kid
Saya kok ga bisa download attachment-nya ya?
Best Regards
CW
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 06 April 2013 4:51
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Oleh Pak Cecep sudah dibuatkan thread (topik) baru disini :
http://tech.
Wassalam,
Kid.
2013/4/5 cepwahyu <cepwahyu@gmail.
Saya tadi sudah email juga ke milis contoh file-nya, sy mengirim email
dengan judul "Mengambil nilai menggunakan formula SUMPRODUCT"
Barangkali Mr. Kid bisa memberikan solusi alternatif selain sumproduct.
Contoh file terlampir
Best Regards
CW
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 05 April 2013 13:59
To: BeExcel
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
Maaf, hanya ndak bisa membayangkan saja dengan kesibukan pencet calculate
karena di set manual.
Sebenarnya fungsi SumProduct tersebut digunakan untuk apa ?
Bisa jadi ada formula lain yang lebih efisien daripada perkalian array dalam
sumproduct.
Wassalam,
Kid.
2013/4/5 cecep <cepwahyu@gmail.
Terimakasih miss Jan atas responsenya,
Formula yg saya gunakan merujuk pada worksheet yg berbeda.
Formula yg saya gunakan sbb:
=SUMPRODUCT(
l")*(PRODUCTIO
5:$AF$34)
Akhirnya saya ubah proses kalkulasinya dari automatic menjadi manual.
Sekali lagi terimakasih
Regards
CW
From: belajar-excel@
On Behalf Of Jan Raisin
Sent: 04 April 2013 14:43
To: belajar-excel@
Subject: Re: [belajar-excel] pake rumus sumproduct lambat ketika edit data
coba dicek, apakah ada formula yang menggunakan iterasi, misal OffSet, rand,
RandBeetwen dan sejenisnya? kalo ada ganti dengan formula yang lain.
coba juga cek, apakah ada cell yang merujuk ke workbook lain? karena
logikanya adalah begini:
merujuk ke workbook lain lebih lama prosesnya dari pada merujuk ke workbook
yang sama
merujuk ke worksheet lain lebih lama prosesnya dari pada merujuk ke
worksheet yang sama
jika masih lambat juga, coba ubah proses kalkulasi dari automatic menjadi
manual.
Mungkin ada tambahan dari member yang lain.
Wassalam,
-Miss Jan Raisin-
Pada 4 April 2013 12.53, cecep <cepwahyu@gmail.
Dear para Be-Exceller,
Saya mempunyai data di sheet1 dan sheet2, nah di sheet2 saya membuat formula
SUMPRODUCT yg datanya saya ambil dari sheet1,Masalah yg saya hadapi saat ini
yaitu ketika saya mengedit data yg ada di sheet1 menjadi sangat lambat
karena Calculating Process. Ini menjadi tidak efektif karena denga mengubah
satu data saja bisa memerlukan waktu 15 sampe 30 detik.
Apakah ada rekan2 yg mengalami ini? Adakah solusinya?
Best Regards
CW
Sun Apr 7, 2013 7:25 pm (PDT) . Posted by:
"Ubaidil Alif"
Selamat pagi Para Master dan Be Exceller
Mohon bantuannya ni. Saya mau memisahkan data yang ada seperti di contoh
yang saya lampirkan. Bagaimana caranya ya?
Terima kasih
Ubaidil Alif
Mohon bantuannya ni. Saya mau memisahkan data yang ada seperti di contoh
yang saya lampirkan. Bagaimana caranya ya?
Terima kasih
Ubaidil Alif
Mon Apr 8, 2013 12:38 am (PDT) . Posted by:
"aji mumpung"
Hai pak Ubaidil Alif,
coba solusi VBA berikut, ditulis dalam sebuah modul:
Option Explicit
Public Sub ExtractOneLineCellToMultipleCells()
Dim i As Integer, j As Integer, x As Integer, iData As Integer, iCol As
Integer
Dim lRow As Long
Dim rngData As Range, rngResult As Range
Dim TempArray() As Variant, myArray As Variant
Dim sTimer As Single
Application.ScreenUpdating = False
sTimer = Timer
Set rngData = Sheets("data awal").Range("a2")
ReDim TempArray(1)
TempArray(1) = WorksheetFunction.Substitute(rngData, Chr(10), "#")
iData = Len(TempArray(1))
i = iData - Len(WorksheetFunction.Substitute(TempArray(1), "#", "")) + 1
ReDim myArray(x = 1 To i, 1 To 2)
x = 1
For j = 1 To iData
If Mid(TempArray(1), j, 1) = "#" Then
myArray(x, 1) = x
myArray(x, 2) = Left(TempArray(1), j - 1)
TempArray(1) = Mid(TempArray(1), j + 1, 9 ^ 9)
j = 1
x = x + 1
iData = Len(TempArray(1))
End If
Next j
myArray(x, 1) = x
myArray(x, 2) = TempArray(1)
With Sheets("data olahan")
Set rngResult = .Range(.Cells(1, 1), .Cells(x + 1, 2))
rngResult = myArray
.Range("a1").Value = "RecNo"
.Range("b1").Value = "No"
.Range("c1").Value = "Data 1"
.Range("d1").Value = "Data 2"
.Range("e1").Value = "Data 3"
.Range("f1").Value = "Data 4"
Application.DisplayAlerts = False
Set rngData = .Range(.Cells(2, 2), .Cells(x + 1, 2))
rngData.TextToColumns Destination:=.Range("B2"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1),
Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
Application.DisplayAlerts = True
End With
Sheets("data olahan").Select
Range("a1").CurrentRegion.Columns.AutoFit
Application.ScreenUpdating = True
MsgBox "Berhasil memisahkan " & x & " data dalam waktu " & Format(Timer
- sTimer, "0.000") & " detik", vbOKOnly, "Done"
End Sub
sekalian tanya ke para master, bagaimana cara melakukan looping untuk skrip
yang diwarnai dengan merah, karena untuk proses pemecahan data dari Text ke
Kolom saya menggunakan record macro.
file terlampir semoga bermanfaat,
Wassalam,
-Aji Mumpung-
Pada 8 April 2013 09.13, Ubaidil Alif <ubaidilalif@gmail.com > menulis:
> **
>
>
> Selamat pagi Para Master dan Be Exceller
>
> Mohon bantuannya ni. Saya mau memisahkan data yang ada seperti di contoh
> yang saya lampirkan. Bagaimana caranya ya?
>
> Terima kasih
> Ubaidil Alif
>
coba solusi VBA berikut, ditulis dalam sebuah modul:
Option Explicit
Public Sub ExtractOneLineCellT
Dim i As Integer, j As Integer, x As Integer, iData As Integer, iCol As
Integer
Dim lRow As Long
Dim rngData As Range, rngResult As Range
Dim TempArray() As Variant, myArray As Variant
Dim sTimer As Single
Application.
sTimer = Timer
Set rngData = Sheets("
ReDim TempArray(1)
TempArray(1) = WorksheetFunction.
iData = Len(TempArray(
i = iData - Len(WorksheetFuncti
ReDim myArray(x = 1 To i, 1 To 2)
x = 1
For j = 1 To iData
If Mid(TempArray(
myArray(x, 1) = x
myArray(x, 2) = Left(TempArray(
TempArray(1) = Mid(TempArray(
j = 1
x = x + 1
iData = Len(TempArray(
End If
Next j
myArray(x, 1) = x
myArray(x, 2) = TempArray(1)
With Sheets("
Set rngResult = .Range(.Cells(
rngResult = myArray
.Range("
.Range("
.Range("
.Range("
.Range("
.Range("
Application.
Set rngData = .Range(.Cells(
rngData.TextToColum
DataType:=xlDelimit
TextQualifier:
ConsecutiveDelimite
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False, _
FieldInfo:=Array(
Array(4, 1), Array(5, 1)), _
TrailingMinusNumber
Application.
End With
Sheets("
Range("
Application.
MsgBox "Berhasil memisahkan " & x & " data dalam waktu " & Format(Timer
- sTimer, "0.000"
End Sub
sekalian tanya ke para master, bagaimana cara melakukan looping untuk skrip
yang diwarnai dengan merah, karena untuk proses pemecahan data dari Text ke
Kolom saya menggunakan record macro.
file terlampir semoga bermanfaat,
Wassalam,
-Aji Mumpung-
Pada 8 April 2013 09.13, Ubaidil Alif <ubaidilalif@
> **
>
>
> Selamat pagi Para Master dan Be Exceller
>
> Mohon bantuannya ni. Saya mau memisahkan data yang ada seperti di contoh
> yang saya lampirkan. Bagaimana caranya ya?
>
> Terima kasih
> Ubaidil Alif
>
Sun Apr 7, 2013 8:39 pm (PDT) . Posted by:
"Rusdiyanto, Nicodemus"
Dear Mr. Kid,
Terima kasih atas pencerahannya
Sangat2 membantu J
Thanks in advance,
Nico
From: belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com ] On Behalf Of Mr. Kid
Sent: Thursday, March 28, 2013 6:20 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Rumus masing2 total by persen
koreksi :
Meskipun bisa tanpa kolom bantu, tetapi file terlampir menggunakan
sebuah kolom bantu agar formula bisa lebih singkat dan mudah dikelola
kedepannya.
Wassalam,
Kid.
2013/3/28 Mr. Kid <mr.nmkid@gmail.com >
Meskipun bisa kolom bantu, tetapi file terlampir menggunakan sebuah
kolom bantu agar formula bisa lebih singkat dan mudah dikelola
kedepannya.
Wassalam,
Kid.
2013/3/28 Rusdiyanto, Nicodemus <NicodemusRusdiyanto@tupperware.com >
Dear pakar,
Mohon bantuannya untuk formula di masing2 total di colom yang
berwarna kuning.
Tetapi yang diharpkan tidak manual, seperti contoh yang saya
attach.
Formulanya adalah : Total (OK) / Total (OK+FAILED)
Thanks in advance,
Nico
Terima kasih atas pencerahannya
Sangat2 membantu J
Thanks in advance,
Nico
From: belajar-excel@
[mailto:belajar-excel@
Sent: Thursday, March 28, 2013 6:20 PM
To: belajar-excel@
Subject: Re: [belajar-excel] Rumus masing2 total by persen
koreksi :
Meskipun bisa tanpa kolom bantu, tetapi file terlampir menggunakan
sebuah kolom bantu agar formula bisa lebih singkat dan mudah dikelola
kedepannya.
Wassalam,
Kid.
2013/3/28 Mr. Kid <mr.nmkid@gmail.
Meskipun bisa kolom bantu, tetapi file terlampir menggunakan sebuah
kolom bantu agar formula bisa lebih singkat dan mudah dikelola
kedepannya.
Wassalam,
Kid.
2013/3/28 Rusdiyanto, Nicodemus <NicodemusRusdiyanto
Dear pakar,
Mohon bantuannya untuk formula di masing2 total di colom yang
berwarna kuning.
Tetapi yang diharpkan tidak manual, seperti contoh yang saya
attach.
Formulanya adalah : Total (OK) / Total (OK+FAILED)
Thanks in advance,
Nico
Sun Apr 7, 2013 9:02 pm (PDT) . Posted by:
"Akbar Gobel" abatonji
Dear Master Excel
Beberapa hari yang lalu sy membuat usaha kecil2 Rental PS3
mohon bantuan para master excel untuk menyempurnakan billing yang
sementara ini saya pergunakan.
Sy sertakan billing yang sementara ini sy gunakan dan
bentuk billing yang sy inginkan
thankz atas bantuannya
Beberapa hari yang lalu sy membuat usaha kecil2 Rental PS3
mohon bantuan para master excel untuk menyempurnakan billing yang
sementara ini saya pergunakan.
Sy sertakan billing yang sementara ini sy gunakan dan
bentuk billing yang sy inginkan
thankz atas bantuannya
Mon Apr 8, 2013 1:43 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hai Akbar,
Mungkin pernyataan menyempurnakan billing perlu diuraikan lebih lanjut.
1. Apa yang dimaksud dengan billing ? Â Apakah pencatatan (seperti contoh) atau semacam nota yang diberikan kepada konsumen.
2. Apa yang ingin disempurnakan ? apakah ringkasan (output) atau format (form) untuk input.
Semakin jelas kedua hal tersebut di atas tentunya akan semakin mudah dan cepat rekan2 Be-Exceler membantu menyelesaikan masalah anda.
Salam,
HK
sekedar saran :Â
contoh sheet yang diberikan sebaiknya jangan diprotect untuk memudahkan rekan2 Be-Exceler memahaminya.
________________________________
From: Akbar Gobel <abatonji@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, 8 April 2013, 10:51
Subject: [belajar-excel] billing rental ps3
Â
Dear Master Excel
Beberapa hari yang lalu sy membuat usaha kecil2 Rental PS3
mohon bantuan para master excel untuk menyempurnakan billing yang
sementara ini saya pergunakan.
Sy sertakan billing yang sementara ini sy gunakan dan
bentuk billing yang sy inginkan
thankz atas bantuannya
Mungkin pernyataan menyempurnakan billing perlu diuraikan lebih lanjut.
1. Apa yang dimaksud dengan billing ? Â Apakah pencatatan (seperti contoh) atau semacam nota yang diberikan kepada konsumen.
2. Apa yang ingin disempurnakan ? apakah ringkasan (output) atau format (form) untuk input.
Semakin jelas kedua hal tersebut di atas tentunya akan semakin mudah dan cepat rekan2 Be-Exceler membantu menyelesaikan masalah anda.
Salam,
HK
sekedar saran :Â
contoh sheet yang diberikan sebaiknya jangan diprotect untuk memudahkan rekan2 Be-Exceler memahaminya.
____________
From: Akbar Gobel <abatonji@yahoo.
To: "belajar-excel@
Sent: Monday, 8 April 2013, 10:51
Subject: [belajar-excel] billing rental ps3
Â
Dear Master Excel
Beberapa hari yang lalu sy membuat usaha kecil2 Rental PS3
mohon bantuan para master excel untuk menyempurnakan billing yang
sementara ini saya pergunakan.
Sy sertakan billing yang sementara ini sy gunakan dan
bentuk billing yang sy inginkan
thankz atas bantuannya
Mon Apr 8, 2013 2:17 am (PDT) . Posted by:
"jeprey waluyo" greencap4914
Kenapa bisa y?
dengan rumus yg sama, format cell yg sama, office 2007 yg sama.
tapi rumusnya tidak bisa bekerja pada salah 1 file??
kira2 apa lagi yg harus di cek??
Atas tanggapannya, saya ucapkan terima kasih..
dengan rumus yg sama, format cell yg sama, office 2007 yg sama.
tapi rumusnya tidak bisa bekerja pada salah 1 file??
kira2 apa lagi yg harus di cek??
Atas tanggapannya, saya ucapkan terima kasih..
Terima kasih Mr. Kid. Semoga Tuhan membalas kebaikan Mr. Kid.
Wassalam,
tio
"Mr. Kid" <mr.nmkid@gmail.com >
Sent by: belajar-excel@yahoogroups.com
04/07/2013 07:00 AM
Please respond to belajar-excel
To: BeExcel <belajar-excel@yahoogroups.com >
cc:
Subject: Re: [belajar-excel] Re: Memisahkan kata yang
dipisah dengan spasi
File terlampir.
Wassalam,
Kid.
2013/4/7 tioali2011 <tioali2011@yahoo.co.id >
Dear Mr. Kid dan BeExceller lainnya.
Saya sudah mencoba berpuluh-puluh kali, tetap tidak bisa. Kalau tidak
keberatan, bisakah disertai dengan file excelnya ?
Terima kasih sekali saya ucapkan.
Wassalam,
Tio
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Oh iya,
> Periksa dulu regional setting setempat ya
> >> Jika regional setting komputer setempat adalah English, maka
formulanya :
> =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> (Column(a2)-1)*99+1 , 99 ) )
>
> >> Jika regional setting komputer setempat adalah Indonesia, maka
> formulanya :
> (ganti semua koma dengan titik koma)
> =Trim( Mid( Substitute( $a2 ; " " ; Rept( " " ; 99 ) ) ;
> (Column(a2)-1)*99+1 ; 99 ) )
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/4/5 Mr. Kid <mr.nmkid@...>
>
> > Misal data di a2 dan hasil mulai b2 kekanan
> > di b2 :
> > =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> > (Column(a2)-1)*99+1 , 99 ) )
> > copy ke kolom lain dan baris data lainnya
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> > 2013/4/4 <tio.adjie@...>
> >
> > **
> >>
> >>
> >>
> >> Dear BeExceller,
> >>
> >> Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1
kata :
> >> Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom
ke3
> >> Bayu, kolom ke 4 Adjie.
> >>
> >> Terima kasih,
> >> Wassalam,
> >> Tio
> >>
> >>
> >
> >
>
Wassalam,
tio
"Mr. Kid" <mr.nmkid@gmail.
Sent by: belajar-excel@
04/07/2013 07:00 AM
Please respond to belajar-excel
To: BeExcel <belajar-excel@
cc:
Subject: Re: [belajar-excel] Re: Memisahkan kata yang
dipisah dengan spasi
File terlampir.
Wassalam,
Kid.
2013/4/7 tioali2011 <tioali2011@yahoo.
Dear Mr. Kid dan BeExceller lainnya.
Saya sudah mencoba berpuluh-puluh kali, tetap tidak bisa. Kalau tidak
keberatan, bisakah disertai dengan file excelnya ?
Terima kasih sekali saya ucapkan.
Wassalam,
Tio
--- In belajar-excel@
>
> Oh iya,
> Periksa dulu regional setting setempat ya
> >> Jika regional setting komputer setempat adalah English, maka
formulanya :
> =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> (Column(a2)-
>
> >> Jika regional setting komputer setempat adalah Indonesia, maka
> formulanya :
> (ganti semua koma dengan titik koma)
> =Trim( Mid( Substitute( $a2 ; " " ; Rept( " " ; 99 ) ) ;
> (Column(a2)-
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/4/5 Mr. Kid <mr.nmkid@
>
> > Misal data di a2 dan hasil mulai b2 kekanan
> > di b2 :
> > =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> > (Column(a2)-
> > copy ke kolom lain dan baris data lainnya
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> > 2013/4/4 <tio.adjie@
> >
> > **
> >>
> >>
> >>
> >> Dear BeExceller,
> >>
> >> Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1
kata :
> >> Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom
ke3
> >> Bayu, kolom ke 4 Adjie.
> >>
> >> Terima kasih,
> >> Wassalam,
> >> Tio
> >>
> >>
> >
> >
>
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