그렇지 않습니까? 클래식한 디자인에 대한 향수 같은 게 느껴집니다.

노트북을 사도 좀 보수적으로 사용합니다. 2TB HDD 같은걸 달아야 된단 말입니다.

백업용 외장 하드를 달아서 노트북을 써야겠다는 그런 의무감이 들었습니다.

인터넷을 노트북을 구입하려는 연약한 1TB SSD 같은건 넘치지만 누구도 나의 이 HDD 감성을 만족시켜주지 않았습니다.

그런던 중 레노버 V15 G4 ABP 모델을 찾았습니다.

제품설명에 떡하고 HDD SATA Slot이 있더라고요. 정말 바로 구입했습니다.(최저가 검색도 안하고요)

후회는 없고 반품도 없습니다. 구입하자마자 Windows를 설치하고 바로 HDD를 부착했습니다.

노트북용 HDD는 2.5 인치라고 된 모델을 구입하면 됩니다.

교체 과정을 소개하겠습니다.

① 제품의 뒤를 열어 커버의 나사를 풀어 보세요.

주의할 점이 하나 있는데 9개소 다 5각 별 모양(☆) 렌치로 풀어야 합니다.

이거 때문에 회사에서 하나 빌려 왔는데요. 무리해서 딴걸로 못여니까 꼭 챙기세요.

전용나사만 있으면 됩니다.

② 카드 혹은 일자 드라이버로 후방 커버의 틈새를 벌여 줍니다.

자기가 손재주에 혹은 카드질에 자신있다 하면 카드로 될것도 같습니다.

근데 저는 안되더라고요. 그냥 구석에 있는 일자 드라이버를 사용했습니다.

다만, 드라이버로 열 경우 찌그러질 수 있습니다.

예, 사자마자 노트북 찌그러 먹었습니다. 아 나 ㅜㅜ

특히 렌선 꼽는 포트 옆을 조심해야합니다.

그쪽은 꼭 후크를 해제해서 후방 커버가 깨지는 경우가 없도록 합시다.

③ HDD 슬롯을 꺼냅니다.

자, 이제 커버를 열었습니다.

물론 현명한 당신은 근처에 물이라든가 애들이나 애완동물이 없도록 해서 작업을 할 것입니다.

하지만 이제부터 먼지가 들어갈 수 있음으로 더욱 조심해서 빠르게 작업합시다.

저 슬롯은 분해가 되도록 되어 있습니다.

4방향에 나사가 있고 이번에는 십자 드라이버를 이용해야 합니다.

④ HDD 슬롯에 HDD를 집어 넣고 조립을 합니다.

이 노트북을 구입했다면 사타 케이블이 별첨으로 들어있음을 확인하셔합니다.

있는게 정상입니다. 없다면 고객센터로 따지거나 사야합니다.

그리고 만족스럽게도 이 케이블은 나사 4개와 함께 있습니다.

HDD 슬롯 오른쪽과 왼쪽에 2개씩 4개를 조립하면 됩니다.

⑤ HDD 슬롯을 위에서 눌러서 조립을 합니다.

메인 보드 구석에 빈 커넥터가 있습니다.

그곳에 케이블을 연결하면 되는데 옆으로 눌러 넣는 스타일입니다.

이런 방식의 케이블을 똑딱하는 소리도 안들리고 살짝 끼워놓으면 되는 척을 할 때가 있습니다.

그래서 야무지게 잘 안쪽까지 눌러넣는 다는 기분으로 꾹하고 넣고 검은색 단추로 잠궈둡니다.

이거 대충 체결하면 쓰다가 빠질 수도 있거든요.

저 상태로 살짝 고무 테이프로 고정할 수도 있지만 능숙하지 않은 분들은 하지마세요.

⑥ 이제 다시 커버를 덮어 둡니다.

조립한 반대로 하면 되는데 커버를 먼저 쒸우고 모서리를 엄지로 툭툭 눌러 줍니다.

후크가 타닥타닥하고 걸리는 소리가 들립니다.

모서리 전체를 골고루 전부 눌러둡니다.

무작정 나사를 체워도 되기는 하지만 억지로 하다 부품이 틀어지면 보기도 싫고 손상 위험도 있습니다.

⑦ 이제 연결이 잘 되었는지 확인합니다.

HDD가 새거였기 때문에 바로 사용할 수는 없고 초기화를 시켜야 됩니다.

윈도우 10을 기준으로 할 때, [제어판] - [관리도구] - [컴퓨터 관리] - [저장소]에 가면 비활성화된 HDD를 만날 수 있습니다.

자동으로 인식해서 초기화를 먼저 시킵니다.

그리고 디스크 0이라고 쓰인부분(빨간 화살표)를 오른쪽 클릭해서 동적디스크로 전환합니다.

그 때부터는 우리가 평소에 쓰는 하드 디스크가 됩니다.

SSD가 약하다든가 작은 노트북이 신뢰성이 떨어진다는 이야기는 하지 않겠습니다.

개인적으로 HDD의 큰 용량이 필요한 것이고 그리고 그런 공간을 확보한 두꺼운 모델을 선호합니다.

그런 면에서 아직 구입한지 얼마 안된 것을 감안해도 하지만 정말 후회되지 않네요.

레노버 모델 진짜 마음에 듭니다.

엑셀에서는 워크스프레드 프로그램에 문서형식으로 작성하는 많은 기능이 있습니다.

그 중에 하나가 그림을 삽입하거나 도형을 그리는 기능입니다.

그런데 그림을 삽입해서 문서를 편집하다보면 그림이 변하는 것을 볼 수 있습니다.

