ToolBOX VBA 1.5 개발 작업 #1

■ Main 프로그램 화면

Creo를 사용하는 사용자 마다 매개변수 다릅니다. 1.5 버전 부터 사용자가 매개변수 이름 및 타입을 수정 가능한 기능을추가 예정 입니다.

[사용자 매개변수]

WEIGHT, PART_NO, FINISH  . . .  등은 매개변수 입니다.  매개변수 이름은 변경 가능 합니다.  매개변수 이름은 추가 할수 있습니다.  String, Real Number . . . . 등은 매개변수 타입입니다. 사용자가 선택 할 수 있습니다.

▶ 매개변수 타입 선택 기능 코드

Option Explicit
Private Sub Workbook_Open()

       '// Parameter Type Select
       
              Dim region As Variant
              Dim region_range As Range
               
              region = Array("String", "Real Number", "Integer", "Yes No")
               
              Dim oColumnscount As Long: oColumnscount = Cells(15, Columns.Count).End(xlToLeft).Column
              Set region_range = Range(Cells(14, 10), Cells(14, oColumnscount))
                  
                  With region_range.Validation
                   .Delete
                   .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(region, ",")
                   .IgnoreBlank = True
                   .InCellDropdown = True
                   .InputTitle = ""
                   .ErrorTitle = "Error"
                   .InputMessage = ""
                   .ErrorMessage = "Please Provide a Valid Input"
                   .ShowInput = True
                   .ShowError = True
                  End With

End Sub

매개변수 타입 선택 기능은 VBA 엑셀 파일을 OPEN 했을때 실행 하도록 합니다 (이벤트 발생)
현재_통합_문서 > Workbook > open을 선택하고 코드를 추가 합니다

PDF, DXF, 이미지 파일 저장 위치를 사용자가 지정 할수 있는 기능을 추가 합니다. 공유 폴더에 저장 하면, 다른 응용 프로그램, 다른 사용자가 활용 하는데 도움이 될것 입니다. 구글 드라이버, 드롭박스 등 클라우드에 저장 하면, 협업 작업 활용도가 향상 될수 있습니다. 

[ 파일 저장 위치 ]

■ Excel Export 기능

Part List에서 입력한 내용을 사용자가 정의한 양식의 별도의 엑셀 파일로 저장 할수 있습니다. 

 

■ Part 파일 정보 
.선택한 재질 파일을 모델에 지정 하는 기능을 추가 합니다.
.지정된 재질 파일을 이용하여 무계 계산을 합니다.
.매개변수 값을 넣을후 있습니다
.향후 다양한 기능을 추가 예정 입니다.
  - 사이즈 계산
  - 외부 데이터 Feature 존재 유/무
  - Drawing Template 파일을 활용한 자동 도면 생성 기능
  - 데이터 베이스 프로그램과 연계  

[ 재질 파일 선택 ]

재질 파일은 별도의 엑셀 Sheet에서 관리 합니다. 재질 파일 항목은 추가 가능 합니다. 
개인 적인 욕심은 ToolBOX VBA를 위한 서버를 구성하여, 재질 파일을 공유 하였으면 합니다.
NAS 장비 제공이 필요 합니다.

[ 재질 파일 관리 ]

■ 재질 선택 코드

Option Explicit
Private Sub Worksheet_Activate()

        Application.ScreenUpdating = False
                                       
        Dim lastRow As Long
        lastRow = Sheet4.Cells(Rows.Count, "A").End(xlUp).Row - 4 '// Names of material files in sheet4
 
        Dim region() As Variant
        ReDim region(0 To lastRow - 1) '// material Array
        
        Dim i As Long
        
        For i = 0 To lastRow - 1
        
             With Sheets(4).UsedRange
                
                region(i) = Worksheets(4).Cells(i + 5, "B")
         
             End With
        
        Next i
        
        Dim region_range As Range

        Set region_range = Range("F18")

        With region_range.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(region, ",")
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = "Error"
            .InputMessage = ""
            .ErrorMessage = "Please Provide a Valid Input"
            .ShowInput = True
            .ShowError = True
        End With

End Sub

 

프로그램 배포는 2023. 01 예정 입니다. 

by lionkk@idt21c.com