달력

12

« 2014/12 »

반응형
728x90
반응형

 

 

아토피 치료 - 아토피에 좋은 알로에 주스 만들기

 

 

겨울이 짙어 가는 터라 날씨는 추워지고 방은 아주 건조해지고 그렇다고,

 

가습기를 틀자니 습기때문에 공팡이로 다시 고민이 생길 것 같고 해서...

 

 

결정한 것 수분을 자주 보충해서 피부에 탄력을 주는 것이 가장 나은 방법이라...

 

오늘은 지난번 마트에 갔을 때 샀던 탱탱한 알로에 주스를 만들어 본다

 

 

 

먼저 알로에를 송송송 각지게 잘 갈릴 수 있도록 썰어준다..

 

모양이 웬 뱀모양 같다고 애들이 ... 웃고 난리다..

 

 

이 녀석들 나중에 먹어보면 ... 좋다고 난리일 걸 ^^

 

 

 

 

각 썰은 알로에를 핸드믹서용 컵에 담고 물 1/4정도와 올리고당 1스푼을 섞어준다.

 

 

 

야쿠르트와 할 수도 있지만 건강에는 역시 설탕덩어리 보다는

 

자연 ..산 이 최고..

 

 

맛있게 갈아진 알로에 주스

 

거품이 나는 게 꼭 바리스타가 된 느낌이다...

 

 

애들에게 건네 주니 막내는 언니랑 같은 양으로 안준다고 땡강이다.

 

나도 한모금 살짝 먹어보니... 이건 조금은 닝닝하다고나  할까?

 

 

근데 살짝 알로에가 씹히는 것이 살짝 단맛과

 

제법 잘어울리는 자연이 살아있는 알로에쥬스

 

집에서 직접 해드시고 건강을 유지하시길 바라며 포스팅을 마감한다.

 

 

휴롬원액기 사용 후기

 

http://mapagilove.tistory.com/entry/아토피-치료-휴롬-원액기-사용-후기

 

http://mapagilove.tistory.com/entry/아토피-치료-밀감-쥬스-만들기

 

http://mapagilove.tistory.com/entry/아토피-치료-단감-쥬스-만들기

 

http://mapagilove.tistory.com/entry/아토피-치료-아토피에-좋은-알로에-주스-만들기

 

http://mapagilove.tistory.com/entry/아토피를-이기는-녹즙-만들기-멜론주스

 

728x90
반응형
:
Posted by mapagilove
728x90
반응형

 

 

 

 

[ 엑셀VBA 4 ] 불량관리 프로그램 만들기 - 반복문 For ~ next, Do while

 

 

엑셀 VBA로 데이터 관리 프로그램을 만들려다 보면 데이터를 조회하거나 일정한 수로 반복적으로 증가하는 입력에

대하여 좀더 쉽게 입력할 방법을 생각하는 분들이 있을 것이다. 이때 사용할 수 있는 구문이 Do while 문과 For next문

이다.

 

먼저 for next 문을 설명을 하자면

 

for 변수= 초기값 to 종료값

        만약, 중간에 for문은 빠져나가고 싶다면 exit for

next 변수

 

for 문 예시 - 구구단 2단 만들기

 

Sub 구구단2단()
Dim a As Integer

Dim b As Integer
Dim c As Integer

Dim d As String
Dim d1 As String
Dim result As String


For a = 2 To 2    '--> 구구단 2단을 시작 만약, 3단 까지 하고 싶다는 진한 2부분을 3으로 변경
    For b = 1 To 19  '--> 2단을 19까지 곱셈함
            c = a * b   '--> c는 곱셈한 값임.
            If b = 1 Then
               d = a & "×" & b & "=" & c
               result = d
            Else
               d1 = a & "×" & b & "=" & c
               result = d1 & vbCr & result
            End If

            '--> 계산방법을 누적해서 문자로 표현해 누적
              If b = 5 Then Exit For  '--> 5번째까지 계산 후 나가고 싶다면 ... 사용
    Next b
Next a
MsgBox result  '--> 결과를 표시함.
End Sub

 

 


 

 

 

 

 

Do while문을 설명을 하자면

 

변수 = 시작값

Do While 변수종료 조건

        만약, 중간에  Do While 문은 빠져나가고 싶다면 exit do

        변수 = 변수 + 증가값

