728x90

2023/05 7

SAMPLINGRE 함수

【 함수 요약 】 ISO 2859-1와 KS Q ISO 2859-1에 규정된 샘플링 방식에서 LOT크기와 AQL, 검사방법에 따라 불합격 판정불량수를 구합니다. 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 품질샘플링 관련 별도로 배포하는 파일에 이미 배포된 내용이므로 참고하시기 바랍니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = SAMPLINGRE( LotSize , AQL , [sampleType], [Inspection] , [Plan], [Round] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 LotSize 필수 없음 검사할 LOT/Batch의 수량 (2개 이상) AQL 필수 없음 합격품질한계 AQL, 부적합품률 및 100아이템당 부적합수 sampleT..

VBA 배열(Array) 관련 유용한 함수

VBA에서 배열(Array)을 이용할 때 유용한 함수로 자주 사용하는 것들을 모아 놓은 것입니다. 2023-05-22 TransposeArray 수정하고, SliceArray 추가 □ IsArray() : 배열인지 아닌지 확인하는 함수 - 변수를 Variant로 선언하고 VarArray = UsedRange.Value2 처럼 Range를 직접 배열에 할당하는 경우 배열이 초기 상태는 Empty라서 IsArray 결과 값은 False이고, 할당된 이후에는 True가 되어 할당 여부를 확인할 때 사용 □ getDimension() : 배열이 1차원인지, 2차원인지 확인하는 함수 결과값 : 배열이 아니면 0, 1차원 배열은 1, 2차원 배열은 2,,,, Public Function getDimension(va..

Excel - VBA 2023.05.22

샘플링 검사 (KS Q ISO 2859-1) 다회 샘플링 방식 지원 함수

KS Q ISO 2859-1 에서 규정하는 계수형 합격판정 샘플링 검사에 대해서 필요로 하는 정보를 함수로 구현한 것입니다. 여기 소개된 함수들은 EGTools 추가기능에 추가되었습니다. (v3.7.7) 1회 샘플링 검사에 대한 내용만 필요하면 아래를 참고하세요. https://egtools.tistory.com/entry/ISO2859-SAMPLING 여기에 올린 파일은 1회샘플링 검사 방식뿐만 아니라 2회 샘플링 검사 방식과 다회샘플링 검사 방식에 대해서도 사용할 수 있도록 확장하였습니다. 표준에서 기술한 샘플링표는 첨부 문서 안에 그대로 옮겼습니다. 1회 샘플링 방식의 판정은 알기 쉬우므로 2회와 다회 샘플링 방식의 판정 기준을 설명합니다. □ 2회 샘플링 방식의 판정 기준 1차 검사 : 샘플수 n..

Excel - VBA 2023.05.20

위첨자(Superscript) 및 아래첨자(Subscript)

Excel에서는 유니코드 번호를 이용하여 =UNICHAR(문자번호)함수로 위첨자와 아래첨자를 입력할 수 있습니다. 그래도 그냥 여기에 있는 것을 복사해 쓰는게 제일 편합니다. 위첨자 Superscript 문자번호 ¹²³⁴ⁿ : 이 다섯개는 'ㅊ'을 입력하고 [한자]키를 눌러서 선택하여 입력할 수 있습니다. 8304 185 178 179 8308 ⁰ ¹ ² ³ ⁴ 8309 8310 8311 8312 8313 ⁵ ⁶ ⁷ ⁸ ⁹ 8314 8315 8316 8317 8318 ⁺ ⁻ ⁼ ⁽ ⁾ 732 ˜ 7491 7495 7580 7496 7497 ᵃ ᵇ ᶜ ᵈ ᵉ 7584 7501 688 8305 690 ᶠ ᵍ ʰ ⁱ ʲ 7503 737 7504 8319 7506 ᵏ ˡ ᵐ ⁿ ᵒ 7510 691 738 751..

Excel - Sample 2023.05.17

DatePicker 만들기 - 3 (레이블 이벤트를 이용한 날짜 선택)

□ 레이블이벤트를 사용할 클래스 추가 및 동작 지정 삽입 - 클래스 모듈 (이름 : cLblEvents ) WithEvents를 사용하여클래스 내부에 이베트를 가진 레이블을 추가 (이름: lbl ) 동작 : 레이블을 클릭하거나 더블클릭하면 Tag에 있는 날짜를 SelectedDate 인터페이스를 통해 지정 선택된 날짜를 기재하고 폼은 숨기기 Public WithEvents lbl As MSForms.Label Private Sub lbl_Click() If Left(lbl.Name, 3) = "lbD" Then lbl.Parent.SelectedDate = CDate(lbl.Tag) lbl.Parent.Hide End If End Sub Private Sub lbl_DblClick(ByVal Cancel..

Excel - VBA 2023.05.05

DatePicker 만들기 - 2 (레이블을 이용한 Calendar 날짜 정리)

□ DatePicker에서 사용할 내부 변수 및 인터페이스 설정 내부에서 사용할 변수로 date_Selected를 선언 이 변수를 설정하고 읽어올 인터페이스를 정의 (Let, Get) Private date_Selected As Date Public Property Let SelectedDate(argDate As Date) date_Selected = argDate End Property Public Property Get SelectedDate() As Date SelectedDate = date_Selected End Property □ 달력을 만드는 프로시저 생성 인수 : 연도(필수), 월(필수), 일(선택) 레이블의 이름을 기준으로 레이블 컨트롤을 지정하여 날짜 및 서식을 적용 (lbD1~42,..

Excel - VBA 2023.05.05

DatePicker 만들기 - 1 (Calendar용 User Form 준비)

□ User Form 추가 이름 : formCalendar Caption : DatePicker 날짜에 사용할 Control을 선택 : 명령단추나 레이블 등을 사용할 수 있는데 여기 설명에는 레이블(Label) 기준으로 진행 □ 주차명에 해당하는 레이블 생성 왼쪽에 주차번호를 넣고, 일~토요일 7개를 넣어야 하므로 적절한 위치에 첫번째 레이블 생성 첫번째 레이블 - 이름 : lbT1 - 크기 : Width = 15, Height = 15 - Caption : 일 - TextAlign : fmTextAlignCenter - Font : 맑은 고딕, 보통, 크기=10 두번째 ~ 일곱번째 레이블 : 첫번째를 복사 - 이름을 lbT2 ~lbT7 으로 수정하고, Caption을 월~토 로 수정하고 적절한 간격으로..

Excel - VBA 2023.05.05
728x90