VBA基本操作
2009-10-09 19:16
120 查看
确认所选单元格区域中是否有公式(HasFormula属性)
Sub IfHasFormula()
If Selection.HasFormula = True Then
MsgBox "所选单元格中都有公式"
Else
MsgBox "所选单元格中,部分单元格没有公式"
End If
End Sub
公式单元格操作
获取与运算结果单元格有直接关系的单元格
Sub CalRelationCell() pujipc电脑内容管理系统
MsgBox "选取与当前单元格的计算结果相关的单元格"
ActiveCell.DirectPrecedents.Select
End Sub
追踪公式单元格
Sub Cal1()
MsgBox "选取计算结果单元格相关的所有单元格"
ActiveCell.Precedents.Select
End Sub
Sub TrackCell()
MsgBox "追踪运算结果单元格"
ActiveCell.ShowPrecedents
End Sub
Sub DelTrack()
MsgBox "删除追踪线"
ActiveCell.ShowPrecedents Remove:=True
End Sub
复制单元格(Copy方法)
Sub CopyRange()
MsgBox "在单元格B7中写入公式后,将B7的內容复制到C7:D7內"
Range("B7").Formula = "=Sum(B3:B6)"
Range("B7").Copy Destination:=Range("C7:D7")
End Sub
Sub IfHasFormula()
If Selection.HasFormula = True Then
MsgBox "所选单元格中都有公式"
Else
MsgBox "所选单元格中,部分单元格没有公式"
End If
End Sub
公式单元格操作
获取与运算结果单元格有直接关系的单元格
Sub CalRelationCell() pujipc电脑内容管理系统
MsgBox "选取与当前单元格的计算结果相关的单元格"
ActiveCell.DirectPrecedents.Select
End Sub
追踪公式单元格
Sub Cal1()
MsgBox "选取计算结果单元格相关的所有单元格"
ActiveCell.Precedents.Select
End Sub
Sub TrackCell()
MsgBox "追踪运算结果单元格"
ActiveCell.ShowPrecedents
End Sub
Sub DelTrack()
MsgBox "删除追踪线"
ActiveCell.ShowPrecedents Remove:=True
End Sub
复制单元格(Copy方法)
Sub CopyRange()
MsgBox "在单元格B7中写入公式后,将B7的內容复制到C7:D7內"
Range("B7").Formula = "=Sum(B3:B6)"
Range("B7").Copy Destination:=Range("C7:D7")
End Sub
相关文章推荐
- Excel VBA Range对象基本操作应用示例(转贴,实用参考)
- vba基本操作 -- 表单操作
- vba基本操作 -- 工作簿操作
- vba基本操作 -- 单元格操作
- [VBA]Ch03 工作簿(Workbook)基本操作应用示例(一)太精华了
- vba基本操作 -- MS SQL Server操作
- [VBA]Ch03 工作簿(Workbook)基本操作应用示例(一)
- Excel VBA入门基本操作之常用函数
- vba基本操作 -- 常用功能
- 【用EXCEL VBA控制IE】 2-1:EXCEL VBA对IE控制的基本操作-用IE访问某URL
- VBA SQLServer 基本操作
- 【Agent J - No.100】VBA基本操作及实践 - 开发工具设置
- VBA SQLServer 基本操作
- OutLook的VBA基本对象及操作
- 数据库入门基本操作1
- oracle基本操作
- 五:多线程--NSOperation基本操作
- set容器与map容器基本操作
- JDBC基本操作示例
- Oracle基本操作七:序列,同义词,索引,视图