본문 바로가기
  • 환영 합니다 ! Welcome!
VBA For Creo

#1 데이터를 선택하여, 모델을 변경 하기

by ToolBOX01 2024. 3. 30.
반응형

□ 소개

데이터를 선택 하여 Template 모델의 치수를 변경 하는 방법입니다.
아래와 같이의 치수 값에 이름을 정의 합니다.

치수 표시 치수 이름
  • 치수 이름은 반드시 "대문자"를 사용 해야 합니다.
  • 치수 이름은 반드시 "영문" 부터 사용하여 숫자와 조합 할수 있습니다
  • 치수 이름은 모델에 중복 하여 정의 할 수 없습니다.
  • 치수 이름 변경은 아래 그림을 참고 합니다 (치수 편집 > 치수 선택 > 이름 변경)

치수 값은 데이터 Sheet에서 선택하여 변경 가능 합니다. SQ Size를 선택 하면, DIM01, DIM02, DIM03 치수 값을 모델에 입력 할 수 있습니다. SQ Size는 추가 할수 있습니다. 주의 하실점은 치수 값은 아래 방향으로 증대 합니다.

[Data Sheet]

□ 프로그램 화면

1. 검색
Template 모델 이름과 치수 값을 표시 합니다
2. New File Name
새로운 파일 이름을 입력 합니다
3. SQ Size
데이터 Sheet의 SQ Size를 선택 합니다.
4. Dimension Value
선택된 SQ Size의 치수 값이 표시 됩니다.
5. 파일 생성
Template 모델의 치수 갑이 변경 됩니다. 사용자가 선택한 폴더에 복사 되고, Open 됩니다.

□ SQ Size 기능 개발

데이터 Sheet의 SQ Size를 선택하면, Dimension Value 에 표시 하는 기능 입니다.  Dimension Value는 데이터 Sheet에 존재 합니다. Dimension Value의 값들은 관리자에 의해 추가 될수 있습니다. 

DIM01, DIM02, DIM03은 추가 될수 있습니다. 즉 변동이 될수 있습니다. Dimension Name의 수량이 몇 개인지 알아야 합니다.  다음과 같은 코드를 만들수 있습니다.

Sub data_validation_from_array()

        Dim lastColumn As Long
        Dim ModelDimensionName As Variant
        lastColumn = Worksheets("PRO_DATA").Cells(1, Columns.Count).End(xlToLeft).Column
        
        Dim i As Long
        For i = 0 To lastColumn - 2
              Worksheets("Program01").Cells(13, i + 4) = Worksheets("PRO_DATA").Cells(1, i + 2)
        Next i

 

VBA의 Variant 데이터 형식은 다음과 같습니다.고정 길이 문자열과 사용자 정의 유형을 제외한 모든 유형의 데이터를 보유할 수 있는 범용 데이터 유형. 동적 유형 프로그래밍 언어의 기본 데이터 유형입니다. 예를 들어 변수를 선언할 때 데이터 형식을 지정하지 않으면 Variant로 간주됩니다. 변형 변수에는 문자열, 날짜, 시간, 부울 또는 숫자 값이 포함될 수 있습니다. 또한 포함된 값을 자동으로 변환할 수도 있습니다.