낭만소방관

간단하다. 두 시트의 내용을 한 시트로 합치는 내용으로 Find, Cut, Copy 로 금방 해결가능하다. 어떤 방식을 써볼까.. 고민하다가 그냥 무식하게 밀고 나감. Option Explicit Sub getData() Dim wsAll As Worksheet, wsList As Worksheet, wsData As Worksheet Dim dataList As Range, dataTable As Range, rngPaste As Range Dim rngCell As Range, rngData As Range Dim intR As Integer Dim i As Integer With Application .ScreenUpdating = False .EnableEvents = False .Calculat..

​동아리 선배의 카스를 보고 나도 선택한 양모리학교.남해라서 좀 신경이 쓰이긴 했지만, 추운 탓에 겨울 내내 집에서만 지낸 우리 아들이 신경쓰이기도 하고 미안하기도 하고맑은 공기 쐬어주고 싶기도 하고. 1박 2일 코스를 하루만에 소화하려니 소화가 안 돼서 ㅋㅋㅋㅋ가는 데 4시간, 오는 데 3시간.하루 7시간을 차에서 보낸 내 새끼에게 더 미안한 하루.다음엔 집 가까운 곳에서 텐트치고 자전거 타자, 아들아. 먼 것 빼고는 다 좋았던 남해 양모리 학교.미정이랑 데이트할 때 갔던 거북선도 오랜만에 방문. ​​​​​​​​

엑셀 카페 질문게시판에 올라온 글. 유효성목록에서 항목을 선택하면 차트가 생성됐으면 한다는 질문. 함수를 이용한 답변이 올라왔지만, 매크로로 만들어보았다. B2 셀을 누르면 분류를 기준으로 유효성목록이 생성되면서 기존에 있던 차트가 없어지고 B3 셀에서 목록을 선택하면 해당 분류의 차트가 생성된다. 분류에 따른 연도 선택은 이중유효성 목록으로 만들었다. 데이터를 추가하거나 분류 자체를 추가하는 것도 가능하다. Option Explicit Sub mkList() Dim rngStart As Range Dim vrList() As Variant, jnList As String Dim rngCell As Range, rngArea As Range Dim i As Integer, cntLi As Integer ..

MBC에서 한글날 특집으로 준비한 '말의 힘' 눈과 귀가 없는 쌀밥도 이러한데,이 말을 듣는 사람들과, 이 말을 하는 사람들에게 미치는 영향은 곰팡이 그 이상일 듯하다.나이를 먹으면 본인 얼굴에 책임을 지라는 말은 헛말이 아닌 듯

시트1에 각 테이블의 제목이 있고 제목을 누르면 다른 시트의 테이블로 이동하는 하이퍼링크를 설정하는 매크로다. Sub mkHyper() Dim rngCell As Range, rngArea As Range Dim fnTable As String Dim i As Integer Set rngArea = Range("A2", Cells(Rows.Count, "A").End(xlUp)) '각 시트를 순환하며 작업 For i = 2 To Sheets.Count 'Sheets(1) A열을 돌며 하이퍼링크 설정 For Each rngCell In rngArea '각 시트의 A열에 목록이 있으면 하이퍼링크 설정 If Not Sheets(i).Columns("A").SpecialCells(2).Find(what:=rng..

요즘 모래놀이에 초집중하는 우리 아들. 코코몽에 가도 모래놀이. 이마트에 와도 모래놀이. 어린이집에 윤슬이랑 같이 다니니 같이 놀러다니면 참 좋을텐데. 혼자는 외로우니 친구랑 같이 놀면 한결 낫자녀. 옆에 앉아 있으래서 모래놀이터 옆에 앉아서 적는 중 ㅋㅋ​

VBA 의뢰하는 것이 생각보다 고가임을 알고는 이제 섣불리 답을 달지 못하겠다. 해서, 질문이 올라오면 혼자 코드를 짜고 이곳에 올리고, 의뢰를 유도해야겠다. 돈도다는 다른 개발자들을 위함이니. 부부직원 시트를 참고하여 부부직원이 한 부서에 발령받으면 빨간색으로 표시하는 매크로이다. 대상자와 전입자를 배열에 넣고 부부직원을 다른 배열에 넣어서 For Each 구문을 이용하여 셀을 이동하며 인사시트와 부부직원 시트를 비교하도록 코드를 짰다. Union 의 사용법을 이번에 알아봤고(떨어져있는 범위를 선택할 때 매우 편함) For Next 구문보다 For Each의 힘을 알아봤던 이번 작업. Option ExplicitSub sbBubu() Dim wsInsa As Worksheet, wsBubu As Wor..

금액은 얼마 안 되지만 최초의 VBA 코딩 알바. 한 일에 비해 적은 금액이긴 하다. 하지만 많이 배움. 코드가 길다. 상품정리 시트를 기준으로 변환1, 변환2, 변환3 파일을 만드는 작업. 각 파일마다 특징이 있다. 1. 변환1에서는 색상과 사이즈가 한셀에 콤마를 기준으로 나열되어 있다. 이것을 임시셀을 삽입해서 임시셀에 색상과 사이즈를 텍스트나누기를 한 내용을 넣고 작업을 한 후에 임시셀을 삭제하는 것이 포인트. 2. 변환2에서는 상품명을 기반으로 첫 자음을 표기하는 것이 포인트. 상품명이 도트슬립일 때 ㄷ. 로 표기하는 것이 관건인데, 문제는 알파벳이 있다는 것이다. TOM 이라는 상품이 있으면 ㅌ. 라고 표기하는 것. 엑셀은 알파벳과 한글의 발음을 매치시키지 못하기때문에 Select Case 구문..

폴더를 선택하면 폴더 안에 있는 텍스트 파일을 모조리 불러오는 방식이다. 배열을 이용하여 속도향상에 중점을 두었다. 파일을 많이 불러올 수록 효과가 있는 코드. 이로서 밀린 매크로 작업 완료. Option ExplicitSub impLongTxt() Dim rngImport As Range Dim strPath As String Dim fileName As Variant Dim i As Long, j As Integer Dim varTemp() As String '작업속도 상승 With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual '기존자료 삭제 With Sheets(2) .Selec..

vba 답변을 열심히 달다보니 채팅으로 따로 묻는 사람도 생기네. 함수는 약합니다. 우리 아들 사진 좀 살렸다. 사진스트림이 살렸네​​​​