반응형

안녕하세요. 이번에도 자전거 관련된 DIY 글을 올려 보려 합니다.

저희집에 자전거가 총 4대가 있는데요. 저와 아내, 아들내미, 딸내미 이렇게 넷이 각각 자전거를 가지고 있습니다. 아내는 그다지 자전거를 타는 것을 좋아하지는 않는데 아들내미와 딸내미는 좋아 한답니다. 이렇게 자전거가 4대나 되다보니 자연스레 자전거를 손보고 수리하는 일이 익숙해 지고 있습니다. 

저야 워낙 DIY 를 좋아하기 때문에 이런 상황이 즐겁기만 합니다.

오늘은 저희 둘째 아이가 아직 어리기 때문에 이번에 물려 받은 오빠 자전거(아동용 유사 MTB - ANM 어린이용 바이크)가 좀 사이즈가 안맞습니다. 핸들바도 좀 멀고요. 안장은 최대한 내려서 타기는 하는데 브레이크 레버 간격도 넓어서 손으로 잡기가 쉽지 않습니다. 

 

딸내미 나이가 아직 6살 밖에 안되었거든요. (- -);;

네.. 6살인데 두발 자전거를.. 그것도 아동용 네발이 아닌 MTB 를 타기 시작했습니다. 사실 5살때 부터 두발 자전거를 타기 시작했답니다.

 

요렇게 생긴 자전거 인데요. 요건 오빠가 어릴때 타던 사진입니다.  

아동용 자전거인데 디스크 브레이크가 똭!. 간지 폭풍입니다.

아들내미가 8살때 저정도 였으니 지금 6살 딸내미인 둘째에게는 아직 무리가 있는 크기입니다.

 

그래서 핸들바를 돌려 주었습니다. ???

순서는 아래와 같습니다.

  1. 헤드(스템) 전면의 핸들바 고정하는 4개의 6각 볼트를 풀어서 스템과 핸들을 분리
  2. 헤드 셋 상단의 육각 볼트를 풀어준 뒤 스템을 뒤쪽으로 돌려줍니다.
  3. 헤드셋 상단의 육각을 다시 고정하고 스템 양쪽의 나사를 조여 다시 헤드셋에 고정
  4. 핸들바는 전방을 향한 그대로 다시 장착을 해 줍니다. 

스템을 뒤쪽으로 돌려서 핸들이 몸쪽으로 향하게 다시 조립을 해주었더니 아주 안성맞춤이네요.

모양은 좀 이상하지만 아이 신체 사이즈에 딱 맞습니다.

아유 너저분 하네요. 뒤에 보이는 아동용 자전거가 얼마전까지 둘째가 타턴 자전거 입니다.

핸들이 돌아가 보이지만 실제로 핸들은 돌아간 것은 아니고 헤드가 돌아간 것이죠.

 

이건 타고 있는 모습입니다. 핸들을 고정하고 있는 스템 및 핸들바가 헤드셋 안쪽으로 되어 있는 것이 보이시나요? 약간 가까운 감이 있지만 6살 아이에게 적당해 보이네요.

이렇게 해서 동네 한바퀴를 함께 돌았는데 브레이크 잡는게 버거워 보이길레 좀더 잡기 수월하게 조절을 해주었습니다.

 

요건 작업 전의 이미지 나중에 비교용으로 올려봅니다. 이미 첫째가 타기 위해 좀 간격을 좁혀놓은 상태였습니다.

빨간 동그라미 부분네 나사가 보이시나요? 이 나사를 돌려주면 브레이크 레버의 간격이 조절됩니다. 보통은 밀어넣어 주면 간격이 좁아지는 방식으로 되어 있지요.

어떠신가요? 간격이 좀 좁아져 보이시나요? 실제로는 한 1cm 정도 좁아졌습니다. 이미 많이 줄여놓은 상태였기 때문인데요. 브레이크 뭉치와 레버 사이에 은색으로 된 와이어 고리가 전에는 안보였는데 좁히고 나니 보이게 되었습니다.

 

딸아이에게 물어보니 이제 손으로 잡기 좋아졌다고 하네요.

브레이크 뭉치에 따라 위치는 조금씩 다르지만 살펴보시면 나사가 보이실거에요. 경험상 대부분 + 자 나사로 되어 있었습니다. 해당 나사를 조여주면 브레이크 레버 간격이 조절이 됩니다.

ㅋㅋ 아주 신난 모습

이상으로 간단한 6세 아이 신체에 맞는 자전거 피팅 방법 이었습니다.

뎃글, 공감 은 블로그 작성자에게 큰 힘이 된답니다. 
도움이 되었다 생각되시면 클릭!!  부탁드려요~

 

감사합니다.

 

2020/04/09 - [DIY] - 간단하게 자전거 거치대 설치하기, 벽에 구멍 뚫지 않음

 

간단하게 자전거 거치대 설치하기, 벽에 구멍 뚫지 않음

집에 자전거가 5대가 되었다. 와이프도 자기 자전거를 사달라고 하는 바람에 미니벨로를 하나 더 영입하였기 때문인데 중요한건 우리 가족은 4명이라는 점입니다. -_-;; 어쨌든 현관 앞에 쟁여두기에는 이제 공간..

diy-dev-design.tistory.com

2019/09/02 - [DIY] - [DIY] 자전거 체인링크 분해 수리하기

 

[DIY] 자전거 체인링크 분해 수리하기

자전거 페달이 멈추었습니다. 갑자기.. 출근길에.... ... 지인에게 얻어서 출퇴근용으로 잘 사용하던 자전거(알톤 로드마스터 하이브리드 자전거)가 갑자기 출근길에 문제가 생겼습니다. 페달이 갑자기 턱 걸리면..

diy-dev-design.tistory.com

 

아이와 함께 이런걸 만들어 보는건 어떨까요?

2020/07/01 - [DIY] - 미니 테슬라코일 만들기 - 알리 DIY KIT

 

미니 테슬라코일 만들기 - 알리 DIY KIT

