format tgl dan nilai pada search box vba

  1. 10 bulan yang lalu

    setelah utak atik Search Box,ternyata ada hal yg saya perlu bantuan para master disini

    Cari.AddItem .Cells(i, "K").Value
    Cari.List(Cari.ListCount - 1, 1) = .Cells(i, "L").Value
    Cari.List(Cari.ListCount - 1, 2) = .Cells(i, "M").Value
    Cari.List(Cari.ListCount - 1, 3) = .Cells(i, "N").Value
    Cari.List(Cari.ListCount - 1, 4) = .Cells(i, "O").Value
    Cari.List(Cari.ListCount - 1, 5) = .Cells(i, "P").Value
    Cari.List(Cari.ListCount - 1, 6) = .Cells(i, "Q").Value
    Cari.List(Cari.ListCount - 1, 7) = .Cells(i, "P").Value

    diatas ini adalah script untuk combox nya,
    yang ingin saya tanyakan:
    tambahan script yg seperti apakah,agar yang tampil di search box untuk :

    Cari.List(Cari.ListCount - 1, 4) = .Cells(i, "O").Value
    bisa menampilkan nilai seperti 1.000.000,00 (tampilan yg skrng ini hanya berupa angka saja seperti :1000000 )

    dan ,untuk script

    Cari.List(Cari.ListCount - 1, 5) = .Cells(i, "P").Value
    Cari.List(Cari.ListCount - 1, 7) = .Cells(i, "P").Value
    bisa menampilkan format tanggal seperti "15 Jan" (tampilan yg skrng ini yg muncul di searchbox berupa tgl dengn format
    seperti :1/15/18 )

    atas bantuannya,saya ucapkan bnyak trimakasih

  2. Caton

    5 Apr 2018 Terverifikasi Indonesia + 13.519 Poin

    @Goral...

    Coba gunakan fungsi FORMAT, misalkan saja:

    Cari.List(Cari.ListCount - 1, 4) = Format(.Cells(i, "O").Value, "#,#")
    Cari.List(Cari.ListCount - 1, 5) = Format(.Cells(i, "P").Value, "dd mmm")
    Cari.List(Cari.ListCount - 1, 7) = Format(.Cells(i, "P").Value, "dd mmm")

    Demikian.

  3. Di sunting 10 bulan yang lalu oleh goral

    trimakasih,pak @Caton selalu membantu
    sekali lagi ,problem teratasi :)

  4. Mau nambahi kata2 "hari' dibelakang angka
    saya bikin script sperti ini ,ternyata salah,..mohon pencerahannya ya pak @Caton :)

    Cari.List(Cari.ListCount - 1, 2) = Format(.Cells(i, "M").Value, Space &"Hari")

    agar yg muncul di searchbox dari angka 20 menjadi 20 hari
    terimakasih

  5. Di sunting 10 bulan yang lalu oleh manweljs_

    coba

    Cari.List(Cari.ListCount - 1, 2) = Format(.Cells(i, "M").Value, "dd")&" Hari" 

  6. Caton

    7 Apr 2018 Terverifikasi Indonesia + 13.519 Poin
    Di sunting 10 bulan yang lalu oleh Caton

    @goral ...

    Kesalahan pertama adalah pada penggunaan fungsi SPACE. Fungsi SPACE tujuannya untuk menghasilkan teks berupa karakter spasi sebanyak n karakter. Sintaksnya adalah:

    variabel = SPACE(Jumlah)

    Sedangkan untuk mendapatkan hasil yang mas maksudkan, coba gunakan script berikut:

    variabel = FORMAT$(nilai, "# hari")
    variabel = FORMAT$(nilai, "0 hari")
    variabel = FORMAT$(nilai, "@@@ hari")

    Kalau diterapkan ke dalam script yang mas buat:

    Cari.List(Cari.ListCount - 1, 2) = Format(.Cells(i, "M").Value, " # Hari")
    Cari.List(Cari.ListCount - 1, 2) = Format(.Cells(i, "M").Value, " 0 Hari")
    Cari.List(Cari.ListCount - 1, 2) = Format(.Cells(i, "M").Value, " @@@ Hari")

    Untuk notasi FORMAT$(nilai, "@@@ hari"), apabila panjang karakter argumen nilai kurang dari tiga (sebanyak karakter @), maka sisa kekurangannya akan diisi (diawali) dengan karakter spasi. Jika tipe nilai .Cells(i, "M").Value berupa tanggal, maka dapat digunakan fungsi DAY untuk mengambil nilai hari dari tanggal tanggal tersebut, milsalkan:

    Cari.List(Cari.ListCount - 1, 2) = Format(Day(.Cells(i, "M").Value), " # Hari")

    Demikian.

  7. terimakasih banyak atas bantuannya @manweljs_ dan @Caton
    problem sudah teratasi :)

 

atau Mendaftar untuk ikut berdiskusi!