주로 셀을 삽입하거나 삭제하는 기능에 따라서 이동하거나 커지거나 작아집니다.

이런 기능은 문서의 편집과 함께 하는 것이라 보통은 좋은 기능입니다.

하지만 항상 편한건 아닙니다.

원하지 않을 때를 대비한 도형 속성을 변경해서 크기와 위치를 고정하는 기능을 소개합니다.

도형을 여러개 동시에 선택해서 할 수도 있지만, 기본적으로는 매번 설정해주어야 합니다.

[오른쪽 클릭] - [도형서식] - [도형 서식 / 개체 서식] - [도형 옵션] - [크기 및 속성] - [변하지 않음]을 선택합니다.

위치만 변함을 선택하면 크기는 변하지 않고 위치는 변합니다.

일단 이렇게 잠그고 나면 도형의 위치는 고정됩니다.

이게 좀 불편하게 일일히 설정해야 하는 것이 있습니다.

하지만 문서에 일괄적으로 들어가는 회사로그 같은 것에는 설정을 해둘 수도 있겠죠.

엑셀에서 좀 디폴트 옵션을 변하게 하는 시대가 빨리 왔으면 좋겠습니다.

엑셀 VBA를 작성하다보면 이 결과물이 어디에 쓰일지 다 예상 못할 수도 있습니다.

중요한 것은 DATA의 수와 끝을 파악하는 것이고요.

VAB에서 많이 사용하는 내용의 끝을 파악하는 방법에 대해서 알아 보겠습니다.

※ 엑셀 인터페이스에서 쓰는 Find 함수와 VBA에서 사용하는 Find 매소드는 별개임을 알려드립니다.

① B 행에서 내용이 있는 마지막 셀 찾기

find를 사용할 껀데 먼저 코드를 보도록 하겠습니다.

Sub FindLastColumn()

    Dim ws As Worksheet
    Dim lastCell As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet5")
    
    'find를 사용해서 마지막 값을 찾음
    Set lastCell = ws.Columns("B").Find(What:="*", _
                                        After:=ws.Range("B1"), _
                                        LookIn:=xlFormulas, _
                                        LookAt:=xlPart, _
                                        SearchOrder:=xlByRows, _
                                        SearchDirection:=xlPrevious)
    
    If Not lastCell Is Nothing Then
        MsgBox "B행의 마지막 데이터는 " & lastCell.Address & "에 있습니다."
    Else
        MsgBox "B행에 데이터가 없습니다."
    End If
End Sub

Find의 사용법은 위 코드를 보면 알 수 있고 각 매개변수에 대해서 설명하겠습니다.

• What : 찾을 값으로 * 을 사용하였음으로 "모든 값"을 검색합니다.
• After : 검색을 시작할 위치입니다. 여기서 부터라고 보면 됩니다.
• LookIn : 검색할 기준입니다. 이 경우에는 수식으로 검색하는 것이 좋습니다.
      - xlFormulas : 수식을 기준으로 검색하는데 수식의 결과가 아닌, 수식 자체를 검색합니다. 
      - xlValues : 값을 검색합니다. 이 경우에는 수식의 결과를 기준으로 검색합니다.
      - xlComments : 셀에 추가된 주석을 검색합니다.
      - xlCommentsThreaded : Threaded Comments라는 Office365 버전부터 추가된 새로운 주석을 검색합니다.
• LookAt : (xlPart : 부분일치), (xlWhole : 전체일치)중 하나를 선택합니다.
• SearchOrder : 검색하는 영역입니다. (xlByRows : 행 기준), (xlByColumns : 열기준)
• SearchDirection : 검색하는 방향입니다. (xlNext : 앞에서 뒤로), (xlPrevious : 뒤에서 앞으로)
• (MatchCase) : 검색할 때 대소문자를 구별할지 선택합니다. 디폴트는 False(구별 안함)입니다.
• (MatchByte) : 더블 바이트 언어를 설치했을 때 사용합니다.
      - True : 더블 바이트 문자가 정확하게 더블 바이트와 일치할 경우만 검색
      - False : 더블 바이트 문자가 싱글 바이트와 일치해도 검색함
• (SearchFormat) : 검색 형식입니다.

즉 위의 코드는 ws.Columns("B") 로 범위를 제한해서,

B1부터 시작하여 해당 행(xlByRows)에서 뒤에서 앞으로(xlPrevious) 검색하여 처음 만나는 값의 위치를 찾습니다.

② 셀에서 마지막 범위 찾기

거의 같습니다. 똑같이 Find를 사용합니다.

Sub FindLastCell()
    Dim ws As Worksheet
    Dim lastCell As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet5")
    
    ' 마지막 데이터를 찾음
    Set lastCell = ws.Cells.Find(What:="*", _
                                 After:=ws.Cells(1, 1), _
                                 LookIn:=xlFormulas, _
                                 LookAt:=xlPart, _
                                 SearchOrder:=xlByRows, _
                                 SearchDirection:=xlPrevious)
    
    If Not lastCell Is Nothing Then
        MsgBox "워크시트의 마지막 데이터는 " & lastCell.Address & "에 있습니다."
    Else
        MsgBox "워크시트에 데이터가 없습니다."
    End If
End Sub

처음나온 코드에서 범위를 행으로 제한했던 ws.Columns("B")를 전체 대상의 ws.Cells로 변경한 것입니다.

SearchOrder는 "xlByRows"로 하면 가장 아래 값을 끝으로 "xlByColumns"를 하면 가장 오른쪽에 있는 셀을 선택합니다.