어렸을적 위대한 발명가, 과학자 하면 단연 손꼽는 일인자가 있었는데 누군가 물어본다면 100 이면 100 다 토마스 에디슨을 떠올릴 것입니다.. 그런데 커보니 에디슨은 발명가나 과학자라기보다��

diy-dev-design.tistory.com

 

반응형
반응형
자전거 페달이 멈추었습니다. 갑자기.. 출근길에....
 
...
 
 


지인에게 얻어서 출퇴근용으로 잘 사용하던 자전거(알톤 로드마스터 하이브리드 자전거)가 갑자기 출근길에 문제가 생겼습니다. 페달이 갑자기 턱 걸리면서 움직이지 않더군요. 출근길이다 보니 시간도 넉넉치 않아 끌바로 회사까지 이동했습니다. 다행히 회사까지 남은 거리가 얼마 되지 않아 지각은 면했습니다만 처음 겪는 문제이기에 걱정이 되었습니다.

저에게 처음 생긴 문제는 바로 체인의 일부가 끊어지는 것 이었습니다. 그동안 펑크 수리나 타이어 교체는 해보았지만 체인 수리는 처음이었습니다.

체인링크가 끊어져 버렸다. 

바로 요렇게 끊어져 버렸죠.
 

인터넷으로 체인링크 분해 공구를 찾아보 았습니다. 원리를 보니 나사산의 미는 힘을 이용하여 가운데 축을 밀어 뽑아내는 것이더군요..

갑자기 덕력이 폭발하여 집에있는 간단한 재료들을 이용하여 툴 제작에 들어갔습니다.

침대 고정 부속과 어디서 추출한지 기억도 없는 철재 부속

재료를 적당히 잘라주고요.

직접 만든 드레멜을 이용하여 잘라주었다. 한 10분쯤 갈고 있으면 잘린다.

요렇게 연결한다음

두개의 판을 관통하도록 구멍을 뚫고 볼트와 너트를 이용하여 단단히 고정해 주었습니다.


락카로 깔끔하게 찰을 올리면 완성.


쨔잔~ M3 육각 볼트를 조이면 체인링크의 축을 밀어내도록 제작하였습니다.
결과는 .... 
 

 

 


실패.
 
 

 

 
 

체인 링크의 축을 빼내는건 택도 없었습니다. 상당히 강력한 힘이 필요한 듯 합니다.
그냥 공구하나 살껄 하루를 그냥 날렸네요.

그래서 쿠팡을 뒤져 구입한 제품은  바로

요렇게 생긴 자전거용 멀티툴이었습니다. 체인 링크 수리공구가 기본으로 포함되어 있음에도 7천원도 안하는 금액에 로켓배송이라니.. 진작에 이거 살껄... 아놔... 
 
담날 바로 겟
 

암튼 출근한뒤 점심사간을 이용하여 수리를 해봅니다.

두근두근... 언제나 첫경험은 떨리는 법이죠.
 


먼저 케이블 타이를 이용해 체인을 묶어두었습니다. 분리되는순간 촤르륵 풀릴것 같았거든요.

공구의 홈에 체인을 꼭 맞게 끼운후 뭉치 부분을 빙글빙글 돌려서 밀어 넣습니다.
밀어넣는 핀이 체인의 위치가 고정핀과 일치해야 합니다.
생각보다 힘이 많이 들더라구요. 제가 만든 허접한 도구가 성공할리가 없는 수준이었습니다. 

암튼 끼릭끼릭 들어가다가 중간에 '팅' 소리와 함께 뭔가 빠졌다는 느낌이 딱 오더군요.

그럼 요렇게 분리가 됩니다.

나머지 한쪽도 마저 빼줍니다.
거의 빠져 나왔을 때 한컷 찍어 보았습니다.
팅 소리와 함께 분리되는 느낌이 나면 다시 돌려서 빼내면 된다.

자 분리 완료.

자 이제 빼낸 부분을 대체할 수리 킷(??)을 장착해 줍니다.
아. 이쯤에서 맨붕이 오셨겠군요. 저는 한 2년전에 언젠가 나도 체인이 고장나면 써먹어야 겠다 싶어서 알리에서 사두었습니다. 그게 정말 쓰일줄은 몰랐지만요. 미리미리 사두면 싸게 이용할수 있답니다.

알리익스프레스 구매링크 <-- 요기가 저렴하네요 ㅋ

두개의 부품이 한조를 이루고 있는데 한쪽에 축이 하나씩 연결되어 있는 부품입니다. 양쪽 체인 끝부분에 축을 끼워 넣은 뒤 반대쪽 구멍 안쪽부터 서로 맞닿게 끼워 넣고 당기면 촵!! 하고 고정이 됩니다.
수리가 완료된 모습 ㅎ

신경을 너무 안써줬더니 녹도 생기고 채인도 엄청 뻑뻑해 졌습니다. 아마 뻑뻑해진 체인이 변속기를 사용하는 과정에서 스트레스를 받았나 봅니다.

시간내서 좀 손질을 해주어야 겠네요.


자 체인링크 수리하기 어렵지 않으니 도전해 보세요.

쿠팡에서 저렴하게 구입한 수리공구 역시 아주 마음에 듭니다. 후기가 조금 안좋은 글들이 있길레 약간 걱정이긴 했는데 이정도면 아주 만족합니다. 사실 7천원도 안하는 금액에 로켓배송, 알리에서 구입한 체인링크 수리부속도 1000원 정도이니 매우 저렴하게 심각한 문제를 극복하게 된 셈입니다. 게다가 유용한 멀티툴까지 장만 했으니 만족합니다.

 

제가 구입했던 알리익스프레스 제품 페이지 입니다. 엄청 저렴하니 하나쯤 장만 해 두시길 바랍니다.

알리 판매자 링크 ->  구매링크 
 

뎃글, 공감 은 블로그 작성자에게 큰 힘이 된답니다. 
도움이 되었다 생각되시면 클릭!!  부탁드려요~

 



