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.. 
Posting Komentar

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
Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

Cara kirim Whatsaap kebanyak nomor

Perkembang era digital yang kian hari semakin menjadi-jadi, pengguna sosmed (sosial media) Facebook, Instagram, tik tok , whatsaa, telegram dan seterusnya.... Kali ini saya membagikan cara mengirim pesan whatsaap kenomor banyak tanpa menyimpan nomor ponsel tersebut dan tentu aplikasi ini gratis . Peralatan yang harus anda sediakan 1 buah hp android yang sudah terinstal app whatsaap & Pc/laptop yang sudah teinstal windows + Microsoft office. Download Aplikasi ke situs resmi : kirimpesan.net Setelah sudah terdownload exstrak filenya lalu buka langsung aplikasinya.    Inilah tampilan awal aplikasi dibuka, Untuk bisa menggunakan aplikasinya nomor anda harus didaftarkan dan pastikan nomor ponsel tersebut sudah bisa login pada whatsaap yang diponsel, cara daftarnya oun sangat mudah tinggal tekan tombol daftar masukkan nomor hp pada kolom yang disediakan whatsaap blast. Tunggu sebentar nanti password akan dikirimkan ke whatsaap. Jika sudah mendapatkan password tinggal login meng...
Posting Komentar
Baca selengkapnya

Contoh Design Kreatif

 Nah, contoh flayer kali ini kami sudah menyiapkan beberapa rekomendasi design keren terbaik yang dapat kamu jadikan referensi saat menciptakan karya sesuai dengan tema yang dipilih secara tidak sengaja,  Saat mata melihat kesan mewah dan eksklusif ala promosi iklan papan atas dapat dengan jika memakai font desain yang aneh, menjadi pilihan font dengan visual menjadi mentereng serta punya fitur high-end yang terlihat kuat di setiap karakternya. Memilih Font opsi yang tepat buat kamu yang ingin menciptakan desain yang kreatif.  Semoga rekomendasi desain di atas bisa jadi tambahan referensimu,  Jika ada yang membutuhkan file corel draw isikan alamat email pada kolom komentar file dikirim jika kuota memadai, terimakasih
2 komentar
Baca selengkapnya

Design Keren Banget

 Didesain langsung oleh seorang yang secara ugal-ugalan, Non-Format, sehingga menghadirkan nuansa dualitas yang terlihat berkarakter sebagai hasil dari padu-padan antara garis yang lembut dengan blok warna yang kuat. dengan warna yang asal jadi saja, ##001 Design Basing bae sing penting Jadi. Kesan mewah dan eksklusif ala promosi iklan papan atas, terlihat kuat di setiap karakternya. Penggunaan Font yang dipakai juga  merupakan opsi yang tepat buat kamu yang ingin menciptakan desain di bidang apa saja yang kreatif. ##001 Design Acak kadul warna merona Semoga rekomendasi desain di atas bisa jadi tambahan referensimu, Jika ada yang membutuhkan file Corel draw yang bisa anda edit cukup isikan pada kolom komentar dengan menuliskan alat email file akan dikirim jika kuota data memadai terimakasih.
Posting Komentar
Baca selengkapnya