Printable View
Well I am having an issue with the Microsoft Excel which I have installed on the computer of mine. I have noticed that I am unable to do subtotal on Excel sheet. I have tried with the lots of stuff but there was no solution to fix the matter of mine. Any help to fix the matter would be highly appreciated. Thanks a lot in advance.
If you are using Microsoft Excel 2003 on the computer of yours then I think I am aware of the solution and I would like to share with all of you. I think you are using list box and it would have the blue outline. If you wanted to convert the same then you have to use the choose the desire range on the Excel sheet and simply press the Alt, D, I and V from the keyboard of the computer of yours. so you should try the instruction which I have mentioned over here I am hoping that it would be useful to you.
Looking at the matter I am suggesting following steps which you can use to fix the matter of yours.
- First of all you have to sort the list where you wanted to insert the sub total.
- Now you have to add the subtotal button on the data tab.
- Now choose the field for which you wanted to calculate the sub total.
- You have to specify the type of total which you wanted to insert the function from the drop down list
- You have to select the check boxes from the field and if you wanted to add the subtotal into the list box.
- Now click on the Ok button.
It is well known that the subtotal can be used to find out the subtotal of the given range of the cell. The syntax of the subtotal can be displayed as follow.
It is clearly mentioned that you have to add range of the data as well as range of the cells. Also you have to mentioned what kind of the subtotal you will have in terms of the data type.Code:SUBTOTAL (TYPE OF TOTAL, RANGE OF CELLS)
Looking at the problem I am suggesting following macro which you can try on the system of yours and see whether it is working or not.Code:Sub Phaser7400DXFTotalUserCost()
'
' Phaser7400DXFTotalUserCost Macro
' Macro recorded 6/12/2006 by Information Technology
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Range("I1").Select
ActiveCell.FormulaR1C1 = "Total Cost"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Sheet Cost"
Cells.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Columns("F:F").Select
Selection.EntireColumn.Hidden = True
Range("I2").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]/RC[-6])*(RC[-1])"
Range("I2").Select
Selection.Copy
Range("I3:I39").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("H:H").Select
Selection.EntireColumn.Hidden = True
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Range("I1").Select
ActiveCell.FormulaR1C1 = "Account #"
Columns("J:J").Select
Selection.Style = "Currency"
Range("A1:J1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Columns("J:J").ColumnWidth = 9.71
Columns("I:I").ColumnWidth = 13.86
Columns("G:G").ColumnWidth = 10.71
Columns("F:F").ColumnWidth = 1.14
Columns("F:F").ColumnWidth = 0
Columns("D:D").ColumnWidth = 13.43
Columns("E:E").ColumnWidth = 13.71
Columns("C:C").ColumnWidth = 13.71
Columns("A:A").ColumnWidth = 12.57
Columns("B:B").ColumnWidth = 33.14
Cells.Select
Selection.AutoFilter
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(10), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A7").Select
Application.WindowState = xlMinimized
ActiveSheet.Outline.ShowLevels RowLevels:=1
Range("B53").Select
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveSheet.Outline.ShowLevels RowLevels:=3
Range("A7:J7,A9:J9,A11:J11,A15:J15").Select
Range("A15").Activate
ActiveWindow.SmallScroll Down:=9
Range("A7:J7,A9:J9,A11:J11,A15:J15,A22:J22,A29:J29,A44:J44,A46:J46,A48:J49"). _
Select
Range("A48").Activate
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Range("L32").Select
ActiveWindow.SmallScroll Down:=-12
ActiveWorkbook.Save
End Sub
I am not sure but there is a corruption of the Microsoft Office which you have installed on the computer of yours. Well I recommend that you have to reinstall the Microsoft Office on the computer of yours. you should uninstall the entire software on the computer of yours and see whether it working or not. If you are getting any issue while reinstalling the software the feel free to ask about the same.
Well I am suspecting that this particular issue might be occurring due to bug issue. I am suggesting that you should contact the technical support team and tell them about the issue which you are getting. You might need to file a bug report in which you have to mentioned the information which is associated with the problem which you are getting and the computer configuration of the computer of yours. the developer team would work on the same and let you know about the possible solutions to fix the matter of yours.