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
>>>
>>
>>
>
>
