Ok, Pak Kid, Semuanya sudah berhasil. Terima kasih.
2013/4/7 Mr. Kid <[email protected]> > ** > > > Pastikan pada blok : > > If cell.Value >= 50 Then > > cell.Font.ColorIndex = 5 > > Else > > cell.Font.ColorIndex = 3 > > End If > yang berbunyi : > cell.Font.ColorIndex = 5 > diganti angka 5-nya dengan nomor warna font untuk kondisi >=50 > dan pada baris yang berbunyi : > cell.Font.ColorIndex = 3 > diganti angka 3-nya dengan nomor warna font untuk kondisi <50 > > Wassalam, > Kid. > > > 2013/4/7 Mansor <[email protected]> > >> ** >> >> >> Terima kasih Pak Kid dan Pak Hendrik, >> >> Setelah dicoba, masalah input range nya udah jalan, tetapi font untuk >> value yang kurang dari 50 juga ikut berubah warna. >> >> >> Lihat file yang dilampir di sheet Input data from inputbox. >> >> >> >> >> 2013/4/7 Mr. Kid <[email protected]> >> >> ** >>> >>> >>> 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 >>>> >>>> >>> >> > >
