Jangan lupa, pada baris sebelum yang di-merah oleh Pak Mansor ada statement
berbunyi :
Dim askForCell As String
askForCell = "Select your range"
sehingga askForCell pada baris :
Set selectedRng = Application.InputBox(Prompt:=askForCell,
Title:=askTitle, Type:=8)
sebagai pengisi input parameter Prompt adalah sebuah variabel string.
Wassalam,
Kid.
On Sun, Apr 7, 2013 at 6:14 PM, Hendrik Karnadi <[email protected]>wrote:
> Ini saya dapat dari ozgrid, coba tambahkan tanda "" (string).
> Salam,
> HK
>
> Mansor <[email protected]> wrote:
>
>
> Para Teman BeExcel,
>
> Tolong saya cari di mana error nya. File dilampirkan
>
> Terima kasih
> -Mansor
>
> Private Sub CommandButton1_Click()
>
> Dim rng As Range, cell As Range, selectedRng As Range
>
> Dim askForCell As String, askTitle As String
>
> askForCell = "Select your range"
>
> askTitle = "Get cell"
>
> Set selectedRng = Application.InputBox(Prompt:=askForCell,
> Title:=askTitle, Type:=8)
>
> Set rng = Range(selectedRng)
>
> For Each cell In rng
>
> If cell.Value >= 50 Then
>
> cell.Font.ColorIndex = 5
>
> Else
>
> cell.Font.ColorIndex = 3
>
> End If
>
> Next cell
>
> End Sub
>
>
