Jumat, 26 September 2014

[belajar-excel] Digest Number 3109

15 Messages

Digest #3109
1a
Gabung Data by "Maman"
1b
Re: Gabung Data [1 Attachment] by "lkm jktind" lkmjkt
1c
Re: Gabung Data [1 Attachment] by "lkm jktind" lkmjkt
5a
Re: Variabel VBA by "Nang Agus"
5b
Re: Variabel VBA by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
5c
Re: Variabel VBA by "Nang Agus"
5d
Re: Variabel VBA [1 Attachment] by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
5e
Re: Variabel VBA by "Nang Agus"
5f
Re: Variabel VBA [1 Attachment] by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
6a
Re: Vlookup dengan kriteria by "lkm jktind" lkmjkt

Messages

Thu Sep 25, 2014 3:19 am (PDT) . Posted by:

"Maman"

Assalaamu'alaikum

Selama ini saya menggunakan tabel memanjang ke kanan untuk input data
pemasukan dan pemakaian
dan itu cukup merepotkan, saya ingin menggabungkan antara data Saldo
Awal, Pemasukan dan Pemakaian
sehingga terbentuk tabel rekapitulasi dari 3 tabel tersebut, dan
menghasilkan saldo akhir.

Terima Kasih sebelumnya untuk solusi dari master excel semua.

Wassalaamu'alaikum

Thu Sep 25, 2014 1:08 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

Pak Maman .

bapak menghendaki 3 sheet itu di jadikan satu ---
sudah saya buatkan contoh nya .
tapi belum tentu sesuai dengan kehendak bapak .

: untuk kode ---- ini lebih memudahkan bila bapak mau tau beli / pakai /
salso awal .
: untuk kode item ---- ini takut menghindari data di kolom keterangan
bila isi data nya panjang menjadi nga sama.
: untuk pemakaian saya pisahkan . bila bapak menghendaki menjadi satu
----Maka untuk pemakaian di tambah - (minus)

carilah bentuk yg memudahkan aktivitas bapak .

dan selanjutnya mengunakan filter atau apa gitu --- untuk hal ini saya
kurang menguasai.
dan banyak senior disini yang jauh lebih pandai dari saya.

Salam

Lukman

2014-09-25 16:50 GMT+07:00 Maman superm42n@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalaamu'alaikum
>
> Selama ini saya menggunakan tabel memanjang ke kanan untuk input data
> pemasukan dan pemakaian
> dan itu cukup merepotkan, saya ingin menggabungkan antara data Saldo
> Awal, Pemasukan dan Pemakaian
> sehingga terbentuk tabel rekapitulasi dari 3 tabel tersebut, dan
> menghasilkan saldo akhir.
>
> Terima Kasih sebelumnya untuk solusi dari master excel semua.
>
> Wassalaamu&#39;alaikum
>
>

Thu Sep 25, 2014 1:10 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

Maaf file nya tertinggal.

ada di halaman solusi .

2014-09-25 19:34 GMT+07:00 lkm jktind <lkmjktind@gmail.com>:

> Pak Maman .
>
> bapak menghendaki 3 sheet itu di jadikan satu ---
> sudah saya buatkan contoh nya .
> tapi belum tentu sesuai dengan kehendak bapak .
>
> : untuk kode ---- ini lebih memudahkan bila bapak mau tau beli / pakai /
> salso awal .
> : untuk kode item ---- ini takut menghindari data di kolom keterangan
> bila isi data nya panjang menjadi nga sama.
> : untuk pemakaian saya pisahkan . bila bapak menghendaki menjadi satu
> ----Maka untuk pemakaian di tambah - (minus)
>
> carilah bentuk yg memudahkan aktivitas bapak .
>
> dan selanjutnya mengunakan filter atau apa gitu --- untuk hal ini saya
> kurang menguasai.
> dan banyak senior disini yang jauh lebih pandai dari saya.
>
> Salam
>
> Lukman
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2014-09-25 16:50 GMT+07:00 Maman superm42n@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>>
>> Assalaamu'alaikum
>>
>> Selama ini saya menggunakan tabel memanjang ke kanan untuk input data
>> pemasukan dan pemakaian
>> dan itu cukup merepotkan, saya ingin menggabungkan antara data Saldo
>> Awal, Pemasukan dan Pemakaian
>> sehingga terbentuk tabel rekapitulasi dari 3 tabel tersebut, dan
>> menghasilkan saldo akhir.
>>
>> Terima Kasih sebelumnya untuk solusi dari master excel semua.
>>
>> Wassalaamu&#39;alaikum
>>
>>
>
>

