철엑셀 날짜를 시트이름에서 가져오기 매크로 관련 질문입니다.
첫번째 시트 이름이 1월 1일 ,두번째 시트 이름이 1월 2일 인 경우
첫번째 시트셀에 "01/01 실 시 사 항" 셀에 =getSheetName(A1) & " 실 시 사 항" 매크로 사용하여 잘 나옵니다.
문제는
첫번째 시트셀에서 "01/02 예 정 사 항" 이라는 항목인데... 셀에 =getSheetName(A1) & " 예 정 사 항" 매크로 함수를 어떻게 적용하면 될까요?
댓글 감사합니다.
참조한 visual basic입니다
Function getSheetName(anyCell As Range)
Application.Volatile
getSheetName = anyCell.Parent.Name
End Function
Function getSheetName2(anyCell As Range)
Dim ix As Integer, i As Integer, rtn As String, nxt As Boolean
Application.Volatile
ix = Worksheets.Count
nxt = False
For i = 1 To ix
If (nxt = True) And (rtn = "") Then
rtn = Sheets(i).Name
End If
If Sheets(i).Name = anyCell.Parent.Name Then
nxt = True
End If
Next
getSheetName2 = rtn
End Function
=getSheetName(Sheet2!A1) & " 예 정 사 항"
처럼 사용하셔야 합니다. 시트명을 생략하면 현재 활성인 시트가 사용됩니다.