본 글의 내용은 네이버 지식IN에 올려진 것을 그대로 옮겨왔다.

아래의 코드는 특정 셀에 입력된 내용을 '시트이름'으로 그대로 인용할 수 있는 코드다.

본 코드문에서의 특정 셀은 A2:A1100로 정하였으나 사용자의 의도에 따라 셀 범위를 변경가능하다.

주의할 점은 A2:A1100의 셀을 두번 클릭해야만 새로운 시트 생기면서 셀의 내용이 시트이름이 된다는 점이다.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Range("A2:A1100"), Target) Is Nothing Then
        On Error Resume Next
        Dim sh As Worksheet
        Dim shA As Worksheet
        If Target.Value = "" Then Exit Sub
        Set shA = ActiveSheet
        Set sh = Worksheets(CStr(Target.Value))
        If sh Is Nothing Then
            Set sh = Worksheets.Add(, Worksheets(Sheets.Count), 1)
            sh.Name = CStr(Target.Value)
        End If
        shA.Activate
        Cancel = True
    End If
End Sub

한때는 식은 죽기로 사용했던 함수인데, 하도 엑셀을 사용한 오래되서 가물가물하다.

요즘 손해평가사 활동을 하면서 한 동안 등한시 했던 엑셀을 다시 활용하기 시작했다.

현장 조사 후 계약자에게 조사결과를 설명해야 하는데, 그 결과값을 엑셀을 활용하여 산출하게 된다.  물론 관련 엑셀파일은 농재협에서 대부분 제공하여 준다.

하지만 농재협이 제공한 엑셀파일은 현장에서 사용하기에 약간 부족한 면이 있어 약간 수정할 필요가 있다.

오늘 그 일환으로 인터넷 검색을 통해서 얻은 정보를 내 입맛에 맞게 각색해 정리한다.

특정 셀의 값을 시트 이름으로 자동 설정되도록 하는 방법을 인터넷에서 찾았다.

VBA 코드는 다음과 같다.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Name = ActiveSheet.Range("A3").Value
End Sub

위 코드를 엑셀 비쥬얼 베이직 에디터('Alt + F11'키를 동시 누르면 됨)에 입력하는 방법은 아래 그림을 대체한다.

코드 입력 후 엑셀파일을 저장시 파일형식을 아래처럼 'Excel 매크로 사용 통합 문서'로 해야 한다.

이렇게 만든 엑셀 파일이 제대로 작동하는지 확인해 보자.

위 사진은 A3셀에 '홍길동'을 입력한 상태로서 엔터키를 누르기 전의 모습이다.

엔터키를 누르면~

위 사진에서 보는 것 처럼 Sheet1의 이름이 A3셀 값인 '홍길동'으로 변했다.

만약 A3셀이 아닌 다른 셀의 값을 시트이름으로 하고 싶다면, VBA코드의 값을 변경하면 된다.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Name = ActiveSheet.Range("A3").Value
End Sub

보리를 키우는 입장에서 볼 때, 사

진 속 강아지에게 너무 잔인한 모습인 거 같다.

저 욕구를 어떻게 다스리고 있을까....

믿고 먹는....아니지 그 맛에 내가 노예가 되어버린 식당!

돌고래순두부식당을 코로나 대유행 동안 가지 못했었다. 이제 좀 잠잠해졌기에 아내랑 오붓하게 다녀왔다. 간만의 부산 발걸음이라 남포동 일대를 누비면서 과거의 자유를 되새겨보기도 했다.

가게의 이름에서 짐작하듯 이곳 대표 메뉴는  순두부이다.

하지만 난 여태 내 입맛에 맞는 순두부 식당을 찾지 못했다. 대한민국에 순두부 맛집이야 없겠냐만....나는 순두부 자체를 좋아하지 않는다.

항상 이곳 돌고래순두부식당에서 내가 선택하는 메뉴는 낚지볶음이다.

밥에 비벼먹는 낚지볶음을 좋아하지만 반찬으로 놓여지는 것들이 나의 입맛을 돋아준다.

조미료 맛이 강하게 풍기는 김치, 어묵무침, 냉미역국 !!!!!

건강에 좋은 안좋은지에 대해서는 주문시점부터 식사완료때까지는 문제시 하지 않는다.

그저 내 입이 원하는 맛을 즐길 뿐이다.일년에 두어 번정도는 나 스스로에게 허락한다.

지난해 열공해서 취득한 손해평가사의 가치가 별로인거 같다.

일거리는 한정적이지만 매년 합격자가 새로이 진입하니 파이가 점점 작아진다. 실컷 공부해서 자격증 따고나니 약간 후회스럽니다. 전업으로 희망이 없는 자격증이다.

물론 애초에 여러 플랜을 감안하여 손해평가사 일을 하자고 했지만, 막상 시간이 흘러보니 작전 실수인거 같다. 우연히 알게된 행정사라는 자격증......과연 메리트 있을까.....

일단 1차 시험은 합격했으니, 2차 시험에만 집중하면 되는데,

2차가 서술형이라 오로지 암기 암기만이 유일한 해법이란다.

나이 50줄에 들어서니 외우는게 쉽지 않다.

더군다나 경쟁자들 중 많은 수가 생생한 젊은이들이다.

그들과 경쟁이 될까 싶다.

말그대로 시간이 약이었다.

원망스러웠고

역겨웠고

답답했고

미안했고

안타까웠고

안쓰러웠다.

TV를 한 동안 멀리 했었다.

어떻게 살아갈까...

고민했었다.

슬픔의 깊이는 얕아 졌지만

세상일에서 한 발짝 뒤로 물러서 있기로 했다.