Thu Sep 25, 2014 3:33 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pak Ahmad,
Jika kolomnya mau diubah mis Keterangan...
Pilih kolom "Keterangan" pada sheet FULL lalu double click mouse...

Salam,
HK

On Thursday, 25 September 2014, 15:29, "Ahmad Hafizullah Amin zoellenda@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Terimakasih formulanya bang Hendrik.,
Tapi mohon maaf bang, masih kurang sedikit bang, saya ingin di data sheet yang baru itu diambil jugan dari range "keterangan" yang ada di worksheet "FULL".

Karna di range "Keterangan" di worksheet "FULL", ada beberapa kriteria yang harus dipisah., ada "Intensif, Reguler dan Konversi". begitu kira-kira bang..

berikut saya lampirkan filenya bang..

terimkasih atas perhatiannya bang Hendrik..

Pada 25 September 2014 11.28, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

>
>Pak Ahmad,
> 1. Worksheet yang tercipta tidak terbatas, sesuai jumlah kode PRODI nya
> 2. Penomoran yang tercipta sdh disesuaikan (berurutan); sebelumnya memang sengaja dibiarkan supaya bisa dicocokkan dengan aslinya.
> 3. Pertanyaan kurang jelas, mohon dapat diklarifikasi
>File revisi No Urut pada hasil (mulai dari 1) terlampir.
>
>
>Salam,
>HK
>
>
>
>
>
>
>
>
>On Thursday, 25 September 2014, 9:17, "Ahmad Hafizullah Amin zoellenda@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
>Assalamu&#39;alaikum, wr.wb.
>
>Dear Master excel..
>beberapa minggu lalu saya menanyakan masalah cara transfer data di satu worksheet ke worksheet yang lain secara otomatis, dan alhmadulillah Master Hendrik sudah memberikan solusi. #Makasi bang.. :)
>
>Namun, setelah saya coba ada beberapa temuan dan sedikit kekurangan. Diantaranya adalah:
>1. Worksheet yang tercipta hanya berjumlah maksimal 4 (empat) worksheet, padahal saya ingin mengembangkan menjadi beberapa worksheet.
>2. Data yang otomatis ditransfer dari worksheet "FULL" ke worksheet yang lain, penomorannya acak, atau penomeran yang tercipta mengikuti nomer asli yang ada di worksheet "FULL".
>3.
Worksheet yang diinginkan bukan hanya bisa memisahkan "Prodi", tetapi diharapkan dapat juga memisahkan "Kelas".
>
>
>yang ingin diharapkan dari formula tersebut adalah:
>1. Worksheet yang tercipta tidak terbatas;
>2. Penomoran yang tercipta di masing-masing worksheet dapat berurutan;
>3. Selain tercipta 3 (tiga) worksheet - PAI, AS dan KPI dari range "PRODI" - diharapkan tercipta juga satu worksheet lagi dari range "KELAS", yaitu worksheet Konversi.
>
>Demikian kendala yang saya temui dari formulasi dari Master Hendrik., dan saya berharap bantuan dari para Master excel.
>
>berikut saya lampirkan filenya.
>terimakasih, wassalamu'alaikum wr.wb.
>
>--
>Yours respectfully,
>Ahmad Hafizullah Amin
>
>

--
Yours respectfully,
Ahmad Hafizullah Amin

Thu Sep 25, 2014 7:08 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Jika mau dua2nya, hijaukan bagian ini (beri tanda apostroph di depannya) pada VBE Sheet.

'For Each ws In ThisWorkbook.Worksheets
'If ws.Name <> "FULL" Then
'ws.Delete
'End If
'Next ws

Salam,
HK

On Thursday, 25 September 2014, 17:33, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Pak Ahmad,
Jika kolomnya mau diubah mis Keterangan...
Pilih kolom "Keterangan" pada sheet FULL lalu double click mouse...

Salam,
HK

On Thursday, 25 September 2014, 15:29, "Ahmad Hafizullah Amin zoellenda@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Terimakasih formulanya bang Hendrik.,
Tapi mohon maaf bang, masih kurang sedikit bang, saya ingin di data sheet yang baru itu diambil jugan dari range "keterangan" yang ada di worksheet "FULL".

Karna di range "Keterangan" di worksheet "FULL", ada beberapa kriteria yang harus dipisah., ada "Intensif, Reguler dan Konversi". begitu kira-kira bang..

berikut saya lampirkan filenya bang..

terimkasih atas perhatiannya bang Hendrik..

