Кестедегі мәліметтермен пішіндерді толтыру

Мәселені тұжырымдау

Бізде парақтағы төлемдер туралы ақпарат бар мәліметтер базасы бар (тізім, кесте – оны қалағаныңызша атаңыз). мәліметтер:

тапсырма: осы тізімнен таңдалған кез келген қажетті жазба үшін қолма-қол ақша түбіртегін (төлем, шот …) жылдам басып шығарыңыз. Бар!

1-қадам. Пішін жасаңыз

Кітаптың басқа парағында (осы парақты атаймыз форма) бос пішінді жасаңыз. Сіз мұны өзіңіз жасай аласыз, мысалы, Бас бухгалтер журналының веб-сайттарынан немесе Microsoft веб-сайтынан алынған дайын пішіндерді пайдалана аласыз. Менде осындай нәрсе бар:

Кестедегі мәліметтермен пішіндерді толтыру

бос ұяшықтарда (Шот, сома, алынған т.б.) төлем кестесінен деректерді басқа парақтан алады – сәл кейінірек біз мұнымен айналысамыз.

2-қадам: Төлем кестесін дайындау

Пішініміз үшін кестеден деректерді алмас бұрын, кестені сәл модернизациялау керек. Атап айтқанда, кестенің сол жағына бос баған енгізіңіз. Біз пішінге деректерді қосқымыз келетін жолға қарама-қарсы белгіні (ағылшынша «x» әрпі болсын) енгізу үшін қолданамыз:

Қадам 3. Кесте мен пішінді байланыстыру

Байланыс үшін біз функцияны қолданамыз VPR(КӨРУ) – бұл туралы толығырақ мына жерден оқи аласыз. Біздің жағдайда пішіндегі F9 ұяшығына Мәліметтер парағынан «x» белгіленген төлем нөмірін енгізу үшін F9 ұяшығына келесі формуланы енгізу керек:

=VLOOKUP(“x”,Деректер!A2:G16)

=VLOOKUP(“x”;Деректер!B2:G16;2;0)

Анау. «түсінікті» деп аударылғанда, функция А2: G16 диапазонында Деректер парағында «x» таңбасынан басталатын жолды тауып, бізге осы жолдың екінші бағанының мазмұнын, яғни төлем нөмірін беруі керек.

Пішіндегі барлық басқа ұяшықтар дәл осылай толтырылады – формуладағы баған нөмірі ғана өзгереді.

Соманы сөзбен көрсету үшін функцияны қолдандым өз PLEX қосымшасынан.

Нәтиже келесідей болуы керек:

Кестедегі мәліметтермен пішіндерді толтыру

4-қадам. Екі «х» болмауы үшін ...

Егер пайдаланушы бірнеше жолға қарсы «x» енгізсе, VLOOKUP функциясы тек бірінші тапқан мәнді қабылдайды. Мұндай екіұштылықты болдырмау үшін парақ қойындысын тінтуірдің оң жақ түймешігімен басыңыз мәліметтер содан соң Бастапқы мәтін (бастапқы код). Пайда болған Visual Basic редакторының терезесінде келесі кодты көшіріңіз:

Private Sub Worksheet_Change(ByVal мақсатты диапазон ретінде) Dim r сияқты ұзын Dim str Егер Target.Count > 1 болса, содан кейін Sub параметрінен шығыңыз, егер Target.Column = 1 болса, str = Target.Value Application.EnableEvents = False r = Ұяшықтар(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 функциясы).

 

пікір қалдыру