add auto fit & format pivot

This commit is contained in:
Paul Trowbridge 2017-11-06 13:26:33 -05:00
parent 553ace8eb0
commit ac530a079f

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