Pada 25 September 2014 11.28, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

>
>Pak Ahmad,
> 1. Worksheet yang tercipta tidak terbatas, sesuai jumlah kode PRODI nya
> 2. Penomoran yang tercipta sdh disesuaikan (berurutan); sebelumnya memang sengaja dibiarkan supaya bisa dicocokkan dengan aslinya.
> 3. Pertanyaan kurang jelas, mohon dapat diklarifikasi
>File revisi No Urut pada hasil (mulai dari 1) terlampir.
>
>
>Salam,
>HK
>
>
>
>
>
>
>
>
>On Thursday, 25 September 2014, 9:17, "Ahmad Hafizullah Amin zoellenda@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
>Assalamu&#39;alaikum, wr.wb.
>
>Dear Master excel..
>beberapa minggu lalu saya menanyakan masalah cara transfer data di satu worksheet ke worksheet yang lain secara otomatis, dan alhmadulillah Master Hendrik sudah memberikan solusi. #Makasi bang.. :)
>
>Namun, setelah saya coba ada beberapa temuan dan sedikit kekurangan. Diantaranya adalah:
>1. Worksheet yang tercipta hanya berjumlah maksimal 4 (empat) worksheet, padahal saya ingin mengembangkan menjadi beberapa worksheet.
>2. Data yang otomatis ditransfer dari worksheet "FULL" ke worksheet yang lain, penomorannya acak, atau penomeran yang tercipta mengikuti nomer asli yang ada di worksheet "FULL".
>3.
Worksheet yang diinginkan bukan hanya bisa memisahkan "Prodi", tetapi diharapkan dapat juga memisahkan "Kelas".
>
>
>yang ingin diharapkan dari formula tersebut adalah:
>1. Worksheet yang tercipta tidak terbatas;
>2. Penomoran yang tercipta di masing-masing worksheet dapat berurutan;
>3. Selain tercipta 3 (tiga) worksheet - PAI, AS dan KPI dari range "PRODI" - diharapkan tercipta juga satu worksheet lagi dari range "KELAS", yaitu worksheet Konversi.
>
>Demikian kendala yang saya temui dari formulasi dari Master Hendrik., dan saya berharap bantuan dari para Master excel.
>
>berikut saya lampirkan filenya.
>terimakasih, wassalamu'alaikum wr.wb.
>
>--
>Yours respectfully,
>Ahmad Hafizullah Amin
>
>

--
Yours respectfully,
Ahmad Hafizullah Amin

Thu Sep 25, 2014 1:11 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

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

Thu Sep 25, 2014 1:49 pm (PDT) . Posted by:

"Ayi Purnama" ayipoer

salam hangat para master, mohon bantuan untuk penyederhanaan fungsi IF, trims



Thu Sep 25, 2014 1:55 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Ayi,

Untuk syarat nilai <65 menghasilkan nilai 65, sedang >=65 diambil apa
adanya :
Bagaimana kalau formula IF nya diganti menjadi :
=Max( nilai , 65 )
Misal data nilai di cell A2, maka formula di cell hasil :
=Max( A2 , 65 )

Bisa juga :
=IF( nilai > 65 , nilai , 65 )
Misal data nilai di cell A2, maka formula di cell hasil :
=IF( A2 > 65 , A2 , 65 )

*** Jika regional setting komputer setempat adalah Indonesian, ganti
seluruh koma dalam formula menjadi titik koma.

Wassalam,
Kid.

2014-09-26 1:22 GMT+10:00 Ayi Purnama ayipoer@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> salam hangat para master, mohon bantuan untuk penyederhanaan fungsi IF,
> trims
>
>
>

Thu Sep 25, 2014 5:15 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum warahmatullah.

Terima kasih pak Hendrik, sudah sesuai dengan kebutuhan, hanya saja
variabel yang dapat diganti dengan "Var" & a adalah variabel tang bertype
numerik saja, untuk variabel yang bertype String tidak bisa.

Untuk pak Lukman, saya sedang belajar untuk membuat loop dengan variabel
bernomor bertype string. variabel tersebut akan diambil sesuai dengan
nomornya. adakah caranya membuat variabel bernomor untuk tipe data string?
atau dapatkah menggunakan tanda kurung misalnya Var(a)

For a = 1 to 40
IF "nilai" & 1 > 3 THEN
Range("E" & a).Value = var*1*
ELSE
Range("E" & a).Value = "Salah"
Next a

Terima kasih

Wasalamualaikum warahmatullah

NangAgus

