모든 밤문화를 정리 해놨습니다!

https://mmol.tistory.com/203

역시 일본에도 이런게 있네요.

밤문화 카테고리는 ☜여기!!

제목에도 있듯 말그대로 애인 대행입니다.

신기한 것은 남성분뿐 아니라 여성을 대상으로도 영업을 하네요.

주 고객은 외국인이며 목적은 뭐 접대겠죠...?

이 웹사이트에서 가져온 조금 흥미로운 통계가 있네요.

바로

<등록 여성의 정보 랭킹>

입니다.

각 항목별로 어떤 것이 있는지 알아보면

위의 표를 보면 역시 회사원을 하면서 이런 일을 하는 사람들이 많네요...

홈페이지를 보아하니 성적이 접근은 하나도 없고 진짜 데이트만 하기 때문에 등록한 사람들이 꽤 많은 것 같습니다.

뭐, 기본적인 얼굴이 되는 사람만 가능하겠죠...?

또한 신기하게 교제를 위한 파티도 연다고 합니다.

하지만 더욱 신기한건 여성은 일정 조건(등급) 이상의 여성만 참여가 가능하다고 하네요.

아마 이러한 데이트로 용돈을 버는 것 보다 

어느정도 급이 있는 여성분들은 이걸 통해서 부자를 만날 수 있는 가능성도 매우 높을듯 합니다.

아마 이런 서비스를 이용하는 남자들은 대부분 부자들일테니 남자는 제한이 없는듯 합니다.

즉, 이 회사는 이러한 애인 대행 서비스를 제공하는 동시에 일반 여성들이 부자를 만날 수 있게 해주는 매칭 시스템도

운영하는 것 같습니다.

(머리 좋네요.... 남자뿐 아니라 여자한테서도 돈을 뜯을 수 있는 방법을 생각해내다니...)

가격은 대략 아래와 같습니다.

적게는 원화로 20만원에서 "천 만원" 이상 받네요;;

어지간한 부자 아니면 들어가지도 못할듯 ㅋㅋㅋ

아래에 링크를 남겨놓겠습니다.

한번 보고싶은 분은 들어가서 보세요

http://www.club-versailles.com/index.html

밤문화 카테고리는 ☜여기!!

[잡다한 이야기] - 프로페시아 탈모약? - 일본에서 최소 40% 저렴합니다

도움이 되셨다면 "광고" 눌러주시면 큰 도움이 됩니다!

블로그를 작성하고 유지하는데 큰 도움이 됩니다 ㅠㅠ

혹시 광고가 보이지 않는다면 아래 링크를 클릭하셔서 블로그 홈으로 오시면 보일거에요!

https://mmol.tistory.com/

앞으로 모든 밤문화 컨텐츠는 아래의 블로그에 업로드될 예정입니다!

많이 방문해주세요!

https://korean-worker.com/

오늘도 재밌는 뉴스가 올라와서 소개해보려고 합니다.

이런 뉴스도 나오는걸 보면 일본도 조금 힘든가봐요? ㅎㅎ

https://www.msn.com/ko-kr/news/national/%E6%97%A5-%EC%A3%BC%EC%9A%94-%EC%96%B8%EB%A1%A0-%EC%A1%B0%EC%86%8D%ED%95%9C-%ED%95%9C%EC%9D%BC-%EC%A0%95%EC%83%81%ED%9A%8C%EB%8B%B4-%EA%B0%9C%EC%B5%9C-%EC%B4%89%EA%B5%AC/ar-AAJjRAn

기사의 일부분을 소개하자면

<일본 3대 일간지의 하나인 마이니치신문도 이날 사설에서 한국이 국제법 위반 상태를 시정해야 한다고 반복 요구한 아베 총리 입장을 이해한다면서도 나루히토(德仁) 일왕 즉위를 축하하러 온 이 총리의 방일을 계기로 모처럼 마련된 자리에서 일본 측이 일을 진척시키려는 모습을 보이지 않은 것은 "유감"이라고 논평했다.>

현재 우리나라와 일본의 입장 차이를 한번 생각해봅시다.

