![]() Range(SumAddr).Offset(Range(SumAddr).Cells.Count, 0).Resize(1, 1).Font.Color = vbRedĮlse: SumAddr = Area.Offset(1, 0).Resize(Area.Count - 1, 1).Address(False, False)Īrea.Offset(Area.Count, 0).Resize(1, 1).Formula = "=" & startNum & "-SUM(" & SumAddr & ")"Īrea.Offset(Area.Count, 0).Resize(1, 1).Font.Color = vbRed Range(SumAddr).Offset(Range(SumAddr).Cells.Count, 0).Resize(1, 1).Formula = "=" & startNum & "-SUM(" & SumAddr & ")" Range(SumAddr).Offset(Range(SumAddr).Cells.Count, 0).Resize(1, 1).Select ![]() 'SumAddr = (1, 0).Resize(cCount - 1, 1).Address SumAddr = Range(startNum).Offset(1, 0).Resize(cCount - 1, 1).Address 'Loop through cells in area to find the endįor Each c In (1, 0).Resize(, 1) If Area.Offset(Area.Count, 0).Resize(1, 1).HasFormula = True Then StartNum = Area.Resize(1, 1).Address(False, False) If Not Intersect(Area, Range(SumAddr)) Is Nothing Then GoTo Skip 'check if area overlaps with previous sum Dim Area As Range, M圜olumn As String, startNum As String, SumAddr As Stringįor Each Area In Columns(i).SpecialCells(xlConstants, xlNumbers).Areas ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |