以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 设计了 点击range 的快捷菜单,但不知道怎么写代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82001) |
-- 作者:ycwk -- 发布时间:2016/3/9 22:50:00 -- 设计了 点击range 的快捷菜单,但不知道怎么写代码 If e.HitType = HitTypeEnum.Cell Then e.ContextMenu = ContextMenus("Cell1") Else If e.HitType = HitTypeEnum.Range Then e.ContextMenu = ContextMenus("会议议程导出") \'显示快捷菜单"菜单A" End If 上面的 HitTypeEnum.Range 事件触发的 "会议议程导出"菜单click事件 中,我想把鼠标选中 的A表 range范围的N行的 每行三个不同字段复制到 B表,请问如何写代码?
|
-- 作者:Hyphen -- 发布时间:2016/3/10 9:14:00 -- 参考:http://www.foxtable.com/help/topics/1597.htm With CurrentTable For i As Integer = .TopPosition To .BottomPosition \'复制的代码 Next End With |