Contents [show]
Perumusan masalah
Kami mempunyai pangkalan data (senarai, jadual – panggil apa yang anda mahu) dengan maklumat tentang pembayaran pada helaian Tarikh:
Petugas: cepat mencetak resit tunai (pembayaran, invois …) untuk mana-mana penyertaan yang dikehendaki dipilih daripada senarai ini. Pergi!
Langkah 1. Buat Borang
Pada helaian buku yang lain (mari panggil helaian ini Borang) buat borang kosong. Anda boleh melakukannya sendiri, anda boleh menggunakan borang siap pakai, diambil, sebagai contoh, dari laman web majalah Ketua Akauntan atau laman web Microsoft. Saya mendapat sesuatu seperti ini:
Dalam sel kosong (Akaun, Amaun, Diterima daripada dsb.) akan mendapatkan data daripada jadual pembayaran daripada helaian lain – sedikit kemudian kami akan menangani perkara ini.
Langkah 2: Menyediakan jadual pembayaran
Sebelum mengambil data daripada jadual untuk borang kami, jadual perlu dimodenkan sedikit. Iaitu, masukkan lajur kosong di sebelah kiri jadual. Kami akan gunakan untuk memasukkan label (biarlah ia menjadi huruf Inggeris "x") bertentangan dengan baris yang kami ingin tambahkan data pada borang:
Langkah 3. Memautkan jadual dan borang
Untuk komunikasi, kami menggunakan fungsi VPR(TAMPILAN) – anda boleh membaca lebih lanjut mengenainya di sini. Dalam kes kami, untuk memasukkan nombor pembayaran bertanda "x" daripada helaian Data ke dalam sel F9 pada borang, anda mesti memasukkan formula berikut dalam sel F9:
=VLOOKUP(“x”,Data!A2:G16)
=VLOOKUP(“x”;Data!B2:G16;2;0)
Itu. diterjemahkan ke dalam "boleh difahami", fungsi harus mencari dalam julat A2: G16 pada helaian Data satu baris bermula dengan aksara "x" dan memberi kami kandungan lajur kedua baris ini, iaitu nombor pembayaran.
Semua sel lain pada borang diisi dengan cara yang sama - hanya nombor lajur yang berubah dalam formula.
Untuk memaparkan jumlah dalam perkataan, saya menggunakan fungsi tersebut Sendiri daripada alat tambah PLEX.
Hasilnya hendaklah seperti berikut:
Langkah 4. Supaya tidak ada dua "x" ...
Jika pengguna memasukkan "x" terhadap berbilang baris, fungsi VLOOKUP hanya akan mengambil nilai pertama yang ditemuinya. Untuk mengelakkan kekaburan sedemikian, klik kanan pada tab helaian Tarikh dan kemudian Teks sumber (Kod sumber). Dalam tetingkap editor Visual Basic yang muncul, salin kod berikut:
Swasta Sub Lembaran Kerja_Tukar(ByVal Sasaran Sebagai Julat) Malapkan r Sepanjang Malap str Sebagai Rentetan Jika Sasaran.Count > 1 Kemudian Keluar Sub Jika Target.Column = 1 Kemudian str = Target.Value Application.EnableEvents = False r = Cells(Rows.Count , 2).End(xlUp).Julat Baris("A2:A" & r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub Makro ini menghalang pengguna daripada memasukkan lebih daripada satu "x" dalam lajur pertama.
Nah, itu sahaja! Nikmati!
- Menggunakan fungsi VLOOKUP untuk menggantikan nilai
- Versi fungsi VLOOKUP yang dipertingkatkan
- Jumlah dalam perkataan (fungsi Propis) daripada alat tambah PLEX