以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么让重复填充只对某一列有效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73523)
--  作者：JPG7
--  发布时间：2015/8/20 16:25:00
--  怎么让重复填充只对某一列有效
怎么让重复填充只对某一列有效
--  作者：大红袍
--  发布时间：2015/8/20 16:30:00
--  

重复填充的按钮自己控制。

 

dim t as table = tables("表A")
For i As Integer = t.TopPosition + 1 To t.BottomPosition
    t.rows(i)(t.colsel) = t.rows(i-1)(t.ColSel)
Next
--  作者：lmk
--  发布时间：2015/8/20 19:42:00
--  
\'在表属性BeforeSelChange事件中,加入以下代码,当进入第一列时,禁止使用重复填充功能,进入其它列时,恢复重复填充功能。
If  e.NewRange.ColSel = 0
    RibbonTabs("Common")("Edit")("Other")("RepeatFill").Enabled = False
Else
    RibbonTabs("Common")("Edit")("Other")("RepeatFill").Enabled = True
End If
[此贴子已经被作者于2015/8/20 20:06:06编辑过]