Automate The Boring Tasks Using Microsoft Office VBA (The Complete MBA CourseWork Series) by Hicham and Mohamed Ibnalkadi

Author:Hicham and Mohamed Ibnalkadi [Ibnalkadi, Hicham and Mohamed]
Language: eng
Format: azw3
Published: 2021-03-04T16:00:00+00:00

Private Sub PaintSelection()

'Check if selected items are ranges before proceeding

If TypeOf Selection Is Range Then

'Paint selected range

PaintRange Selection

End If

End Sub

'Paint selection's whole column an row in color set by the user

Private Sub PaintRowColumn()

'Check if selected items are ranges before proceeding

If TypeOf Selection Is Range Then

'Paint selection's row

PaintRange Selection.EntireRow

'Paint selection's column

PaintRange Selection.EntireColumn

End If

End Sub

'Apply macro action to current selection

Private Sub ApplyAction()

'If "paint row and column" property is true, paint selections

'row and column, else paint only selection

If RowColumn Then

'Paint selection's whole row and column

PaintRowColumn

Else

'Paint just selected range

PaintSelection

End If

End Sub

'------------------------------------------------------

' EVENTS

'------------------------------------------------------

'Blue (B) component list value change event

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.