VBA로 날짜 입력 (특정 조건)
안녕하세요
매크로 실행시에 특정셀 Cells(3,12) 에 다음 Working Day 일자를 입력하고 싶습니다.
평일은 Cells(3,12)=Date +1 로 표기하면 되는데, 욕심이 생겨서
금요일일 경우, 월요일 날짜를 입력하고 싶습니다.
현재 매크로는 하기처럼 짰는데 혹시 어떻게 추가해야할지 모르겠어서 ㅠㅠ
고수님들 도움 부탁드립니다!
ActiveSheet.Range("a1:aa100000").Select
Selection.Copy
ActiveSheet.Range("a1:aa100000").Select
Selection.PasteSpecial xlPasteValues
Dim co As Long, i As Long
Dim join As String
Dim buNum As String
Dim deleteRow As Integer
Dim rng As Date
rng = Date
If WorksheetFunction.Text("rng", "AAA") = "토" Then
Cells(3, 12) = Date + 3
If Nothing Then
Cells(3, 12) = Date + 1
co = ActiveSheet.Range("a5").CurrentRegion.Rows.Count
Cells(5, "a").Select
For i = 0 To co
join = Selection.Offset(0, 0)
buNum = Selection.Offset(0, 1)
If join = "0" Then
Selection.EntireRow.delete
co = co - 1
deleteRow = deleteRow + 1
Else
Selection.Offset(1, 0).Select
End If
Next
End If
End Sub
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🔥선착순 판매] 2023년 엑셀 공부, "8시간 로드맵"으로 마스터하세요! (10)
![]() ![]() |
![]() ![]() |
2023.01.25 | 6 | 3602 | ||
공지사항 | 공지사항 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(123)
오빠두엑셀
|
2021.10.28
|
추천 160
|
조회 9760
|
![]() ![]() |
2021.10.28 | 160 | 9760 |
48628 | VBA |
New VBA 재고 관리 중 Delete_invetory()에러
![]() |
![]() |
11:15 | - | 16 |
48626 | 함수/공식 |
New 함수로 범위를 지정할때...
![]() ![]() |
![]() |
11:05 | - | 17 |
48624 | 구글시트 |
New 구글 스프레드시트 대시보드에서 입력한 기간에 맞는 데이터(열)만 나오게 하는 방법이 궁금합니다.
![]() ![]() |
![]() |
11:00 | - | 12 |
48622 | VBA |
New VBA로 만든 함수중 String 변수의 data값이 너무커서 결과 값이 #VALUE! 나와요
(1)
![]() |
![]() |
10:55 | - | 11 |
48618 | 함수/공식 |
New 표 안에 입력된 값의 xy방향 속성(표제목(?))이 순서대로 자동 출력되게 하고 싶습니다.
![]() ![]() ![]() |
![]() |
10:43 | - | 16 |
48615 | 함수/공식 |
New 행과 열이 포함된 특정 숫자의 개수 카운팅 방법 (휴무일 카운팅)
![]() ![]() ![]() |
![]() |
10:16 | - | 15 |
48613 | 함수/공식 |
New Ctrl+Shift+Enter를 입력했는데 행번호가 자동 증가하지 않습니다.
(1)
![]() |
![]() |
10:05 | - | 19 |
48611 | 함수/공식 |
New 현재 시간 이전에 들어온 품목 횟수 구하는 방법
![]() ![]() |
![]() |
09:31 | - | 16 |
48605 | 기능/도구 |
New 블록 지정한 문자만 색깔 변경하는 방법
(2)
![]() |
![]() |
08:39 | - | 26 |
48604 | VBA |
New 엑셀 셀값 파일명 지정
![]() ![]() |
![]() |
08:21 | - | 21 |
48603 | 함수/공식 |
New 하나의 셀에 있는 데이터를 모두 다른 셀로 나누고 싶어요
(1)
답변완료
![]() |
![]() |
07:52 | - | 25 |
48597 | 함수/공식 |
New 오늘 날짜 보다 큰 날짜들 중에서 가장 오른쪽 끝에 기재되어 있는 날짜의 열번호를 찾는 수식을 만들었습니다만..
![]() ![]() |
![]() |
01:46 | - | 27 |
48595 | 대시보드 |
New 주차별 증감 분석 데이터 만들기
![]() ![]() ![]() |
![]() |
01:27 | - | 24 |
48594 | VBA |
New 데이터 정렬 질문드립니다.
![]() ![]() ![]() |
![]() |
00:31 | - | 22 |
48586 | VBA |
New 특정 부분 가져오는법
![]() ![]() |
![]() |
2023.01.31 | - | 35 |
48576 | 함수/공식 |
New 해당연도 설날, 추석 알려주기
(2)
![]() |
![]() |
2023.01.31 | - | 30 |
48573 | 함수/공식 |
New 누적, 주간별 불량율 구하기 / 전년 대비 불량율 차트 만들기
![]() ![]() ![]() |
![]() |
2023.01.31 | - | 31 |
48572 | 기능/도구 |
New 엑셀 파일을 sql로 변환하는 방법 궁금해요
(2)
![]() |
![]() |
2023.01.31 | - | 30 |
48567 | 함수/공식 |
New 조건부 서식 문의
![]() ![]() ![]() |
![]() |
2023.01.31 | - | 32 |
48563 | 함수/공식 |
New 다중조건 만족하는 값 가져오기.. 이거 아무리해도 안되네요.. ㅜㅜ
![]() ![]() |
![]() |
2023.01.31 | - | 44 |
48560 | 함수/공식 |
New 월별 이익계산하기 질문 드리빈다.
![]() ![]() |
![]() |
2023.01.31 | - | 24 |
48559 | VBA |
New 인쇄폼관련 질문 드립니다.
![]() ![]() ![]() |
![]() |
2023.01.31 | - | 28 |
48556 | 함수/공식 |
New 엑셀초보ㅜㅜ 등급표 작성관련 도움 부탁드립니다!
![]() ![]() ![]() |
![]() |
2023.01.31 | - | 27 |
48552 | VBA |
New (심각)매크로 실행시 엑셀 응답없음 및 엑셀 속도 느림
![]() ![]() |
![]() |
2023.01.31 | - | 32 |
48544 | 함수/공식 |
New 현재 시간에 가장 가까운 시간을 불러오는 방법이 있을까요?
![]() ![]() |
![]() |
2023.01.31 | - | 44 |
48541 | 함수/공식 |
New IF AND 중첩 도움 부탁드립니다!
![]() ![]() |
![]() |
2023.01.31 | - | 59 |
48540 | VBA |
New .xlsm에서 실행한 매크로 결과를 .xlsx로 저장할 때 오류 해결법
(2)
답변완료
![]() |
![]() |
2023.01.31 | - | 37 |
48538 | 함수/공식 |
New 엑셀 구글스프레드시트 질문
![]() ![]() |
![]() |
2023.01.31 | - | 49 |
48536 | 함수/공식 |
New 엑셀 데이터 채우기
![]() ![]() |
![]() |
2023.01.31 | - | 32 |
48529 | 함수/공식 |
New 수식이 나타내는 바가 동일한데 결과값이 달라지는 요상한 오류...
![]() ![]() |
![]() |
2023.01.31 | - | 45 |
@RED HERO 님 , cells(3,12)의 날짜에 해당되는 요일이 금요일이면 cell(3,12)의 날짜를 다음주 월요일 날짜로 변경하고자 하는가요?
그렇다면, 다음의 어구를 사용하시면 되지 않을까요?
if format(cells(3,12),"aaa")="금" then cells(3,12)=cells(3,12)+3
date는 오늘날짜 입니다.
만약 date를 사용해야 한다면, if format(cells(3,12),"aaa")="금" then cells(3,12)=date+3을 사용하면 될 것입니다.
수고하세요.
@Jas 님 조언주신 덕분에 원하는 구문으로 작성 완료했습니다!!
도움 너무 감사합니다 !