1. 우리나라쪽에서는 몇몇 매국노를 제외하고는 일본과 교류를 촉구하는 시위, 인터넷 기사가 보이질 않음

2. 일본쪽에서는 지자체. 뉴스 등 한국과의 관계를 개선해야한다는 목소리가 나옴

위의 2개만 봐도 일본이 얼마나 우리는 이용해왔는지 알 수 있습니다.

애초에 일본은 한국산이면 음식이던 물건이던 사용도 안하면서 교류는 무슨 교류를 하자는건지 모르겠네요.

할거면 개인적으로 아래와 같이 해야된다고 생각합니다.

1. 위안부 문제의 완전 해결

- 일본측의 사과와 협정 체결

2. 상호간의 거래식 교류

- 지금처럼 일방적인 일본의 수입이 아니라 서로 어느 물건을 어느정도 수입하겠다 라는 협정

- 미국은 무서우니까 일단 "옥수수" 산다고 해놓고 돈 없으니까 그런적 없다고 하죠? ㅎㅎ 

또한 기사에도 나왔듯이

<일왕 즉위를 축하하러 온 이 총리의 방일을 계기로 모처럼 마련된 자리에서 일본 측이 일을 진척시키려는 모습을 보이지 않은 것은 "유감"이라고 논평했다.> 

일본의 언론 또한 아베 정권이 이번 회담에서도 서로의 양보만 권할 뿐 아무 것도 하지 않았다고

비판하고 있습니다.

위에서 분석한 것 처럼 우리나라 쪽에선 아쉬운게 거의 없습니다.

만약 이 상태로 1~2년 정도 버틸 수 있다면 결국 우리가 승리할 것입니다.

여러분들도 꼭 국내에 일본의 불매운동을 하시고 과거와 같은 실수를 하지 않길 바랍니다.

이번 싸움에서 이긴다면 근현대사 이후로 최초로 우리나라가 일본을 이기고 사과를 받아내는

역사적인 순간이 될 것입니다.

일본에 대한 뉴스를 더 보고싶다면 ☜클릭!

< VBA 엑셀10 - 마지막 행 얻기(End)>

데이터의 마지막 셀로 갈 수 있는 방법중 하나인 End에 대해서 알아보겠습니다.

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

먼저 프로그래밍을 하기 전에 다음과 같은 엑셀 시트를 준비해야합니다.

A열에서는 첫 번째 줄부터 10번째 줄까지 연속적으로 숫자가 입력되어 있습니다.

B열에서는 첫 번째 줄부터 숫자가 이어지다가 5번째 줄에서 한번 끊기게 됩니다.

이번에는 "A1"셀을 선택한 후에 Ctrl+↓(방향키 아래)를 눌러보시기 바랍니다.

그럼 아래와 같은 그림처럼 "A10" 셀이 선택되어져 있는 모습일거라 생각합니다.

이번에는 "B1"를 선택한 후 똑같이 Ctrl+↓(방향키 아래)을 눌러보시기 바랍니다.

"A1"와 다르게 네 번째 행에서 선택이 멈춥니다.

Ctrl+"방향키"의 기능은 연속적인 데이터가 있을 때 그 방향의 마지막 데이터로 커서를 이동시켜줍니다.

이번에는 이것을 코딩으로 표현할 수 있는 방법에 대해 이야기 해보겠습니다.

(위에서 만든 데이터는 그대로 사용할 예정이니 놔두시면됩니다.)

또한 가능한한 이제부터 VBA에서 셀을 선택할 때는 Cells를 사용하겠습니다.

1. End 사용하기

Cells (1, 1) .End (xlDown)

위에서 했던 Ctrl+↓(방향키 아래)와 같은 기능을 가진 코드입니다.

밑으로 향하는 xlDown 이외에도 다음과 같은 기능을 사용할 수 있습니다.

xlUp : ↑ 위로
xlDown : ↓ 아래로
xlToLeft : ← 왼쪽
xlToRight : → 오른쪽

다음과 같이 코딩을 하면 위에서 했던 것이랑 똑같은 결과를 얻을 수 있습니다.