2014-09-25 13:29 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Pak Agus .
>
> Kalau bertanya soal looping . ada kemungkinan saya dapat memjawab.
> Tapi tolong kasih contohnya . (yg dinamakan Var 1 dst itu apa ? )
>
> Tapi bila pertanyaan ini untuk digunakan menyelesaikan soal dari pak
> syamsudin ?
> maka pertama looping yg masuk kriteria sangat baik . ---------- bila
> hasilnya lebih dari satu --- apakah harus dicari yg paling tinggi atau di
> abaikan .
> bertahap selanjutnya , Baik -- dan seturusnya .
>
>
> Salam
>
> Lukman
>
>
> NB : banyak istilah yg tidak saya ingat atau tau .
> maklum saja . bisanya hanya untuk praktek .
>
>
>
>
>
>
> 2014-09-25 13:06 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>>
>> Asalamualaikumwarahmatullah,
>>
>> Salam sejahtera untuk seluruh milis B-Excel,
>>
>> Saya memiliki beberapa variabel yang saya beri nama var1, var2 var3, var4
>> dst.
>> saya berkeinginan untuk membandingkan masing masing variabel menggunakan
>> Loop. bagaimana cara penulisan syntax di VBA?
>>
>> For a = 1 to 40
>> IF var1 > 3 THEN Range("E" & a).Value = var1
>> Range("E" & a).Value = "Salah"
>> Next a
>>
>>
>> Bagaimana caranya agar var1 (angka 1 nya dapat berubah mengikuti a)? saya
>> coba dengan var & a tidak bisa.
>>
>> Terima kasih
>> Wasalam
>>
>> NangAgus
>>
>>
>
>

Thu Sep 25, 2014 6:10 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Mas NangAgus,

ada contohnya input dan hasilnya?

terus terang saya kurang mengerti yang dimaksud.

wassalaamu'alaikum warahmatullahi wabarakaatuh…

-zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, September 26, 2014 7:16 AM
To: BExcel
Subject: Re: [belajar-excel] Variabel VBA

Asalamualaikum warahmatullah.

Terima kasih pak Hendrik, sudah sesuai dengan kebutuhan, hanya saja variabel yang dapat diganti dengan "Var" & a adalah variabel tang bertype numerik saja, untuk variabel yang bertype String tidak bisa.

Untuk pak Lukman, saya sedang belajar untuk membuat loop dengan variabel bernomor bertype string. variabel tersebut akan diambil sesuai dengan nomornya. adakah caranya membuat variabel bernomor untuk tipe data string? atau dapatkah menggunakan tanda kurung misalnya Var(a)

For a = 1 to 40

IF "nilai" & 1 > 3 THEN

Range("E" & a).Value = var1

ELSE

Range("E" & a).Value = "Salah"

Next a

Terima kasih

Wasalamualaikum warahmatullah

NangAgus

2014-09-25 13:29 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Pak Agus .

Kalau bertanya soal looping . ada kemungkinan saya dapat memjawab.

Tapi tolong kasih contohnya . (yg dinamakan Var 1 dst itu apa ? )

Tapi bila pertanyaan ini untuk digunakan menyelesaikan soal dari pak syamsudin ?

maka pertama looping yg masuk kriteria sangat baik . ---------- bila hasilnya lebih dari satu --- apakah harus dicari yg paling tinggi atau di abaikan .

bertahap selanjutnya , Baik -- dan seturusnya .

Salam

Lukman

NB : banyak istilah yg tidak saya ingat atau tau .

maklum saja . bisanya hanya untuk praktek .

2014-09-25 13:06 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Asalamualaikumwarahmatullah,

Salam sejahtera untuk seluruh milis B-Excel,

Saya memiliki beberapa variabel yang saya beri nama var1, var2 var3, var4 dst.

saya berkeinginan untuk membandingkan masing masing variabel menggunakan Loop. bagaimana cara penulisan syntax di VBA?

For a = 1 to 40

IF var1 > 3 THEN Range("E" & a).Value = var1

Range("E" & a).Value = "Salah"

Next a

Bagaimana caranya agar var1 (angka 1 nya dapat berubah mengikuti a)? saya coba dengan var & a tidak bisa.

Terima kasih

Wasalam

NangAgus

Thu Sep 25, 2014 6:58 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum,
Mas Zainul,

Saya belajar membuat UDF apakah variabel dapat berubah secara dinamis
menggunakan loop?

Public Function remidi(batas As Single, var1 As Single, nama1 As String,
var2 As Single, nama2 As String, var3 As Single, nama3 As String, var4 As
Single, nama4 As String) As String
Dim a As Single
Dim hasil As String

