Re: ]] XL-mania [[ Input angka berubah menjadi Text

wkbuknya ketinggalan, barangkali diperlukan..

mudah-mudahan tidak ada yang melarang makro di milis ini
seperti salah satu email jawaban kemarin

2011/2/11 STDEV(i) <setiyowati.devi@gmail.com>

Formula ?
Ngetiknya jangan di kolom yg mo dipakai, misal ingin HASIL muncul di
kolom C ketik angkanya di kolom B.
Di C tulis rumus
=if(b2="","","F264"&text(b2,"00000"))

Makro ?
Khusus berlaku di kolom C.
Tulis prosedur event woksit change: di modul sheetN.

with target
if .count = 1 then
if column = 3 then
if not isempty(.value) then
Application.enableEvents = 0
.value = "F264" & format(.value,"00000")
Application.enableEvents = 1
end if
end if
end if

On 2/11/11, agung_widodo@sanyo.com <agung_widodo@sanyo.com> wrote:
> Para guru Excel Sekalian,
> Ada Model Code yang harus dientry manual,
> Dan sederet panjang angka lain yang harus diketik di kolom itu
>
> Inginnya :
> Begitu diinput 1809 Enter,  maka value berganti menjadi F26401809
> Begitu diinput 1821 Enter,  maka value berganti menjadi F26401821
> Begitu diinput 1714 Enter,  maka value berganti menjadi F26401714
> Begitu diinput 954 Enter,  maka value berganti menjadi F26400954
> Begitu diinput 928 Enter,  maka value berganti menjadi F26400928
> dst
> Apa ya bunyi Macro yang di berlakukan kolom itu
> Data banyak banget. Capek ketik F2640 atau F26400
> Setidaknya mengurangi kerja manual.
> Nuwun