③ 처음부터 끝까지 선택하기

이제 응용편입니다.

끝의 셀을 선택한다면 처음셀로 찾을 수 있죠.

두 셀을 찾아서 전체 선택을 하는 코드입니다.

이 것 역시 간간히 쓰는데, 그때그때 작성하려니 실수가 많아 오늘 기회로 정리합니다.

Sub SelectallContentCell()
    Dim ws As Worksheet
    Dim firstCell As Range
    Dim dataRange As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet5")
    
    ' 처음 셀 찾기
    Set firstCell = ws.Cells.Find(What:="*", _
                                  After:=ws.Cells(1, 1), _
                                  LookIn:=xlFormulas, _
                                  LookAt:=xlPart, _
                                  SearchOrder:=xlByRows, _
                                  SearchDirection:=xlNext)
    
    ' 마지막 셀 찾기
    Set lastCell = ws.Cells.Find(What:="*", _
                                 After:=ws.Cells(1, 1), _
                                 LookIn:=xlFormulas, _
                                 LookAt:=xlPart, _
                                 SearchOrder:=xlByRows, _
                                 SearchDirection:=xlPrevious)
            
        Set dataRange = ws.Range(firstCell, lastCell)
        dataRange.Select
    
    If Not firstCell Is Nothing Then
        MsgBox "선택된 범위는 " & dataRange.Address
    Else
        MsgBox "워크시트에 데이터가 없습니다."
    End If
End Sub

결과입니다.

셀도 선택을 잘하고 매세지도 잘 출력됩니다.

< 목차 >

1. 끝으로 이동하기

2. 끝까지 선택하기

많은 데이터가 있는 표를 위에서 작업하다 보면 처음과 마지막으로 이동할 일이 많습니다.

엑셀에서는 그럴 때 사용하도록 Ctrl + 방향키(←,→,↑,↓)를 눌러서 끝에서 끝까지 이동할 수 있습니다.

무슨 게임하는 것 같아서 처음에는 익숙해지지 않았을 때는 마우스에 많이 의존하지만,

일단 적응되면 손에서 놓을 수가 없습니다.

1. 끝으로 이동하기

VBA에서도 이 기능을 수행하는 명령어가 있습니다.

• xlDown : 시작 위치에서 아래방향으로 데이터가 끝나는 셀로 바로 이동합니다. 
• xlUp  : 시작 위치에서 위 방향으로 데이터가 끝나는 셀로 바로 이동합니다. 
• xltoRight : 시작 위치에서 오른쪽 방향으로 데이터가 끝나는 셀로 바로 이동합니다. 
• xltoLeft  : 시작 위치에서 왼쪽 방향으로 데이터가 끝나는 셀로 바로 이동합니다. 
• 시작 위치가 데이터가 없는 빈 셀일 경우에는 반대로 처음 데이터가 있는 셀로 이동합니다.
• 빈 셀인 경우 그 방향에 데이터가 하나도 없으면 끝까지 이동합니다.

사용하는 방법은 아래와 같습니다.

간단함으로 모두 묶어서 하나의 소스에 담아서 설명하겠습니다.

Sub MoveCell()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ws.Range("B28").End(xlDown).Select '아래 방향으로
    ws.Range("B28").End(xlUp).Select '위 방향으로
    ws.Range("B28").End(xltoRight).Select '오른쪽 방향
    ws.Range("B28").End(xltoLeft).Select '왼쪽 방향으로

End Sub

보시면 이해될 것이라고 생각합니다.

셀 B28 에서 아래, 위, 오른쪽, 왼쪽으로 이동하는 소스입니다.

2. 끝까지 선택하기

위에 처럼 이동하는 것으로도 편리하지만 전체 선택하기라는 편리한 기능도 있습니다.

일반 엑셀 인터페이스에서는 Ctrl + Shift + 방향키(←,→,↑,↓) 입니다.

이 기능을 수행하는 코드도 설명 드리겠습니다.

소스로 따지면 약간 길어지는 합니다.

하지만 어렵지는 않으니 사용해 보면 바로 알 수 있을 것 같습니다.

Sub SelectRange()

    Dim ws As Worksheet
    Dim dataRange As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' A1부터 아래 방향으로 데이터가 있는 마지막 셀까지 범위 선택
    Set dataRange = ws.Range("A1", ws.Range("A1").End(xlDown))
    dataRange.Select

    ' A1부터 오른쪽 방향으로 데이터가 있는 마지막 셀까지 범위 선택
    Set dataRange = ws.Range("A1", ws.Range("A1").End(xlToRight))
    dataRange.Select

    ' A1에서 시작해 데이터가 있는 끝까지 범위를 설정
    Set dataRange = ws.Range("A1", ws.Range("A1").End(xlToRight).End(xlDown))
    dataRange.Select
    
End Sub

굉장히 자주 사용하는 코드로 사용자가 입력해서 계속 길어지는 엑셀에 VBA를 적용할 때 사용하기도 합니다.

잘 사용하면 순환문 하나 정도 뺄 수도 있게 만드는 편리한 코드입니다.

저도 이렇게 포스팅 해놓고 수시로 보러고 작성하는 것이랍니다.

보시는 분께도 참고가 되었으면 좋겠습니다.

https://youtu.be/LzJxL-e90yE

더 메신저는 통합 플렛폼 게임으로 중간의 지하세계까지는 스토리가 연결됩니다.

그 이후에는 맵이 오픈되면서 돌아다니면서 아이템을 찾는 방식입니다.

예언을 통해서 힌트를 알 수 있어 직접 찾아 보셔도 됩니다.