For a = 1 To 4
If *var1* < batas Then hasil = *nama1*
remidi = remidi & hasil
Next a
End Function

maunya var1 dan nama1 dapat berubah sesuai dengan a,

Terima kasih
Wasalamualaikum warahmatullah

2014-09-26 8:10 GMT+07:00 'zainul_ulum[at]yahoo[dot]com'
zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mas NangAgus,
>
> ada contohnya input dan hasilnya?
>
> terus terang saya kurang mengerti yang dimaksud.
>
>
>
> wassalaamu'alaikum warahmatullahi wabarakaatuh…
>
> -zainul
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, September 26, 2014 7:16 AM
> *To:* BExcel
> *Subject:* Re: [belajar-excel] Variabel VBA
>
>
>
>
>
> Asalamualaikum warahmatullah.
>
>
>
> Terima kasih pak Hendrik, sudah sesuai dengan kebutuhan, hanya saja
> variabel yang dapat diganti dengan "Var" & a adalah variabel tang bertype
> numerik saja, untuk variabel yang bertype String tidak bisa.
>
>
>
> Untuk pak Lukman, saya sedang belajar untuk membuat loop dengan variabel
> bernomor bertype string. variabel tersebut akan diambil sesuai dengan
> nomornya. adakah caranya membuat variabel bernomor untuk tipe data string?
> atau dapatkah menggunakan tanda kurung misalnya Var(a)
>
>
>
> For a = 1 to 40
>
> IF "nilai" & 1 > 3 THEN
>
> Range("E" & a).Value = var*1*
>
> ELSE
>
> Range("E" & a).Value = "Salah"
>
> Next a
>
>
>
> Terima kasih
>
>
>
> Wasalamualaikum warahmatullah
>
>
>
> NangAgus
>
>
>
> 2014-09-25 13:29 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>
>
> Pak Agus .
>
> Kalau bertanya soal looping . ada kemungkinan saya dapat memjawab.
>
> Tapi tolong kasih contohnya . (yg dinamakan Var 1 dst itu apa ? )
>
> Tapi bila pertanyaan ini untuk digunakan menyelesaikan soal dari pak
> syamsudin ?
>
> maka pertama looping yg masuk kriteria sangat baik . ---------- bila
> hasilnya lebih dari satu --- apakah harus dicari yg paling tinggi atau di
> abaikan .
>
> bertahap selanjutnya , Baik -- dan seturusnya .
>
> Salam
>
> Lukman
>
> NB : banyak istilah yg tidak saya ingat atau tau .
>
> maklum saja . bisanya hanya untuk praktek .
>
>
>
>
>
>
>
>
>
> 2014-09-25 13:06 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
>
>
> Asalamualaikumwarahmatullah,
>
>
>
> Salam sejahtera untuk seluruh milis B-Excel,
>
>
>
> Saya memiliki beberapa variabel yang saya beri nama var1, var2 var3, var4
> dst.
>
> saya berkeinginan untuk membandingkan masing masing variabel menggunakan
> Loop. bagaimana cara penulisan syntax di VBA?
>
>
>
> For a = 1 to 40
>
> IF var1 > 3 THEN Range("E" & a).Value = var1
>
> Range("E" & a).Value = "Salah"
>
> Next a
>
>
>
>
>
> Bagaimana caranya agar var1 (angka 1 nya dapat berubah mengikuti a)? saya
> coba dengan var & a tidak bisa.
>
>
>
> Terima kasih
>
> Wasalam
>
>
>
> NangAgus
>
>
>
>
>
>
>

Thu Sep 25, 2014 7:25 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Mas Nang,

Apakah yang dimaksud mengumpulkan nama sesuai yang memunyai nilai di bawah batas?

Kalo ya, bisa dicoba fungsi ini:

Public Function RemidiNilai(batas As Double, rgData As Range) As String

Const colNilai As Integer = 3, colNama As Integer = 2

Dim rg As Range

Dim sNama As String

sNama = vbNullString

For Each rg In rgData.Columns(colNilai).Cells

If rg.Value <= batas Then

sNama = sNama & rg.Offset(, colNama - colNilai) & ","

End If

Next rg

RemidiNilai = Left(sNama, Len(sNama) - 1)

End Function

Mohon maaf kalo tidak sesuai harapan.

thanks

-zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, September 26, 2014 8:59 AM
To: BExcel
Subject: Re: [belajar-excel] Variabel VBA [1 Attachment]

Asalamualaikum,

Mas Zainul,

