Saya telah membuat VBA (seperti terlampir di email ini.)
Tapi rasanya lambat dalam memproses data.
bila mengunakan do case atau select case apakah akan lebih cepat ?
bagaimana cara merubahnya . bila hendak mengunakan do case. /select case.
Salam
Lukman
NB :
1. Komplit_1 -- ini lambat
2.
Kalau saya lebih suka disebuah cell diisi formula sum-nya, kemudian isi
cell berformula sum itu yang dibaca dan dimasukkan ke properti caption. Hal
ini akan lebih luwes untuk bisa dipakai dibanyak tempat dalam sheet maupun
userform lain nantinya. Pergantian cara kalkulasi juga bisa dilakukan
dengan
yang mau ditampilkan itu kan hasil sum dari satu kolom, nah gimana caranya ??
udh dicoba kaya gini tapi ga muncul
linier.Caption = Sheets("Forecast Linier").Sum(Range("G9").Resize(lRow,
1)).Value
Pada Minggu, 7 Juni 2015 11:52, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" menul
Hai Nisa,
Misal nilai yang akan dimasukkan ke label bernama 'lblSatu' ada di sheets
bernama 'Kid' range GJ7
baris kode :
lblsatu.caption = sheets("Kid").range("gj7").value
kalau pakai textbox (misal bernama txtDua), maka ganti lblsatu.caption
dengan txtdua.text
Artinya, object control Label
Hai Nurani,
ndak berulang-ulang kok bikinnya, cukup 1 kali untuk buanyak cells dgn
kriteria CF yang sama.
buanyak cells ber-cf akan mengambil porsi kerja Excel. Tapi, pengerjaan CF
oleh Excel tetap jauh lebih cepat dibanding mewarnai sendiri dengan VBA.
Kalau dibuat manual, langkahnya begini :
1.
Terimakasih banyak Mr.Kid dan Mr.Toby atas pencerahannya, sangat-sangat
membantu.mau tanya lagi gimana caranya menampilkan otomatis data pada
label.jadi setelah dilakukan peramalan dengan semua metode, akan muncul hasil
SUM dari semua metode pada setiap labelnya.bagaimana caranya ya ?? sedangkan
Dear Ani,
Coba pake method if dan colorindex,untuk kode warna colorindex bisa kamu cari
di google.
TerimaKasih.
Sent from Yahoo Mail on Android
Mister aku mau tanya code vba untuk conditional formatting pada Cell F10 dengan
kriteria seperti ini:
Jika cells D10 > C10 maka warna fontnya merah
kondisi tersebut berlaku untuk range F10:F358.
kan kalo pake conditional formatting bisa cape...range nya banyak banget.
Terima kasih mister
Hai Agus,
File terlampir.
Regard,
Kid
2015-06-06 17:37 GMT+10:00 Agusti Dartius adart...@yahoo.com
[belajar-excel] :
>
>
> Selamat sore semuanya.
> Saya ada pertanyaan. Pertanyaan saya sudah saya tilis di dlama file
> terlampir
> Mohon bantuannya master2 semua.
>
> Terima Kasih
>
>
>
re-ta
Di email terakhir lalu ada bagian yang berbunyi : (dari 5 baris kode diubah
agar menjadi 1 baris kode saja)
> bagian :
> If Not otx = "" Then
> If Not Target(1, 1).Text = otx Then
> Target(1, 1).Font.ColorIndex = 3
> End If
> End If
>
> ubah menjadi : (1 baris sajah cukup) bila perlu, event select
prosedur kerja data yang akan diolah memang menggunakan copy paste manual.jadi
kodenya gimana mister, agar semua cell berubah warna ketika dipaste data yang
baru.maaf gagal fokus.hehe
On Wednesday, June 3, 2015 5:41 PM, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" wrote:
Kala
Selamat sore semuanya.Saya ada pertanyaan. Pertanyaan saya sudah saya tilis di
dlama file terlampirMohon bantuannya master2 semua.
Terima Kasih
tanya jumlah jam akses.xlsx
Description: MS-Excel 2007 spreadsheet
12 matches
Mail list logo