Koreksi.. logikanya terbalik xixixix :)
Public Function VLookUp2(rgVal As Range, rgTbl As Range, iCol As Integer,
rgLookUp As Boolean) As String
Dim xVal As Range
Dim i As Integer, j As Integer
Dim strVal As String, strTemp As String
i = 0: j = 0
strVal = vbNullString
For Each xVal In rgVal
If xVal.Value <> vbNullString Then
i = i + 1
End If
Next xVal
For Each xVal In rgVal
If Len(Trim(xVal.Value)) <> 0 Then
strTemp = Application.WorksheetFunction.VLookup(xVal.Value, rgTbl,
iCol, rgLookUp)
If strVal = vbNullString Then
strVal = strTemp
j = j + 1
ElseIf j = i - 1 Then
strVal = strVal & ", dan " & strTemp & "."
Else
strVal = strVal & ", " & strTemp
j = j + 1
End If
End If
Next xVal
VLookUp2 = strVal
End Function
Salam,
-Miss Jan Raisin-
Pada 4 Desember 2015 14.12, Jan Raisin <[email protected]> menulis:
> numpang ikutan dan nyumbang skrip
>
> Public Function VLookUp2(rgVal As Range, rgTbl As Range, iCol As Integer,
> rgLookUp As Boolean) As String
> Dim xVal As Range
> Dim i As Integer, j As Integer
> Dim strVal As String, strTemp As String
>
> i = 0: j = 0
> strVal = vbNullString
> For Each xVal In rgVal
> If xVal.Value <> vbNullString Then
> i = i + 1
> End If
> Next xVal
> For Each xVal In rgVal
> If Len(Trim(xVal.Value)) <> 0 Then
> strTemp = Application.WorksheetFunction.VLookup(xVal.Value, rgTbl,
> iCol, rgLookUp)
> If j = i - 1 Then
> strVal = strVal & ", dan " & strTemp & "."
> ElseIf strVal = vbNullString Then
> strVal = strTemp
> j = j + 1
> Else
> strVal = strVal & ", " & strTemp
> j = j + 1
> End If
> End If
> Next xVal
> VLookUp2 = strVal
> End Function
>
> Copas ke sebuah modul, cara menggunakannya sama seperti fungsi VLookUp
>
> =VLookUp2( nilai_data , tabel_array , index_kolom , range_lookup )
>
> salam,
>
> -Miss Jan Raisin-
>
>
> 2015-12-04 12:59 GMT+07:00 odong nando [email protected]
> [belajar-excel] <[email protected]>:
>
>>
>>
>> klo yang di maksud setiap hurup I di ganti menjadi Instruktur, maka bisa
>> dengan menambahkan Substitute di awal formula yang saya tunjukkan ke anda
>>
>> =SUBSTITUTE ( _formula yang saya buat pertama_ ; _karakter yang akan di
>> ganti_ ; _karakter pengganti_ )
>>
>> bila regional seting kompi setempat english maka ganti karakter titik
>> koma ";" menjadi koma ",".
>>
>>
>> br,
>>
>> odong nando
>>
>>
>>
>> Pada Jumat, 4 Desember 2015 12:14, "'prazt' [email protected]
>> [belajar-excel]" <[email protected]> menulis:
>>
>>
>>
>> Makasih responnya, tapi jika huruf-huruf A s/d I saya ganti dengan
>> kata-kata, maka kata sambung da itu jadi terletak di tengah kata
>> Sebagai contoh pada huruf I (dilampiran tadi) saya ganti instruktur
>> maka hasilnya menjadi A, B, C, D, E, F, G, H, instruktudan r . Seharusnya
>> A, B, C, D, E, F, G, H, dan instruktur.
>> Dan jika huruf I saya ganti menjadi instruktur model maka hasilnya A, B,
>> C, D, E, F, G, H, instruktur modedan l . seharusnya A, B, C, D, E, F, G,
>> H, dan instruktur model
>>
>>
>>
>> *From:* [email protected] [mailto:
>> [email protected]]
>> *Sent:* 4 Desember 2015 11.32
>> *To:* [email protected]
>> *Subject:* Bls: [belajar-excel] mengganti tanda ", "(koma spasi) dangan
>> ", dan "(koma spasi dan spasi)
>>
>>
>> yoo prazt,
>>
>> coba tator formula
>>
>> =IFERROR(LEFT(Q6;LEN(Q6)-3)&"dan "&SUBSTITUTE(RIGHT(Q6;3);",";"")&".";"")
>>
>>
>> bila regional seting setempat english maka ganti karakter titik koma ";"
>> manjadi koma ",".
>>
>> pada cell R6, copas pada cells lain yang membutuhkan, klo ga mau pake
>> kolom bantu (Q6) tinggal masukin ja formula yang anda buat pada formula
>> diatas,
>>
>> br,
>>
>> odong nando
>>
>>
>> Pada Jumat, 4 Desember 2015 9:11, "'prazt' [email protected]
>> [belajar-excel]" <[email protected]> menulis:
>>
>>
>> Selamat siang dan semoga sehat selalu.
>> Dear para mastah, mohon bantuan dan penjelasan bagaimana rumus/formulanya
>> cara mengganti tanda “, “ (koma spasi tanpa tanda petik) dengan kata hubung
>> “, dan “ (koma spasi dan spasi ) di kata/huruf terakhir seperti ilustrasi
>> pada lampiran berikut. Terima kasih sebelumnya.
>>
>>
>
>