Saya belajar membuat UDF apakah variabel dapat berubah secara dinamis menggunakan loop?

Public Function remidi(batas As Single, var1 As Single, nama1 As String, var2 As Single, nama2 As String, var3 As Single, nama3 As String, var4 As Single, nama4 As String) As String
Dim a As Single
Dim hasil As String

For a = 1 To 4
If var1 < batas Then hasil = nama1
remidi = remidi & hasil
Next a
End Function

maunya var1 dan nama1 dapat berubah sesuai dengan a,

Terima kasih

Wasalamualaikum warahmatullah

2014-09-26 8:10 GMT+07:00 'zainul_ulum[at]yahoo[dot]com' zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Mas NangAgus,

ada contohnya input dan hasilnya?

terus terang saya kurang mengerti yang dimaksud.

wassalaamu'alaikum warahmatullahi wabarakaatuh…

-zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, September 26, 2014 7:16 AM
To: BExcel
Subject: Re: [belajar-excel] Variabel VBA

Asalamualaikum warahmatullah.

Terima kasih pak Hendrik, sudah sesuai dengan kebutuhan, hanya saja variabel yang dapat diganti dengan "Var" & a adalah variabel tang bertype numerik saja, untuk variabel yang bertype String tidak bisa.

Untuk pak Lukman, saya sedang belajar untuk membuat loop dengan variabel bernomor bertype string. variabel tersebut akan diambil sesuai dengan nomornya. adakah caranya membuat variabel bernomor untuk tipe data string? atau dapatkah menggunakan tanda kurung misalnya Var(a)

For a = 1 to 40

IF "nilai" & 1 > 3 THEN

Range("E" & a).Value = var1

ELSE

Range("E" & a).Value = "Salah"

Next a

Terima kasih

Wasalamualaikum warahmatullah

NangAgus

2014-09-25 13:29 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Pak Agus .

Kalau bertanya soal looping . ada kemungkinan saya dapat memjawab.

Tapi tolong kasih contohnya . (yg dinamakan Var 1 dst itu apa ? )

Tapi bila pertanyaan ini untuk digunakan menyelesaikan soal dari pak syamsudin ?

maka pertama looping yg masuk kriteria sangat baik . ---------- bila hasilnya lebih dari satu --- apakah harus dicari yg paling tinggi atau di abaikan .

bertahap selanjutnya , Baik -- dan seturusnya .

Salam

Lukman

NB : banyak istilah yg tidak saya ingat atau tau .

maklum saja . bisanya hanya untuk praktek .

2014-09-25 13:06 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Asalamualaikumwarahmatullah,

Salam sejahtera untuk seluruh milis B-Excel,

Saya memiliki beberapa variabel yang saya beri nama var1, var2 var3, var4 dst.

saya berkeinginan untuk membandingkan masing masing variabel menggunakan Loop. bagaimana cara penulisan syntax di VBA?

For a = 1 to 40

IF var1 > 3 THEN Range("E" & a).Value = var1

Range("E" & a).Value = "Salah"

Next a

Bagaimana caranya agar var1 (angka 1 nya dapat berubah mengikuti a)? saya coba dengan var & a tidak bisa.

Terima kasih

Wasalam

NangAgus

Thu Sep 25, 2014 7:38 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum, Mas Zainul

Terima kasih

Sesuai yang diinginkan

