13 Messages
Digest #3117
Messages
Tue Sep 30, 2014 3:47 am (PDT) . Posted by:
"lkm jktind" lkmjkt
menggunakan data montecarlo
1. sebagian besar formula menempel di work sheet.
2. semuanya mengunakan VBA -- --(mengunakan vlookup dan randbtween --
masing 3 pasang)
dengan hasil
1. 7000 detik -- cpu usage = 25 %
2 .12.000 detik . ---> cpu useage = maksimal
apakah bisa di artikan . formula di vba --- akan lebih lamban dari pada di
work sheet ?
Salam
Lukman
1. sebagian besar formula menempel di work sheet.
2. semuanya mengunakan VBA -- --(mengunakan vlookup dan randbtween --
masing 3 pasang)
dengan hasil
1. 7000 detik -- cpu usage = 25 %
2 .12.000 detik . ---> cpu useage = maksimal
apakah bisa di artikan . formula di vba --- akan lebih lamban dari pada di
work sheet ?
Salam
Lukman
Tue Sep 30, 2014 1:41 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Lukman,
Semua fitur Excel ketika digunakan dalam VBA, akan bekerja lebih lamban,
karena dibutuhkan proses eksekusi baris script VBA.
Untuk lama proses sampai 1700 detik pada iterasi yang sangat banyak (lebih
dari 500K step iterasi) mungkin terhitung wajar. Untuk terasi dibawah 500K,
berarti ada yang kurang pas antara otomasi dengan sistem simulasinya.
Penjelasan sistem simulasi lengkap beserta dasar teori pemilihan komponen
simulasinya perlu diketahui lebih dahulu sebelum menyusun otomasinya.
Diemail Anda dikatakan ada penggunaan RandBetween dan vLookUp. Maka harus
dipertanyakan lebih dulu, apakah simulasinya akan membentuk langsung 1
dataset (series waktu) sekaligus atau satu per satu setiap waktu sampai
seluruh dataset terbentuk. Maksudnya, harus digenerate langsung dari
tanggal ke-1 sampai tanggal ke-1000 atau tanggal ke-1 selesai lalu muncul
tanggal ke-2 dst sampai tanggal ke-1000.
Kondisi yang mungkin :
A. Jika menggunakan randbetween, berarti tanggal ke-1 sampai tanggal
ke-1000 langsung terbentuk bilangan acak dan bagian lain (kolom lain) pun
harus bekerja simultan langsung mengolah bersamaan dari tanggal ke-1 sampai
ke-1000. Artinya, yang paling memungkinkan adalah memasang formula dalam
worksheet bukan menghitung formula dengan VBA.
B. Jika yang dimaksud adalah tanggal ke-1 selesai disimulasi lalu pindah ke
tanggal ke-2 lalu disimulasi sampai tanggal ke-1000,
maka :
1. jika ada proses untuk menggunakan hasil sebuah cell yang sama untuk
lebih dari satu proses simulasi.
>> proses otomasinya menggunakan loop dari satu tanggal ke tanggal
berikutnya.
2. jika tidak ada proses untuk menggunakan hasil sebuah cell yang sama
untuk lebih dari satu proses simulasi
>> proses otomasi bisa menggunakan VBA atau dengan formula dalam
worksheet
Kalo ndak salah kira-kira, jika kondisi A disusun dengan baik, mestinya
proses membutuhkan waktu sekitar 30 sampai 350 detik saja untuk data kurang
dari 30K. Jika kondisi B, maka proses VBA membutuhkan waktu sekitar 30
sampai 350 detik juga pada data kurang dari 30K. Sedang untuk penggunaan
formula di kondisi B.2., bisa tergantung jumlah formula dalam workbook yang
butuh dikalkulasi Excel (antrian dalam proses kalkulasi Excel).
Wassalam,
Kid.
2014-09-30 20:47 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> menggunakan data montecarlo
>
> 1. sebagian besar formula menempel di work sheet.
> 2. semuanya mengunakan VBA -- --(mengunakan vlookup dan randbtween --
> masing 3 pasang)
>
> dengan hasil
> 1. 7000 detik -- cpu usage = 25 %
> 2 .12.000 detik . ---> cpu useage = maksimal
>
> apakah bisa di artikan . formula di vba --- akan lebih lamban dari pada di
> work sheet ?
>
>
> Salam
>
> Lukman
>
>
>
Semua fitur Excel ketika digunakan dalam VBA, akan bekerja lebih lamban,
karena dibutuhkan proses eksekusi baris script VBA.
Untuk lama proses sampai 1700 detik pada iterasi yang sangat banyak (lebih
dari 500K step iterasi) mungkin terhitung wajar. Untuk terasi dibawah 500K,
berarti ada yang kurang pas antara otomasi dengan sistem simulasinya.
Penjelasan sistem simulasi lengkap beserta dasar teori pemilihan komponen
simulasinya perlu diketahui lebih dahulu sebelum menyusun otomasinya.
Diemail Anda dikatakan ada penggunaan RandBetween dan vLookUp. Maka harus
dipertanyakan lebih dulu, apakah simulasinya akan membentuk langsung 1
dataset (series waktu) sekaligus atau satu per satu setiap waktu sampai
seluruh dataset terbentuk. Maksudnya, harus digenerate langsung dari
tanggal ke-1 sampai tanggal ke-1000 atau tanggal ke-1 selesai lalu muncul
tanggal ke-2 dst sampai tanggal ke-1000.
Kondisi yang mungkin :
A. Jika menggunakan randbetween, berarti tanggal ke-1 sampai tanggal
ke-1000 langsung terbentuk bilangan acak dan bagian lain (kolom lain) pun
harus bekerja simultan langsung mengolah bersamaan dari tanggal ke-1 sampai
ke-1000. Artinya, yang paling memungkinkan adalah memasang formula dalam
worksheet bukan menghitung formula dengan VBA.
B. Jika yang dimaksud adalah tanggal ke-1 selesai disimulasi lalu pindah ke
tanggal ke-2 lalu disimulasi sampai tanggal ke-1000,
maka :
1. jika ada proses untuk menggunakan hasil sebuah cell yang sama untuk
lebih dari satu proses simulasi.
>> proses otomasinya menggunakan loop dari satu tanggal ke tanggal
berikutnya.
2. jika tidak ada proses untuk menggunakan hasil sebuah cell yang sama
untuk lebih dari satu proses simulasi
>> proses otomasi bisa menggunakan VBA atau dengan formula dalam
worksheet
Kalo ndak salah kira-kira, jika kondisi A disusun dengan baik, mestinya
proses membutuhkan waktu sekitar 30 sampai 350 detik saja untuk data kurang
dari 30K. Jika kondisi B, maka proses VBA membutuhkan waktu sekitar 30
sampai 350 detik juga pada data kurang dari 30K. Sedang untuk penggunaan
formula di kondisi B.2., bisa tergantung jumlah formula dalam workbook yang
butuh dikalkulasi Excel (antrian dalam proses kalkulasi Excel).
Wassalam,
Kid.
2014-09-30 20:47 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> menggunakan data montecarlo
>
> 1. sebagian besar formula menempel di work sheet.
> 2. semuanya mengunakan VBA -- --(mengunakan vlookup dan randbtween --
> masing 3 pasang)
>
> dengan hasil
> 1. 7000 detik -- cpu usage = 25 %
> 2 .12.000 detik . ---> cpu useage = maksimal
>
> apakah bisa di artikan . formula di vba --- akan lebih lamban dari pada di
> work sheet ?
>
>
> Salam
>
> Lukman
>
>
>
Tue Sep 30, 2014 12:42 pm (PDT) . Posted by:
"Syamsudin Rasyid" syamsudin_06
trims bantuannya pak. nanti saya coba
2014-09-26 20:02 GMT+08:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Ini sudah selesai .
>
> cara
>
> yg berwarna biru untuk mengisi kolom yg sudah saya warnai orange.
> Bila mau di pakai . tanda petik depan nya di hapus saja (dihilangkan)
>
>
> Sub Menggabungkan_cell1_pengetahuan()
> Dim sh1, sh2 As Worksheet
> Dim c, r, s, t, u As Long
> Dim ha1 As String
> Set sh1 = Worksheets("PENGETAHUAN")
> Set sh2 = Worksheets("tabel")
>
>
> sh1.Activate
>
> For r = 7 To Cells(Rows.Count, 1).End(xlUp).Row
> ' For c = 7 To 45 Step 7
> ' Cells(r, c).Value = (2 * Cells(r, c - 3) + Cells(r, c - 2) +
> Cells(r, c - 1)) / 4
> ' Cells(r, c + 1).Value = Cells(r, c) / 25
> ' Cells(r, c + 2).Value =
> Application.WorksheetFunction.VLookup(Cells(r, c + 1), _
> sh2.Range("I3:J12"), 2)
> ' Cells(r, c + 3).Value =
> Application.WorksheetFunction.VLookup(Cells(r, c + 1), _
> sh2.Range("I16:J19"), 2) & " pada " & Cells(2, c - 3)
> ' Next c
>
> For s = 19 To 16 Step -1
> With Application.WorksheetFunction
> u = 1
> For c = 10 To 45 Step 7
>
> If sh2.Cells(s, 10) = Left(Cells(r, c), Len(sh2.Cells(s, 10))) Then
> If u = 1 Then
> ha1 = ha1 & sh2.Cells(s, 10) & " pada " & Cells(2, c - 6)
> & ", "
> ElseIf u > 1 Then
> ha1 = ha1 & Cells(2, c - 6) & ", "
> End If
> Cells(r, 52).Value = ha1
> u = u + 1
> End If
> Next c
> End With
>
> Next s
> Cells(r, 52) = Left(Cells(r, 52), Len(Cells(r, 52)) - 2)
> ha1 = ""
> Next r
> End Sub
>
>
>
>
> 2014-09-25 18:39 GMT+07:00 lkm jktind <lkmjktind@gmail.com>:
>
>> Pak .
>>
>> sudah saya kerjakan . dengan hasil contoh di lampiran dibawah ini .
>> memang ada kelebihan spasi , dan ada 2 spasi . dan yg paling akhir pun
>> ada komanya .
>> baru untuk satu siswa saja .
>>
>> saya tidak mengurutkan data dari nilai .
>> apakah juga mau di urut berdasarkan nilai angkanya ?
>>
>> seandainya sudah sesuai -- dan mau tinggal di pakai langsung . tinggal
>> dikasih Tau saja ---
>> Hasilnya mau di letakan di mana range apa ?
>> datanya sangat bagus ada di mana ?
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>>
>>
>>
>>
>>
>> 2014-09-19 19:26 GMT+07:00 Syamsudin Rasyid syamsudin06@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>>
>>> Yth. para master excell dan rekan rekan dalam group
>>> Saya mengalami kesulitan dalam menggabung cell di excell, saya inginnya
>>> kata-kata yang sama hanya muncul sekali. file terlampir
>>>
>>> --
>>>
>>>
>>
>
>
--
==================================================================
- Guru Matematika dan TIK
- Untuk mendapatkan informasi tentang pembelajaran yang menggunakan ICT
berbasis web silhakan kunjungi http://www.syamsudin06.org
==================================================================
Kelemahan adalah Kekuatan yang belum di ketahui Pemanfaatannya
==================================================================
2014-09-26 20:02 GMT+08:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Ini sudah selesai .
>
> cara
>
> yg berwarna biru untuk mengisi kolom yg sudah saya warnai orange.
> Bila mau di pakai . tanda petik depan nya di hapus saja (dihilangkan)
>
>
> Sub Menggabungkan_cell1_pengetahuan()
> Dim sh1, sh2 As Worksheet
> Dim c, r, s, t, u As Long
> Dim ha1 As String
> Set sh1 = Worksheets("PENGETAHUAN")
> Set sh2 = Worksheets("tabel")
>
>
> sh1.Activate
>
> For r = 7 To Cells(Rows.Count, 1).End(xlUp).Row
> ' For c = 7 To 45 Step 7
> ' Cells(r, c).Value = (2 * Cells(r, c - 3) + Cells(r, c - 2) +
> Cells(r, c - 1)) / 4
> ' Cells(r, c + 1).Value = Cells(r, c) / 25
> ' Cells(r, c + 2).Value =
> Application.WorksheetFunction.VLookup(Cells(r, c + 1), _
> sh2.Range("I3:J12"), 2)
> ' Cells(r, c + 3).Value =
> Application.WorksheetFunction.VLookup(Cells(r, c + 1), _
> sh2.Range("I16:J19"), 2) & " pada " & Cells(2, c - 3)
> ' Next c
>
> For s = 19 To 16 Step -1
> With Application.WorksheetFunction
> u = 1
> For c = 10 To 45 Step 7
>
> If sh2.Cells(s, 10) = Left(Cells(r, c), Len(sh2.Cells(s, 10))) Then
> If u = 1 Then
> ha1 = ha1 & sh2.Cells(s, 10) & " pada " & Cells(2, c - 6)
> & ", "
> ElseIf u > 1 Then
> ha1 = ha1 & Cells(2, c - 6) & ", "
> End If
> Cells(r, 52).Value = ha1
> u = u + 1
> End If
> Next c
> End With
>
> Next s
> Cells(r, 52) = Left(Cells(r, 52), Len(Cells(r, 52)) - 2)
> ha1 = ""
> Next r
> End Sub
>
>
>
>
> 2014-09-25 18:39 GMT+07:00 lkm jktind <lkmjktind@gmail.com>:
>
>> Pak .
>>
>> sudah saya kerjakan . dengan hasil contoh di lampiran dibawah ini .
>> memang ada kelebihan spasi , dan ada 2 spasi . dan yg paling akhir pun
>> ada komanya .
>> baru untuk satu siswa saja .
>>
>> saya tidak mengurutkan data dari nilai .
>> apakah juga mau di urut berdasarkan nilai angkanya ?
>>
>> seandainya sudah sesuai -- dan mau tinggal di pakai langsung . tinggal
>> dikasih Tau saja ---
>> Hasilnya mau di letakan di mana range apa ?
>> datanya sangat bagus ada di mana ?
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>>
>>
>>
>>
>>
>> 2014-09-19 19:26 GMT+07:00 Syamsudin Rasyid syamsudin06@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>>
>>> Yth. para master excell dan rekan rekan dalam group
>>> Saya mengalami kesulitan dalam menggabung cell di excell, saya inginnya
>>> kata-kata yang sama hanya muncul sekali. file terlampir
>>>
>>> --
>>>
>>>
>>
>
>
--
==================================================================
- Guru Matematika dan TIK
- Untuk mendapatkan informasi tentang pembelajaran yang menggunakan ICT
berbasis web silhakan kunjungi http://www.syamsudin06.org
============
Kelemahan adalah Kekuatan yang belum di ketahui Pemanfaatannya
============
Tue Sep 30, 2014 12:44 pm (PDT) . Posted by:
"Darwis Arief" d_arief72
Assalamu Alaikum Wr. Wb.
Terima kasih ats bantuannya Mr. Nmkid, Semuanya sudah berjalan dgn sempurna.
Sukses selalu....
Wassalamu Alaikum Wr.Wb.
d_arief
--------------------------------------------
On Mon, 9/29/14, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Subject: Re: [belajar-excel] VB Worksheet_Change_2
To: "BeExcel" <belajar-excel@yahoogroups.com>
Date: Monday, September 29, 2014, 11:39 PM
oh gak bisa ya...
kalo gitu coba dipindah ke atas, yaitu tepat
setelah baris-baris dim terakhir, sebelum masuk ke script
yang sudah ada.
On Tue, Sep 30, 2014 at
12:24 PM, Darwis Arief d_arief72@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:
Assalamu Alaikum wr,wb.
Terima kasih ats bantuannya Mr. Nmkid,
Sy sdh tambahkan sesuai dgn code yg diberikan, namun blm bs
diexecusi.
Mohon pencerahannya lg...(terlampir)
Wassalam,
--------------------------------------------
On Mon, 9/29/14, 'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:
Subject: Re: [belajar-excel] VB Worksheet_Change
To: "BeExcel" <belajar-excel@yahoogroups.com>
Date: Monday, September 29, 2014, 5:00 AM
Hai Arief,
Tambahkan tepat sebelum
End Sub.
application.enableevents=false
select case target.address
case
"$B$11"
select
case cstr(target.value) 'karena akan cek yang
pasti
berisi teks
case
"a","b"
range("b13,d13").clearcontents
end select
case "$B$15"
select case
cstr(target.value)
case
"c","d"
range("b17,d17").clearcontents
if
cstr(target.value)="d" then
range("b17").value=10
endif
end select
end select
application.enableevents=true
Wassalam,
Kid.
On Sun, Sep 28, 2014 at
6:51 PM, Darwis Arief d_arief72@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:
Aslm,
Yang saya banggakan teman2 di Forum ini.
Saya punya VB hasil copas dari internet sbb:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim ws As Worksheet
Dim str As String
Dim i As Integer
Dim rngDV As Range
Dim rng As Range
If Target.Count > 1 Then Exit Sub
Set ws = Worksheets("LIST_KPL")
If Target.Row > 1 Then
On Error Resume Next
Set rngDV =
Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo 0
If rngDV Is Nothing Then Exit Sub
If Intersect(Target, rngDV) Is Nothing Then Exit Sub
str = Target.Validation.Formula1
str = Right(str, Len(str) - 1)
On Error Resume Next
Set rng = ws.Range(str)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
If Application.WorksheetFunction _
.CountIf(rng, Target.Value) Then
Exit Sub
Else
i = ws.Cells(Rows.Count, rng.Column).End(xlUp).Row +
1
ws.Cells(i, rng.Column).Value = Target.Value
rng.Sort Key1:=ws.Cells(1, rng.Column), _
Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End If
End Sub
Hasilnya sih sdh jalan, tapi saya ingin lagi menambahkan
lagi Event Change di kolom yang sama, dgn ignin bertanya
seperti di file terlampir.
Terima kasih sebelumnya.
Wassalam,
d_arief
#yiv1364311866 #yiv1364311866 --
#yiv1364311866ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}
#yiv1364311866 #yiv1364311866ygrp-mkp hr {
border:1px solid #d8d8d8;}
#yiv1364311866 #yiv1364311866ygrp-mkp #yiv1364311866hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}
#yiv1364311866 #yiv1364311866ygrp-mkp #yiv1364311866ads
{
margin-bottom:10px;}
#yiv1364311866 #yiv1364311866ygrp-mkp .yiv1364311866ad {
padding:0 0;}
#yiv1364311866 #yiv1364311866ygrp-mkp .yiv1364311866ad p
{
margin:0;}
#yiv1364311866 #yiv1364311866ygrp-mkp .yiv1364311866ad a
{
color:#0000ff;text-decoration:none;}
#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ygrp-lc {
font-family:Arial;}
#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ygrp-lc #yiv1364311866hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}
#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ygrp-lc .yiv1364311866ad {
margin-bottom:10px;padding:0 0;}
#yiv1364311866 #yiv1364311866actions {
font-family:Verdana;font-size:11px;padding:10px 0;}
#yiv1364311866 #yiv1364311866activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}
#yiv1364311866 #yiv1364311866activity span {
font-weight:700;}
#yiv1364311866 #yiv1364311866activity span:first-child {
text-transform:uppercase;}
#yiv1364311866 #yiv1364311866activity span a {
color:#5085b6;text-decoration:none;}
#yiv1364311866 #yiv1364311866activity span span {
color:#ff7900;}
#yiv1364311866 #yiv1364311866activity span
.yiv1364311866underline {
text-decoration:underline;}
#yiv1364311866 .yiv1364311866attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}
#yiv1364311866 .yiv1364311866attach div a {
text-decoration:none;}
#yiv1364311866 .yiv1364311866attach img {
border:none;padding-right:5px;}
#yiv1364311866 .yiv1364311866attach label {
display:block;margin-bottom:5px;}
#yiv1364311866 .yiv1364311866attach label a {
text-decoration:none;}
#yiv1364311866 blockquote {
margin:0 0 0 4px;}
#yiv1364311866 .yiv1364311866bold {
font-family:Arial;font-size:13px;font-weight:700;}
#yiv1364311866 .yiv1364311866bold a {
text-decoration:none;}
#yiv1364311866 dd.yiv1364311866last p a {
font-family:Verdana;font-weight:700;}
#yiv1364311866 dd.yiv1364311866last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}
#yiv1364311866 dd.yiv1364311866last p
span.yiv1364311866yshortcuts {
margin-right:0;}
#yiv1364311866 div.yiv1364311866attach-table div div a {
text-decoration:none;}
#yiv1364311866 div.yiv1364311866attach-table {
width:400px;}
#yiv1364311866 div.yiv1364311866file-title a,
#yiv1364311866
div.yiv1364311866file-title a:active, #yiv1364311866
div.yiv1364311866file-title a:hover, #yiv1364311866
div.yiv1364311866file-title a:visited {
text-decoration:none;}
#yiv1364311866 div.yiv1364311866photo-title a,
#yiv1364311866 div.yiv1364311866photo-title a:active,
#yiv1364311866 div.yiv1364311866photo-title a:hover,
#yiv1364311866 div.yiv1364311866photo-title a:visited {
text-decoration:none;}
#yiv1364311866 div#yiv1364311866ygrp-mlmsg
#yiv1364311866ygrp-msg p a span.yiv1364311866yshortcuts
{
font-family:Verdana;font-size:10px;font-weight:normal;}
#yiv1364311866 .yiv1364311866green {
color:#628c2a;}
#yiv1364311866 .yiv1364311866MsoNormal {
margin:0 0 0 0;}
#yiv1364311866 o {
font-size:0;}
#yiv1364311866 #yiv1364311866photos div {
float:left;width:72px;}
#yiv1364311866 #yiv1364311866photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}
#yiv1364311866 #yiv1364311866photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}
#yiv1364311866 #yiv1364311866reco-category {
font-size:77%;}
#yiv1364311866 #yiv1364311866reco-desc {
font-size:77%;}
#yiv1364311866 .yiv1364311866replbq {
margin:4px;}
#yiv1364311866 #yiv1364311866ygrp-actbar div a:first-child
{
margin-right:2px;padding-right:5px;}
#yiv1364311866 #yiv1364311866ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}
#yiv1364311866 #yiv1364311866ygrp-mlmsg table {
font-size:inherit;font:100%;}
#yiv1364311866 #yiv1364311866ygrp-mlmsg select,
#yiv1364311866 input, #yiv1364311866 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv1364311866 #yiv1364311866ygrp-mlmsg pre,
#yiv1364311866
code {
font:115% monospace;}
#yiv1364311866 #yiv1364311866ygrp-mlmsg * {
line-height:1.22em;}
#yiv1364311866 #yiv1364311866ygrp-mlmsg #yiv1364311866logo
{
padding-bottom:10px;}
#yiv1364311866 #yiv1364311866ygrp-msg p a {
font-family:Verdana;}
#yiv1364311866 #yiv1364311866ygrp-msg
p#yiv1364311866attach-count span {
color:#1E66AE;font-weight:700;}
#yiv1364311866 #yiv1364311866ygrp-reco
#yiv1364311866reco-head {
color:#ff7900;font-weight:700;}
#yiv1364311866 #yiv1364311866ygrp-reco {
margin-bottom:20px;padding:0px;}
#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ov
li a {
font-size:130%;text-decoration:none;}
#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}
#yiv1364311866 #yiv1364311866ygrp-sponsor
#yiv1364311866ov
ul {
margin:0;padding:0 0 0 8px;}
#yiv1364311866 #yiv1364311866ygrp-text {
font-family:Georgia;}
#yiv1364311866 #yiv1364311866ygrp-text p {
margin:0 0 1em 0;}
#yiv1364311866 #yiv1364311866ygrp-text tt {
font-size:120%;}
#yiv1364311866 #yiv1364311866ygrp-vital ul li:last-child
{
border-right:none !important;
}
#yiv1364311866
#yiv5841519828 #yiv5841519828 --
#yiv5841519828ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}
#yiv5841519828 #yiv5841519828ygrp-mkp hr {
border:1px solid #d8d8d8;}
#yiv5841519828 #yiv5841519828ygrp-mkp #yiv5841519828hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}
#yiv5841519828 #yiv5841519828ygrp-mkp #yiv5841519828ads {
margin-bottom:10px;}
#yiv5841519828 #yiv5841519828ygrp-mkp .yiv5841519828ad {
padding:0 0;}
#yiv5841519828 #yiv5841519828ygrp-mkp .yiv5841519828ad p {
margin:0;}
#yiv5841519828 #yiv5841519828ygrp-mkp .yiv5841519828ad a {
color:#0000ff;text-decoration:none;}
#yiv5841519828 #yiv5841519828ygrp-sponsor
#yiv5841519828ygrp-lc {
font-family:Arial;}
#yiv5841519828 #yiv5841519828ygrp-sponsor
#yiv5841519828ygrp-lc #yiv5841519828hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}
#yiv5841519828 #yiv5841519828ygrp-sponsor
#yiv5841519828ygrp-lc .yiv5841519828ad {
margin-bottom:10px;padding:0 0;}
#yiv5841519828 #yiv5841519828actions {
font-family:Verdana;font-size:11px;padding:10px 0;}
#yiv5841519828 #yiv5841519828activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}
#yiv5841519828 #yiv5841519828activity span {
font-weight:700;}
#yiv5841519828 #yiv5841519828activity span:first-child {
text-transform:uppercase;
Terima kasih ats bantuannya Mr. Nmkid, Semuanya sudah berjalan dgn sempurna.
Sukses selalu....
Wassalamu Alaikum Wr.Wb.
d_arief
--------------------------------------------
On Mon, 9/29/14, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Subject: Re: [belajar-excel] VB Worksheet_Change_2
To: "BeExcel" <belajar-excel@yahoogroups.com>
Date: Monday, September 29, 2014, 11:39 PM
oh gak bisa ya...
kalo gitu coba dipindah ke atas, yaitu tepat
setelah baris-baris dim terakhir, sebelum masuk ke script
yang sudah ada.
On Tue, Sep 30, 2014 at
12:24 PM, Darwis Arief d_arief72@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:
Assalamu Alaikum wr,wb.
Terima kasih ats bantuannya Mr. Nmkid,
Sy sdh tambahkan sesuai dgn code yg diberikan, namun blm bs
diexecusi.
Mohon pencerahannya lg...(terlampir)
Wassalam,
--------------------------------------------
On Mon, 9/29/14, 'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:
Subject: Re: [belajar-excel] VB Worksheet_Change
To: "BeExcel" <belajar-excel@yahoogroups.com>
Date: Monday, September 29, 2014, 5:00 AM
Hai Arief,
Tambahkan tepat sebelum
End Sub.
application.enableevents=false
select case target.address
case
"$B$11"
select
case cstr(target.value) 'karena akan cek yang
pasti
berisi teks
case
"a","b"
range("b13,d13").clearcontents
end select
case "$B$15"
select case
cstr(target.value)
case
"c","d"
range("b17,d17").clearcontents
if
cstr(target.value)="d" then
range("b17").value=10
endif
end select
end select
application.enableevents=true
Wassalam,
Kid.
On Sun, Sep 28, 2014 at
6:51 PM, Darwis Arief d_arief72@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>
wrote:
Aslm,
Yang saya banggakan teman2 di Forum ini.
Saya punya VB hasil copas dari internet sbb:
Private Sub Worksheet_Change(
On Error Resume Next
Dim ws As Worksheet
Dim str As String
Dim i As Integer
Dim rngDV As Range
Dim rng As Range
If Target.Count > 1 Then Exit Sub
Set ws = Worksheets("
If Target.Row > 1 Then
On Error Resume Next
Set rngDV =
Cells.SpecialCells(
On Error GoTo 0
If rngDV Is Nothing Then Exit Sub
If Intersect(Target, rngDV) Is Nothing Then Exit Sub
str = Target.Validation.
str = Right(str, Len(str) - 1)
On Error Resume Next
Set rng = ws.Range(str)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
If Application.
.CountIf(rng, Target.Value) Then
Exit Sub
Else
i = ws.Cells(Rows.
1
ws.Cells(i, rng.Column).
rng.Sort Key1:=ws.Cells(
Order1:=xlAscending
OrderCustom:
Orientation:
End If
End If
End Sub
Hasilnya sih sdh jalan, tapi saya ingin lagi menambahkan
lagi Event Change di kolom yang sama, dgn ignin bertanya
seperti di file terlampir.
Terima kasih sebelumnya.
Wassalam,
d_arief
#yiv1364311866 #yiv1364311866 --
#yiv1364311866ygrp-
border:1px solid #d8d8d8;font-
0;padding:0 10px;}
#yiv1364311866 #yiv1364311866ygrp-
border:1px solid #d8d8d8;}
#yiv1364311866 #yiv1364311866ygrp-
color:#628c2a;
0;}
#yiv1364311866 #yiv1364311866ygrp-
{
margin-bottom:
#yiv1364311866 #yiv1364311866ygrp-
padding:0 0;}
#yiv1364311866 #yiv1364311866ygrp-
{
margin:0;}
#yiv1364311866 #yiv1364311866ygrp-
{
color:#0000ff;
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866ygrp-
font-family:
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866ygrp-
margin:10px
0px;font-weight:
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866ygrp-
margin-bottom:
#yiv1364311866 #yiv1364311866actio
font-family:
#yiv1364311866 #yiv1364311866activ
background-color:
#yiv1364311866 #yiv1364311866activ
font-weight:
#yiv1364311866 #yiv1364311866activ
text-transform:
#yiv1364311866 #yiv1364311866activ
color:#5085b6;
#yiv1364311866 #yiv1364311866activ
color:#ff7900;
#yiv1364311866 #yiv1364311866activ
.yiv1364311866under
text-decoration:
#yiv1364311866 .yiv1364311866attac
clear:both;display:
0;width:400px;
#yiv1364311866 .yiv1364311866attac
text-decoration:
#yiv1364311866 .yiv1364311866attac
border:none;
#yiv1364311866 .yiv1364311866attac
display:block;
#yiv1364311866 .yiv1364311866attac
text-decoration:
#yiv1364311866 blockquote {
margin:0 0 0 4px;}
#yiv1364311866 .yiv1364311866bold {
font-family:
#yiv1364311866 .yiv1364311866bold a {
text-decoration:
#yiv1364311866 dd.yiv1364311866las
font-family:
#yiv1364311866 dd.yiv1364311866las
margin-right:
#yiv1364311866 dd.yiv1364311866las
span.yiv1364311866y
margin-right:
#yiv1364311866 div.yiv1364311866at
text-decoration:
#yiv1364311866 div.yiv1364311866at
width:400px;
#yiv1364311866 div.yiv1364311866fi
#yiv1364311866
div.yiv1364311866fi
div.yiv1364311866fi
div.yiv1364311866fi
text-decoration:
#yiv1364311866 div.yiv1364311866ph
#yiv1364311866 div.yiv1364311866ph
#yiv1364311866 div.yiv1364311866ph
#yiv1364311866 div.yiv1364311866ph
text-decoration:
#yiv1364311866 div#yiv1364311866yg
#yiv1364311866ygrp-
{
font-family:
#yiv1364311866 .yiv1364311866green {
color:#628c2a;
#yiv1364311866 .yiv1364311866MsoNo
margin:0 0 0 0;}
#yiv1364311866 o {
font-size:0;
#yiv1364311866 #yiv1364311866photo
float:left;width:
#yiv1364311866 #yiv1364311866photo
border:1px solid
#666666;height:
#yiv1364311866 #yiv1364311866photo
color:#666666;
#yiv1364311866 #yiv1364311866reco-
font-size:77%
#yiv1364311866 #yiv1364311866reco-
font-size:77%
#yiv1364311866 .yiv1364311866replb
margin:4px;}
#yiv1364311866 #yiv1364311866ygrp-
{
margin-right:
#yiv1364311866 #yiv1364311866ygrp-
font-size:13px;
sans-serif;}
#yiv1364311866 #yiv1364311866ygrp-
font-size:inherit;
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866 input, #yiv1364311866 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866
code {
font:115% monospace;}
#yiv1364311866 #yiv1364311866ygrp-
line-height:
#yiv1364311866 #yiv1364311866ygrp-
{
padding-bottom:
#yiv1364311866 #yiv1364311866ygrp-
font-family:
#yiv1364311866 #yiv1364311866ygrp-
p#yiv1364311866atta
color:#1E66AE;
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866reco-
color:#ff7900;
#yiv1364311866 #yiv1364311866ygrp-
margin-bottom:
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866ov
li a {
font-size:130%
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866ov
li {
font-size:77%
#yiv1364311866 #yiv1364311866ygrp-
#yiv1364311866ov
ul {
margin:0;padding:
#yiv1364311866 #yiv1364311866ygrp-
font-family:
#yiv1364311866 #yiv1364311866ygrp-
margin:0 0 1em 0;}
#yiv1364311866 #yiv1364311866ygrp-
font-size:120%
#yiv1364311866 #yiv1364311866ygrp-
{
border-right:
}
#yiv1364311866
#yiv5841519828 #yiv5841519828 --
#yiv5841519828ygrp-
border:1px solid #d8d8d8;font-
0;padding:0 10px;}
#yiv5841519828 #yiv5841519828ygrp-
border:1px solid #d8d8d8;}
#yiv5841519828 #yiv5841519828ygrp-
color:#628c2a;
0;}
#yiv5841519828 #yiv5841519828ygrp-
margin-bottom:
#yiv5841519828 #yiv5841519828ygrp-
padding:0 0;}
#yiv5841519828 #yiv5841519828ygrp-
margin:0;}
#yiv5841519828 #yiv5841519828ygrp-
color:#0000ff;
#yiv5841519828 #yiv5841519828ygrp-
#yiv5841519828ygrp-
font-family:
#yiv5841519828 #yiv5841519828ygrp-
#yiv5841519828ygrp-
margin:10px
0px;font-weight:
#yiv5841519828 #yiv5841519828ygrp-
#yiv5841519828ygrp-
margin-bottom:
#yiv5841519828 #yiv5841519828actio
font-family:
#yiv5841519828 #yiv5841519828activ
background-color:
#yiv5841519828 #yiv5841519828activ
font-weight:
#yiv5841519828 #yiv5841519828activ
text-transform: