Langsung ke konten utama

Featured post

Kreatif Design Asal

Desain adalah seni terapan, arsitektur, dan berbagai pencapaian kreatif lainnya yang melibatkan penataan garis, bentuk, ukuran, warna, dan nilai suatu objek berdasarkan prinsip-prinsip tertentu. Nih saya wong nga jelas membuat beberapa design yang asal-asalan yang penting mah upload aja lah: Design One Day Ful Color 1 Design One Day Ful Color 2  Jadi gimana guys... Jenis design yang saya buat dengan menggunakan app Corel draw , font dengan paduan warna yang asal-asalan ini, keren, menawan dan tentunya sangat memanjakan mata saat dipandang dengan menggunakan sedopan.. 

Cara buat List di Excel

Wong Gaptex -  izeng Nulis diblog gratisan tentang tahap pembuatan drop menu listbox.

Perhatikan gambar dibawah, itu adalah tampilan menu drop list yang menggunakan soucre code (vba), Saya jelaskan sebelum anda punya prasangka yang nga zelas atau sampai-sampai anda punya pikiran ~Pengen Minum ES Cendol campur terasi mentah~ hee,e,e,.!! soucre code (vba) ini darimana saya dapat ? 

jika anda punya waktu luang atau pas lagi galau soucre code (vba) yang ada pada konten pos ini saya dapatkan di microsoft excelnya, cara untuk mencari soucre code tersebut pun sangat mudah tinggal open microsoft excel >> ketikkan di kolom pencarian help dengan kata kunci list atau lebih tepatnya lihat gambar pada point.1 kolom sebelah tanda tanya dengan background warna biru.
Point.1. Untuk membuat listbox tersebut alat atau toolbox yang digunakan diantaranya sebagai berikut : CommandButton dan listBox, jika anda belum paham tentang pembuat form di Microsoft Excel 2010. Link Back TataCara Form VBAProject bisa klik DISINI
Point.2. Ini adalah tampilan gambar soucre code (vba) pada form yang sudah dibuat, jika anda ingin mengcopy soucre code nya lihat pada Point.3
POINT.3. SOUCRE CODE (VBA) FORM

 Dim MyArray(6, 3)
'Array containing column values for ListBox.

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
    Dim i As Single

    ListBox1.ColumnCount = 3
'This list box contains 3 data columns

    'Load integer values MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
        MyArray(i, 1) = Rnd
        MyArray(i, 2) = Rnd
    Next i

    'Load ListBox1
    ListBox1.List() = MyArray

End Sub

Private Sub CommandButton1_Click()
' Exchange contents of columns 1 and 3

    Dim i As Single
    Dim Temp As Single

    For i = 0 To 5
        Temp = ListBox1.List(i, 0)
        ListBox1.List(i, 0) = ListBox1.List(i, 2)
        ListBox1.List(i, 2) = Temp
    Next i
End Sub

Point.4. Tahap Berikutnya membuat comboBox dengan pilihan, perhatikan gambar bawah.
Point.5. Form diatas tersebut menggunakan alat atau toolbox diantaranya sebagai berikut : texsBoxs, ComboBox dan CommandButton
Point.6. Ini adalah tampilan gambar soucre code (vba) di form. jika anda ingin mencopynya lihat pada point.7
POINT. 7. SOUCRE CODE (VBA) FORM 

Private Sub UserForm_Initialize()
    Label1.Left = 18
    Label1.Top = 12
    Label1.Height = 12
    Label1.Width = 190
    Label1.Caption = "Select picture placement " _
        & "relative to the caption."
   
    'Add list entries to combo box. The value of each
    'entry matches the corresponding ListIndex value
    'in the combo box.
    ComboBox1.AddItem "Left Top"        'ListIndex = 0
    ComboBox1.AddItem "Left Center"     'ListIndex = 1
    ComboBox1.AddItem "Left Bottom"     'ListIndex = 2
    ComboBox1.AddItem "Right Top"       'ListIndex = 3
    ComboBox1.AddItem "Right Center"    'ListIndex = 4
    ComboBox1.AddItem "Right Bottom"    'ListIndex = 5
    ComboBox1.AddItem "Above Left"      'ListIndex = 6
    ComboBox1.AddItem "Above Center"    'ListIndex = 7
    ComboBox1.AddItem "Above Right"    'ListIndex = 8
    ComboBox1.AddItem "Below Left"      'ListIndex = 9
    ComboBox1.AddItem "Below Center"    'ListIndex = 10
    ComboBox1.AddItem "Below Right"    'ListIndex = 11
    ComboBox1.AddItem "Centered"        'ListIndex = 12
    'Use drop-down list
    ComboBox1.Style = fmStyleDropDownList
    'Combo box values are ListIndex values
    ComboBox1.BoundColumn = 0
    'Set combo box to first entry
    ComboBox1.ListIndex = 0


    ComboBox1.Left = 18
    ComboBox1.Top = 36
    ComboBox1.Width = 90
    ComboBox1.ListWidth = 90
   
    'Initialize CommandButton1
    CommandButton1.Left = 230
    CommandButton1.Top = 36
    CommandButton1.Height = 120
    CommandButton1.Width = 120
End Sub

