Mengisi Textbox

VBA & Macro Excel

6 minggu lalu
S
setiadi
Apr 18 Tasikmalaya + 25 Poin

Di sunting 6 minggu lalu oleh setiadi
Saya ingin mengisi status dengan OK dan Tidak OK
OK jika Kendaraan Mobil dan pake Pertaman atau Motor pake pertalite
Tidak oke jika Mobil pake pertalite atau Motor pake Pertamax
WhatsApp Image 2023-04-18 at 12.44.40 PM.jpeg

Caton

Apr 18 Terverifikasi Indonesia + 19.626 Poin

@setiadi ...

Contoh :

Private Sub CommandButton1_Click()
    Dim bOK As Boolean
    
    bOK = (optMobil.Value And optPertamax.Value) Or _
          (optMotor.Value And optPertalite.Value)
    
    TextBox1 = IIf(bOK = True, "OK", "TIDAK OKE")
End Sub

atau

Private Sub CommandButton1_Click()
    Dim bOK As Boolean
    
    bOK = (optMobil.Value Or optPertalite.Value) And _
          (optMotor.Value Or optPertamax.Value)
    
    TextBox1 = IIf(bOK = True, "OK", "TIDAK OKE")
End Sub

Demikian.