Mohon solusinya kak, urgent masi pemula

  1. tahun lalu

    Tanya dong
    mau tanya gan, saya pnya data seperti ini:
    Kode Satuan Min Max
    1 kg 5000 10000
    2 kg 6000 9000
    3 kg 8000 12000
    4 kg 9333.333333 12333.33333
    5 kg 10833.33333 13333.33333
    6 kg 12333.33333 14333.33333
    7 kg 13833.33333 15333.33333

    saya mau cek apakah data yang saya masukkan, masuk dalam range min dan max pada data base:
    contoh:
    Kode Jumlah Nilai
    1 2 15000

    Status
    ketika saya masukkan data diatas saya mau cek apakah kode 1 ada di data base trs apakah nilai kode1 di bagi jumlahnya masuk dalam range pada database, jika masuk saya mau tampilin "status" jadi "masuk". tolong penejelasannya ya agan agan TY.

    Inti dari kode VBA-nya ada di dalam prosedur cmdCheck_Click pada baris:

    ...
    lValue = txtValue / txtAmount
    If (lValue >= vMin) And (lValue <= vMax) Then
         lblStatus.Caption = "Nilai masuk dalam range!"
    Else
         lblStatus.Caption = "Nilai diluar range!"
    End If
    ...

    Untuk mengubahnya menjadi 3 kondisi, maka ubah barisnya menjadi:

    ...
    lValue = txtValue / txtAmount
    If (lValue >= vMin) And (lValue <= vMax) Then
         lblStatus.Caption = "Nilai masuk dalam range!"
    ElseIf (lValue > vMax) Then
         lblStatus.Caption = "Nilai di atas range!"
    Else
         lblStatus.Caption = "Nilai di bawah range!"
    End If
    ...

    Demikian... ;)

  2. Caton

    7 Okt 2017 Terverifikasi Indonesia + 12.014 Poin

    Maaf jika saya gagal paham dengan maksud mas @ardi.surya ... maunya pake formula atau macro? Namun coba dulu diperiksa file terlampir (tanpa macro), mungkin sesuai... :)

  3. Terimakasih gan, iya saya pinginnya buat dalam macro, mohon solusinya yg macro ya gan

  4. mngkin dengan tampilan seperti ini macronya kak, tolong bantannya :D

  5. Caton

    7 Okt 2017 Terverifikasi Indonesia + 12.014 Poin

    Silahkan dipelajari dan dimodifikasi file terlampir. Maaf, saya belum sempat memberikan penjelasan pada setiap baris kode VBA-nya. Diskusikan saja kembali jika ada masalah... ;)

    Shoot030.png

  6. Makasih kak, klo saya mau ubah status nya jd 3 kondisi, masuk range, di atas range dan di bawah range, bagian mana yg perlu saya edit ya kak?

  7. Caton

    8 Okt 2017 Terverifikasi Jawaban Terpilih Indonesia + 12.014 Poin

    Inti dari kode VBA-nya ada di dalam prosedur cmdCheck_Click pada baris:

    ...
    lValue = txtValue / txtAmount
    If (lValue >= vMin) And (lValue <= vMax) Then
         lblStatus.Caption = "Nilai masuk dalam range!"
    Else
         lblStatus.Caption = "Nilai diluar range!"
    End If
    ...

    Untuk mengubahnya menjadi 3 kondisi, maka ubah barisnya menjadi:

    ...
    lValue = txtValue / txtAmount
    If (lValue >= vMin) And (lValue <= vMax) Then
         lblStatus.Caption = "Nilai masuk dalam range!"
    ElseIf (lValue > vMax) Then
         lblStatus.Caption = "Nilai di atas range!"
    Else
         lblStatus.Caption = "Nilai di bawah range!"
    End If
    ...

    Demikian... ;)

  8. Terimakasih kak

 

atau Mendaftar untuk ikut berdiskusi!