Loop  

 

Do While 문 예시 - 구구단 2단 만들기


Private Sub TestDoWhile()
Dim a As Integer

Dim b As Integer
Dim c As Integer

Dim d As String
Dim d1 As String
Dim result As String

    a = 2
    Do While a <= 2
        b = 1
        Do While b <= 19
            c = a * b   '--> c는 곱셈한 값임.
            If b = 1 Then
               d = a & "×" & b & "=" & c
               result = d
            Else
               d1 = a & "×" & b & "=" & c
               result = d1 & vbCr & result
            End If

            '--> 계산방법을 누적해서 문자로 표현해 누적
             ' If b = 5 Then Exit Do '--> 5번째까지 계산 후 나가고 싶다면 ... 사용


            b = b + 1 ' --> 변수의 증가
        Loop
        a = a + 1 '--> 변수의 증가
    Loop
    MsgBox result  '--> 결과를 표시함.
End Sub

 

위와 같이 약간의 수식만 사용방법만 틀릴 뿐 같은 결과를 만들 수 있다..

 

구구단.xlsm

 

불량율관리 프로그램 만들기 시리즈

 

1. 매크로의 이해

2. 절대참조와 상대참조

3. 조건절 if

4. 반복문 for - next

 

5. 조건문 select case

6. 데이터베이스의 구성

7. 유효성검사를 통한 입력 규칙만들기

8. 이중유효성검사 적용

 

9. 엑셀 데이터베이스 사용설정 적용하기

10. 분석툴 만들기

11. 데이터입력 행삽입 모듈만들기

12. 대용량 DB사용을 위한 SQL함수 알아보기

13. SQL 합수 프로그램에 적용하기

 

728x90
반응형
:
Posted by mapagilove
2014. 12. 4. 20:44

[ 엑셀 ] 서식의 자동 채우기 엑 셀 이야기2014. 12. 4. 20:44

728x90
반응형

 

 

 

[ 엑셀 ] 서식의 자동 채우기

 

 

특정하게 입력된 수식이나 값에 대하여 일정한 서식을 빨리 적용하고 싶다면 서식의 자동채우기

기능을 강력하게 추천하고 싶다.

 

 

입력된 데이터를 일일이 색상을 바꾸고 셋팅하고 하는 고민을 한방에 덜어 줄수 있는 기능이다.

스피드한 작업의 최고봉을 보여주는 기능이라고 생각한다.

 

아래는 작업방법을 간단히 포스팅 해본다.

 

 

 

위의 데이터의 전체에 일정한 서식을 빨리 주고 싶은 경우 서식이 적용될 일정한 범위를 먼저

선택한다.

 

 

 

 

 

다음은 홈에서 표서식을 클릭 후 우측의 적용서식에서 마음에 드는 서식을 선택한다.

 

 

 

멋지게 서식이 적용되어 마무리 된모습~~ 와 짱이다.

 

 

 

끝으로 완벽하게 월간 불량 관리 데이를 작성완료

728x90
반응형
:
Posted by mapagilove
728x90
반응형

 

 

 

[ 엑셀 ] Rounddown 함수에 대하여

 

 

우리가 요즘 사용하는 데이터들은 예전의 경우 정수 단위의 숫자를 많이 필요로 했다면 산업이

발달할 수록 좀더 정밀한 데이터분석을 함으로 인해 소숫점 단위 이하의 데이터들을 많이 얻게

되는 시대가 되었다.

 

 

그런데, 많은 경우 결과를 요구하는 사람에 따라 소숫점 없이 정수로만 혹은 소숫점 첫째자리

까지 요구한다던가 하는 규칙성 데이터를 필요함으로 인해 Rounddown이라는 함수는 필수가

되었다.

 

사용하는 방법을 포스팅해보면...

 

맨처음 출력한 데이터는 99.14534 등의 소수점 5자리까지 표시되지만 이것을 정수로만 표시하고

 

싶은 경우는 다음 순서로..

 

 

 

해당 값을 기준으로 =Rounddown(10.5436,0) 으로 입력하면

10이라는 결과를 얻을 수 있다.

 

만약, 일정한 셀에 값에 일정한 값들이 들어 있다면,