앤딩을 보기 위한 필수 아이템에 대해서 정리해 봤습니다.

보스룸 있는 곳 지도 스샷이 날아갔는데요 ㅜㅜ 여기는 한번 가보셨으니 갈 수 있을 거라 생각합니다.

① 희망의 열쇠(붉은 언덕)

지하세계 이 후에는 맵을 자유롭게 돌아다닐 수 있습니다.

그럼 바로 붉은 언덕에서 희망의 열쇠를 얻을 수 있습니다.

바로 맵에 이 장소로 이동하면 얻을 수 있고 아이템이 필요하지는 않습니다.

② 힘의 열쇠(가파른 돌산)

먼저 가파른 돌산에 꼭대기의 보스맵에 2번 방문해야 합니다.

미래의 용사의 모습 미래로 방문해서 식물학자들이 늙어 죽었지만 힘의 엉겅퀴를 얻어야 합니다.

식물이 있는 상태에서 다시 과거 상태로 방문하면 이벤트를 할 수 있습니다.

그럼 접근 못하는 지역으로 날려주는데 이 곳에서 힘의 열쇠를 얻을 수 있습니다.

③ 진정한 시야의 힘

다음 열쇠를 얻기 위해서는 이것저것 모을게 많습니다.

시간을 과거로 하고 "닌자 마을"의 장로에게 돌아가면 천상의 씨앗을 줍니다.

이걸 다시 과거 상태에서 "가파른 돌산"에서 꼭대기의 보스룸에 들어갑니다.

(위에 있는 저곳입니다.)

가파른 돌산의 보스맵에 다시 2번 방문해야 합니다.

이번에는 먼저 과거 상태로 가서 화단을 선택하면 콜로스와 수제스가 씨앗을 심을 수 있게 해줍니다.

그런 후 미래로 시간을 바꿔서 다시 돌아가면 천상의 찻잎을 얻습니다.

다시 시계를 과거로 돌려서 "닌자 마을"의 장로에게 다시 돌아가면 진정한 시야의 힘을 얻을 수 있습니다.

(사실은 양초)

④ 강령술사의 메모 + 룩스틱의 부적

미래시대에서 지하묘지의 보스룸에 들어갑니다.

그럼 편지를 발견할 수 있고 부적을 얻을 수 있습니다.

이 부적을 얻으면 구름유적에도 갈 수 있지만 일단 지금은 편지에 있는 지하로 가겠습니다.

미래시대에서 강령술사가 알려준 곳으로 가면 동굴로 들어갈 수 있습니다.

위에 그림에 있는 장소로 이동하면 비밀 장소에 갈 수 있습니다.

미래상태로 가야 합니다.

⑤ 어두운 동굴

필요한것 : 진정한 시야의 힘

이미 위에서 얻은 상태인 데다가 시야가 없는 상태에서 외워서 이 맵을 지나가면 업적이 깨집니다.

진정한 시야의 힘이 없으면 완전히 어두워 보이고 있으면 그래도 주변이 어느정도는 보입니다.

끝까지 가면 Rivière Turquoise로 이어집니다.

⑥ 마법의 반딧불이(Rivière Turquoise 보상)

이 곳의 퍼즐이 쉽지는 않습니다.

Rivière Turquoise의 끝까지 가면 맵의 보스 나비 여족장을 상대하게됩니다.

보스 보상으로 마법의 반딧불이를 얻을 수 있습니다.

⑦ 마법의 소라고둥(가시버섯 늪지)

가시버섯 늪지지역에 시대를 과거로 하고 가야 합니다.
위의 맵에 있는 모래늪에 빠져야 합니다.
그럼 아래 퍼즐형 맵이있는데 뚫고 지나가면 마법의 소라고둥을 얻을 수 있습니다.

⑧ 숲의 수도승(가시버섯 늪지)

필요한 것 : 마법의 반딧불이

이번에는 쉽습니다. 과거시대로 방문해야 하는 점만 주의하면 됩니다.

가시버섯 늪지에서 보스룸으로 가면 자동으로 이벤트가 진행됩니다.

⑨ 침몰한 사원

필요한 것 : 마법의 소라고둥, 마법의 반딧불이

울부짓는 동굴에서 아래 맵으로 가야 하고 과거시대로 들어가야 합니다.

맵에서 진행하다 보면 미래로 변경되게 됩니다.

물속에서는 마법의 소라고둥의 힘으로 입구 가까히에 가면 빛나는 가루 같은게 나와서 길을 알려줍니다.

한참 가다보면 침몰한 유적에 도착합니다.

침몰한 유적은 입구에서 둘로 나누어 들어가도록 되어있습니다.

둘 다 돌아야 하며 신속의 버선 / 달의 문장 / 태양의 문장 세가지 아이템을 얻을 수 있는데 위치만 표시합니다.

마법의 반딧불이가 없다면 신속의 버선만 보이고 문장은 안보입니다.

⑩ 사랑의 열쇠(침몰한 사원)

이제 태양과 달의 문장을 얻을 수 있습니다.

유적의 중앙의 큰 문으로 돌아가면 문을 열수 있고 이벤트 직후 바로 사랑의 열쇠를 얻을 수 있습니다.

⑪ 혼돈의 열쇠(지하세계)

필요한 것 : 신속의 버선
지하세계에 있는 곳으로 가면 혼돈의 열쇠를 얻을 수 있습니다.
신속의 버선이 좀 사용하기는 어렵지만 있는 곳까지 가기만 하면됩니다.

⑫ 공생의 열쇠(자연의 하늘섬)

