티스토리

땡큐엑셀vba & 엑셀매크로
검색하기

블로그 홈

땡큐엑셀vba & 엑셀매크로

thank-q.tistory.com/m

엑셀 그 이상의 엑셀 - 엑셀vba 배우기 - 엑셀vba 강의 - 엑셀vba 기초 - 엑셀 애드인 프로그램

구독자
7
방명록 방문하기
공지 모든것이 가능한 땡큐엑셀입니다. 모두보기

주요 글 목록

  • [땡큐엑셀vba & 엑셀매크로] 고급필터를 사용하여 데이터검색 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=281810490 '아래처럼 'data' 시트에 자료가 있고 '조회'시트에서 검색을 하면 검색조건에 맞는 결과를 출력하는걸 만드려고 합니다. 어떻게 만들어야할지 모르겠어......엑셀가계부로 검색해봤는데 너무 어려워서 좀 도와주세요. ' AdvancedFilter,WorksheetFunction.Sum ' ' source by 땡큐엑셀vba & 엑셀매크로 ' Sub 고급필터() ' '결과영역 삭제 Range("A10").CurrentRegion.Clear 'data시트 A:I열에서 조건에 맞는 값을 찾아 A10부터 출력한다 Sheets("data").Columns("A:I").Advanc.. 공감수 1 댓글수 0 2020. 9. 10.
  • [땡큐엑셀vba & 엑셀매크로] 정규식(regex)을 이용하여 값추출하기 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=286888397 '엑셀에서 그림과 같이 특정 데이터를 다른 필드로 이동시키고 싶은데 '고수님들의 조언 부탁드립니다 '[시트소스] ' 'Source by 땡큐엑셀vba & 엑셀매크로 ' Sub 값추출() For Each ea In Selection 추출값1 = thankqStatus추출(ea.Value) 추출값2 = thankqUserNam추출(ea.Value) ea.Offset(0, 1) = 추출값1 ea.Offset(0, 2) = 추출값2 Next MsgBox "완료되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로" End Sub '정규식을 사용하여 'Statu.. 공감수 1 댓글수 0 2020. 9. 9.
  • [땡큐엑셀vba & 엑셀매크로] 해당월시트에서 이름찾기 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=277652259 ' '각기 다른셀에 있는 내용 중 마지막셀에 '빌린날짜와 차량이 중복되는 사람이 있는지 없는지 확인하는 방법좀 알려주세요 ㅠㅠㅠㅠㅠ '그날짜에 그 차량에 누가 빌렸는지를 알고싶어요 서류정리를 해야하는데, 미치겠어요 '고수님들 도와주세요 '해당월 시트에서 차번호를 검색하여 이름찾기 ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Sub 찾기() 마지막행 = Cells(Cells.Rows.Count, "A").End(xlUp).Row '마지막행까지 돌면서 처리 For i = 2 To 마지막행 월 = Month(Cells(i, "A")) & "월" 차번호 = Cells.. 공감수 0 댓글수 0 2020. 9. 8.
  • [땡큐엑셀vba & 엑셀매크로] 고급필터 검색 'http://kin.naver.com/qna/detail.nhn?d1id=11&dirId=1128&docId=279404024 ' '회사에서 사용하는 프로그램을 자체적인 문제로 인해 더이상 사용할수 없게되어...여차여차 하여 '여튼 네이버를 뒤지다가 VBA를 통해서 엑셀 내에서 검색이 가능한로 확인하였습니다. '근게 도통 알수가 없네요.... 혹시 초고수님들은 쉽게 하시지 않을까해서 '도움 요청 드립니다. '대략 파일은 이러한데....제가 원하는건 업체명과 품명을 검색하면 모든정보가 나올수 있게가 가능한지 '궁금하며, 혹시 만들어 주실수 있으신지 입니다. ㅜㅜ '고급필터를 이용한 검색 '데이터는 4행부터 있고 검색조건은 B1:C2에 있다는 가정하에서 아래의 코드를 수행해 보세요. 'B1:업체명칭,C1:.. 공감수 0 댓글수 0 2020. 9. 7.
  • [땡큐엑셀vba & 엑셀매크로] 선택셀 옆에 값 붙여넣기 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=279455003 ' '첨부한 파일의 B2:D5 테이블에 입력된 값을 C10:G32 붙여 넣기 하고 싶습니다. '단, 실행버튼을 클릭한 날짜와 A10:A32에 입력된 날짜가 일치할 경우 해당 열에 입력이 되어야 하는데요, VBA를 통해 가능할지 문의드립니다. ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Sub 주간데이터() '일자를 먼저 선택하세요 'Selection의 위치는 일자가 되고 offset(행,열)을 사용하여 위치를 잡습니다. Selection.Offset(0, 1) = Cells(2, "C") 'a Selection.Offset(0, 2) = Cells(3, "C".. 공감수 0 댓글수 0 2020. 9. 6.
  • [땡큐엑셀vba & 엑셀매크로] 폴더의 엑셀파일 리스트업 and 하이퍼링크 '폴더의 엑셀파일 리스트업 & 하이퍼링크걸기 ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Option Explicit Sub 폴더내_파일리스트업() Dim strPath As String '폴더의 경로를 넣을 변수 Dim fileName As String '각 파일 이름을 넣을 변수 Dim i As Integer '화면 업데이트 (일시) 정지 'Application.ScreenUpdating = False ' Cells.Clear '폴더선택 With Application.FileDialog(msoFileDialogFolderPicker) '폴더 선택창 띄우기 .Show If .SelectedItems.Count = 0 Then '취소 선택시 Exit Sub Else '폴더를 선택한 경우 str.. 공감수 0 댓글수 0 2020. 9. 5.
  • [땡큐엑셀vba & 엑셀매크로] 조건에 따른 바탕색 칠하기 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280850592 ' '사진과 같이 기준값 O,X 입력에 따른 자동 색상이 변화되고 '기준값 대비 답안1,2가 맞을 때, 하나라도 틀릴 때, 다 틀렸을 경우를 텍스트 O,X로 설정해서 '색상이 자동으로 변하도록 함수를 만들고 싶습니다. '가르침 부탁 드립니다 ^^ '가능한 간단한 영상으로 보여주시면 더욱 도움이 될 것 같습니다. '감사합니다. '사전에 이미지와 같이 설정시트를 만들고 실행하세요. ' ' ' source by 땡큐엑셀vba & 엑셀매크로 ' Sub 바탕색칠하기() Set 검색범위 = Sheets("설정").Range("D:D") 마지막행 = Cells(Rows.Count, .. 공감수 0 댓글수 0 2020. 9. 4.
  • [땡큐엑셀vba & 엑셀매크로] 특정단어만 색칠하기 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=293360786 ' '특정 단어만 색을 바꾸는법 없을까요? '제가 모두 바꾸기로 특정 단어 색을 바꿔봤는데?그렇게 하면 셀 안에 있는 모든 단어의 색이 바뀌어 안되더군요. '작성자: 땡큐엑셀vba & 엑셀매크로 ' Sub 컬러입히기() Set 검색범위 = Selection 찾을값 = Cells(1, "G") '범위의 모든 셀을 순환하면서 값을 찾아서 색을 입힌다. For Each R In 검색범위 'inStr함수로 찾을값 검색. 검색이 되면 시작위치를 반환합니다. pos = InStr(1, R, 찾을값) If pos > 0 Then k = k + 1 '찾은 글자에 색을 입힌다. With.. 공감수 1 댓글수 0 2020. 9. 3.
  • [땡큐엑셀vba & 엑셀매크로] 시트생성하여 업체별로 분리하기 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=282200498 ' '안녕하세요 '업무중 급한질문이 있어 질문드립니다ㅠㅠ '예를들어 A열에는 업체명이 들어가있고 업체마다 다른양의 상품들이 쭉 나오는데요 '1,2행에 있는 제목란은 공통으로 들어가고 (행높이는 지정된것으로 +셀너비가 글자수에 맞춰 늘어나게끔) '업체마다 엑셀을 다른이름(업체명)으로 저장해야합니다.. '각각의 파일은 A열에 있는 업체명으로 저장되어야합니다ㅠㅠ '도움부탁드려요 '예시파일 첨부합니다! ' 시트생성하여 업체별로 분리하기 ' ' source by 땡큐엑셀vba & 엑셀매크로 ' Sub 업체별분류() Dim srcOpt1 As Range Dim dstSht As S.. 공감수 0 댓글수 0 2020. 9. 2.
  • [땡큐엑셀vba & 엑셀매크로] 월별 항목별 명단리스트 - 사용자 정의함수 '엑셀 함수 이름명단찾기함수 좀 부탁드립니다. '안녕하세요 '엑셀함수 넣기 질문입니다. 아래 그림과 같이 시트 A 에 있는 것을 시트 B 와같이할려고 합니다. '자세한 질문은 파일에 올렸습니다. '범위-항목이 들어간 열의 구간 '항목-감사한금,십일조등 '월-1,2,3,4,5,6,7,8,9,10,11,12 ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Function nameList(범위 As Range, 항목 As String, 월 As Integer) Dim 명단 As String On Error Resume Next '범위내 루프 For Each r In 범위 'offset(0,1)을 하여 월추출 날짜 = Int(Format(r.Offset(0, 1), "m")) If 항목 = r.Value.. 공감수 0 댓글수 0 2020. 9. 1.
  • [땡큐엑셀vba & 엑셀매크로] 자동시계 ontime 이벤트 '[현재 통합문서] 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=283236287 ' 'NOW는 현재시간이 표시되고 더이상 올라가지않는데 '자동으로 현재시간으로 바뀌는걸 엑셀로 만들수있나요? 'Source by 땡큐엑셀vba & 엑셀매크로 ' '엑셀파일 오픈될때 실행되는 이벤트 Private Sub Workbook_Open() '1초후에 모듈에 있는 "시계" 프로시저 호출 예약시간 = Now + TimeSerial(0, 0, 1) Application.OnTime 예약시간, "시계" End Sub 'Source by 땡큐엑셀vba & 엑셀매크로 ' Sub 시계() '현재셀에 현재시간 표시 ActiveCell = Now Call 반복.. 공감수 1 댓글수 0 2020. 8. 31.
  • [땡큐엑셀vba & 엑셀매크로] a열에 데이터가 존재하면 b열의 값을 한줄 내려서 표시하도록 하려고 합니다. 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=293294923 ' '첫번째 표를 두번쨰 표 형식으로 바꾸려고 하는데요 'a열에 데이터가 존재하면 b열의 값을 한줄 내려서 표시하도록 하려고 합니다. '이걸 일일히 손으로 작업하지 않고 엑셀기능을 통해서 쉽게 할 수 있는 방법이 없을까요?? '[Sheet2] ' 'Source by 땡큐엑셀vba & 엑셀매크로 ' Sub 실행() '100행까지 (이부분은 입맛에 맞게 수정하여 사용하세요) For i = 1 To 100 strA = Range("A" & i) strB = Range("B" & i) If strA "" And strB "" Then '아래에 행삽입 Cells(i + 1, "A.. 공감수 0 댓글수 0 2020. 8. 30.
  • [땡큐엑셀vba & 엑셀매크로] O열에 값입력시 P열에 자동으로 날짜 시간입력 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=291935752 ' '완료 O열에 숫자 0을 쓰면 X표시가, 숫자 1을 쓰면 V표시가 되면서 해당 행 전체의 색이 변합니다 '완료 O열에 숫자 1을 쓸 경우 해당 행의 색이 변함과 동시에 '확인시간 P열에 V표시 시간을 자동으로 입력하고 싶습니다 ' '그리고 이름 F열에 내용을 기입하면 번호, 날짜, 시간이 자동으로 입력되는데 '이 부분에는 영향이 없었으면 좋겠습니다 ' 'O열 혹은 P열에 사용할 함수식 부탁드립니다 ' hello 시트 ' ' source by 땡큐엑셀vba & 엑셀매크로 ' Private Sub Worksheet_Change(ByVal Target As Range) '.. 공감수 0 댓글수 0 2020. 8. 29.
  • [땡큐엑셀vba & 엑셀매크로] 엑셀에서 사람 이름을 치면 어떤 셀에서든 옆 칸에 도장이 자동으로 찍히게 하고싶은데요. 어떻게 하면되죠? 'https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=302512665 ' '엑셀에서 사람 이름을 치면 어떤 셀에서든 옆 칸에 도장이 자동으로 찍히게 하고싶은데요. 어떻게 하면되죠? '이 매크로 쓰니까 이미지 이름을 치면 옆에 사진이 나오긴 하는데 A열에서만 나오네요. 어떤 셀에서든 이름을 치면 바로 옆칸에 이미지가 뜨면 좋겠어요. 그리고 이 매크로를 쓰면특정 폴더에서 이미지를 못 가져오나요? 무조건 엑셀파일이랑 같은 폴더 안에 있으면 넣을 게 너무 많아져서요. '부탁드립니다 ' 'Modified 땡큐엑셀vba & 엑셀매크로 ' Private Sub Worksheet_Change(ByVal Target As Range) Dim StrFil.. 공감수 0 댓글수 0 2020. 8. 28.
  • [땡큐엑셀vba & 엑셀매크로] 해당구간 날짜 색칠하기(worksheet_change이벤트) 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=281139295 ' '밑에 처럼 시작 점과 종료 지점을 입력하면 옆에 자동으로 색칠하고 싶어요.. 날짜는 계속 늘어 날수 있고요.. 부탁드립니다.. 반복문.. 어렵습니다.... ' ' source by 땡큐엑셀vba & 엑셀매크로 ' ' A,B열 변경시 처리위해 Change이벤트 사용 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next '화면갱신 일시 중지 Application.ScreenUpdating = False '한개의 셀 선택시에만 계속 진행 If Target.Count > 1 Then Exit Su.. 공감수 0 댓글수 0 2020. 8. 27.
  • [땡큐엑셀vba & 엑셀매크로] 단어카운트(Transpose,Dictionary) 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=283562551 ' '예를 들면 'A1 셀에 FREE NOTE 라고 적혀있고 'A2 셀에 FREE SIZE 라고 적혀있을 때 '다른 셀에 두 셀의 내용 중 중복되는 단어는 FREE라고 나오거나 '또는 이 FREE 라는 단어가 몇 번 중복되었는지 출력할 수 있는 함수가 있을까요? '조건부 서식으로는 불가능합니다. ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Sub 단어카운트() Dim D As Object Dim v범위 v범위 = Selection 'i:j열 클리어 Range("i:j").Clear '화면갱신 중지 Application.ScreenUpdating = False .. 공감수 0 댓글수 0 2020. 8. 26.
  • [땡큐엑셀vba & 엑셀매크로] Worksheet_Change이벤트를 사용하여 완료시간 구하기 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=284326395 '매일 매일 문서를 작성해야합니다. '이런식의 문서내용이 있습니다. '접수시간 + 처리시간 이 완료시간으로 TIME 함수를 써서 만들었는데 '다음날 문서를 새로 만들때. 시트내용을 다 지워야하거든요. '그러면 완료시간에 적은 함수도 지워지는데 '함수 수식은 안지워지게 고정할수 없나요??? '함수 수식은 Del 키를 눌러도 안지워지게 할수 없나요. 'DEL 키를 누르면 다 지워지잖아요. '근데 함수 수식은 안지워지게 하고 싶은데 방법 없나요??? ' ' Source by 땡큐엑셀vba & 엑셀매크로 ' Private Sub Worksheet_Change(ByVal Targ.. 공감수 0 댓글수 0 2020. 8. 25.
  • [땡큐엑셀vba & 엑셀매크로] 비동기 방식의 wave파일 play 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1020201&docId=281241993 ' '예로 1=1 같은 값이라서 소리가 발행하나 1=1-> 1=2 로 변할때 까지 계속 발생합니다. '문의1: 소리 1회 발생 할수 없나요? '문의2: 소리 시작정지 버튼은 어떻게 하는건가요? '고수님들 도와주세요~ '[시트] ' 'souce by 땡큐엑셀vba & 엑셀매크로 ' '계산될때마다 실행되는 이벤트 프로시저 Private Sub Worksheet_Calculate() Call playSound End Sub '음악Stop Sub StopPlay() Call stopSound End Sub 'http://kin.naver.com/qna/detail.nhn?d1id=.. 공감수 0 댓글수 0 2020. 8. 24.
  • [땡큐엑셀vba & 엑셀매크로] 셀어디에든 ABCDE 를 입력하면 영어로 바뀌는 매크로 어디없나요 ? 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280478645 ' '엑셀에서 VBA (매크로) 작업할때 왼쪽 ABCDE 를 입력하면 자동으로 영어로 바뀌는 매크로는 없나요? '셀어디에든 ABCDE 를 입력하면 영어로 바뀌는 매크로 어디없나요 ? ''Worksheet의 change이벤트를 사용합니다. ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Private Sub Worksheet_Change(ByVal Target As Range) '이벤트 잠시중단 Application.EnableEvents = False '한개의 셀만 선택되었을때 If Target.Count = 1 Then 'A,B,C,D,E,a,b,c,d,e 일경.. 공감수 0 댓글수 0 2020. 8. 23.
  • [땡큐엑셀vba & 엑셀매크로] 중복없는 난수표 'http://tip.daum.net/question/97566847 ' '무작위 숫자 추출 방법? '감사합니다. '1부터 27까지의 숫자를 가지고 '무작위로 불규칙하게 '매번 다른 내용의 일련의 난수표를 만들고자합니다. '예를 들면, '1회차 : 13, 7, 27, 24, 14, 19...... '2회차 : 22. 3, 18, 22, 5,......식으로 '3회차 : (1부터 27까지의 무질서한 숫자 배열)형태입니다. '어떤 방식이 있는지요? ' 'source by 땡큐엑셀vba & 엑셀vba ' '중복없는 Sub 무작위수() Dim D As Object 'Dim v범위 Dim 최소값 As Integer Dim 최대값 As Integer Dim 중복허용여부 As String Dim 갯수 As Integ.. 공감수 0 댓글수 1 2020. 8. 22.
  • [땡큐엑셀vba & 엑셀매크로] H열,I열에 숫자를 넣으면 J열에 합계가 자동으로 출력-Worksheet_change이벤트 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280473561 ' 'H열과 I열의 합계를 J열에 자동으로 합계가 나오게 하려면 어떻게 해야하죠? '행삽입이나 삭제 해도 J열에 자동으로 합계 나타내게......... '수식넣지 않고 값만 자동으로 합계 나타날수 있게 하려면 어떻게 해야하는지 알려주세요~ '데이터는 계속 밑으로 더 늘어날수도 있어요 도와주세용~! 'Worksheet의 change이벤트를 사용합니다. 'H열,I열에 숫자를 넣으면 J열에 합계가 자동으로 출력됩니다. ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Private Sub Worksheet_Change(ByVal Target As Range) On Err.. 공감수 0 댓글수 0 2020. 8. 21.
  • [땡큐엑셀vba & 엑셀매크로] 단어검색 'https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=301558642 ' ' ' '여러 개의 단어들이 셀의 내용에 포함되어 있는지 알고 싶을 때 어떻게 해야할까요? '예를들어, "aaa", "bbb", "ccc"가 포함되어 있는 셀을 찾고 싶을때, '어떤 셀의 내용이 abcbccccc라면 true가 리턴되고, '어떤 셀은 zbcd 라면 false가 결과값으로 나오게 하고 싶습니다. '예시는 간단하게 들었지만, 찾아야 하는 단어수는 수백개이고, '대상이 되는 문자열은 수십만개여서 VBA 함수를 작성하는 것이 필요합니다. '문자열 처리에 관한 공부도 할겸 질문드리오니, 코드 작성 부탁드려요~^^ ' ' Source by 땡큐엑셀vba & 엑.. 공감수 0 댓글수 0 2020. 8. 20.
  • [땡큐엑셀vba & 엑셀매크로] 파일명의 앞글자와 일치하는 폴더로 이동하기 '변수를 선언하고 사용하기 Option Explicit ' 파일명의 앞글자와 일치하는 폴더로 이동하기 ' 예를 들어 파일명이 aaasddf.txt인 경우 "a파트"라는 폴더로 이동 ' 파일명이 1zsdfd.exe인 경우 "1파트"라는 폴더로 이동 ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Sub 파일이동() Dim strPath As String '폴더의 경로를 넣을 변수 Dim fileName As String '각 파일 이름을 넣을 변수 Dim i As Integer Dim msg As String Dim 이동폴더명 As String 'Application.ScreenUpdating = False '화면 업데이트 (일시) 정지 Cells.Clear ' 폴더 선택창 With Applicat.. 공감수 0 댓글수 0 2020. 8. 19.
  • [땡큐엑셀vba & 엑셀매크로] 검색어가 포함된 모든 엑셀파일(파일명,시트명,셀주소,내용) 출력하기 '검색어가 포함된 모든 엑셀파일(파일명,시트명,셀주소,내용) 출력하기 '순서 '1. 폴더를 선택 '2. 폴더내에 존재하는 *.xls* 파일을 하나씩 오픈한후 '3. 1번 시트부터 마지막시트까지 검색하면서 결과 출력 '4. 파일닫고 다음파일 '5. 2~4번 반복수행 ' 'Source by 땡큐엑셀vba & 엑셀매크로 ' Sub 폴더내검색() Dim sht As Worksheet Dim wsht As Worksheet '결과기록 시트 Dim strAddr As String Dim rng As Range Dim findString As String '찾을값 findString = Cells(1, "B") '찾을값 Set wsht = ActiveSheet '결과기록 시트 If findString = "" The.. 공감수 0 댓글수 0 2020. 8. 18.
  • [땡큐엑셀vba & 엑셀매크로] 동일한 값의 위아래에만 굵은 테두리를 넣으려면 어떤 방법이 있을까요? 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=279757774 ' '안녕하세요. '엑셀 관련 문의드립니다. '첨부파일 "test.xls"의 B열(주문번호) 값을 기준으로 '동일한 값의 위아래에만 굵은 테두리를 넣으려면 어떤 방법이 있을까요? '첨부파일 "test-테두리선작업.xls"처럼 작업되면 됩니다. '자료가 1만건 이상인데 일일이 테두리선 넣기를 하다보니 너무 시간이 오래걸려서요. '엑셀고수님께 조언 부탁드립니다. '감사합니다. '주문번호가 정렬되어 있다는 가정하에 아래의 코드를 수행하세요. ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Sub 블럭별테두리() Dim 범위 As Range Dim Rng As Range.. 공감수 0 댓글수 1 2020. 8. 17.
  • [땡큐엑셀vba & 엑셀매크로] 필터적용후 보이는셀만 복사 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1040103&docId=280190504 ' 'vba 초보입니다 그림과 파일과 같이 해당 열로 필터 후 값이 보이는 행만 복사하는 vba를 만들고자합니다 ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Sub 보이는셀만복사() '출력행의 시작 i = 7 k = 0 iDay = Range("A1") '선택열 'iDay = Range("A1") '날짜 'iStart = 13 '13은 M열.. 1:A, 2:B .... 마지막행 = Range("C" & Rows.Count).End(xlUp).Row For Each rngC In Range("C4:C" & 마지막행) 'C4셀부터 마지막셀까지 순환 If Rows(rn.. 공감수 0 댓글수 0 2020. 8. 16.
  • [땡큐엑셀vba & 엑셀매크로] 데이터 값을 입력하고 저장버튼을 누르면 아래 최근기록란에 순차적으로 기록할 수 있게 도와주세요 '데이터 값을 입력하고 저장버튼을 누르면 아래 최근기록란에 순차적으로 기록할 수 있게 도와주세요 ㅠ ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Sub 저장() '7행을 삽입한후 Rows("7:7").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove '7행으로 복사 Range("A2:E2").Copy Destination:=Range("A7") Range("A7").Select MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로" End Sub 공감수 2 댓글수 0 2020. 8. 15.
  • [땡큐엑셀vba & 엑셀매크로] 지각합계 사용자정의 함수 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280229761 ' '개인 근태 관련 1월~12월 까지 각각의 시트가 있습니다. '각 시트별 지각시 "1지", "2지" (1시간지각, 2시간지각) '로 표기 합니다. 지각에대한 연장시 "1지연", "2지연" 씩으로 표기하는데요. ' '마지막 시트에서 월별 지각 및 지각연장에 대한 합계를 구하고 '싶습니다. ' ' source by 땡큐엑셀vba & 엑셀매크로 ' ' 사용자정의함수 Function 지각(r1 As Range) As Integer On Error Resume Next For Each c In r1 구분문자 = Right(c, 1) '오른쪽 한글자 If 구분문자 = "지" T.. 공감수 0 댓글수 0 2020. 8. 14.
  • [땡큐엑셀vba & 엑셀매크로] 하나의 열데이터를 8개의 열로 정리하기 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280324882 ' '엑셀로하는건지 모르겟지만 데이터 정리하는데 있어서 도움이 필요합니다. '정리하구 연산같은거 해야되가지구요 ㅠ 정리부터 막히네요.. '파일올리겟습니다. '파일을 열어보시면 세로로된 많은 데이터들을 왼쪽 목록에 딱딱 맞게 넣고싶은데 '일일이 노다가해서는 답이 없어 보이구요 ㅠ 메크로를 쓰든 함수를 넣든 딱딱 정렬 되게 하고싶습니다. '도와주십시오.. 꼭 엑셀아니라도 좋으니 좋은 프로그램 있으시면 알려주시면 감사하겠습니다. ' 한개의 열값을 8개의 열로 정리하기 ' 'source by 땡큐엑셀vba & 엑셀매크로 ' Sub 정리하기() 마지막행 = Cells(Rows.C.. 공감수 0 댓글수 0 2020. 8. 13.
  • [땡큐엑셀vba & 엑셀매크로] 잔량과 지수합계가 다른셀 색칠및 행삭제 'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1040103&docId=280216079 ' '각 행의 O와 Q셀에있는 데이터 비교하여 값 차이가날경우 Q셀에 색칠 '그후 색칠되어있는 값 찾아서 행전체삭제 하고싶은데 서치해도 코드 찾기가 어렵네요 ㅠㅠ. '부탁드립니다 ' ' source by 땡큐엑셀vba & 엑셀매크로 ' Sub 색칠() 마지막행 = Cells(Rows.Count, "O").End(xlUp).Row '2행부터 데이터가 있는 마지막행까지 루프 For i = 2 To 마지막행 잔량 = Cells(i, "O") 지수 = Cells(i, "Q") '잔량과 지수합계가 다르면 색칠(빨간색) If 잔량 지수 Then Cells(i, "Q").Interior.. 공감수 0 댓글수 0 2020. 8. 12.
    문의안내
    • 티스토리
    • 로그인
    • 고객센터

    티스토리는 카카오에서 사랑을 담아 만듭니다.

    © Kakao Corp.