다들 즐거운 바이크 생활. DIY 라이프 되시길 바랍니다.

 

반응형
반응형

요이번 강좌는 에셀 시트의 모든 셀의 색상을 한번에 제거하는 방법을 알려 들리려고 합니다. 강좌라고 할것도 없을 만큼 간단한 스크립트인데요. select all 한다음 셀 색상을 빼내도 되긴 하겠지만 자동화 과정 중에 셀 색상을 초기화 해야 하는 경우가 있다면 아래의 스크립트를 이용하여 모두 초기화 시킨 후 자동화 과정을 수행할 수 있습니다.

Sub crearCellColor()

    Cells.Interior.Color = xlNone

End Sub

 

간단하죠?

이렇게 특정 시트에 대한 지정없이 사용하는 것은 특정 시트에 바로 스크립트를 작성하는 경우인데요. ThisWorkBook 과 같은 공용 위치에서 스크립트를 작성할 때는 색상을 초기화 해줄 시트를 지정해 주어야 합니다.

Sub crearCellColor()

    Dim aSht As Worksheet
    
    Set aSht = ActiveSheet
    
    aSht.Cells.Interior.Color = xlNone

End Sub

요렇게 상단에 worksheet 개체를 정의 하여 주고 해당 시트가 현재 활성화 되어 있는 시트임을 알려준뒤 해당 시트에서 실행을 하면 됩니다.

 

선택된 영역 또는 특정영역에 컬러는 채워넣을 때는 RGB(255,255,255) 와 같은 함수를 이용합니다. 만약 셀에 노란색을 채워 넣으려면 아래와 같이 하면 됩니다.

Sht.Cells(2, 3).Interior.Color = RGB(255, 255, 0)

 

셀에 여러가지 방법으로 색상을 채워넣는 강좌는 아래 포스트를 참고해주세요~

https://diy-dev-design.tistory.com/32?category=791049

 

[VBA]RGB 색상 값이 들어있는 셀에 셀 색상 지정하기

이번 강좌에서는 셀에 입력되어 있는 컬러 값을 이용하여 셀의 색상을 지정하는 방법을 알아보도록 하겠습니다. 디자이너 분들이라면 언제가 한번쯤은 엑셀 시트에 자신이 정의한 컬러 값을 정리해서 보내야 하는..

diy-dev-design.tistory.com

 

또한 셀의 영역을 설정하는 방법은 아래 포스트를 참고해 주세요

https://diy-dev-design.tistory.com/20?category=791049

 

[vba] 자동화를 위하여 엑셀의 영역 설정하는 방법

엑셀을 사용하는 목적 자체가 근본적으로 문서를 만들기 위함은 아니다 보니 세로 또는 가로로 굉장히 길게 데이터가 나열되어 있는 경우가 많습니다. 우리는 vba 를 이용하여 자동화를 할 것이기 때문에 어디부..

diy-dev-design.tistory.com

 

셀의 테두리의 속성을 지정하거나 숨기기, 또는 숨김 해제가 필요한 경우 아래 포스트를 참고해주세요

2020/01/30 - [분류 전체보기] - [vba] 셀 속성 조정하기 (넓이, 높이, 숨기기, 테두리 등)

 

[vba] 셀 속성 조정하기 (넓이, 높이, 숨기기, 테두리 등)

이번 포스트에서는 vba 를 이용하여 셀의 속성을 조정하는 방법을 설명 드리겠습니다. 엑셀은 단순한 표의 형식을 취하고 있지만 셀의 간격이나 테두리 등의 속성을 자유롭게 조정할 수 있어 다양한 서식에 사용하..

diy-dev-design.tistory.com

 

 

이상으로 이번 포스트를 마치겠습니다.

감사합니다. 

 

반응형
반응형

이번 강좌에서는 셀에 입력되어 있는 컬러 값을 이용하여 셀의 색상을 지정하는 방법을 알아보도록 하겠습니다. 디자이너 분들이라면 언제가 한번쯤은 엑셀 시트에 자신이 정의한 컬러 값을 정리해서 보내야 하는 경우가 생길 수 있게 마련입니다. 요구사항을 내는 담당자는 포토샵이나 일러스트 보다는 엑셀이 더 익숙하기 때문에 엑셀로 정의되어 있는 컬러값을 전달 받기를 원하게 마련입니다. 물론 우리는 스마트하게 컬러까지 딱 채워서 보내주면 담당자가 아주 흡족해 하겠죠.

먼저 셀에 컬러를 표현할 수 있는 RGB 에 대한 색상이 저장되어 있다는 가정하에 코드를 작성할 예정입니다. 셀에 입력되어 있는 값이 여러가지 경우가 있을 수 있기 때문에 오늘은 그 여러가지 경우의 컬러를 지정하는 방법을 알아볼 예정입니다.

먼저 셀의 색상을 지정하는 코드는 아래와 같습니다.

Cells(1,1).Interior.Color = RGB(255,255,255)

여기서 Cells(1,1) 부분은 For each c 라는 식의 반복문에서 c 로 변경하여 적용하면 됩니다.

 

오늘 알아볼 색상 적용 방법은 다음과 같습니다.

 

  • 6자리 HEX 코드로 입력된 셀에 색상을 입히는 방법
  • HEX값이 R,G,B 로 각각 나뉘어 기록되어 있는 경우 색을 칠하는 방법
  • RGB 값이 각각 셀에 지정되어 있을 때 색을 칠하는 방법
  • RGB 값이 하나의 셀에 특정한 구분자를 이용하여 적용되어 있을 때 색을 칠하는 방법

 

 

6자리 HEX 코드로 입력된 셀에 색상을 입히는 방법

 

먼제 셀에 아래와 같은 형식으로 입력이 되어 있다고 가정하고 코드를 작성해 보겠습니다.

 

색상 코드에 # 가 붙어있는 녀석도 있고 없는 녀석도 있군요

이런 경우라면 약간의 판단 코드가 추가되어야 하겠습니다.

아래 코드를 보시죠.