필요한 것 : 수도승의 저주 풀기

빙하산에 가면 맨프래드가 얼음 속에 있습니다.

수도승이 여기로 가는 길을 열어줍니다.

맨프래드는 구해주면 자연의 하늘섬으로 데려가 줍니다.

이곳에서는 비행기 게임을 하는 느낌을 받는 맵입니다.

자연의 하늘섬에서 쭉 가면 시계태엽 수호자와 보스전을 하게됩니다.

이 보스전 보상이 공생의 열쇠입니다.

⑬ 포비킨들 → 폴로른 사원

필요한 아이템 : 대나무 만 : 필요조건 없음, 구름유적 : 룩스턴의 부적 필요, 지하세계 : 신속의 버선 필요

대나무 만, 구름유적, 지하세계의 각 한마리씩 포비킨을 찾을 수 있습니다.

먼저 구름 유적입니다.

룩스턴의 부적이 있는 상태에서 빙하산 꼭대기로 가면 지팡이가 구름유적으로 가줍니다.

구름유적에서 아래 위치로 가면 포비킨 일꾼인 아크로를 찾을 수 있습니다.

클로스트로는 대나무 만에 있는데 아마 이녀석을 가장 먼저 발견할 확율이 높습니다.

파이로는 침몰한 사원에 있는데 웨이포인트 바로 옆이라서 어렵지 않게 갈 수 있습니다.

다만 신속한 버선이 필요합니다.

열쇠를 찾는 길에 찾을 수도 있습니다.(예를 들면 파이로)

다른 거 하다 짬짬히 미리 찾아두면 편리하기는 합니다.

⑭ 마왕의 왕관

필요한 것 : 포비킨 전원

초반의 다리 위치 기억나시나요?

이제 건너면 폴로른 사원으로 갈 수 있습니다.

폴로른 사원의 보스가 바로 마왕입니다.

이 마왕을 물리치면 마왕의 왕관을 줍니다.

열쇠를 바로 안주고 아이템으로 줍니다.

⑮ 용기의 열쇠(심연)

필요한 것 : 마왕의 왕관

시간의 탑의 기술자 앞에 왕관을 넣으면 심연으로 들어갈 수 있습니다.
심연의 끝에 열쇠가 있는데 열쇠는 그냥 따로 시련없이 먹어집니다.

문제는 열쇠를 얻고 나면 괴물에게 도망쳐야 하는데 이게 어렵습니다.

추격전에서 살아남으면 무사히 모든 열쇠를 전부 얻게 됩니다.

이제 예언자에게 가면 모든 반전과 함께 앤딩으로 나아갈 준비를 합니다.

정말 얻을게 많네요.

여기까지 즐겁게 플레이 하시길 바랍니다.

< 소개 영상 >

https://youtu.be/3Qt4ZdmJwvA

< 게임개요 >

더 메신저는 2018년 캐나다의 사보타주 스튜디오에서 출시하고,

원래는 영화 배급사인 미국의 디볼버 디지털에서 유통을 맡아 진행했습니다.

닌자의 달리고 뛰어서 위험한 곳으로 잠입하는 이미지를 사용해서 닌자 액션게임으로 만들어졌습니다.

도트그래픽을 연상하는 폭고풍의 2D 게임으로 다양한 장르를 섞어둔 플랫폼 게임으로 제작되었습니다.

단순한 만큼 요구사양도 충분히 낮아서 어지간한 경우에는 쾌적하게 플레이 할 수 있습니다.

< 스토리 >

수 세기 전 마족의 습격으로 인류는 얼마 남지 않았고,

그 와중에 잘 숨어있던 닌자마을에 갑자기 악마군단이 몰려오고 서국의 용사가 늦게나마 악마들을 퇴치합니다.

그는 중요한 임무라면서 주인공에게 두루마리를 하나 맡기고 배달을 부탁합니다. 

전령(매신저)으로 선택받은 주인공은 악마들이 우글거리는 곳에서 위험한 곳을 지나 세상을 구할 배달임무를 시작합니다.

단순한 배달인 줄 알았던 전령에게는 생각보다 다양한 일이 주어지게 되고 이 주인공의 모험이 스토리 라인입니다.

< 게임의 진행 방식 >

크기가 제각각인 방의 입구와 출구가 있고 진행방향에 맞추어 앞으로 나아갑니다.

이 때 적들이나 다양한 함정이 길을 막아서기 때문에 매번 퍼즐을 풀듯이 방법을 찾아야 합니다.

세이브 포인트가 꽤나 자주있고 밟으면 자동으로 저장됩니다.

죽으면 가장 최근의 세이브 포인트로 이동하면서 한동안 큐라블이라는 악마가 따라다니면서 자원을 대신 획득합니다.

게임에 큰 재능 있지 않은 이상은 상당히 자주 만나야 하는 악마라 하는 대사도 다양합니다.

하지만 역시 계속 듣다보면 질리게 되더라고요.

< 액션과 조작 >

조작과 움직임이 복잡하지는 않고 주인공은 공격하거나 점프하고 수리검을 던집니다.

기본 움직임에 더해서 뜬 상태에서 물건을 때리면 공중도약을 할 수도 있는데 이 스킬이 많은 퍼즐에 응용 됩니다.

게임을 진행하면서 벽에 매달리거나 갈고리를 사용할 수도 있는데 아이템이 다양하지는 않지만 조합하면 복잡해집니다.

도트 그래픽처럼 보이지만 판정이 엄격하고 정교한 조작이 필요합니다.

