Excel-주석의 날짜 또는 텍스트와 혼합 된 날짜를 기준으로 셀 색상 변경
홍옥
Excel 2010을 사용하고 있으며 해당 셀 내의 날짜를 기반으로 셀 색상을 변경하는 규칙을 설정하려고합니다.
예를 들어 셀에는 Site meeting - 11.05.14
2 주 후, 1 주 후, 2 일 후, 만료 된 경우 자동으로 색상이 변경되도록하고 싶습니다.
이상적으로는 날짜 만있는 별도의 셀을 원하지 않으므로 날짜가 주석에있을 수 있습니다. 나는 내가 많은 것을 요구하고 있다는 것을 알고 있지만 누군가가 해결책을 가지고 있기를 바랍니다.
나는 이것에 대한 해결책을 가지고 있지만 그것은 거칠고 실제로 내가 추구하는 것이 아닙니다. 조건부 서식과 = NOW 함수를 사용하면 결과를 얻을 수 있지만 두 개의 셀을 사용합니다. 특정 기호 이전에 셀의 모든 것을 무시하도록 Excel에 지시하는 방법이 있기를 바랍니다. 이 경우 "-".
Googleing은 안타깝게도 사용 방법을 전혀 모르는 VBA로 이끌었습니다. 그렇다면 여기 누군가가 도움을 줄 수 있기를 바랍니다. 아니면 적어도 올바른 방향으로 밀어주세요.
데이브
이것은 당신이 원하는 것을
Sub WorkOutTime()
'see http://dmcritchie.mvps.org/excel/colors.htm for colour chart
dim columnToUse as string
columnToUse = "A" ' update this to the colum you want to use
Dim expired As Integer
expired = 3 'red
Dim twoDays As Integer
twoDays = 8 'blue
Dim sevenDays As Integer
sevenDays = 27 ' yellow
Dim fourteenDays As Integer
fourteenDays = 7 ' purple
Dim currentCell As Integer
currentCell = 1
Do While (True)
If (Range(columnToUse & currentCell).Value = "") Then
Exit Do
End If
Dim timeNow As Date
timeNow = Date
Dim willContinue As Boolean
willContinue = True
Dim dateDifference As Integer
dateDifference = dateDiff("d", timeNow, Range(columnToUse & currentCell).Value)
If dateDifference >= 14 And willContinue Then
Range(columnToUse & currentCell).Interior.ColorIndex = fourteenDays
willContinue = False
End If
If dateDifference <= 7 And dateDifference > 2 And willContinue Then
Range(columnToUse & currentCell).Interior.ColorIndex = sevenDays
End If
If dateDifference <= 2 And dateDifference >= 0 And willContinue Then
Range(columnToUse & currentCell).Interior.ColorIndex = twoDays
End If
If dateDifference < 0 And willContinue Then
Range(columnToUse & currentCell).Interior.ColorIndex = expired
End If
currentCell = currentCell + 1
Loop
End Sub
따라서 개발자 도구 모음 에서 삽입을 클릭하고 버튼을 클릭합니다. 화면으로 도형을 드래그하세요.
확인 클릭
버튼을 마우스 오른쪽 버튼으로 클릭하고 이름을 WorkOutTime으로 지정합니다.
VBa 화면이 표시되지 않으면 리본에서 Visual Basic을 클릭합니다.
거기에있는 것을 삭제하고 내 코드를 붙여 넣으십시오.
매크로 사용 워크 시트로 저장합니다. 실행
내 코드는 A 열의 항목에서만 작동합니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
에서 수정
관련 기사
Related 관련 기사
- 1
Excel 2013 : 다른 셀의 날짜를 기준으로 셀의 텍스트 변경
- 2
단일 열의 타임 스탬프와 혼합 된 Excel 날짜 (정수로) 변경-str.extract 시도
- 3
날짜가 오늘 인 경우 셀 텍스트를 굵게 또는 색상으로 변경하는 방법은 무엇입니까?
- 4
날짜를 비교할 때 셀의 다른 색상으로 배경을 변경하는 방법
- 5
Excel 2010에서 입력 한 날짜가 2 주 이상 지난 경우 셀 색상을 빨간색으로 변경하려면 어떻게합니까?
- 6
Excel-VBA : 인접 셀의 텍스트 색상을 기준으로 셀의 텍스트 색상 변경
- 7
Excel 2010에서 텍스트 날짜를 표준 날짜 형식으로 변환
- 8
Excel에서 입력 한 날짜를 날짜 형식의 셀로 변환
- 9
UWP-달력 날짜 선택기의 날짜를 지정된 날짜 형식으로 변환하는 방법
- 10
Google 스프레드 시트 : 셀에 제공된 날짜를 기준으로 통화 변환
- 11
AWK : 주요 날짜와 최신 날짜를 기준으로 두 파일 병합
- 12
타임 스탬프 및 시간대가있는 텍스트의 날짜를 기준으로 Excel 표 정렬
- 13
텍스트를 날짜로 변환하는 Excel VBA
- 14
자동 날짜 계산-한 셀의 시작 날짜와 다른 셀의 숙박 수를 기준으로합니다.
- 15
: 커밋 된 날짜를 기준으로 : 레벨을 변경하는 방법?
- 16
날짜 열을 기준으로 선 그림의 색상을 변경하는 방법은 무엇입니까?
- 17
jquery 날짜 시간 선택기를 적용한 두 번째 텍스트에서 날짜를 선택한 후 첫 번째 텍스트 상자의 날짜를 변경합니다.
- 18
Python : 색인으로 설정된 Pandas에서 날짜를 변경하는 방법
- 19
Excel의 날짜 범위를 기반으로 셀 값 반환
- 20
Excel의 날짜 범위를 기반으로 셀 값 반환
- 21
Excel에서 날짜가 2 개월 연체 된 색상 셀
- 22
날짜를 기준으로 저장된 주어진 텍스트 파일에서 각 단어의 발생 횟수를 계산합니다.
- 23
특정 셀이 수정 된 경우에만 셀의 날짜를 업데이트하는 방법
- 24
날짜와 시간이 혼합 된 시간 전후의 Excel 조건부 서식
- 25
Excel 색인 일치, 날짜가 일치하는 경우 조회 값 또는 해당 날짜의 주 번호가 일치합니까?
- 26
이번 주 루비의 날짜를 기준으로 지난 주 시작 날짜와 종료 날짜를 얻는 방법
- 27
생성 된 datetime 날짜를 기준으로 열의 합계를 가져 오는 쿼리?
- 28
Excel 셀의 날짜 및 시간에서 날짜를 제거하는 방법
- 29
열의 날짜를 기준으로 14 일 이상의 날짜를 얻는 방법은 무엇입니까?
몇 마디 만하겠습니다