Sub setColor()


    Dim rngA As Range
    Dim c As Range
    
    Dim cur_value As String
    
    Dim c_red As String
    Dim c_green As String
    Dim c_blue As String
    
    Set rngA = [A1:A10]

    For Each c In rngA
    
        '첫글자가 # 이라면 #을 빼내주는 코드
        If InStr(c.Value, "#") Then
            cur_value = Mid(c.Value, 2, Len(c.Value) - 1)
        Else
        	cur_value = c.Value
        End If
        
        ' 6자리의 문자열에서 RGB 의 각각 색상으로 구분하여 주는 방법
        c_red = Left(cur_value, 2)
        c_green = Mid(cur_value, 3, 2)
        c_blue = Right(cur_value, 2)
        
        ' RGB 로 나뉘어진 16진수 값을 0~255 의 자연수로 변경해주는 함수
        c_red = WorksheetFunction.Hex2Dec(c_red)
        c_green = WorksheetFunction.Hex2Dec(c_green)
        c_blue = WorksheetFunction.Hex2Dec(c_blue)
        
        c.Interior.Color = RGB(c_red, c_green, c_blue)
        
    Next c
        
    

End Sub

실행시켜 보시면 요렇게 셀에 예쁘게 색상이 적용이 됩니다.

여기서 코드중에 WorksheetFunction.Hex2Dec(c_blue) 라는 코드가 있는데요. WorksheetFunction 이라 하면 엑셀 상단에 함수 작성하는 계산식 입력창이 있죠? 여기에 사용되는 함수가 바로 WorksheetFunction 인데요. 그 함수들 중에 Hex2Dec 라는 함수를 가져와서 쓰겠다는 것 입니다. 엑셀에는 이미 많은 훌륭한 함수 들이 있기 때문에 엑셀 vba 에서 그것들을 이용함으로써 빠르고 손쉽게 코딩이 가능하다는 장점이 있습니다.

 

HEX값이 R,G,B 로 각각 나뉘어 기록되어 있는 경우 색을 칠하는 방법

 

이번에는 아래와 같이 RGB 가 셀마다 정의되어 있는데 이 값이 Hex인 경우입니다.

위에서 작성한 코드가 거의 대부분 재활용될 예정이므로 어떤 부분이 변경이 되는지 잘 보시기 바랍니다.

Sub setColor()


    Dim rngA As Range
    Dim c As Range
    
    Dim cur_value As String
    
    Dim c_red As String
    Dim c_green As String
    Dim c_blue As String
    
    Set rngA = [A1:A10]

    For Each c In rngA
    
        ' c 를 기준으로 우측 첫번째, 두번째 칸의 값을 각각 변수에 적용
        c_red = c.Value
        c_green = c.Offset(0, 1).Value
        c_blue = c.Offset(0, 2).Value
        
        ' RGB 로 나뉘어진 16진수 값을 0~255 의 자연수로 변경해주는 함수
        c_red = WorksheetFunction.Hex2Dec(c_red)
        c_green = WorksheetFunction.Hex2Dec(c_green)
        c_blue = WorksheetFunction.Hex2Dec(c_blue)
        
        c.Interior.Color = RGB(c_red, c_green, c_blue)
        c.Offset(0, 1).Interior.Color = RGB(c_red, c_green, c_blue)
        c.Offset(0, 2).Interior.Color = RGB(c_red, c_green, c_blue)
        
    Next c
        
    

End Sub

 

2022.12.02 - [DEV/VBA] - [excel vba] 16진수를 10진수로, 10진수를 16진수로 변경

위의 코드를 실행시켜 보시면 아래와 같이 색상이 칠해지는 것을 알 수 있습니다.

이번에는 이미 값이 분리 되어 있으므로 c 라는 셀을 기준으로 우측 첫번째, 두번째 값을 RGB 변수에 저장하는 과정이 들어갔습니다.

별다를건 없죠?

 

 

RGB 값이 각각 셀에 지정되어 있을 때 색을 칠하는 방법

보통은 첫번째 케이스와 아래와 같은 케이스가 가장 많을 것 같습니다. 

위의 두가지 케이스를 직접 해보셨다면 아래의 케이스는 이제 감이 잡이실것 같은데요.

네. 바로 Hex --> Dec 로 변경하는 코드는 여기에선 필요가 없습니다. 그냥 바로 셀에 적용하면 되겠죠?

Sub setColor()

    Dim rngA As Range
    Dim c As Range
    
    Dim cur_value As String
    
    Dim c_red As String
    Dim c_green As String
    Dim c_blue As String
    
    Set rngA = [A1:A10]

    For Each c In rngA
    
        cur_value = c.Value
        
        ' 6자리의 문자열에서 RGB 의 각각 색상으로 구분하여 주는 방법
        c_red = c.Value
        c_green = c.Offset(0, 1).Value
        c_blue = c.Offset(0, 2).Value        
        
        c.Interior.Color = RGB(c_red, c_green, c_blue)
        c.Offset(0, 1).Interior.Color = RGB(c_red, c_green, c_blue)
        c.Offset(0, 2).Interior.Color = RGB(c_red, c_green, c_blue)
        
    Next c           

End Sub

요렇게 적용하시면 됩니다. 적용 결과는?

네 .. 이렇게 잘 색칠이 되었네요.

 

 

RGB 값이 하나의 셀에 적용되어 있을 때 색을 칠하는 방법

네 마지막으로 RGB 값이 하나의 셀에 적용되어 있을때 입니다. 보통은 , 로 255,235,223 이런식으로 구분을 하여 넣어 주겠죠. 위에 LEFT, MID, RIGHT 와 같은 문자열의 위치를 이용하여 잘라내기가 쉽지 않습니다. 숫자가 1~3자리까지 다양하게 나올 수 있기 때문에 좀 다른 방법으로 글자를 떼어내볼 예정입니다.

여기서 사용할 함수는 Split 이라는 함수고요. 특정 글자를 이용하여 문자열을 배열로 잘라 나눠담아 주는 함수 입니다.

