모바일 오유 바로가기
http://m.todayhumor.co.kr
분류 게시판
베스트
  • 베스트오브베스트
  • 베스트
  • 오늘의베스트
    		•
    유머
  • 유머자료
  • 유머글
    		•
    이야기
  • 자유
  • 고민
  • 연애
  • 결혼생활
  • 좋은글
  • 자랑
  • 공포
  • 멘붕
  • 사이다
  • 꿈
  • 똥
  • 군대
  • 밀리터리
  • 미스터리
  • 술한잔
  • 오늘있잖아요
  • 투표인증
  • 새해
    		•
    이슈
  • 시사
  • 시사아카이브
  • 사회면
  • 사건사고
    		•
    생활
  • 패션
  • 패션착샷
  • 아동패션착샷
  • 뷰티
  • 인테리어
  • DIY
  • 요리
  • 커피&차
  • 육아
  • 법률
  • 동물
  • 책
  • 지식
  • 취업정보
  • 식물
  • 다이어트
  • 의료
  • 영어
  • 맛집
  • 추천사이트
  • 해외직구
    		•
    취미
  • 사진
  • 사진강좌
  • 카메라
  • 만화
  • 애니메이션
  • 포니
  • 자전거
  • 자동차
  • 여행
  • 바이크
  • 민물낚시
  • 바다낚시
  • 장난감
  • 그림판
    		•
    학술
  • 경제
  • 역사
  • 예술
  • 과학
  • 철학
  • 심리학
    		•
    방송연예
  • 연예
  • 음악
  • 음악찾기
  • 악기
  • 음향기기
  • 영화
  • 다큐멘터리
  • 국내드라마
  • 해외드라마
  • 예능
  • 팟케스트
    		•
    방송프로그램
  • 무한도전
  • 더지니어스
  • 개그콘서트
  • 런닝맨
  • 나가수
    		•
    디지털
  • 컴퓨터
  • 프로그래머
  • IT
  • 안티바이러스
  • 애플
  • 안드로이드
  • 스마트폰
  • 윈도우폰
  • 심비안
    		•
    스포츠
  • 스포츠
  • 축구
  • 야구
  • 농구
  • 바둑
    		•
    야구팀
  • 삼성
  • 두산
  • NC
  • 넥센
  • 한화
  • SK
  • 기아
  • 롯데
  • LG
  • KT
  • 메이저리그
  • 일본프로야구리그
    		•
    게임1
  • 플래시게임
  • 게임토론방
  • 엑스박스
  • 플레이스테이션
  • 닌텐도
  • 모바일게임
    		•
    게임2
  • 던전앤파이터
  • 롤
  • 마비노기
  • 마비노기영웅전
  • 하스스톤
  • 히어로즈오브더스톰
  • gta5
  • 디아블로
  • 디아블로2
  • 피파온라인2
  • 피파온라인3
  • 워크래프트
  • 월드오브워크래프트
  • 밀리언아서
  • 월드오브탱크
  • 블레이드앤소울
  • 검은사막
  • 스타크래프트
  • 스타크래프트2
  • 베틀필드3
  • 마인크래프트
  • 데이즈
  • 문명
  • 서든어택
  • 테라
  • 아이온
  • 심시티5
  • 프리스타일풋볼
  • 스페셜포스
  • 사이퍼즈
  • 도타2
  • 메이플스토리1
  • 메이플스토리2
  • 오버워치
  • 오버워치그룹모집
  • 포켓몬고
  • 파이널판타지14
  • 배틀그라운드
    		•
    기타
  • 종교
  • 단어장
  • 자료창고
    		•
    운영
  • 공지사항
  • 오유운영
  • 게시판신청
  • 보류
    		•
    임시게시판
  • 메르스
  • 세월호
  • 원전사고
  • 2016리오올림픽
  • 2018평창올림픽
  • 코로나19
  • 2020도쿄올림픽
    		•
    • 게시판찾기
    • 오유인페이지
    개인차단 상태
    김민감자님의
    개인페이지입니다
    가입 : 12-08-02
    방문 : 3781회
    닉네임변경 이력
    일반게시판
    베스트게시판
    베스트오브베스트
    댓글목록
    회원차단
    회원차단해제
    		  

    김민감자님의 댓글입니다.
    번호 제목 댓글날짜 추천/비공감 삭제
    90 ㅠㅠ 엑셀 좀 도와주세요 [새창] 2013-10-25 10:13:41 0 삭제


    89 ㅠㅠ 엑셀 좀 도와주세요 [새창] 2013-10-25 10:13:31 0 삭제


    88 ㅠㅠ 엑셀 좀 도와주세요 [새창] 2013-10-25 10:13:18 0 삭제


    87 ㅠㅠ 엑셀 좀 도와주세요 [새창] 2013-10-25 10:13:08 0 삭제


    86 ㅠㅠ 엑셀 좀 도와주세요 [새창] 2013-10-25 10:12:58 0 삭제


    85 ㅠㅠ 엑셀 좀 도와주세요 [새창] 2013-10-25 10:07:20 0 삭제

    1. 아래 그림처럼 열 부분을 드래그해서 선택 후, Ctrl + G 또는 F5 키를 누르면 '이동' 창이 뜬다.

    2. '이동' 창의 '옵션(S)'을 누른다.

    3. '이동 옵션' 메뉴의 종류에서 '빈셀(K)' 를 선택한 후 확인을 누른다.

    4. 빈셀이 선택된 셀 위에서 마우스 우클릭 - 삭제 - 셀을 위로 밀기 순으로 실행한다.

    5. 추천한다.
    84 usb 케이블 어디서 구할수 있을까요 [새창] 2013-10-22 11:33:18 1 삭제
    용산이 근처에 없다면 그냥 인터넷 주문하시는 걸 추천합니다.
    83 디스커버리인가 사람눈과 관련된 다큐 찾아요 [새창] 2013-10-22 10:58:14 0 삭제
    내셔널지오그래픽 착시 말씀하시는 듯 하군요~
    82 원 게시글이 삭제되었습니다. [새창] 2013-10-22 10:51:03 0 삭제

    마지막 9번의 결과 값만을 원하는 경우라면 아래와 같이 코드를 작성하시고 실행해보시기 바랍니다.
    데이터가 있는 아래 행에 9번의 결과 값이 나타날 것입니다.
    a1:h1 값은 데이터 위치에 맞게 수정하시기 바랍니다.

    Sub test_Macro()
    Dim var_Tmp
    Dim var_Dft As Integer, val_Lst As Integer
    Dim clt As New Collection, clt2 As New Collection
    Dim data_Rng As Range

    Set data_Rng = Range("a1:h1") 'a1:h1 은 데이터가 있는 영역에 맞게 수정
    var_Tmp = data_Rng
    val_Dft = var_Tmp(1, 8)

    Application.ScreenUpdating = False

    For i = 1 To 8
    If var_Tmp(1, i) < val_Dft Then
    clt.Add var_Tmp(1, i)
    ElseIf var_Tmp(1, i) > val_Dft Then
    clt2.Add var_Tmp(1, i)
    End If
    Next i

    For i = 1 To clt.Count
    var_Tmp(1, i) = clt(i)
    Next i

    For i = 1 To clt2.Count
    var_Tmp(1, clt.Count + i) = clt2(i)
    Next i

    val_Lst = var_Tmp(1, clt.Count + 1)

    var_Tmp(1, clt.Count + 1) = val_Dft
    var_Tmp(1, 8) = val_Lst

    data_Rng.Offset(1, 0) = var_Tmp

    End Sub
    81 원 게시글이 삭제되었습니다. [새창] 2013-10-22 10:29:06 0 삭제
    같을 경우는 없는 건가요?
    80 원 게시글이 삭제되었습니다. [새창] 2013-10-21 20:43:53 1 삭제

    결과 스샷
    79 원 게시글이 삭제되었습니다. [새창] 2013-10-21 20:42:08 1 삭제

    5번 스샷
    78 원 게시글이 삭제되었습니다. [새창] 2013-10-21 20:41:16 1 삭제

    1. Alt + F11 버튼을 눌러서 VBA 창을 띄운다.

    2. 모듈을 하나 추가한다. (VBAProject 영역 부분에서 우 클릭 - 삽입 - 모듈)

    3. 우측 코드 적는 부분에 다음과 같이 입력한다.

    '----------------------------------------아래부터 복사----------------------------
    Sub test()
    Dim var_Tmp(), var_Arr, var_Inp

    Application.ScreenUpdating = False

    With Columns("a")
    .ClearContents
    .NumberFormatLocal = "@"
    End With

    var_Arr = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")

    For i = 0 To UBound(var_Arr)
    For ii = 0 To UBound(var_Arr)
    r = r + 1
    ReDim Preserve var_Tmp(1 To r)

    var_Tmp(r) = var_Arr(i) & var_Arr(ii)
    Next ii
    Next i

    ReDim var_Inp(1 To r, 1 To 1)

    For i = 1 To r
    var_Inp(i, 1) = var_Tmp(i)
    Next i

    Range("a1:a" & UBound(var_Inp)) = var_Inp

    End Sub

    '----------------------------------------윗 줄까지 복사----------------------------


    4. VBA 창을 닫은 후 Alt + F8 버튼을 누른다.

    5. 'test' 라는 매크로를 실행한다.

    6. 완성된 리스트를 보고 낄낄댄다.

    7. 추천한다.
    77 플레이오프 3, 4차전 예매 문의드려요...입금관련 [새창] 2013-10-18 14:08:53 0 삭제
    아.. 실패했음.. ㅠㅠ
    76 강아지만큼 작은 미니사슴, '푸두' (귀여움 폭발주의) [새창] 2013-10-17 20:30:26 8 삭제
    절대 미니가슴 유두로 보지 않았음!



    [◀이전10개] [41] [42] [43] [44] [45] [46]

    		 
    단축키 운영진에게 바란다(삭제요청/제안) 운영게 게시판신청 자료창고 보류 개인정보취급방침 청소년보호정책 모바일홈