Basic VBA operations

Check whether the formula (hasformula attribute) exists in the selected cell area)
Sub ifhasformula ()
If selection. hasformula = true then
Msgbox "formulas are available in the selected cells"
Else
Msgbox "in selected cells, some cells do not have a formula"
End if
End sub

Formula Cell operations

Obtain the cells that are directly related to the computing result cells.
Sub calrelationcell () pujipc computer Content Management System
Msgbox "selecting cells related to the calculation result of the current cell"
Activecell. directprecedents. Select
End sub

Track formula Cell
Sub cal1 ()
Msgbox "select all cells related to the calculated result cell"
Activecell. Precedents. Select
End sub
Sub trackcell ()
Msgbox "Operation Result cell tracing"
Activecell. showprecedents
End sub
Sub deltrack ()
Msgbox "delete tracing line"
Activecell. showprecedents remove: = true
End sub

Copy a cell)
Sub copyrange ()
Msgbox "after the formula is written to cell B7, copy the content of B7 to C7: D7"
Range ("B7"). formula = "= sum (B3: B6 )"
Range ("B7"). Copy destination: = range ("C7: D7 ")
End sub