全民一起VBA提高篇 第二十七回 工作表随心使用各控件，VBA任意操作统计图

 

相关知识点

数据的传递

插入菜单里的ActiveX控件比表单控件更强大，可以设置其属性

ChartObjects : 图表对象

ChartObjects.count: 工作表中当前的图表总数

ChartObjects(k):工作表中第k个图表对象

ChartObjects.delete:该工作表中所有图表全部删除

ChartObjects.add: 在该工作表中新建一个空白图表

例1 双击单元格是窗体被调用，数据的传递，修改数据（在工作表中单元格的双击事件）

Private Sub worksheet_BeforeDoubleClick(ByVal Target as Range,Cancel as blooean)

     Dim i as long

     i=Tarage.row

     模块1.rowNum=Target.row

     fmInput.txtname.txt=Cells(i,2)

     fmInput.txtAge.txt=Cells(i,3)

     fmInput.txtLength=Cells(i,4)

     fmInput.show

End Sub

在标准模块1建立保管箱,写在所有模块的前面，用Public声明，全局变量，完成数据的传递

Option Explicit

Public rowNm as long

<