맵의 구성이 꼼꼼하게 디자인 되어 얼핏 불가능해 보이는 구간도 조작을 통해 통과하면서 성취감을 느낄 수 있습니다.

< 수집품 > 

수집 컨탠츠로 힘의 봉인을 제공하는데 이 봉인이 45개나 되는데다가,

하나당 최소 1개의 전용 맵이 존재하며 어려운 퍼즐을 풀어야 합니다.

모두 힘의 봉인이 있는 곳까지 가면 되는 이동형 퍼즐이고 한번 성공하면 자동저장하며 일부는 숏컷도 제공합니다.
이 힘의 봉인을 수집하는 퍼즐들이 게임의 진수라고 할 수 있는 만큼 잘 디자인되어 있어,

모두 모아볼 것을 추천하지만 보상인 풍차 수리검이 그다지 좋지도 않고,

스토리랑은 완전 별개로 진행됨으로 스트레스를 느낀다면 스토리만 진행하셔도 패널티는 없습니다.

< 비판 >

난이도가 꽤 어려워 조작이 정확해야 합니다. 난이도 자체는 게임의 특성이라고 치지만 조작이 어려웠습니다.

2단 점프가 없는 상황에서 점프액션으로 먼거리를 이동하는 기믹의 퍼즐이 상당히 많습니다.

그런데 점프키를 한번 누르고 땐 후에 다시 눌러야 활강하게 되는데 두 번 누르는 이 동작이 상당히 부담이였습니다.

활강 키를 주던가 아니면 누르고 있으면 자동으로 고점에서 활강이 발동되도록 했으면 좋았을 것입니다.

물론 여기는 난이도랑 관련된 부분이기는 하지만 그래도 조작이 부당하게 어렵다는 느낌을 받았습니다.

< 총평 >

어렵습니다. 조작에 익숙하지 않는다면 난이도가 불가능에 가깝습니다.
근성으로 힘의 봉인 45개를 모두 모았지만 확장팩인 소풍소란은 포기했습니다.

게임의 디자인과 경쾌한 분위기는 좋았고 특히 상점의 상인과 나누는 만담을 무척 즐거웠습니다.

전투면에서도 중간중간 다양한 보스들과의 전투도 준비되어 있어 질리지 않는 복잡한 구성을 가지고 있습니다.

그러나 플레이를 하실꺼라면 최소한 어려운 조작을 할 수 있는 손가락과 하드한 플레이를 즐기는 맨탈이 모두 필요합니다.

이 모든게 준비되어 있으시다면 이 게임에 한번 도전해 보세요.

< 전화로 취소하기 >

TV를 보지 않습는다. 이사하면 수신료를 취소하기는 것을 먼저하는데요

이번에는 인터넷을 사용해서 했습니다.

하지만 한달이 넘도록 문의가 접수상태로 방치 되어 결국은 전화를 또하게 하네요.

"1588-1801" 로 전화하면 되는데 당연하다 할까 요즘에는 받는게 느려져 5분 정도 기다렸네요.

주소를 불러주고 취소를 접수했습니다.

몇일뒤에 전화가 와서 아래 내용을 확인했습니다.

예전에는 한방에 취소가 되었는데 요즘에는 절차가 늘었네요

① 미소지 확인서를 씁니다.

② 집에 TV가 없다는 사진을 두장 이상 각도별로 찍어서 보냅니다.

  사진은 다시 찍어오라고 하는 경우도 많습니다.

③ 인터넷 상세 내역서를 보냅니다.(KT에서 찾아서 보냈네요)

④ 모니터가 있는 경우 모니터 모델명도 찍어서 보내야 합니다.

자주하던 일인데 절차가 늘어서 번거로웠습니다.

아래는 인터넷으로 신청하는 방법입니다.

하지만 그냥 전화로 하는것이 빠른 것 같습니다.

< 인터넷으로 해지하기 >

① KBS에 들어가기서 로그인하기

KBS의 주소는 http://www.kbs.co.kr 입니다.

이곳으로 들어가 로그인을 해야 하는데 수신료 관련 업무를 보려면 SNS 아이디로 간편로그인하면 안됩니다.

꼭 "직접 가입하고 로그인" 해야 합니다.

수신료 취소를 위해서 처음으로 가입해서 로그인했네요.

② 수신료 홈페이지에 들어갑니다.

로그인을 한 후에 우 상단에 "수신료" 매뉴를 통해서 수신료 페이지로 들어갑니다.

③ 민원 신청 매뉴로 들어갑니다.

매뉴에서 [수신료 관련 1:1 민원 신청] - [TV신규등록/TV말소(미소지 등)]을 차례로 클릭해 주면 됩니다.

④ TV 등록 말소를 하는 매뉴에 접근합니다.

TV 등록 말소를 신고하려 하면 TV 수상기가 있으면 추징금을 거둔다고 합니다.

특정 물건은 나라에서 준게 아니면 없는게 당연한데 있는 걸 증명하는 것도 아니고 없는걸 증명해야 하다니 ...

회사에서 대부분을 보내는 저는 TV를 살 돈도 아깝고 볼 시간도 아깝습니다.

다행히 꼭 증명이 필요한 건아니니 살짝 투덜거리고 지나가도록합니다.

⑤ 여기서 잠깐, 전기 고객번호 나 수신료 관리번호가 필요하다고 합니다.

집에 지로가 날아오시는 분들은 전기세나 TV 수신료 고지서에 필요하다고 합니다.

저는 인터넷으로 처리하는데 어딜 찾아봐도 없더군요. 그래서 한전에 들어갔습니다.

