Cara Membuat Folder Berdasarkan Bulan Dengan Perintah Macro

Cara Membuat Folder Berdasarkan Bulan Dengan Perintah Macro - Membuat folder berdasarkan bulan hanya dengan waktu singkat.

Kebutuhan ini tidaklah sangat penting dalam melakukan tugas dan pekerjaan di berbagai lembaga. Ini hanya tambahan informasi yang mungkin bisa dipelajari.

Tampilan Cara Membuat Folder Dengan Perintah Kode Macro

Artikel ini admin tulis hanya untuk memperkaya isi blog saja. File penerapan kode Vba membuat folder berdasarkan bulan dengan perintah macro sudah lama admin koleksi.

Baru sekarang ini admin ada kesempatan untuk menuliskan penerapan kodenya di blog tercinta ini.

Semoga menjadi referensi dan informasi bagi yang sedang mempelajar macro excel.

Langkah-langkah Cara Membuat Folder Berdasarkan Bulan Dengan Perintah Macro

• Buka Microsoft Excel dan simpan filenya dalam format xlsm atau xlsb 

• Klik tab Developer 

• Masukkan CommandButton yang terdapat pada ActiveX Control dengan cara klik pada Insert pilih CommandButton (AcitiveX Control) 

• Klik dan Drag pada lembar kerja dengan ukuran yang di inginkan 

• Klik kanan pada CommandButton (ActiveX Control) dan pilih View Code dan masukkan kode berikut ini

Private Sub CommandButton1_Click()
'Diklarasi
Dim BosFolder As String
Dim SubFolder As String
Dim PathBaru As String
Dim PilihFolder As FileDialog
Dim Skip As Boolean
  'Membuka DialogBox Explorer untuk membuka Folders
    Set PilihFolder = Application.FileDialog(msoFileDialogFolderPicker)
   'Merecord pilihan pengguna
    With PilihFolder
      .Title = "Select A Target Folder"
      .AllowMultiSelect = False
        If .Show <> -1 Then Skip = True
        If Not Skip Then BosFolder = .SelectedItems(1)
    End With
  'Bila pengguna membatalkan tugas
    If BosFolder = "" Then Exit Sub
'Loop Through Each Month
  For x = 1 To 12
    'membuat folder dengan formatnya folder
      SubFolder = Format(x, "00. ") & MonthName(x, False)
      PathBaru = BosFolder & "\" & SubFolder
     'Pengecekan bila folders sudah tersedia
      If Dir(PathBaru, vbDirectory) = "" Then
             'menuliskan folder baru
          Shell ("cmd /c mkdir """ & PathBaru & """")
       End If
    Next x
  'Laporan Jika Sudah menyelesaikan tugas
  MsgBox "Folder Berdasarkan Bulan Sudah Selesai Di Buat.!!.", vbInformation, "Application"
End Sub

Keterangan :

Keterangan umum sudah admin jelaskan dalam baris kode. Untuk keterangan khusus secara detail perkode Vba merupakan masalah besar bagi admin. Admin tidak paham secara detailnya. 

Demikian yang dapat admin jelaskan tentang artikel dengan judul Cara Membuat Folder Berdasarkan Bulan Dengan Perintah Macro.

Semoga menjadi referensi dan informasi bagi yang sedang membutuhkan informasi tentang Cara Membuat Folder Berdasarkan Bulan Dengan Perintah Macro.

Jika anda memiliki pertanyaan, saran dan kritikan untuk admin mohon dapat disampaikan pada kolom komentar yang tersedia dibawah artikel ini. 

Bagi yang ingin mempelajari Vba Excel dari contoh file penerapan kode vba Excel dan aplikasi jadi tanpa proteksi mohon dapat menghubungi admin via WhatsApp atau Telegram dengan nomor 0811-6822-023.

Dengan mempelajari dari contoh file akan cepat dapat dipahami alur dan fungsi yang diterapkan sehingga dapat di terapkan pada aplikasi yang sedang dibuat.

Berbagi :