Autolengkap pintar ke bawah dan ke kanan

Contents [show]

Sehingga kini, kadang-kadang dengan senyuman saya teringat salah satu latihan korporat bidang pertama saya 10 tahun lalu.

Bayangkan: pejabat ruang terbuka pejabat perwakilan sebuah syarikat FMCG antarabangsa, besar seperti padang bola. Reka bentuk yang bergaya, peralatan pejabat yang mahal, kod pakaian, ekspatriat yang berbual di sudut – itu sahaja 🙂 Di salah satu bilik mesyuarat, saya memulakan latihan lanjutan dua hari pada versi semasa Excel 2003 untuk 15 kakitangan utama jabatan ekonomi , bersama ketua mereka. Kami berkenalan, saya bertanya kepada mereka tentang tugas perniagaan, masalah, saya meminta mereka menunjukkan beberapa fail kerja biasa. Mereka menunjukkan panjang kilometer pemunggahan daripada SAP, helaian laporan yang mereka buat mengenai perkara ini, dsb. Nah, ini adalah perkara biasa – saya secara mental memikirkan topik dan masa, menyesuaikan diri dengan penonton. Dari sudut mata saya, saya perhatikan bagaimana salah seorang peserta, menunjukkan sekeping laporannya, dengan sabar menarik sel dengan formula ke bawah oleh pangkah hitam di sudut kanan bawah untuk beberapa ribu baris, kemudian melangkau penghujung meja dengan cepat, menariknya ke belakang, dsb. Tidak dapat menahannya, saya mengganggu dia melencongkan tetikus di sekeliling skrin dan menunjukkan klik dua kali pada salib hitam, menerangkan tentang penyiapan automatik sehingga berhenti. 

Tiba-tiba saya menyedari bahawa penonton yang mencurigakan diam dan semua orang memandang saya dengan pelik. Saya tidak dapat melihat sekeliling saya di mana sahaja yang saya boleh - semuanya OK, tangan dan kaki saya berada di tempatnya, lalat saya dibutangkan. Saya secara mental memundurkan kata-kata terakhir saya untuk mencari beberapa klausa yang mengerikan - nampaknya tiada apa-apa jenayah. Selepas itu, ketua kumpulan itu bangun secara senyap, menjabat tangan saya dan berkata dengan muka batu: "Terima kasih, Nikolai. Latihan ini boleh disiapkan.

Secara ringkasnya, ternyata tiada seorang pun daripada mereka mempunyai petunjuk tentang mengklik dua kali pada salib hitam dan autolengkap. Ia entah bagaimana berlaku secara sejarah bahawa tidak ada sesiapa yang menunjukkan kepada mereka perkara yang mudah tetapi perlu. Seluruh jabatan mengeluarkan formula secara manual untuk beribu-ribu baris, rakan-rakan miskin. Dan inilah saya. Adegan minyak. Ketua jabatan itu kemudian meminta sangat untuk tidak mendedahkan nama syarikat mereka kepada sesiapa 🙂

Beberapa kali kemudian terdapat situasi yang sama, tetapi hanya dengan pendengar individu - kebanyakannya sekarang, sudah tentu, mengetahui fungsi ini. 

Autolengkap pintar ke bawah dan ke kananSoalannya berbeza. Selepas kegembiraan pertama menguasai ciri yang begitu hebat, kebanyakan pengguna memahami bahawa penyalinan automatik formula dengan mengklik dua kali pada salib hitam (penanda autolengkap) mempunyai semua aspek positif dan negatif:

  • Menyalin tidak selalu berlaku di hujung jadual. Jika jadual tidak monolitik, iaitu terdapat sel kosong dalam lajur bersebelahan, maka bukan fakta bahawa autolengkap akan berfungsi sehingga penghujung jadual. Kemungkinan besar, proses itu akan berhenti di sel kosong terdekat sebelum sampai ke penghujung. Jika terdapat sel yang diduduki oleh sesuatu di bawah lajur, maka autolengkap akan berhenti tepat padanya.
  • Apabila menyalin kerosakan reka bentuk sel, kerana Secara lalai, bukan sahaja formula disalin, tetapi juga formatnya. Untuk membetulkan, klik pada butang pilihan salin dan pilih Hanya nilai (Isi tanpa format).
  • Tidak ada cara cepat untuk meregangkan formula dengan mudah bukan ke bawah tetapi ke kanankecuali tarik dengan tangan. Klik dua kali pada pangkah hitam hanya di bawah.

Mari cuba perbaiki kelemahan ini dengan makro yang mudah.

Tekan pintasan papan kekunci ke kiri Alt + F11 atau butang Visual Basic tab pemaju (Pembangun). Masukkan modul kosong baharu melalui menu Sisipan – Modul dan salin teks makro ini di sana:

Sub SmartFillDown() Malapkan rng Sebagai Julat, n Set Panjang rng = ActiveCell.Offset(0, -1).CurrentRegion Jika rng.Cells.Count > 1 Kemudian n = rng.Cells(1).Row + rng.Rows. Count - ActiveCell.Row ActiveCell.AutoFill Destination:=ActiveCell.Resize(n, 1), Type:=xlFillValues ​​End If End Sub Sub SmartFillRight() Malapkan rng Sebagai Julat, n As Long Set rng = ActiveCell.Offset(-1, 0).CurrentRegion Jika rng.Cells.Count > 1 Kemudian n = rng.Cells(1).Column + rng.Columns.Count - ActiveCell.Column ActiveCell.AutoFill Destination:=ActiveCell.Resize(1, n), Type: =xlFillValues ​​Tamat Jika End Sub  

Makro sedemikian:

  • boleh mengisi bukan sahaja ke bawah (SmartFillDown), tetapi juga ke kanan (SmartFillRight)
  • jangan rosakkan format sel di bawah atau di sebelah kanan – hanya formula (nilai) disalin
  • sel bersebelahan kosong diabaikan dan penyalinan berlaku tepat pada penghujung jadual, dan bukan pada jurang terdekat dalam data atau sel pertama yang diduduki.

Untuk kemudahan yang lebih baik, anda boleh menetapkan pintasan papan kekunci kepada makro ini menggunakan butang Makro – Pilihan (Makros — Pilihan) di sana pada tab. pemaju (Pembangun). Sekarang sudah cukup untuk memasukkan formula atau nilai yang dikehendaki dalam sel pertama lajur dan tekan kombinasi kekunci yang ditentukan untuk makro secara automatik mengisi keseluruhan lajur (atau baris):

Kecantikan.

PS Sebahagian daripada masalah dengan menyalin formula ke hujung jadual telah diselesaikan dalam Excel 2007 dengan kemunculan "jadual pintar". Benar, mereka tidak selalu dan tidak di mana-mana sesuai. Dan di sebelah kanan, Excel tidak pernah belajar menyalin sendiri.

  • Apakah makro, cara menggunakannya, tempat untuk mendapatkan kod Visual Basic dan tempat untuk menampalnya.
  • Jadual pintar dalam Excel 2007-2013
  • Salin formula tanpa anjakan pautan

Sila tinggalkan balasan anda