한전 홈페이지에서 또 가입하고 매뉴이 [마이] - [고객번호 등록/조회] - [아파트 세대계약번호]에서 확인할 수 있었습니다.

⑥ 다시 KBS로 돌아가서 신고서를 작성하고 신고합니다.

다시 신고를 했습니다.

시청자 상담실에서 기계적으로 메크로 답변이 온 것으로 보니 그리접수가 된 모양입니다.

⑦ 진행이 안되는 것을 확인하고 전화로 신청한다.

안되면 뭔 이유인지 알려줘야 알 꺼 아닙니까?

한달을 기다렸지만 뭔가 처리가 안되고 수신료는 또 신청되었습니다.

취소 접수를 인터넷으로 받는건 낙시입니까 뭐가 잘못되었으면 연락이라도 와야지.

여튼 전화로 다시해서 처리했습니다.

조금 취소하다보니 짜증났습니다.

아니 지들이 TV 사라고 돈은 준것도 아니고 가난해서 뭐라도 아낄라고 보니까,

새벽부터 저녁까지 일하느라 TV 볼 시간도 없어 안사는건데,

TV가 있는 걸 증명하라면 모르겠는데 없는걸 증명하라니 무슨 갑질도 이런 갑질이있는지,

더러워서라도 TV는 안살껍니다.

엑셀의 내용은 행과 열의 표로 이루어져 있습니다.

하지만 그 안에도 "표 - Table"라는 영역을 다시 만들 수 있다는 것을 알고 계신가요?

자동서식을 사용할 수도 있고 표 전체에 대한 필터 기능도 사용할 수 있습니다.

이 필터를 슬라이서라고하는데 빠르고 편리합니다. 장점을 좀 알아보면,

• 직관적이고 사용하기가 쉽습니다.
• 필터 기능임에도 한 문서에 서로 다른 범위를 표로 지정해 여러개 설치할 수 있습니다.
• 슬라이서를 만든 후에 표를 편집하면 슬라이서에도 자동으로 반영됩니다.

슬라이서를 만들고 사용하는 것에 대해서 알아보겠습니다.

① 범위를 먼저 표로 만들기

범위를 지정하고 상단매뉴의 [홈] - [스타일] - [표서식]을 찾습니다.

의무적으로 표서식을 넣어야 하지만 저는 지금에 표의 스타일을 변경하기 싫습니다.

그래서 "표 스타일 새로 만들기"를 선택하고 아무것도 하지 않고 확인을 누릅니다.

그럼 사용자 지정 - 표 스타일1이 생기게 되고 선택하면 표로 만들 범위를 물어봅니다.

선택한 영역이 "표 만들기"에 들어가 있으니 이상이 없으면 확인을 눌러서 표로 만들면 됩니다.

② 슬라이서 삽입하기

이제 지정한 범위가 "표 - Tabel"이 되었습니다.

여기에 커서를 올려두면 상당 매뉴에 테이블 디자인이 활성화 됩니다.

이 항목 안에 [테이블 디자인] - [외부 표 데이터] - [슬라이서 삽입]을 선택하면 됩니다.

③ 슬라이서를 설정합니다.

"슬라이서 삽입 버튼"을 클릭하면 머리말을 고르는 매뉴가 활성화 됩니다.

"시도별"을 골라서 활성화 시켰더니 그에 맞는 슬라이더가 생성되었습니다.

④ 슬라이서를 사용해 봅시다.

이제 드디어 오늘의 목적인 슬라이서를 사용할 차례입니다.

슬라이서는 필터처럼 사용할 수 있습니다.

그리고 Ctrl 키를 이용해서 여러개를 선택할 수도 있고 두개의 슬라이서를 적용할 수도 있습니다.

아래 GIF - 움짤을 보면 사용법을 알 수 있을 거라 생각합니다.

자주 사용하는 파일에는 이것만큼 편리한 필터기능이 잘 없습니다.

엑셀으로 많은 데이터를 처리하시는 분들에게는 슬라이서 기능에 익숙해 지실 것을 추천합니다.

엑셀에서는 행과 열을 나누어 데이터를 표로 만드는데 특화된 스프레드 워크시트를 제공합니다.

이 시트를 한 파일에 255개까지 제공함으로 데이터 작성에 폭이 넓어 집니다.

아직 한번도 이걸 다 채워보지는 못했지만 40~50개 정도의 시트를 사용한 적은 있습니다.

그럼 하단의 워크시트 목록을 좌로 우로 움직이면서 필요한 시트를 한참 찾았던 기억이 있습니다.

정말 찾기 어렵더라고요.

아직 엑셀에서 명료하고 편리한 검색기능은 지원하고 있지 않습니다.

다만 그래도 조금은 편한 방법을 소개해 봅니다.

① 활성화 매뉴 불러서 이동하기

하단의 시트 목록 좌측에서는 "<  >" 처럼 생긴 화살표가 있습니다.

처음에는 비활성화 되어 있다가, 시트의 수가 한눈에 볼수 없을 만큼 길어지면 활성화 됩니다.

그리고 활성화 시킨 상태에서는 오른쪽 클릭하면 시트를 목록으로 볼 수 있습니다.

원하는 시트를 더블클릭하면 바로 이동할 수 있습니다.

정말 시트가 많을 때 이 기능으로 충분합니다.

② 하이퍼링크 사용하기

셀을 클릭하고 오른쪽 클릭을 해도되고 [상단매뉴] - [삽입] - [링크]를 클리하여 하이퍼 링크를 설정할 수 있습니다. 

여기서 "현재 문서"를 선택하여 시트 명을 누릅니다.

