pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: pt:79443856c52b8105e9a14cdf8b5cdf11fb3b4401
Branches Tags
pt:master
..
compare: pt:539a966e1c72f727814474405cc96dba00cd16fc
Branches Tags
pt:master

2 Commits
79443856c5 ... 539a966e1c

Author SHA1 Message Date
Paul Trowbridge
539a966e1c convert input box on cross joining to range selector 2021-08-16 09:17:52 -04:00
Paul Trowbridge
945863353e customized ribbon 2021-08-16 09:16:55 -04:00
2 changed files with 5 additions and 132 deletions
Show Stats Expand all files Collapse all files

1
Excel Customizations.exportedUI Normal file
View File

File diff suppressed because one or more lines are too long

136
FL.bas
View File

@ -45,6 +45,7 @@ Sub Cross_Join_Selection()
Dim d() As String Dim d() As String
Dim i As Integer Dim i As Integer
Dim dest As String Dim dest As String
Dim idest As Range
Set r = Selection Set r = Selection
@ -59,15 +60,13 @@ Sub Cross_Join_Selection()
i = i + 1 i = i + 1
Next ar Next ar
dest = InputBox("Input row & column numbers like ""3,17""") Set idest = Excel.Application.InputBox("select the output cell", , , , , , , 8)
If dest = "" Then If idest Is Nothing Then
Exit Sub Exit Sub
Else
d = Split(dest, ",")
End If End If
Call x.SHTp_Dump(r1, Excel.ActiveSheet.Name, CLng(d(0)), CLng(d(1)), False, True) Call x.SHTp_Dump(r1, Excel.ActiveSheet.Name, idest.row, idest.column, False, True)
End Sub End Sub
@ -430,121 +429,6 @@ errh:
End Sub End Sub
Sub CollapsePvtItem()
Attribute CollapsePvtItem.VB_ProcData.VB_Invoke_Func = "Z\n14"
On Error GoTo show_det
ActiveCell.PivotItem.DrilledDown = False
On Error GoTo drill_down
ActiveCell.PivotItem.ShowDetail = False
show_det:
If Err.Number <> 0 Then
On Error GoTo errh
ActiveCell.PivotItem.ShowDetail = False
Err.Number = 0
End If
drill_down:
If Err.Number <> 0 Then
On Error GoTo errh
ActiveCell.PivotItem.DrilledDown = False
End If
errh:
End Sub
Sub ExpandPvtItem()
Attribute ExpandPvtItem.VB_ProcData.VB_Invoke_Func = "X\n14"
On Error GoTo show_det
ActiveCell.PivotItem.DrilledDown = True
On Error GoTo drill_down
ActiveCell.PivotItem.ShowDetail = True
show_det:
If Err.Number <> 0 Then
On Error GoTo errh
ActiveCell.PivotItem.ShowDetail = True
Err.Number = 0
End If
drill_down:
On Error GoTo errh
If Err.Number <> 0 Then
On Error GoTo errh
ActiveCell.PivotItem.DrilledDown = True
End If
errh:
End Sub
Sub CollapsePvtFld()
Attribute CollapsePvtFld.VB_ProcData.VB_Invoke_Func = "A\n14"
On Error GoTo show_det
ActiveCell.PivotField.DrilledDown = False
On Error GoTo drill_down
ActiveCell.PivotField.ShowDetail = False
show_det:
If Err.Number <> 0 Then
On Error GoTo errh
ActiveCell.PivotField.ShowDetail = False
Err.Number = 0
End If
drill_down:
On Error GoTo errh
If Err.Number <> 0 Then
On Error GoTo errh
ActiveCell.PivotField.DrilledDown = False
End If
errh:
End Sub
Sub ExpandPvtFld()
Attribute ExpandPvtFld.VB_ProcData.VB_Invoke_Func = "S\n14"
On Error GoTo show_det
ActiveCell.PivotField.DrilledDown = True
On Error GoTo drill_down
ActiveCell.PivotField.ShowDetail = True
show_det:
If Err.Number <> 0 Then
On Error GoTo errh
ActiveCell.PivotField.ShowDetail = True
Err.Number = 0
End If
drill_down:
If Err.Number <> 0 Then
On Error GoTo errh
ActiveCell.PivotField.DrilledDown = True
End If
errh:
End Sub
Sub ColorMatrixExtract() Sub ColorMatrixExtract()
@ -596,18 +480,6 @@ Sub ColorMatrixExtract()
End Sub End Sub
Sub SetPivotShortcutKeys()
Call Application.MacroOptions("PERSONAL.xlsb!CollapsePvtFld", "", , , , "A")
Call Application.MacroOptions("PERSONAL.xlsb!CollapsePvtItem", "", , , , "Z")
Call Application.MacroOptions("PERSONAL.xlsb!ExpandPvtFld", "", , , , "S")
Call Application.MacroOptions("PERSONAL.xlsb!ExpandPvtItem", "", , , , "X")
Call Application.MacroOptions("PERSONAL.xlsb!PastValues", "", , , , "V")
Call Application.MacroOptions("PERSONAL.xlsb!pivot_field_format", "", , , , "F")
Call Application.MacroOptions("PERSONAL.xlsb!pivot_field_format_3dec", "", , , , "N")
Call Application.MacroOptions("PERSONAL.xlsb!pivot_field_format_1dec", "", , , , "M")
End Sub
Sub LoadChan() Sub LoadChan()