바로 엑셀에 이렇게 값이 들어있는 경우입니다.

Sub setColor()

    Dim rngA As Range
    Dim c As Range
    
    Dim cur_value() As String
    
    Dim c_red As String
    Dim c_green As String
    Dim c_blue As String
    
    Set rngA = [A1:A10]

    For Each c In rngA
    
        cur_value = Split(c.Value, ",")
        
        ' 문자 배열에서 RGB 의 각각 색상으로 꺼내어 적용해주는 주는 방법
        c_red = cur_value(0)
        c_green = cur_value(1)
        c_blue = cur_value(2)
        
        c.Interior.Color = RGB(c_red, c_green, c_blue)
        
    Next c
            
End Sub

코드를 보면 크게 달라진건 없는데요. 배열에 값을 담기위한 배열 변수를 선언해 주는 부분, Split 을 이용하여 문자열을 분리하는 작업, 배열의 값을 각 색상별 변수에 적용하는 과정이 약간 차이가 있습니다.

Dim cur_value as string --> 일반 적인 문자열 변수

Dim cur_value() as string --> 배열 형식의 문자열 변수

문자열을 배열에 담기 위하여는 위와 같은 배열 형의 문자열 변수를 선언해주어야 합니다.

이후 Split (자를 문자, 구분자) 를 이용하여 잘라 배열 변수에 담게 되면 잘라진 각각의 내용을 하나씩 꺼내어 사용할 수 있게 됩니다.

 

 

어렵지 않죠? 

 

여기까지 하여 셀에 색상을 적용하는 스크립트를 마무리 해보겠습니다.

셀에 색상을 모두 지우는 스크립트도 준비하여 올려보도록 하겠습니다.

 

감사합니다.

도움이 되셨다면 공감~

2019/09/02 - [DEV/VBA] - [vba] 엑셀 시트의 모든 색상의 셀 색상 제거하기

 

[vba] 엑셀 시트의 모든 색상의 셀 색상 제거하기

요이번 강좌는 에셀 시트의 모든 셀의 색상을 한번에 제거하는 방법을 알려 들리려고 합니다. 강좌라고 할것도 없을 만큼 간단한 스크립트인데요. select all 한다음 셀 색상을 빼내도 되긴 하겠지만 자동화 과정..

diy-dev-design.tistory.com

2020/01/30 - [분류 전체보기] - [vba] 셀 속성 조정하기 (넓이, 높이, 숨기기, 테두리 등)

 

[vba] 셀 속성 조정하기 (넓이, 높이, 숨기기, 테두리 등)

이번 포스트에서는 vba 를 이용하여 셀의 속성을 조정하는 방법을 설명 드리겠습니다. 엑셀은 단순한 표의 형식을 취하고 있지만 셀의 간격이나 테두리 등의 속성을 자유롭게 조정할 수 있어 다양한 서식에 사용하..

diy-dev-design.tistory.com

2019/10/24 - [DEV/VBA] - [vba] 버튼(단추)를 이용하여 스크립트 실행하기

 

[vba] 버튼(단추)를 이용하여 스크립트 실행하기

어떤 엑셀 페이지에 늘 사용하는 스크립트를 작성하였으나 매번 실행하기 위하여 vba 창을 눌러 F5를 누르는 것은 사실 본인이 직접 스크립트 코드를 개발하는 입장이라면 조금도 번거로울 것이 없는 것이지만 누..

diy-dev-design.tistory.com

2019/08/12 - [DEV/VBA] - [VBA] 문자열 가지고 놀기

 

[VBA] 문자열 가지고 놀기

안녕하세요. 이번 글에서는 VBA 에서 문자열을 가지고 무엇인가를 하는 것을 알아보겠습니다. 프로그래밍을 하다 보면 조건을 가지고 어떤 액션을 해야 하는 결우가 무척 많은데요. 그중에 대표적인 것의 하나가..

diy-dev-design.tistory.com

 

 

 

 

 

반응형
반응형

욕실 청소 중의 으뜸은 뭐니뭐니 해도 수전과 같은 크롬 광택의 금속재질을 갖는 부분과 도기, 유리를 반짝반짝하게 닦는 것입니다. 청소하고 나면 청소한 티가 정말 팍팍 나는 아이템이며 청소하는 방법을 알고 나면 매우 쉽고 간단한 청소이기 때문입니다.

우선 욕실 청소를 위하여 몇가지 도구가 필요한데 그 중 수전을 청소하는데에는 딱 두가지만 있으면 됩니다..

  • 매직블럭
  • 극세사 수건

 

세제도 필요없고요. 물과 매직블럭, 극세사 수건이면 끝입니다.

 

우선 수전청소한지가 너무 오래되어 때가 정말 심하게 끼었다면 매직블럭으로 닦아주면 되는데 그냥 물을 묻혀서 닦아주면 됩니다. 아주 잘 닦입니다.

그런데 매직블럭의 매직에 빠져 사방천지를 모두 매직블럭으로 닦는 경우가 있는데 주의해야 합니다. 매직블럭은 미세한 구멍을 아주 많이 뚫어놓은 스펀지인데 이 스펀지 재질의 경도가 높아 미세한 구멍들이 아주 곱게 연마를 하며 닦는 형식이라서 때가 쏙쏙 빠지게 되며 이때 경도가 약한 플라스틱에는 말그대로 아주 고운 기스가 수없이 나게되는 것이라 보면 됩니다.

한번 기스가 곱게난 면에 다시한번 때가 끼어 들어가면 이것을 지워내는 것은 정말 힘든 일입니다.

매직블럭은 반드시 유리 / 스테인레스(금속) / 도자기 에만 사용하는 것을 잊지 마세요.

 

어쨌든 며칠간 청소를 하지 않아 지저분해진 욕실 수전의 닦기 전과 닦은 후의 모습입니다. 이번 포스팅을 위하여 며칠 청소하지 않고 방치를 해 두었더랬죠.

놀랍도록 반짝반짝이는 수전
놀랍도록 반짝이는 샤워기 수전

 