하이퍼링크 만들기로 시트리스트에 참조를 걸어두면 편리하게 사용할 수 있습니다.

시트가 수십개인 대형 엑셀파일을 아무리 쉽게 생각해도 간단하게 만든 것은 아닐 껍니다.

처음부터 천천히 이 표를 만들어 둔다면 만드는데 무리가 아닐껍니다.

③ 시트 함수 활용하기

이건 정확하게 이동하거나하는 건 아니고 시트를 관리하기 위해사용하는 함수입니다.

참고용이라고 보면 되겠네요.

office365 이상의 최신번전에서 동작합니다. 

Sheets() : 이 문서의 시트 총 갯수를 반환합니다. 여러명이 작성한 문서라 시트 수가 명확하지 않을 때 좋습니다.

Sheet([value - refer]) : 이 함수가 참조하고 있는 셀에 시트 번호를 호출합니다. 시트 번호는 매크로를 작성할 때 사용하면 편리한 값으로 VBA를 쓰는 경우 추천합니다.

엑셀을 사용해서 파일정리를 하고는 합니다.

사실 인터넷을 검색하면 저보다 잘 만드는 분이 많고 배포한 것도 있으니 그 프로그램을 사용하면 대부분 해결됩니다.

대량의 파일을 취급하다 보면 나만의 상황을 만나기 쉽고, 그럴 때를 위해 사용하는 이름 불러오기를 소개합니다.

저는 특히 폴더 안의 폴더 안의 폴더의 파일도 뽑아야 하는 경우가 있어요.

< 예제 파일 >

예제 파일을 먼저드립니다.

경로명 옆에 폴더 이름을 적고 실행 버튼을 누르기만 하면 되기 때문에 사용은 쉬울 것 같습니다.

< VBA 소스 코드 >

VBA는 File과 Folder를 호출하면 거의 필요한 대부분의 정보를 Windows에서 받아옵니다.

그래서 코드의 구조는 간단합니다.

Sub All_File_List()

    ' 폴더 경로를 지정합니다.
    Dim folderPath As String
    Dim ws As Worksheet
    Dim nextRow As Long
        
    folderPath = ThisWorkbook.Sheets(1).Cells(2, 3).Value '① 경로명을 불러옵니다.
    Set ws = ThisWorkbook.Sheets(1) '② 데이터를 넣을 시트를 지정합니다.
    
    '③ 먼저 실행한 이름들을 다 지워줍니다 + 필요한 내용을 입력합니다.
    
    ThisWorkbook.Sheets(1).Range("C5", Range("E5").End(xlDown)).Select
    Selection.Clear
    
    ThisWorkbook.Sheets(1).Range("C5") = "경로명"
    ThisWorkbook.Sheets(1).Range("D5") = "파일이름"
    ThisWorkbook.Sheets(1).Range("E5") = "용량"
    
    nextRow = 1
    
    '④ 이름을 불러오는 함수를 호출합니다.
    Call ListFiles(folderPath, ws, nextRow)

End Sub

Sub ListFiles(folderPath As String, ws As Worksheet, ByRef nextRow As Long)

    Dim folder As Object
    Dim file As Object
    Dim FSO As Object
    
    '⑤ FSO에 파일 시스템 객체를 불러내고 변수명 Folder에 정보를 입력합니다.
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set folder = FSO.GetFolder(folderPath)

    '⑥ 폴더에 파일을 불러내서 한줄씩 씁니다.
    For Each file In folder.Files
        ws.Cells(nextRow + 5, 3).Value = file.ParentFolder.Path ' A열에 파일 경로
        ws.Cells(nextRow + 5, 4).Value = file.Name ' B열에 파일 이름
        ws.Cells(nextRow + 5, 5).Value = Format(file.Size / 1024, "#,##0") & " KB" ' C열에 파일 크기 (KB로 변환)
        nextRow = nextRow + 1
    Next file

    '⑦ 하위 폴더의 숫자만큼 다시 재귀적으로 호출합니다.
    Dim subfolder As Object
    For Each subfolder In folder.SubFolders
        Call ListFiles(subfolder.Path, ws, nextRow)
    Next subfolder

End Sub

경로명을 쓰는 C2 칸에 작성하면 그 경로 아래 모든 파일을 찾아서 리스트로 만들어 줍니다.

경로와 폴더 그리고 용량까지 만들어 봤습니다.

< 코드의 동작순서 >

VBA 메크로가 동작하는 순서는 아래와 같습니다.

① 경로명을 불러옵니다.

② 데이터를 넣을 시트를 지정합니다.

③ 먼저 실행한 이름들을 다 지워줍니다 + 필요한 내용을 입력합니다.

④ 이름을 불러오는 함수를 호출합니다. - ListFiles(경로명, 작업할 워크시트, 줄정보)

⑤ 변수명 "FSO"에 파일 시스템 객체를 불러내고 변수명 "Folder"에 정보를 입력합니다.

⑥ 폴더에 파일을 불러내서 한줄씩 씁니다.

⑦ 하위 폴더의 숫자만큼 다시 재귀적으로 호출합니다.

   여기가 오늘의 핵심 재귀 호출입니다.

   → 폴더 아래 있는 파일을 다 적고,

   → 서브 폴더를 찾습니다. 서브폴더가 있으면 서브폴더 이름으로 다시 함수를 호출합니다.

   → 더 서브 폴더가 없으면 다시 For문으로 돌아와서 끝났는지 확인합니다.

이런 식으로 하기 때문에 폴더명을 불러오는 순서는 아래와 같습니다.