낭만소방관

- http://cafe.naver.com/excelmaster/131563 Option Base 1Option ExplicitSub Macro() Dim wsData As Worksheet Dim wsChart As Worksheet Dim Data As Range Dim Tmp As Range Dim rngPaste As Range Dim i As Long Dim CellsColor() As Long Dim DataCount As Long ' 변수설정 구간 Set wsData = Sheets(1) Set wsChart = Sheets(2) ' 기존자료를 초기화 후에 데이터 붙여넣기 셀 선언 With wsChart.Range("A3") .CurrentRegion.Offset(2).Clear Set rn..

http://cafe.naver.com/excelmaster/131699 내용에 '완료'면 도형이 빨갛게'진행중'이면 파랗게 변하는 매크로 Private Sub Worksheet_Change(ByVal Target As Range) Dim clrFree&, strRng$ Dim Shp As Shape Application.ScreenUpdating = False '화면 업데이트 중지 With Target If .CountLarge > 1 Then Exit Sub '다중셀 선택 시 매크로 종료 If .Column 5 Then Exit Sub 'E열 이외의 셀 선택시 매크로 종료 strRng = .Address '데이터를 입력한 셀 주소 Select Case .Value Case "완료": clrFree =..

색이 입혀진 셀과 그렇지 않은 셀을 더하는 사용자정의 함수 =colorSum(A2:A5) 처럼 영역만 잡으면 색이 입혀진 셀을=colorSum(A2:A5,2) 처럼 뒤에 2를 넣으면 색을 입히지 않은 셀을 더한다. Function colorSum(rnGData As Range, Optional col As Integer = 1) As Long'영역만 잡으면 색 입혀진 셀을 더함'colorSum(A1:A4,2) 로 하면 색 안 입혀진 영역을 더함 Dim rnG As Range Dim tmp As Long Application.Volatile '사용자함수 재구동 For Each rnG In rnGData '영역 순환 Select Case col Case 1 '색이 입혀진 셀 합계 If rnG.Interior..

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=262937009 고수님들의 소중한 조언 부탁드립니다. 다름이 아니라 엑셀 경우의 수 인데요1-9까지 3조합 입니다. 여기서 1-9까지 값을 주고 조합하면 합계가 나오게끔 하는 방법좀 알려주세요...아무리 찾아도 어렵네요...부탁드릴게요참고로 1,1,1 / 1,1,2/ . . . 이런식으로 나가게 하고싶어요 가능하시면 첨부파일도 부탁합니다. --------------------------------------------------------------------------------------------------- Option Base 1Option ExplicitSub Macro() D..

http://cafe.naver.com/excelmaster/131389 에 올라온 질문 7개 팀이 있고 한개 팀에 최대 5명의 팀원이 있다.1. 7개 팀을 섞고2. 팀원을 섞어서서로 겹치지 않게 순서표를 짜는 매크로 Option Base 1Option Explicit Sub Macro() Dim wsTable As Worksheet: Set wsTable = Sheets("표") Dim wsList As Worksheet: Set wsList = Sheets("순서") Dim v$() Dim vRnd, vTable Dim rnG As Range, rnGList As Range Dim i%, j%, a%, b% Dim intMax%, intMax2%, cntMan%, tmP '기존자료 초기화 Set rn..

split으로 해도 되는데정규식으로 해도 쉽게 끝낼 수 있는데꾸역꾸역 Replace를 사용해보고 싶어서. 정규식 설명이 잘 되어있는 블로그- http://blog.naver.com/asaph16/220465400967 ------------------------------------------------------------------------------------------------------------------------------ http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=261951302 블루(^^)그레이(^^) 이렇게 한 셀에 있는 걸 색상II블루(^색상II그레이(^ 이렇게 결과로 받고 싶습니다 두번째"^" 앞 까지요..

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=261860049 안녕하세요.특정 열의 글자들을 지정한 갯수 만큼 분리하여 오른쪽 항목으로 넣는 매크로를 요청드립니다. 자세한 내용은 첨부된 엑셀을 보시면 금방 이해하실 수 있을 겁니다. 레코드 수가 너무 많아서 제가 만든 if문 복사로는 힘이 드네요. 레코드 수가 보통 10만개가 넘어서 드레그 하기에는 다소 문제가 있습니다.최대 글자수는 100자 이하이므로 10글자씩 10항목으로 자를 수 있습니다. 도와주세요. 12345678910111213141516171819202122232425262728293031323334353637383940Sub Macro() Dim p As Object, ..

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=261474241 도움을 요청드립니다. 엑셀에서 한글로 입력 된 셀을 영어로 변환하고 싶은데 아무리 찾아도 자료가 없네요..한글주소를 소리나는대로 영문으로 바꾸는 메크로는 찾았는데, 제가 원하는 것은 소리나는대로 변환되는게 아니라 영어자판으로 놓고 한글을 타이핑 한것처럼 변환되었으면 합니다. 예를들면.. 사랑 -> tkfkd대한민국 -> eogksalsrrn도와주세요 -> ehdhkwntpdy 이렇게요.. 엑셀 D/B 작성중인데 수심만개의 자료를 변환 해야하는데.. 수기로는 못하겠죠? 매크로 코드도 좋고, 수식도 좋고요. 도움주신 분께 감사내공 드리겠습니다.

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=261472370 동명이인을 팝업창에 나타나게 하여 한명만 선택후 셀에 입력하는 매크로가 필요합니다.아래의 B2 셀에 이름을 입력하고 단추버튼(C2셀에단추버튼이 있다고 가정)을 클릭하면 팝업창에F2셀부터 있는 이름이 팝업창에 쭉 뜨면 그중 하나를 선택하여 B4셀에 들어가게 하는 매크로가 있을까요?고수님들의 도움을 기다립니다.

화면보호기 업그레이드 버전사진을 선택하면 슬라이드 형식으로 진행된다. 미리보기가 추가되었고선택한 파일은 레지스트리에 추가하여 컴퓨터가 재부팅이 되어도 설정을 기억하게 했다.현재 시간도 출력. 디자인은 날씨까지 마무리 짓고 난 후에 ㅎㅎ 페이드 인/아웃 형식의 슬라이드쇼도 보류.타이머 공부를 많이 해야겠네. 다음 화면보호기 프로젝트는 날씨를 넣는 것.맥 바탕화면에 많이 쓰는 설정. MSDN 참조를 많이 했는데 옛날 버전이고 영문이라 메뉴 부분에서 많이 헷갈렸는데다행히 여기서 결정적인 힌트를 얻음. - http://preempted.blogspot.kr/2014/11/screen-saver-preview-window-p-success.html + 화면보호기 미리보기 + + 설정 클릭 시 파일 선택 설정 + ..