VB
53
[WORK] Hyperion Smartview - Toggle Missing/Zeros By Silversunset on 20th January 2020 09:50:18 PM
- Sub SmartView_ToggleMissingZeros()
- 'Toggle between suppress missing/zero and display missing/zero
- opt1 = HypGetSheetOption(Empty, 6) 'test suppress missing
- opt2 = HypGetSheetOption(Empty, 7) 'test suppress zeros
- If opt1 <> opt2 Then
- MsgBox ("No change has been made (missing/zero are not set the same, please check your options)")
- Else
- If opt1 And opt2 Then
- x = HypSetSheetOption(Empty, 6, False) 'suppress missing items
- x = HypSetSheetOption(Empty, 7, False) 'suppress zero items
- MsgBox ("Missing/Zero items are now Visible")
- Else
- x = HypSetSheetOption(Empty, 6, True) 'display missing items
- x = HypSetSheetOption(Empty, 7, True) 'display zero items
- MsgBox ("Missing/Zero items are now Suppressed")
- End If
- End If
- End Sub