문제의 공식화
우리는 시트에 지불에 대한 정보가 포함된 데이터베이스(목록, 표 – 원하는 대로 호출)를 가지고 있습니다. Data:
태스크: 이 목록에서 선택한 원하는 항목에 대한 현금 영수증(결제, 인보이스 ...)을 빠르게 인쇄합니다. 가다!
1단계. 양식 만들기
책의 다른 시트에(이 시트를 형태) 빈 양식을 만듭니다. 예를 들어 Chief Accountant 잡지의 웹 사이트 또는 Microsoft 웹 사이트에서 가져온 기성품 양식을 사용할 수 있습니다. 나는 다음과 같은 것을 얻었다.
빈 셀(계정, 금액, 수신처 등) 다른 시트의 지불 테이블에서 데이터를 가져옵니다. 잠시 후에 이에 대해 다룰 것입니다.
2단계: 지불 테이블 준비
양식에 대한 테이블에서 데이터를 가져오기 전에 테이블을 약간 현대화해야 합니다. 즉, 테이블의 왼쪽에 빈 열을 삽입합니다. 양식에 데이터를 추가하려는 줄 반대쪽에 레이블(영어 문자 "x"로 지정)을 입력하는 데 를 사용합니다.
Step 3. 테이블과 폼 연결하기
통신을 위해 우리는 기능을 사용합니다 VPR(조회) – 여기에서 자세한 내용을 읽을 수 있습니다. 우리의 경우 데이터 시트에서 "x"로 표시된 지불 번호를 양식의 F9 셀에 삽입하려면 F9 셀에 다음 수식을 입력해야 합니다.
=VLOOKUP("x", 데이터!A2:G16)
=VLOOKUP("x";데이터!B2:G16;2;0)
저것들. "이해할 수 있는"으로 번역된 함수는 데이터 시트의 A2: G16 범위에서 문자 "x"로 시작하는 행을 찾아 이 행의 두 번째 열, 즉 지불 번호의 내용을 제공해야 합니다.
양식의 다른 모든 셀은 동일한 방식으로 채워집니다. 수식에서 열 번호만 변경됩니다.
금액을 단어로 표시하기 위해 함수를 사용했습니다. 소유 PLEX 애드온에서.
결과는 다음과 같아야 합니다.
4 단계. 두 개의 "x"가 없도록 ...
사용자가 여러 줄에 "x"를 입력하면 VLOOKUP 함수는 찾은 첫 번째 값만 사용합니다. 이러한 모호성을 피하려면 시트 탭을 마우스 오른쪽 버튼으로 클릭하십시오. Data 그리고 소스 텍스트 (소스 코드). 표시되는 Visual Basic 편집기 창에서 다음 코드를 복사합니다.
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str As String If Target.Count > 1 then Exit Sub If Target.Column = 1 then 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 기능)