매일 샤워하고 나오면서 하면 1분만 투자하면 샤워기, 세면대의 수전을 늘 이렇게 깨끗하게 유지할 수 있습니다. 매일 청소를 한다면 매직블럭도 필요 없습니다. 그냥 극세사 수건으로 쓱쓱 닦아주면 됩니다. 아주 쉽고 빠르죠. 물기도 싹 닦이기 때문에 더욱 깨끗해 보인답니다.

뎃글, 공감 은 블로그 작성자에게 큰 힘이 된답니다. 
도움이 되었다 생각되시면 클릭!!  부탁드려요~

 

영상으로 청소하는 모습을 보면 한결 이해가 빠르실 것 같네요

여러분들도 호텔처럼 반짝이는 욕실 수전을 만들어 보시기 바랍니다.

 

감사합니다.

2020/03/16 - [DIY] - 욕실장(싱크대) 경첩 셀프 교체하기 #노하우, #주부도 가능

 

욕실장(싱크대) 경첩 셀프 교체하기 #노하우, #주부도 가능

이사를 하고 보니 집에 손볼곳이 한두군데가 아니었습니다. 이번에는 욕실장 경첩 입니다. 전세로 이사를 하고나니 내 집도 아닌데 뭘 고쳐가면서 살아... 하는 생각도 들지만 막상 지저분하고 비위생적인 환경은..

diy-dev-design.tistory.com

 

2020/03/10 - [청소장인] - 욕조 배수구 물빠짐 개선을 위한 리모델링

 

욕조 배수구 물빠짐 개선을 위한 리모델링

'아니 이걸 왜 이렇게 만들어서 물이 안빠지게 말이지...' 라는 생각을 샤워할 때 마다 한 것 같습니다. 욕조 배수구에 보면 머리카락 같은 이물질이 하수도로 흘러 들어가는 것을 막기 위하여 구멍이 뚫린 동그란..

diy-dev-design.tistory.com

 

2019/09/24 - [DIY] - [DIY] 물새는 욕실 수전 수리하기 DADA (DD-1471AC)

 

[DIY] 물새는 욕실 수전 수리하기 DADA (DD-1471AC)

똑, 똑, 똑, ... 욕실에서 심상치 않은 소리가 들려온다. 밤만되면 더욱 커지는 그소리.... 일단 들리기 시작하니 더 크게 들리는 듯한 그소리... 난 침대에서 일어나 욕실로 한걸음, 또 한걸음... 난 욕실로 가는..

diy-dev-design.tistory.com

 

반응형
반응형

오늘은 엑셀 시트에 있는 모든 그림을 한번에 삭제하는 스크립트를 만들어 보겠습니다. 엑셀 시트에 첨부된 그림을 일일이 또는 어떤 조건에 맞는 모든 그림을 삭제 하는 것은 매우 귀찮은 일입니다. 일단 다중 선택을 위하여 하나하나 그림 개체를 선택해 주어야 하는데 대상을 잘못 클릭하거나 그 대상이 수백개 이상일 때는 정말 난처한 상황이 발생되죠.

그래서 이번에는 엑셀 시트에 있는 모든 그림을 삭제하는 방법 또는 특정 영역에 있는 모든 그림을 삭제하는 방법을 포스팅 하려고 합니다.

 

스크립트 내용은 아주 짧으니 참고하시면 됩니다.

 

Sub delPic() '영역안의 사진 지우기

    Dim cwkbook As Workbook
    Dim cwkSht As Worksheet
    
    Dim shpC As Shape
    Dim rngShp As Range
    Dim rngAll As Range
    Dim rngStartValue As String
    Dim rngEndValue As String
    
    Set cwkbook = ActiveWorkbook
    Set cwkSht = cwkbook.ActiveSheet
    
    rngStartValue = "A1"
    rngEndValue = "z9999"
    
    Set rngAll = cwkSht.Range(rngStartValue, rngEndValue)
    
    For Each shpC In cwkSht.Shapes
        Set rngShp = shpC.TopLeftCell
        If Not Intersect(rngAll, rngShp) Is Nothing Then
            shpC.Delete
        End If
    Next shpC
    
    Set rngAll = Nothing
    Set rngShp = Nothing
    
End Sub

 

스크립트 상단에 각종 변수를 정의해 주게 되는데요. 워크북 (엑셀 파일) 과 워크시트 (시트) 를 지정해주는 부분이 있습니다. 이곳에서는 일단 현재 활성화된 파일의 활성화된 워크시트를 선택해 주었습니다. 만약 특정 엑셀 파일을 지정할 계획이고 해당 엑셀 파일에 특정 시트에 대해 작업을 해주어야 한다면 해당 부분만 아래와 같이 작성해주면 됩니다.

Set cwkbook = Excel.Workbooks("엑셀파일이름.xlsx")
Set cwkSht = cwkbook.Worksheets("해당워크시트이름")

그 아래에 rngStartValue 와 rngEndValue 를 이용하여 영역의 시작부분과 끝부분의 셀 이름을 정해주면 해당 셀안에 있는 모든 그림은 삭제가 됩니다. 

만약 세로로 같은 열에 있는 그림만 삭제를 해야 한다면 시작칸과 종료칸의 열 번호를 동일하게 지정해 주면 됩니다.

 

뎃글, 공감 은 블로그 작성자에게 큰 힘이 된답니다. 
도움이 되었다 생각되시면  클릭!!  부탁드려요~

 

 

 

그림 한번에 삭제하기, 자동으로 붙여넣는 프로그램은 아래 포스트를 참고하세요.

