ini masih nyambung dengan yang tadi ya? kalo begitu coba script berikut ini:
Option Explicit
Sub GantiNama()
Dim iCol As Integer, i As Integer
Dim sTxt As String
iCol = Cells(3, Columns.Count).End(xlToLeft).Column
For i = 4 To iCol
sTxt = Cells(3, i).Value
Select Case sTxt
Case "W1"
Cells(3, i).Value = "Minggu ke satu"
Case "W2"
Cells(3, i).Value = "Minggu ke dua"
Case "W3"
Cells(3, i).Value = "Minggu ke tiga"
End Select
Next i
MsgBox ("OK")
End Sub
Best Regard,
-Miss Jan Raisin-
Pada 21 Februari 2013 11.42, <[email protected]> menulis:
> **
>
>
>
> Terima kasih miss Jan, Saya mau ganti isi textnya jadi dengan pakai code
> VBA ini, tapi kok gak berhasil yah ?
>
> Dim MyWeekku As Variant
> For Each MyWeekku In Selection
> If MyWeekku.Value = "W1" Then
> MyWeekku.Value = "Minggu ke-satu"
> ElseIf MyWeekku.Value = "W2" Then
> MyWeekku.Value = "Minggu ke-dua"
> ElseIf MyWeekku.Value = "W3" Then
> MyWeekku.Value = "Minggu ke-tiga"
> Else
> MsgBox ("OK")
> End If
> Next MyWeekku
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
> *Jan Raisin <[email protected]>*
> Sent by: [email protected]
>
> 02/21/2013 09:02 AM
> Please respond to belajar-excel
>
> To: [email protected]
> cc:
> Subject: Re: [belajar-excel] Memblock data yang di merge
>
>
>
>
>
> Wa'alaikumsalam wr. wb.,
>
> coba script berikut:
>
>
> Range(Cells(3, 4), Cells(3, Columns.Count).End(xlToLeft)).Select
>
>
> Wassalamu'alaikum wr. wb.,
>
> -Miss Jan Raisin-
>
>
> Pada 21 Februari 2013 08.14, <*[email protected]*<[email protected]>>
> menulis:
>
>
>
> Dear Be-Exceller,
>
> Saya mau tanya, bagaimana memblock data yang di merge. Di picture di
> bawah, ada 3 range yang diblock yaitu W1, W2, W3.
>
> Saya pakai formula :selection,selection.end(xlToRight) kok gak berhasil
> yah ?
>
> Saya tidak mau pakai currentregion karena baris atas dan bawahnya ada
> data.
>
> Ini datanya dinamis, bisa 4 range yang di merge atau 5, jadi tidak tentu.
>
>
>
>
> Terima kasih jawabannya.
>
> Wassalam,
> Tio
>
>
>
>
>
<<image/gif>>