Private Sub ComboBox1_Click()
    Select Case ComboBox1.Value
    Case 0  'Left Top
        CommandButton1.Caption = "Left Top"
        CommandButton1.PicturePosition = _
            fmPicturePositionLeftTop
   
    Case 1  'Left Center
        CommandButton1.Caption = "Left Center"
        CommandButton1.PicturePosition = _
            fmPicturePositionLeftCenter
           
    Case 2  'Left Bottom
        CommandButton1.Caption = "Left Bottom"
        CommandButton1.PicturePosition = _
            fmPicturePositionLeftBottom
       
    Case 3  'Right Top
        CommandButton1.Caption = "Right Top"
        CommandButton1.PicturePosition = _
            fmPicturePositionRightTop
   
    Case 4  'Right Center
        CommandButton1.Caption = "Right Center"
        CommandButton1.PicturePosition = _
            fmPicturePositionRightCenter
   
    Case 5  'Right Bottom
        CommandButton1.Caption = "Right Bottom"
        CommandButton1.PicturePosition = _
            fmPicturePositionRightBottom
   
    Case 6  'Above Left
        CommandButton1.Caption = "Above Left"
        CommandButton1.PicturePosition = _
            fmPicturePositionAboveLeft
   
    Case 7  'Above Center
        CommandButton1.Caption = "Above Center"
        CommandButton1.PicturePosition = _
            fmPicturePositionAboveCenter
       
    Case 8  'Above Right
        CommandButton1.Caption = "Above Right"
        CommandButton1.PicturePosition = _
            fmPicturePositionAboveRight
   
    Case 9  'Below Left
        CommandButton1.Caption = "Below Left"
        CommandButton1.PicturePosition = _
            fmPicturePositionBelowLeft
   
    Case 10 'Below Center
        CommandButton1.Caption = "Below Center"
        CommandButton1.PicturePosition = _
            fmPicturePositionBelowCenter
   
    Case 11 'Below Right
        CommandButton1.Caption = "Below Right"
        CommandButton1.PicturePosition = _
            fmPicturePositionBelowRight
   
    Case 12 'Centered
        CommandButton1.Caption = "Centered"
        CommandButton1.PicturePosition = _
            fmPicturePositionCenter
   
    End Select
   
End Sub

Dan jika anda tak punya waktu alias sibuk banget Download File excel sudah jadi DISINI

Komentar

Postingan populer dari blog ini

Cara Membuat Menu Input Acces

💂 Aplikasi Database ini, dirancang hanya menggunakan Microsoft Acces 2010 . Pada databasenya pun mulai dari form, tabel, query, soucre code vba dst.. bisa diedit sesuai dengan selera dan kebutuhan pada database/aplikasi. 💢 Sub Menu yang tersedia pada database :    ᐅ Menu Input Jawaban Peserta Ujian    ᐅ Menu Input Master Kunci    ᐅ Menu Input Kunci Jawab    ᐅ Menu Tombol Proses Pengambilan Jumlah Total Peserta Menjawab benar, salah dan kosong.    ᐅ View Report /Laporan Nilai  💢 Gambar dibawah ini adalah printscreem database aplikasi saat pertama kali dibuka. 💢 Tampilan Form menu input master kunci jawaban yang bisa disesuaikan dengan kode soal yang akan diujikan. Untuk kode soal bisa menggunakan number ataupun texs. gambar dibawah ini adalah tampil untuk menu input master kunci. 💢 Tampilan Form menu input kunci jawaban yang bisa disesuaikan secara berurutan untuk perbidang studinya. ?...

Kreatif Design Asal

Desain adalah seni terapan, arsitektur, dan berbagai pencapaian kreatif lainnya yang melibatkan penataan garis, bentuk, ukuran, warna, dan nilai suatu objek berdasarkan prinsip-prinsip tertentu. Nih saya wong nga jelas membuat beberapa design yang asal-asalan yang penting mah upload aja lah: Design One Day Ful Color 1 Design One Day Ful Color 2  Jadi gimana guys... Jenis design yang saya buat dengan menggunakan app Corel draw , font dengan paduan warna yang asal-asalan ini, keren, menawan dan tentunya sangat memanjakan mata saat dipandang dengan menggunakan sedopan.. 

Design Flayer Digital

Dunia Gambar memang membuat mata yang memandang terkadang kabur2, Namun beda bagi yang senang dunia gambar adalah hal yang sangat mengkagumkan, istilah dalam mimpi "berakit-rakit dahulu berenang-berenangan dahulu Tenggelam Kemudian' Nah, kali ini kami sudah menyiapkan beberapa rekomendasi design dengan font keren terbaik .#design awur-awuran 111 dibuat oleh seniman gelandangan sehingga bentuk warna nya jadi awur-awuran. #design awur-awuran 112 dibuat oleh seniman gaek sehingga wujud bentuk sama persis dengan julukannya. Nah, Jadi gimana guys... Jenis design yang kami buat dengan menggunakan app Corel draw , font dengan paduan warna yang asal-asalan ini, keren, menawan dan tentunya sangat memanjakan mata saat dipandang dengan menggunakan sedopan..Bagi yang membutuhkan file aslinya bisa anda dapatkan secara gratis cukup mengisi alamat email pada kolom komentar file akan dikirim secepatnya jika kuota memadai,terimakasih