Mengisi Textbox

VBA & Macro Excel

tahun lalu
S
setiadi
18 Apr 2023 Tasikmalaya + 25 Poin

Di sunting tahun 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

18 Apr 2023 Terverifikasi Indonesia + 20.101 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.