2014-06-17 3 views
0

나는 자동 및 수동 계산 사이에서 전환하기 위해 약간의 토글 매크로를 작성했다 (아래 참조). 약간의 팝업이 매뉴얼에 있음을 알려주지 만 컬러 스키마가 변경 될 수 있다면 시원할 것입니다. 또는 수동 계산이 켜져 있음을 상기시키기위한 시각적으로 명백한 다른 사항이있을 수 있습니다.EXCEL에서 수동 계산을 할 때 어떻게 명확하게 할 수 있습니까?

내가 지금까지 했어 몇 가지 아이디어 :

  • 변경 인터페이스 색상 .. 또한, 모든 오피스 제품을, 변경이 VBA 함께 할 수 있다고 생각하지 않습니다뿐만 아니라 엑셀
  • 격자 선 색상 변경 :이 기능은 활성 시트에서만 작동합니다. 또한 이상하게 보입니다
  • 오른쪽 상단 모서리에 떠 다니는 상자 : 나는이 두 번째 시간을 만들었지 만 코드는 워크 시트 탭에 임베드되어 페이지 주위를 이동해야합니다. 이 옵션은 매크로에서 할 수 있다면 좋겠지 만 매크로가 맞는지 확실하지 않습니다.
  • 열 머리글 색을으로 변경하십시오. 가능한 경우 확실하지 않습니다.
  • '에 수동 CALCS'전면에 호출을 새로운 붉은 색 탭을 추가 - 편집 : 내 코드이 추가
  • 변경 상태 표시 (게리의 학생의 제안에서) : 또한 내 코드에 이것을 추가

누구나 다른 아이디어가 있거나 위의 아이디어를 풀 수있는 방법을 알고 있습니까?

모든 창의성과 아이디어가 크게 감사합니다 :)

모두 감사합니다, 루카스

PS. 여기에 전환에 대한 내 코드는 다음과 같습니다

하위 Toggle_Auto_Calculate()

' ToggleGUI Macro 
' 
' Keyboard Shortcut: Ctrl+shift+a 
' 
If Application.Calculation = xlManual Then 
Application.StatusBar = "" 
Application.DisplayAlerts = False 
    Sheets("Manual Calcs On").Select 
    ActiveWindow.SelectedSheets.Delete 
MsgBox "Auto calcs on" 
Application.Calculation = xlAutomatic 

Else 
Application.Calculation = xlManual 
Application.StatusBar = "MANUAL CALCULATION" 
Worksheets.Add(Before:=Worksheets(1)).Name = "Manual Calcs on" 
    With ActiveWorkbook.Sheets("Manual Calcs On").Tab 
     .Color = 255 
     .TintAndShade = 0 
    End With 
MsgBox "Manual calcs on" 
End If 
Application.DisplayAlerts = True 

End Sub 

답변

1

상태 표시 줄에 게시 고려 :

Sub temp() 
     Application.StatusBar = "MANUAL CALCULATION " 
End Sub 

수정 # 1 :

좀 덜 미묘한 :

Sub temp() 
    Application.StatusBar = "****************MANUAL CALCULATION******************" 
End Sub 
+0

나쁘지 않습니다. 미묘한. 나는 이것을 내 코드에 추가했다. OP보기 :) 감사합니다. – Lucas

관련 문제