Robert는 Quicken 날짜 필드에서 더하기 또는 빼기 키를 누르면 날짜가 하루 씩 증가하거나 감소한다고 언급합니다. 그는 Excel에서 이와 동일한 효과를 만들고 싶습니다.

이것은 특히 Excel에서 생각하는 것보다 접근하기 더 어려운 문제입니다. 특정 키 (이 경우 더하기 또는 빼기 키)를 누를 때 작업을 수행해야하므로 자연스럽게 OnKey 메서드를 사용할 수 있다고 가정합니다. 다음 예를 고려하십시오.

Sub Start_OnKey()

Application.OnKey "{+}", "Plus1"

Application.OnKey "-", "Minus1"

End Sub
Sub End_OnKey()

Application.OnKey "{+}"

Application.OnKey "-"

End Sub
Sub Plus1()

If IsDate(ActiveCell) And Not ActiveCell.HasFormula Then         ActiveCell.Value = ActiveCell.Value + 1     End If End Sub
Sub Minus1()

If IsDate(ActiveCell) And Not ActiveCell.HasFormula Then         ActiveCell.Value = ActiveCell.Value - 1     End If End Sub

모든 VBA 설명서에 따르면 Start_OnKey 매크로를 실행하면 위의 내용이 제대로 작동합니다. 더하기 또는 빼기 키를 누를 때마다 날짜를 늘리거나 줄 이도록 적절한 절차가 실행됩니다. 문제는 일부 버전의 Excel에서 작동하지 않는다는 것입니다. 왜? 더하기 키를 누르면 일부 Excel 버전이 OnKey에 의존하는 일반 키보드 버퍼를 우회하는 특수한 “수식 입력”모드로 전환되기 때문입니다. 따라서 날짜가 포함 된 셀을 선택한 상태에서 빼기 키를 누르면 원하는 결과가 생성되지만 더하기 키를 누르면 그렇지 않습니다.

더하기 키가 문제가되는 Excel 버전의 경우 유일한 해결책은 키 입력을 다른 것으로 변경하는 것입니다. 예를 들어, Ctrl + u를 사용하여 날짜를 늘리고 Ctrl + d를 사용하여 날짜를 줄 이도록 키 누르기를 변경할 수 있습니다.

Sub Start_OnKey()

Application.OnKey "^u", "Plus1"

Application.OnKey "^d", "Minus1"

End Sub
Sub End_OnKey()

Application.OnKey "^u"

Application.OnKey "^d"

End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (7197)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.