=Rounddown(A4,0) 등으로 표현 후 드래그 하면 전체 값의 소숫점 단위가 바뀐다.

 

 

단위수를 조절하고 싶다면 , 다음에 0 대신 다른값을 넣어 보시길~~

 

 

 

아래 처럼 위 수식을 드래그 하니 전체가 정수로 바뀌었다.

 

 

우와 목적에 따라 유용하게 사용할 수 있다는 사실~

 

 

728x90
반응형
:
Posted by mapagilove
2014. 12. 4. 20:08

[ 엑셀 ] Rand 함수에 대하여 엑 셀 이야기2014. 12. 4. 20:08

728x90
반응형

 

 

[ 엑셀 ] Rand 함수에 대하여

 

 

 

문득 예전에 학교 레포트를 쓰다가 다수의 불특정 데이터가 필요하여 하나 하나씩

임의적으로 집어넣어 데이터를 만들고 있는데 .... 음 쩝

 

 

친구가 rand 라는 엑셀 함수를 가르쳐 주어 몇번씩 고민하고 시간이 많이 걸려서

힘들었던 레포트를 마무리 하게 되었다.

 

 

우선 rand 함수를 설명해보면 이 함수는 참 신기한 함수로써 무작위로 0.XX 대의 

숫자를 생성해 준다.

 

사용방법에 대하여 포스팅 해보면... 

 

 

 

아래와 같이 월간 불량 현황의 데이터를 만들고자 한다면 다수의 임의 데이터가 필요한 경우가 있다.

 

그때는 B22 데이터와 같이 =Rand()라는 함수를 집어넣는다.

 

값이 소숫점 이하의 0.104952라는 데이터가 생성되었다.

 

근데, 내가 필요로 하는 단위는 100이하 소수 이상이라고 하면 .. 다음

 

 

 

100 이하의 숫자가 필요한 경우 여기다가 *100이라는 수식을 더해 준다.

=Rand()*100 그러니,99.23136 이라는 값을 얻었다.

 

 

만족하는 단위의 값을 얻었다면 이 수식을 전체로 드래그,

 

 

 

그랬더니, 위와 같이 아주 다양한 멋진 가짜 데이터를 얻는 데  성공~~

 

 

마지막으로 현재의 값을 입력된 값으로 만들고 싶다면 전체 영역을 선택 - 복사 -

 

붙여넣기를 할 영역을 선택한 후 선택하여 붙여넣기 - 값 선택 후 확인을 하면

 

완벽한 입력값으로 바뀐다.

 

 

 

728x90
반응형
:
Posted by mapagilove
728x90
반응형

 

 

방문 손잡이 새것으로 교환 해보기

 

 

어제 갑자기 애들이 장난을 하던 탓에 안방 방문 손잡이가 댕강 날라가면서 고장이 났다..

 

쩝 인제 얼마 안있으면 이사도 가는데 .. 안될 녀석을 안되는 가?

 

참, 참을까하다가 회사를 퇴근하고 마트에서

 

안방 손잡이를 사와서 직접 교환하는 과정을 포스팅해본다.

 

 

 

고장난 방문 손잡이를 교환하기 위해 마트를 방문 다양한 종류의 손잡이가 있다. 

 

자 우선 키를 뜯어내고 뒷쪽에 있던 손잡이를 분해 한다.

 

방문 손잡이 조립시 편리하게 해주는 전동 공구, 작아도 힘이 아주 세다.

 

왠만한 가사일은 이놈을 이용하면 아주 편리하다.

 

 

 

 

포장을 뜯어 보니 여러가지 부품이 있다.

 

 

조립 순서는 중간에 키를 먼저 조립하고 양쪽 손잡이를 조립 후

 

나사로 마무리~~~

 

 

 

 

분해가 완료되면 먼저 키를 넣고 조립한다.

 

 

 

그리고, 앞쪽 손잡이 모듈을 끼우고,

 

 

 

뒷쪽 모듈까지 합체... 빠빠라 짠~~ 

 

뒷쪽 모듈에 나사를 결합하니 작업 끝~~

 

 

 

마지막으로 가장 중요한 키에 어디 열쇄인지 기록한다

 

  

아무래도 직접 교환했을 때 얻는 성취감은 최고가 아닌가 싶다.

 

 

 

728x90
반응형
:
Posted by mapagilove
반응형