hohoho....
ada kalimat berbunyi :
nb : biar nga tiap hari . ketik ribuan angka 0.
artinya boleh berubah saat dilakukan input, maka bisa juga dengan VBA pada
event worksheet change yang diisi begini :
with target 'pada range yang berubah isinya
if .count=1 then 'cek jumlah cell yang berubah cuma 1 bijik
if isnumeric(.value) then 'cek isi yang berubah bisa jadi
bertipe numerik
application.enableevents=FALSE 'opken eksekusi ipen
select case .column
'pilih berdasar nomor indeks kolom
case
1
'kolom A (indeks 1) ditambah 6 bijik 0
.value=.value*1000000 'nilai
di range itu diisi dengan nilai dirange itu juga yang dikali sejuta
case
2
'kolom B (indeks 2) ditambah 3 bijik 0
.value=.value*1000
'nilai di range itu diisi dengan nilai dirange itu juga yang dikali seribu
end
select
'selesai pilih-pilih berdasar indeks kolom
application.enableevents=TRUE 'onken eksekusi ipen
endif 'selesai cek bisa jadi
tipe numerik
endif 'selesai cek jumlah cell yang berubah
isi
end with 'selesai kerja di range yang berubah isi
jadi ndak perlu pencet ctrl w dan ctrl lainnya. tulis saja dan sim salabim
dibantu yak... cling...
nah... kalau mengabaikan kalimat n.b. tadi... bisa juga dengan copasspec
misal data di kolom A (pencet ctrl w katanya) dikali sejuta
dim sHead as string
with sheets("namasheetnya").range("a1").currentregion.resize(,1)
shead=.resize(1,1).value
.resize(1,1).value=1000000
.resize(1,1).copy
.pastespecial xlpastevalues,xlpastespecialoperationmultiply,true
.resize(1,1).value=shead
end with
yang ctrl lainnya untuk dikali seribu bisa dibuat sendiri ya
Wassalam,
Kid.
2013/5/4 lkm jktind <[email protected]>
> **
>
>
> Terima kasih . Pak Wiranata.
>
> Sudah bisa .
>
> Cuma Kalau saya rubah menjadi : apa akibatnya ?
>
>
> If IsEmpty(ActiveCell) = False Then
> For Each cell In Selection
> cell.Value = cell * 1000000
> Next cell
> End If
>
> jadi hasil nya langsung di kolom A .
>
>
> Salam
>
> Lukman
>
> nb : biar nga tiap hari . ketik ribuan angka 0.
>
>
> On Sat, May 4, 2013 at 12:53 PM, WIRAnata Kemala Deng <[email protected]
> > wrote:
>
>> **
>>
>>
>> bisa dicoba VBA di bawah ini :
>>
>> Sub columnA()
>>
>> Dim cell As Range
>>
>> 'Range("A2").Activate
>>
>> If IsEmpty(ActiveCell) = False Then
>> For Each cell In Selection
>> cell.Offset(0, 1).Value = cell * 1000000
>> Next cell
>> End If
>>
>> End Sub
>>
>>
>>
>> Sub columnD()
>>
>> Dim cell As Range
>>
>> 'Range("D2").Activate
>>
>> If IsEmpty(ActiveCell) = False Then
>> For Each cell In Selection
>> cell.Offset(0, 1).Value = cell * 1000
>> Next cell
>> End If
>>
>>
>> End Sub
>>
>>
>> xlm attached.
>>
>> select rows column A, lalu ctrl+w
>> yang satu lagi, select rows column D, lalu ctrl+q
>>
>> semoga membantu , maap kalo coding nya kurang rapih or canggih :)
>>
>> regards, Wira
>>
>>
>> 2013/5/4 lkm jktind <[email protected]>
>>
>>> **
>>>
>>>
>>> Maaf . contoh file, ketinggalan
>>>
>>>
>>> 2013/5/4 lkm jktind <[email protected]>
>>>
>>>> Data di kolom A : hendak di kalikan dengan 1.000.000
>>>> Data di kolom D : hendak di kalikan dengan 1.000
>>>>
>>>> Hasil yg di kehendaki :
>>>> data di A1:A5 diblok manual ---> tekan ctrl+w -- hasilnya *
>>>> 1.juta
>>>> data di B1:B5 diblok manual ----> tekan ctrl+q --- hasilnya *
>>>> 1.ribu
>>>> dengan macro
>>>>
>>>> Mohon bantuannya .
>>>>
>>>> Salam
>>>>
>>>> Lukman
>>>>
>>>
>>>
>>
>
>
