Paragraf
Formulasi masalah
We duwe database (dhaftar, Tabel - nelpon apa sampeyan pengin) karo informasi ing pembayaran ing sheet Data:
Task: cepet nyithak kuitansi awis (pembayaran, invoice ...) kanggo entri sing dikarepake sing dipilih saka dhaptar iki. Tindak!
Langkah 1. Nggawe Formulir
Ing sheet liyane saka buku (ayo nelpon sheet iki Formulir) nggawe formulir kosong. Sampeyan bisa nindakake dhewe, sampeyan bisa nggunakake formulir siap-digawe, dijupuk, contone, saka situs web majalah Kepala Akuntan utawa situs web Microsoft. Aku entuk kaya iki:
Ing sel kosong (Akun, Jumlah, Ditampa saka etc.) bakal entuk data saka tabel pembayaran saka sheet liyane - sethitik mengko kita bakal menehi hasil karo iki.
Langkah 2: Nyiapake meja pembayaran
Sadurunge njupuk data saka tabel kanggo wangun kita, tabel kudu rada modern. Yaiku, lebokake kolom kosong ing sisih kiwa meja. Kita bakal nggunakake kanggo ngetik label (supaya dadi huruf Inggris "x") ngelawan baris saka ngendi kita pengin nambah data menyang formulir:
Langkah 3. Nyambungake tabel lan formulir
Kanggo komunikasi, kita nggunakake fungsi kasebut VPR(VLOOKUP) – sampeyan bisa maca liyane babagan kene. Ing kasus kita, kanggo nglebokake nomer pembayaran sing ditandhani "x" saka lembar Data menyang sel F9 ing formulir, sampeyan kudu ngetik rumus ing ngisor iki ing sel F9:
=VLOOKUP(“x”,Data!A2:G16)
=VLOOKUP(“x”;Data!B2:G16;2;0)
Sing. diterjemahake menyang " dingerteni ", fungsi kudu golek ing sawetara A2: G16 ing sheet Data baris miwiti karo karakter "x" lan menehi kita isi kolom kapindho baris iki, IE nomer pembayaran.
Kabeh sel liyane ing formulir diisi kanthi cara sing padha - mung nomer kolom sing diganti ing rumus.
Kanggo nampilake jumlah ing tembung, Aku digunakake fungsi Nggawe saka tambahan PLEX.
Asil kudu kaya ing ngisor iki:
Langkah 4. Supaya ora ana loro "x" ...
Yen pangguna ngetik "x" marang pirang-pirang baris, fungsi VLOOKUP mung bakal njupuk nilai pisanan sing ditemokake. Kanggo ngindhari ambiguitas kasebut, klik-tengen ing tab sheet Data banjur Teks sumber (Kode Sumber). Ing jendhela editor Visual Basic sing katon, salin kode ing ngisor iki:
Private Sub Worksheet_Change(ByVal Target Minangka Range) Dim r Minangka Long Dim str Minangka String Yen Target.Count > 1 Banjur Exit Sub Yen Target.Column = 1 Banjur str = Target.Value Application.EnableEvents = Palsu r = Cells(Rows.Count , 2).End(xlUp).Row Range("A2:A" & r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub Makro iki nyegah pangguna ngetik luwih saka siji "x" ing kolom pisanan.
Nah, iku kabeh! Sekeca!
- Nggunakake fungsi VLOOKUP kanggo ngganti nilai
- Versi apik saka fungsi VLOOKUP
- Jumlah ing tembung (fungsi Propis) saka tambahan PLEX