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

add auto fit & format pivot

Browse Source
This commit is contained in:
Paul Trowbridge 2017-11-06 13:26:33 -05:00
parent 553ace8eb0
commit ac530a079f
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
FL.bas
View File

@ -625,3 +625,15 @@ Sub sql_from_range()
Call wapi.ClipBoard_SetData(x.SQLp_build_sql_values(x.ARRAYp_get_range_string(Selection), False)) Call wapi.ClipBoard_SetData(x.SQLp_build_sql_values(x.ARRAYp_get_range_string(Selection), False))
End Sub End Sub
Sub auto_fit_range()
Selection.CurrentRegion.Columns.AutoFit
End Sub
Sub pivot_field_format()
ActiveSheet.PivotTables("PivotTable1").PivotFields(ActiveCell.value).NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
End Sub