2020/01/08 - [DEV/c#] - Excel Automate, 엑셀 자동화 프로그램

 

Excel Automate, 엑셀 자동화 프로그램

필자의 블로그 명칭을 보고 이미 알고 계신분이 있을지 모르겠지만 사실 저는 디자이너 입니다. 하지만 블로그에 맨 개발 관련 된 이야기만 적고 있지요. 음... 그런데 실제로 회사에서도 저는 대부분의 시간을 코..

diy-dev-design.tistory.com

 

현재 시트에서 사용자가 선택한 영역을 가져오는 것은 아래 포스트를 참고하시면 됩니다.

https://diy-dev-design.tistory.com/23?category=791049

 

[vba] 현재 엑셀 시트의 선택한 영역을 vba 스크립트에서 가져오기

vba를 이용하여 자동화를 하기 위하여는 어떤 범위에 있는 대상에 대하여 작업이 이루어 지는지를 설정 해주어야 합니다. 보통 range 라는 개체를 이용하여 설정을 해주게 되는데 이 range 를 현재 엑셀 시트에서..

diy-dev-design.tistory.com

 

특정 영역을 지정하여 스크립트를 동작시키는 것은 아래 포스트를 참고 바랍니다.

https://diy-dev-design.tistory.com/20?category=791049

 

[vba] 자동화를 위하여 엑셀의 영역 설정하는 방법

엑셀을 사용하는 목적 자체가 근본적으로 문서를 만들기 위함은 아니다 보니 세로 또는 가로로 굉장히 길게 데이터가 나열되어 있는 경우가 많습니다. 우리는 vba 를 이용하여 자동화를 할 것이기 때문에 어디부..

diy-dev-design.tistory.com

2019/10/24 - [DEV/VBA] - [vba] 버튼(단추)를 이용하여 스크립트 실행하기

 

[vba] 버튼(단추)를 이용하여 스크립트 실행하기

어떤 엑셀 페이지에 늘 사용하는 스크립트를 작성하였으나 매번 실행하기 위하여 vba 창을 눌러 F5를 누르는 것은 사실 본인이 직접 스크립트 코드를 개발하는 입장이라면 조금도 번거로울 것이 없는 것이지만 누..

diy-dev-design.tistory.com

 

이상으로 엑셀 시트에 있는 모든 그림을 삭제하는 스크립트 소개를 마치겠습니다.

 

도움이 되셨다면 공감 부탁드립니다.

그럼 이만~

반응형
반응형
알리에서 DC 전류량계를 하나 구입하였습니다.
전자 제품 쪽 DIY 를 하다보면 현재 만들어진 제품이 어느정도의 전류를 소모하는지 궁금할때가 있는데요. 불행히도 제가 가지고 있는 테스터기에는 전류량 측정 기능이 없는 제품이거든요. 물론 전류량 측정하는 테스터기가 하나 있으면 좋긴 하겠으나 간단한 전류 측정기가 있다면 좋을 것 같아 하나 구입하였습니다. 물론 가격도 매우 저렴합니다.
 
구입한 제품은 아래의 모델인데요.
매우 저렴하며 무료배송입니다. 안타까운 일은 동일한 제품을 국내에서 구입하시면 약 1만원이 조금 넘는 가격에 배송비2500원도 따로 붙으니 시간이 좀 걸리더라도 알리에서 구입하시는게 좋겠습니다.
 
 

 

제품을 보면 생긴선 간단해 보이지만 사용하기 위하여 결선 하는것이 영 사용하기 귀찮은 형식입니다.
아래와 같은 방식으로 연결하라고 안내가 나오는데요. 오른쪽방법으로 테스트를 해보았고 정상 동작은 되었는데 역시 불편하더군요.
그래서 작은 PCB 에 터미널 블럭과 함께 연결하여 간단하게 사용할 수 있도록 튜닝을 해보았습니다.
 

 

배선을 한 사진입니다. 좀 복잡한데요. 아래의 실제 배선형태를 참고하시면 되겠습니다.

가운데 초록색 네모 박스는 2채널 푸쉬타입 토글 스위치 입니다.

 

 

총 5개의 선이 있는데 그중 얇은 GND 는 연결하지 않아도 잘 동작하는 것을 확인하였습니다.

 

배선을 완료하고 상단에 순접으로 부착을 해주었습니다. 어때요 뒷부분도 깔끔해 졌죠?

 

전면부 기준으로 좌측이 입력단, 우측이 출력단이 되겠으며 중간에 푸시형 토글 스위치로 전원을 켰다가 껐다 할 수 있습니다.

 입력부와 출력부가 혼동되지 않도록 마킹을 해주었습니다.

이렇게 하면 전원부에 선 두가닥 연결, 출력부에 두가닥 연결하는 것으로 바로 사용이 가능합니다.

현재 제작중인 Traxxas UDR 의 전면부 라이트를 연결하여 테스트 중인 모습입니다. 전압이 8.5V 가 나오고 있는데 수치가 좀 잘못 나오고 있습니다. 실제 테스터기로 측정해보면 8.4V 가 나오고 있고 18650 리튬이온 전지 2개를 만충한 후 직렬로 연결하였으므로 실제 전압도 8.4V 가 정상이어야 합니다. 갑자기 신뢰도가 뚝 떨어지네요. -_-;;

암튼 라이트 모듈 2개를 동시에 켰을때 0.17A 정도 소모하는 것으로 확인되었고 18650 배터리가 약 3000mA 가량 전류를 보낼 수 있으므로 일반적으로 RC 카에 장착하여 사용하는데는 전혀 무리가 없을 것으로 확인 되었습니다.

 

전류계 연결 어렵지 않습니다. 편리한 DIY 생활을 위한 DIY  였습니다.

조만간 AC 전류량 측정기 리뷰도 올려보도록 하겠습니다.

뎃글, 공감 은 블로그 작성자에게 큰 힘이 된답니다. 
도움이 되었다 생각되시면 클릭!!  부탁드려요~

 

반응형
반응형

오늘은 일상생활에 없어도 그만이지만 있으면 아주 편리한 간단한 가구를 하나 만들어 보았습니다. 

저녁 나절에 TV로 영화나 드라마를 보며 맥주한잔 하고 싶을때 극장에서 처럼 팔걸이에 맥주를 올려놓을 수 있다면 좋을텐데 하고 생각했던 적이 다들 있으신가요? 허리를 굽혀 테이블에 놓지않고 팔걸이쯤에 있다면 아주 좋겠다 싶은적이 저역시 많이 있었습니다.

아이방에서 사용하지 않는 L 자형 철제 책꽂이를 보고 아이디어가 떠올라 바로 작업에 들어갔습니다.

어렵지 않으니 여러분들도 한번 도전해 보시기 바랍니다.

 

먼저 준비물은요.

  • L 자 팔걸이 2개
  • 굴러다니는 나무 판재 조금
  • 페인트 나 바니쉬, 스테인, 없으면 안칠해도 상관은 없겠습니다.
  • 그리고 드릴과 나사류... 

요정도 입니다. 참 간단하죠?

 

먼저 나무를 날라 아이들이 사용하는 목공풀 (오공본드 무독이) 로 면을 붙여 줍니다.

목심과 같은 전문적인 재료가 있다면 끼워주면 더 튼튼하게 만들어 지지만 음료나 찻잔을 올리기에는 목공풀로도 충분 합니다.

위와 같이 붙여 준 후 사포로 대충 모서리를 다듬어 줍니다. 전동 사포가 있다면 면을 좀 다듬어 주는것도 좋겠습니다. 저는 누가 버린 침대 프레임 나무를 주워온거려서 기존 목심 구멍이 그대로 있네요. ^^. 재활용 버리는 곳에 원목가구가 버려져 있다면 쓸만한 재료들을 구하기 좋습니다.

 

이케아에서 저렴하게 구입한 페인트

쇼파가 짙은 회색이다보니 테이블은 밝은 회색으로 칠하기로 마음먹었습니다. 물론 집에 있는 페인트가 마침 저 색상이었기 때문은 아니라고 믿어 주세요.

아무래도 차가운 음료를 먹거나 하면 물기가 뭍을 수도 있기 때문에 원목 그대로는 좀 아쉽죠. 바니쉬나 페인트로 마감을 해주는 것이 좋겠습니다.

참고로 이케아 페인트는 마르고 나면 일반 수성페인트와 달리 찐득찐득해지며 유성페인트 같은 느낌으로 마르게 됩니다. 아마 점착성이나 방수성이 좀 좋을 것으로 생각됩니다.

나무에 젯소 같은 프라이머를 먼저 바를 걸 그랬습니다. 칠하는 족족 나무가 페인트를 빨아들여 엄청 여러번 칠을 해야 했네요. 여러분은 꼭 젯소를 먼저 바르고 칠해주세요.

 

나무가 다 말랐으면 준비했던 책꽂이를 쇼파 팔걸이 넓이 보다 약간 좁게 하여 나무로 만든 상판에 붙여 줍니다. 드릴로 철판에 구멍을 뚫고 나사를 박으면 되는데 철판 피스가 있으시면 바로 박아 넣어도 되기는 합니다.

요렇게 장착이 되었습니다. 웃고 있는 모습이 귀엽네요.

참고로 나무 상판이 사람쪽으로 너무 나오지 않도록 하기 위하여 한쪽으로 약간 치우치게 제작하였습니다. 이부분은 제작하시는 분께서 상판의 넓이에 따라 재량껏 위치를 잡으시면 될것 같습니다.

 

드디어 쇼파에 올려볼 차례 입니다

두구두구

쨔쟈안~

딱 맞네요. ㅋ

 

다른 각도에서 한장.

주워온 나무다 보니 목심용 구멍이 남아 있는데 이 구멍 두개는 나중에 다른 용도로 사용할 예정

 

시원한 탄산수와 맥주를 올려 놓았습니다.

이제 쇼파에 편안하게 앉아 와이프와 한잔 하며 영화를 볼 수 있겠네요

 

완성되었습니다.

집에 있는 재료만으로 아주 쉽게 할 수 있는 괜찮은 DIY 였던 것 같습니다. 이제 쇼파에 앉아 편안하게 맥주 한잔 하며 TV 를 즐기시면 되겠습니다.

뎃글, 공감 은 블로그 작성자에게 큰 힘이 된답니다. 
도움이 되었다 생각되시면 클릭!!  부탁드려요~

 

그럼 이만~

반응형
반응형

종이 모형은 참 매력적인 취미 생활인 것 같습니다. 어렵지 않고 어른이든 아이든 쉽게 접근 할 수 있으며 만들고 나면 성취감도 매우 큰 그런 일이죠. 저도 즐겨 하는 취미중에 하나인데요. 직접 도면을 만들어 보는 것도 재미있겠다 싶어 하나 만들어 보았습니다. 

만들기에 앞서 컨셉은 다음과 같습니다. 쉬울 것, 귀여울 것, 장난감처럼 가지고 놀 수 있을 것.

그래서 암탉 인형을 만들어 보기로 했습니다. 

먼저 3DS MAX 로 모델링을 한 후 pepakura designer 로 전개도를 만들어 준 뒤 어도비 illustrator 를 이용하여 채색을 하고 A4 용지 내에 배치를 하였습니다.

 

최종 만들어진 도면은 아래와 같습니다.

 

제작 과정은 아래와 같습니다.

어렵지 않지만 처음 하시는 분은 참고를 하시면 도움이 되실 것 같습니다.

02_Chicken_Hen03.pdf
0.79MB
벼슬과 날개는 접어서 양변이 보이도록 접어 붙여 줍니다.

 

벼슬을 윗부분 구멍에 끼워 줍니다.
날개도 옆면에 길게 구멍을 낸 뒤 안쪽으로 붙여줍니다.
중앙부에 앞쪽부터 붙여나가 주면 됩니다.
모두 붙여준 뒤 부리를 앞쪽에 붙여주면 끝
아래쪽에 둥지를 만들어서 앉혀주면 완성.

 

ㅎㅎ 귀여운 암탉이 만들어 졌습니다.

첨부파일을 다운로드 받으신 후 A4 용지에 출력하여 만드시면 됩니다.

가능하면 좀 두툼한 종이를 사용하는 것을 추천드립니다.

그럼 이만~

 

반응형

+ Recent posts