2014-09-26 9:25 GMT+07:00 'zainul_ulum[at]yahoo[dot]com'
zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mas Nang,
>
> Apakah yang dimaksud mengumpulkan nama sesuai yang memunyai nilai di bawah
> batas?
>
> Kalo ya, bisa dicoba fungsi ini:
>
>
>
>
>
> Public Function RemidiNilai(batas As Double, rgData As Range) As String
>
> Const colNilai As Integer = 3, colNama As Integer = 2
>
> Dim rg As Range
>
> Dim sNama As String
>
> sNama = vbNullString
>
> For Each rg In rgData.Columns(colNilai).Cells
>
> If rg.Value <= batas Then
>
> sNama = sNama & rg.Offset(, colNama - colNilai) & ","
>
> End If
>
> Next rg
>
> RemidiNilai = Left(sNama, Len(sNama) - 1)
>
> End Function
>
>
>
> Mohon maaf kalo tidak sesuai harapan.
>
> thanks
>
> -zainul
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, September 26, 2014 8:59 AM
> *To:* BExcel
> *Subject:* Re: [belajar-excel] Variabel VBA [1 Attachment]
>
>
>
>
>
> Asalamualaikum,
>
> Mas Zainul,
>
> Saya belajar membuat UDF apakah variabel dapat berubah secara dinamis
> menggunakan loop?
>
> Public Function remidi(batas As Single, var1 As Single, nama1 As String,
> var2 As Single, nama2 As String, var3 As Single, nama3 As String, var4 As
> Single, nama4 As String) As String
> Dim a As Single
> Dim hasil As String
>
> For a = 1 To 4
> If *var1* < batas Then hasil = *nama1*
> remidi = remidi & hasil
> Next a
> End Function
>
> maunya var1 dan nama1 dapat berubah sesuai dengan a,
>
> Terima kasih
>
> Wasalamualaikum warahmatullah
>
>
>
>
>
> 2014-09-26 8:10 GMT+07:00 'zainul_ulum[at]yahoo[dot]com'
> zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Mas NangAgus,
>
> ada contohnya input dan hasilnya?
>
> terus terang saya kurang mengerti yang dimaksud.
>
>
>
> wassalaamu'alaikum warahmatullahi wabarakaatuh…
>
> -zainul
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, September 26, 2014 7:16 AM
> *To:* BExcel
> *Subject:* Re: [belajar-excel] Variabel VBA
>
>
>
>
>
> Asalamualaikum warahmatullah.
>
>
>
> Terima kasih pak Hendrik, sudah sesuai dengan kebutuhan, hanya saja
> variabel yang dapat diganti dengan "Var" & a adalah variabel tang bertype
> numerik saja, untuk variabel yang bertype String tidak bisa.
>
>
>
> Untuk pak Lukman, saya sedang belajar untuk membuat loop dengan variabel
> bernomor bertype string. variabel tersebut akan diambil sesuai dengan
> nomornya. adakah caranya membuat variabel bernomor untuk tipe data string?
> atau dapatkah menggunakan tanda kurung misalnya Var(a)
>
>
>
> For a = 1 to 40
>
> IF "nilai" & 1 > 3 THEN
>
> Range("E" & a).Value = var*1*
>
> ELSE
>
> Range("E" & a).Value = "Salah"
>
> Next a
>
>
>
> Terima kasih
>
>
>
> Wasalamualaikum warahmatullah
>
>
>
> NangAgus
>
>
>
> 2014-09-25 13:29 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>
>
> Pak Agus .
>
> Kalau bertanya soal looping . ada kemungkinan saya dapat memjawab.
>
> Tapi tolong kasih contohnya . (yg dinamakan Var 1 dst itu apa ? )
>
> Tapi bila pertanyaan ini untuk digunakan menyelesaikan soal dari pak
> syamsudin ?
>
> maka pertama looping yg masuk kriteria sangat baik . ---------- bila
> hasilnya lebih dari satu --- apakah harus dicari yg paling tinggi atau di
> abaikan .
>
> bertahap selanjutnya , Baik -- dan seturusnya .
>
> Salam
>
> Lukman
>
> NB : banyak istilah yg tidak saya ingat atau tau .
>
> maklum saja . bisanya hanya untuk praktek .
>
>
>
>
>
>
>
>
>
> 2014-09-25 13:06 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
>
>
> Asalamualaikumwarahmatullah,
>
>
>
> Salam sejahtera untuk seluruh milis B-Excel,
>
>
>
> Saya memiliki beberapa variabel yang saya beri nama var1, var2 var3, var4
> dst.
>
> saya berkeinginan untuk membandingkan masing masing variabel menggunakan
> Loop. bagaimana cara penulisan syntax di VBA?
>
>
>
> For a = 1 to 40
>
> IF var1 > 3 THEN Range("E" & a).Value = var1
>
> Range("E" & a).Value = "Salah"
>
> Next a
>
>
>
>
>
> Bagaimana caranya agar var1 (angka 1 nya dapat berubah mengikuti a)? saya
> coba dengan var & a tidak bisa.
>
>
>
> Terima kasih
>
> Wasalam
>
>
>
> NangAgus
>
>
>
>
>
>
>
>
>

Thu Sep 25, 2014 7:56 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Maaf Lampirannya tertinggal.

From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
Sent: Friday, September 26, 2014 9:26 AM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] Variabel VBA [1 Attachment]

Mas Nang,

Apakah yang dimaksud mengumpulkan nama sesuai yang memunyai nilai di bawah batas?

Kalo ya, bisa dicoba fungsi ini:

Public Function RemidiNilai(batas As Double, rgData As Range) As String

Const colNilai As Integer = 3, colNama As Integer = 2

Dim rg As Range

Dim sNama As String

sNama = vbNullString

