excel 엑셀

sub / end sub
if then else end if
for to next

/*변수*/
변수 선언 Dim 변수명 AS 문자열이면 String, 숫자면 Integer(=int)

/*내장함수*/
msgBox
Format()
ActiveWorkbook.FullName
ActiveWorkbook.Name
Application.UserName
set
Worksheets("Sheet1").Range("A3").Value = zzzzz
Worksheets(1).Select // 인덱스 번호
Sheet1.Range("A1").Value = "Hello" // 시스템상의 Sheet1
Sheets("Sheet1"). //시트명
Sheet1.Select //vba 코드명으로 워크시트 선택
ActiveSheet.Select //현재 워크시트
Cells(5,2) = 100 //행5 열2 선택
CurrentRegion


---


Function test() As String

test = ActiveWorkbook.FullName

End Function

Sub naming()

Worksheets(1).Range("A3").Value = "안녕하세요"
Sheets("검측요청서(시공사)").Range("A3").Value = "방가요"
Sheets(1).Range("A3").Value = "올"

End Sub

 

---

#엑셀 파일 열 때마다 데이터 갱신

 

 

Private Sub Workbook_Open()
    ' Workbook이 열릴 때 호출되는 이벤트 핸들러
    Dim result As String
    result = DynamicFunction()
    
    ' 결과를 메시지로 표시 (예제)
    Sheets(1).Range("A3").Value = result
    
End Sub

Function DynamicFunction() As String

   DynamicFunction = ThisWorkbook.Name

End Function