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