약간 해석을 하자면 

① 문자열을 받을 수 있는 변수 a, b를 만듭니다

② "A1"의 마지막 행에 있는 데이터를 a에 저장합니다.

③ "A11"에 저장한 a 데이터를 입력합니다.

④ "B1" 또한 같은 내용을 반복합니다.

<결과>

위에서 했던거 처럼 같은 결과를 얻을 수 있습니다.

2. 마지막 행의 수 얻기 - .Row

마지막으로 그 행의 숫자를 얻을 수 있는 코드를 알려주고 끝내겠습니다.

위에서 배웠던

Cells (1, 1) .End (xlDown)

이거에 .Row를 붙여서 

Cells (1, 1) .End (xlDown).Row

라고 하면 끝입니다.

아래와 같이 프로그래밍을 할 경우 결과는 위와 동일하지만

여기서 "A11"에 출력되는 "10은 "A10" 셀에 있는 "10"이 아닙니다.

A"10"을 의미하는 10입니다.

즉, 행의 숫자를 얻을 수 있는게 

Cells (1, 1) .End (xlDown).Row

입니다.

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

오늘은 여기까지 하겠습니다!

<VBA 엑셀9 - 반복문 Do ~ Loop>

이번에는 또 다른 반복문인 Loop에 대해 알아보겠습니다.

For 반복문과 Do 반복문의 차이점을 설명하자면

For 반복문 : 지정 횟수만큼 반복한다.

Do 반복문 : 주어진 조건만큼 반복한다.

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!

1. Do 반복문의 기본 형태

Do [{While | Until} condition]
　　[statements]
　　[Exit Do]
　　[statements]
Loop

각 구문의 뜻을 설명하면 아래와 같습니다.

condition에서 사용할 수 있는 조건의 경우 아래와 같습니다.

다음 예문을 통해 좀 더 상세히 알아보겠습니다.

참고로 기초 레벨의 코딩의 경우 코드를 올리지 않겠습니다.

왜냐하면 직접 코딩을 하면서 익히는게 더 빨리 외워지고 프로그래밍을 하는 맛이 있거든요 ㅎㅎ

2. Do 조건문의 예시

Sub Loop1()
    Dim i
    i = 1
    Do While i <= 10
        Cells(i, 1) = 1
        i = i + 1
    Loop
End Sub

위의 VBA 코딩을 실행시켜보면 아래와 같은 결과가 나옵니다.

위에서 While의 의미를 설명하자면

<"i"가 10이하일 "동안" 계속 반복해라> 라는 의미입니다.

결과는 같지만 조금 다른 예를 한번 더 보겠습니다.

Sub Loop2()

    Dim i
    i = 1
    Do Until i > 10
        Cells(i, 1) = 1
        i = i + 1
    Loop
End Sub

이를 실행해보면 위와 똑같은 결과가 나오게 됩니다.

여기서 Until의 뜻은

<"i"가 10을 넘을 때"까지" 계속해라>라는 의미입니다.

뭔가 차이점이 느껴지시나요? ㅎㅎ

사실 직접 VBA 프로그래밍을 할 여러분들은 While이나 Until 중 하나만 중점적으로 사용해도 무방합니다.

3. Exti Do

마지막으로 Loop 반복문을 탈출하는 코딩에 대해 알아보고 마치겠습니다.

For 반복문과 마찬가지로 Loop 반복문 또한 탈출하는 코딩이 있습니다.

이번 에는 아래와 같이 VBA 코딩을 해봅니다.

Sub Loop3()

    Dim i
    i = 1
    Do Until i > 10
        Cells(i, 1) = 1
        i = i + 1

        Exit Do
    Loop
End Sub

이를 실행하면 그 결과는 아래와 같이 됩니다.

한번만 실행하고 Do ~ Loop 반복문을 끝내는 모습입니다.

이것으로 반복문에 대한 설명은 모두 끝났습니다.

다음에는 또 다른 수업으로 찾아 뵙겠습니다.

더 많은 VBA 자료를 보고 싶다면 ☜ 여기!!