For Each rg In rgData.Columns(colNilai).Cells

If rg.Value <= batas Then

sNama = sNama & rg.Offset(, colNama - colNilai) & ","

End If

Next rg

RemidiNilai = Left(sNama, Len(sNama) - 1)

End Function

Mohon maaf kalo tidak sesuai harapan.

thanks

-zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, September 26, 2014 8:59 AM
To: BExcel
Subject: Re: [belajar-excel] Variabel VBA [1 Attachment]

Asalamualaikum,

Mas Zainul,

Saya belajar membuat UDF apakah variabel dapat berubah secara dinamis menggunakan loop?

Public Function remidi(batas As Single, var1 As Single, nama1 As String, var2 As Single, nama2 As String, var3 As Single, nama3 As String, var4 As Single, nama4 As String) As String
Dim a As Single
Dim hasil As String

For a = 1 To 4
If var1 < batas Then hasil = nama1
remidi = remidi & hasil
Next a
End Function

maunya var1 dan nama1 dapat berubah sesuai dengan a,

Terima kasih

Wasalamualaikum warahmatullah

2014-09-26 8:10 GMT+07:00 'zainul_ulum[at]yahoo[dot]com' zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Mas NangAgus,

ada contohnya input dan hasilnya?

terus terang saya kurang mengerti yang dimaksud.

wassalaamu'alaikum warahmatullahi wabarakaatuh…

-zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, September 26, 2014 7:16 AM
To: BExcel
Subject: Re: [belajar-excel] Variabel VBA

Asalamualaikum warahmatullah.

Terima kasih pak Hendrik, sudah sesuai dengan kebutuhan, hanya saja variabel yang dapat diganti dengan "Var" & a adalah variabel tang bertype numerik saja, untuk variabel yang bertype String tidak bisa.

Untuk pak Lukman, saya sedang belajar untuk membuat loop dengan variabel bernomor bertype string. variabel tersebut akan diambil sesuai dengan nomornya. adakah caranya membuat variabel bernomor untuk tipe data string? atau dapatkah menggunakan tanda kurung misalnya Var(a)

For a = 1 to 40

IF "nilai" & 1 > 3 THEN

Range("E" & a).Value = var1

ELSE

Range("E" & a).Value = "Salah"

Next a

Terima kasih

Wasalamualaikum warahmatullah

NangAgus

2014-09-25 13:29 GMT+07:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Pak Agus .

Kalau bertanya soal looping . ada kemungkinan saya dapat memjawab.

Tapi tolong kasih contohnya . (yg dinamakan Var 1 dst itu apa ? )

Tapi bila pertanyaan ini untuk digunakan menyelesaikan soal dari pak syamsudin ?

maka pertama looping yg masuk kriteria sangat baik . ---------- bila hasilnya lebih dari satu --- apakah harus dicari yg paling tinggi atau di abaikan .

bertahap selanjutnya , Baik -- dan seturusnya .

Salam

Lukman

NB : banyak istilah yg tidak saya ingat atau tau .

maklum saja . bisanya hanya untuk praktek .

2014-09-25 13:06 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Asalamualaikumwarahmatullah,

Salam sejahtera untuk seluruh milis B-Excel,

Saya memiliki beberapa variabel yang saya beri nama var1, var2 var3, var4 dst.

saya berkeinginan untuk membandingkan masing masing variabel menggunakan Loop. bagaimana cara penulisan syntax di VBA?

For a = 1 to 40

IF var1 > 3 THEN Range("E" & a).Value = var1

Range("E" & a).Value = "Salah"

Next a

Bagaimana caranya agar var1 (angka 1 nya dapat berubah mengikuti a)? saya coba dengan var & a tidak bisa.

Terima kasih

Wasalam

NangAgus

Fri Sep 26, 2014 12:14 am (PDT) . Posted by:

"lkm jktind" lkmjkt

Maaf

Saya belum bisa menyatukan .
hanya mengisi code nya saja --- selanjutnya model dan meterial terisi.

Cuma bisanya . setelah code di input --- selanjutnya tekan Ctrl + z

Salam

Lukman

2014-09-25 7:37 GMT+07:00 KESI VIZZIANTI kesi.vizzianti@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Penjelasannya adalah setiap model terdiri dari lebih satu material bisa
> dua,tiga atau empat , dan saya bermaksud untuk break down dengan pedoman
> code, sedangkan material berdasarkan model namenya.
> kolom C akan saya isi di bawah baris kolom E yang sudah terisi, untuk
> menghindari SALING TINDIH
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com

berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar