format tgl dan nilai pada search box vba

  1. 6 tahun 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 + 20.101 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 6 tahun 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 6 tahun lalu oleh manweljs_

    coba

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

  6. Caton

    7 Apr 2018 Terverifikasi Indonesia + 20.101 Poin
    Di sunting 6 tahun 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!