Jason에는 여러 열이 포함 된 워크 시트가 있으며 각 열은 회사의 회계 주를 나타냅니다. 이 회계주는 G 열로 시작하고 H 열은 두 번째 회계 주, I 열은 세 번째 주 등으로 시작됩니다. Jason은 실행시 오늘 날짜를보고 해당 날짜를 기준으로 회계 주를 계산 한 다음 지정된 범위에 속하지 않는 회계 주 열을 숨기는 매크로를 만들고 싶습니다.

답변을 제공하기 위해 표시하려는 범위가 13 주 (1 분기)와 같다고 가정하겠습니다.

현재 회계 주 직전. 이를 염두에두고 매크로에서 수행해야하는 몇 가지 작업이 있습니다. 첫째, 현재 회계 주를 결정해야합니다. 그런 다음 현재 회계 주 이전의 13 주가 아닌 모든 주를 숨기고 모든 주를 숨김 해제해야합니다.

이것은 현재 어느 회계 주인지를 제외하고는 비교적 쉽게 할 수 있습니다. 회계 주를 결정하는 방법은 회사마다 크게 다를 수 있습니다. 그러나 간단하게하기 위해 결정이 매우 간단하다고 가정하겠습니다. 연중 일을 7로 나누고 우리가 가진 것을 확인합니다.

다음 매크로는 지금까지 설명한 접근 방식을 구현합니다.

Sub HideWeeks()

Dim BeginYear As Date           'start of fiscal year date     Dim FirstWeekCol As Integer     'first fiscal week column     Dim FirstShowWkCol As Integer   'first column to show     Dim CurrWkCol As Integer        'current week column     Dim J As Integer

BeginYear = Cells(1, 1).Value     FirstWeekCol = 7  'fiscal weeks begin with Col 7 (G)



'Calculate Column of the current fiscal week     CurrWkCol = ((Date - BeginYear) \ 7) + FirstWeekCol - 1     'Calculate column of the first week to show     FirstShowWkCol = CurrWkCol - 14     If FirstShowWkCol < FirstWeekCol Then         FirstShowWkCol = FirstWeekCol     End If

Application.ScreenUpdating = False

'Unhide all columns     Columns("G:IV").Hidden = False  'Unhide all week Columns

'Hide week column before the rolling quarter     For J = FirstWeekCol To FirstShowWkCol         Columns(J).Hidden = True     Next J

'Hide week column after current week     For J = CurrWkCol + 1 To 256         Columns(J).Hidden = True     Next intCol

Application.ScreenUpdating = True End Sub

이 매크로의 워크 시트에서 가져와야하는 값은 전년도의 마지막 날입니다. 이것이 A1 셀에 있다고 가정하고이를 잡아서 BeginYear 변수에 배치합니다. 이 값은 현재 연도의 날짜를 결정하는 데 사용됩니다.

_ 참고 : _

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

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

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

이 팁 (3261)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁 버전은 다음에서 찾을 수 있습니다.

link : / excelribbon-Hiding_Columns_Not_within_a_Date_Range [기간 내에없는 열 숨기기].