Хүснэгтийн мэдээллээр маягтуудыг бөглөх

Асуудлын томъёолол

Бид хуудсан дээрх төлбөрийн талаархи мэдээлэл бүхий мэдээллийн сантай (жагсаалт, хүснэгт - үүнийг таны хүссэнээр нэрлэнэ үү). Өгөгдөл:

Даалгавар: энэ жагсаалтаас сонгосон хүссэн бичилтийн бэлэн мөнгөний баримтыг (төлбөр, нэхэмжлэх …) хурдан хэвлэх. Яв!

Алхам 1. Маягт үүсгэх

Номын өөр хуудсан дээр (энэ хуудсыг нэрлэе маягт) хоосон маягт үүсгэх. Та үүнийг өөрөө хийж болно, жишээлбэл, Ерөнхий нягтлан бодогч сэтгүүлийн вэбсайт эсвэл Microsoft-ын вэбсайтаас авсан бэлэн маягтуудыг ашиглаж болно. Би ийм зүйл авсан:

Хүснэгтийн мэдээллээр маягтуудыг бөглөх

Хоосон нүдэнд (Данс, дүн, хүлээн авсан гэх мэт) төлбөрийн хүснэгтээс өгөгдлийг өөр хуудаснаас авах болно - хэсэг хугацааны дараа бид үүнийг шийдвэрлэх болно.

Алхам 2: Төлбөрийн хүснэгтийг бэлтгэх

Манай маягтын хүснэгтээс өгөгдөл авахын өмнө хүснэгтийг бага зэрэг шинэчлэх шаардлагатай. Тухайлбал, хүснэгтийн зүүн талд хоосон багана оруулна уу. Бид маягтанд өгөгдөл нэмэхийг хүсч буй мөрийн эсрэг талд шошго (энэ нь англи хэлний "x" үсэг байх болтугай) оруулахдаа ашиглана.

Алхам 3. Хүснэгт болон маягтыг холбох

Харилцааны хувьд бид функцийг ашигладаг VPR(ХАРАХ) - Та энэ талаар илүү ихийг эндээс уншиж болно. Манай тохиолдолд өгөгдлийн хуудаснаас "x" тэмдэглэгдсэн төлбөрийн дугаарыг маягтын F9 нүдэнд оруулахын тулд F9 нүдэнд дараах томьёог оруулах шаардлагатай.

=VLOOKUP(“x”,Data!A2:G16)

=VLOOKUP(“x”;Өгөгдөл!B2:G16;2;0)

Тэдгээр. "ойлгомжтой" гэж орчуулсан бол функц нь өгөгдлийн хуудасны A2: G16 мужид "x" тэмдэгтээр эхэлсэн мөрийг олж, энэ мөрийн хоёр дахь баганын агуулгыг, өөрөөр хэлбэл төлбөрийн дугаарыг өгөх ёстой.

Маягт дээрх бусад бүх нүдийг ижил аргаар бөглөнө - зөвхөн баганын дугаар томьёо дахь өөрчлөгдөнө.

Хэмжээг үгээр харуулахын тулд би функцийг ашигласан Өөрийн PLEX нэмэлтээс.

Үр дүн нь дараах байдалтай байх ёстой.

Хүснэгтийн мэдээллээр маягтуудыг бөглөх

Алхам 4. Хоёр "x" байхгүй байхын тулд ...

Хэрэв хэрэглэгч олон мөрний эсрэг "x" гэж оруулбал VLOOKUP функц нь зөвхөн олсон эхний утгыг авна. Ийм ойлгомжгүй байдлаас зайлсхийхийн тулд хуудасны таб дээр хулганы баруун товчийг дарна уу Өгөгдөл Тэгээд Эх текст (Эх код). Харагдах Visual Basic редакторын цонхонд дараах кодыг хуулна уу.

Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str String As Target.Count > 1 бол Sub-ээс гарна. Хэрэв Target.Column = 1 Дараа нь str = Target.Value Application.EnableEvents = False r = Cells(Rows.Count) , 2).End(xlUp).Row Range("A2:A" & r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub

Энэ макро нь хэрэглэгчийг эхний баганад нэгээс илүү "x" оруулахаас сэргийлдэг.

За, тэгээд л болоо! Сайхан амраарай!

  • VLOOKUP функцийг ашиглан утгыг орлуулах
  • VLOOKUP функцийн сайжруулсан хувилбар
  • PLEX нэмэлтээс үгээр илэрхийлсэн дүн (Propis функц).

 

хариу үлдээх