Makro Untuk Menambah Laporan Harian - Petua Excel

Judith menyiarkan soalan Excel minggu ini.

Saya perlu mengimport fail setiap hari. Saya ingin menambahkan fail setiap hari ke buku kerja Excel yang ada dan mempunyai lembaran kerja yang dinamakan untuk d / m / y.

Makro asas visual pendek akan menjadikan ini sebagai tugas yang mudah. Satu masalah - nama tab helaian tidak termasuk garis miring. Oleh itu, penyelesaiannya akan menamakan semula helaian setiap hari untuk mempunyai nama seperti "03 Okt 1999".

Penyelesaiannya ialah dengan menambahkan lembaran kerja teratas ke buku anda yang ada. Lembaran ini, yang disebut "Menu" menyediakan antara muka pengguna yang sederhana sehingga anda dapat menyerahkan tugas ini kepada anggota staf yang lain, jika perlu. Lembaran atas mengandungi sel di mana pengguna dapat menentukan nama jalan dan nama fail fail yang akan diimport. Sekiranya anda mengimport fail yang dibuat oleh sistem lain, maka bidang ini tidak akan berubah dari hari ke hari. Lembaran Menu juga mengandungi sel dengan tarikh semasa yang diformat tanpa garis miring. Saya akan memasukkan makro terbuka secara automatik yang akan mengisi sel ini secara automatik untuk pengguna, tetapi mereka selalu bebas untuk mengubahnya sebelum mengklik butang untuk mengimport fail. Akhirnya, lembaran Menu mempunyai butang besar yang akan diklik oleh pengguna.Butang ini akan meminta makro untuk mengimport fail yang dinamakan pada Menu ke dalam buku semasa dengan nama tab ditentukan.

Lembaran Kerja Menu

Buka buku kerja baru dengan hanya satu helaian. Klik dua kali tab helaian dan taipkan nama untuk helaian yang disebut "Menu". Tambahkan tajuk yang bagus di sel A1. Dalam Sel C3: C5, tambahkan teks seperti yang ditunjukkan di sebelah kiri. Dalam Sel D3, masukkan nama jalan untuk direktori di mana fail itu dijumpai setiap hari. Di sel D4, tambahkan nama fail. Biarkan D5 kosong. Lebih mudah untuk menyiapkan butang setelah makro dibuat, jadi kami akan membiarkannya kemudian.

  • Mulakan Editor Makro dengan alt = "" + F11
  • Pilih Masukkan - Modul
  • Salin teks berikut ke dalam editor makro
Sub Auto_Open() ' This macro will put today's date as the default new tab name Sheets("Menu").Select Range("D5").Select Selection.Formula = "=text(now(),""mmm dd yyyy"")" Selection.Copy Selection.PasteSpecial Paste:=xlValues Application.CutCopyMode = False Selection.Columns.AutoFit Range("D8").Value = "" End Sub Sub GetFile() ' This macro will import a file into this workbook ' Copyright 1999 www.MrExcel.com Sheets("Menu").Select PathName = Range("D3").Value Filename = Range("D4").Value TabName = Range("D5").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Filename ActiveSheet.Name = TabName Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1) Windows(Filename).Activate ActiveWorkbook.Close SaveChanges:=False Windows(ControlFile).Activate Sheets("Menu").Select Range("D8").Select ActiveCell.Value = "Completed" Range("D9").Select End Sub

Sekarang, kembali ke Excel dan tambahkan butang ke helaian Menu.

Cara Menambah Butang ke Lembaran Kerja

Tambah Butang
  • Tunjukkan Bilah Alat Bentuk dengan memilih Lihat - Bar Alat - Bentuk
  • Pilih alat Butang dari bar alat
  • Tahan kekunci alt = "", seret dari sudut atas B8 ke sel C9
  • Dari dialog Tetapkan Makro, pilih makro kami yang disebut GetFile dan klik OK
  • Walaupun butang masih dipilih, anda boleh mengklik dan menyeret untuk memilih teks pada butang. Gantikan teks ini dengan "Proses!" atau teks pilihan anda sendiri

Anda kini mempunyai permohonan yang lengkap. Simpan fail di tempat yang senang. Setelah anda menyediakan fail anda dengan maklumat yang betul di sel D3: D4, prosedur harian akan seperti berikut:

  • Buka fail yang baru kita buat
  • Sahkan bahawa tarikh yang ditunjukkan dalam sel D5 sesuai.
  • Klik butang besar.
  • Simpan fail

Berikut adalah beberapa kaedah yang boleh anda ubah makro:

  • Sekiranya anda mahu tab dinamakan dengan tarikh hari sebelumnya, tambahkan "-1" selepas "SEKARANG ()" dalam makro.
  • Sekiranya fail yang akan diimport mempunyai beberapa helaian dan lembaran sasaran mungkin tidak ada di atas, kemudian tambahkan Helaian ("nama lembaran"). Pilih selepas Fail. Buka baris di atas.

Artikel menarik...