作者: soyoso (我是耀宗) 2018-04-10 14:02:00
循环，checkboxes.add新增位置可以range.left和top决定onaction触发时以其他程序写入勾选标题application.caller来取得该shape或checkbox如标题在储存格内的话以上述配合topleftcell和offset(栏偏移)取得标题如在表单控件内，则在caption写入c栏方面range.end来取得最后有值储存格，再offset(列偏移)如第1列起，可加上判断c1为空白储存格""时就直接写入另外选取的话value值为1；要判断是否已存在c栏可以range.find、工作表函数countif或match取消勾选要移除的话range.delete