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