| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 序列填充加个键盘操作快捷键就好 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46682) |
| -- 作者：supwork -- 发布时间：2014/2/27 8:16:00 -- 序列填充加个键盘操作快捷键就好 序列填充以,复制填充是官方推出的类EXCEL方式数据快速填充功能. 未能做出全鼠标直接操控也就罢了 但复制填充有提供 CTRL+D快捷操作方式 希望官方也为序列填充加一个快捷键盘操作快捷方式了,这样就免得转移鼠标去工具栏找按钮了 或者官方供布一下 序列填充的最简代码 |
| -- 作者：狐狸爸爸 -- 发布时间：2014/2/27 8:18:00 -- 选择要填充的区域，然后你按Ctrl +D看看 |
| -- 作者：supwork -- 发布时间：2014/2/27 10:32:00 -- 试了:开始输入1,选择要填充的区域，然后你按Ctrl +D,全填充为1 结果是对的 开始输入1,2 选择要填充的区域，然后你按Ctrl +D,全填充为1 结果是错的,要的是序列填充效果,1,2,3,4,5,6,7……，而不是复制填充效果。 |
| -- 作者：狐狸爸爸 -- 发布时间：2014/2/27 11:21:00 -- 你要从1、2开始选，一直选最后一个单元格，按后按Ctrl +d |
| -- 作者：supwork -- 发布时间：2014/2/27 12:03:00 -- 是这样操作的，但填写的都是1，而不是1，2，3，4，5，6，7……相同的选择用菜单操作则是成功的。 |
| -- 作者：supwork -- 发布时间：2014/2/27 12:08:00 -- 而且还是最新的2014开发版程序。 |
| -- 作者：Bin -- 发布时间：2014/2/27 12:11:00 -- 确实是不可以,那你编码实现吧 Dim t As Table = CurrentTable Dim c As Integer For i As Integer= t.TopPosition+1 To t.BottomPosition If t.Rows(i-1).IsNull(t.Cols(t.ColSel).Name)=False Then t.Rows(i)(t.Cols(t.ColSel).Name) = Cint(t.Rows(i-1)(t.Cols(t.ColSel).Name))+1 End If Next |
| -- 作者：狐狸爸爸 -- 发布时间：2014/2/27 12:21:00 -- 嗯，我搞错了，只能用菜单中的序列填充了，快捷键Ctrl+d是重复填充，序列填充没有快捷见 |
| -- 作者：supwork -- 发布时间：2014/2/27 13:57:00 -- 既然能从菜单中的序列填充，我想官方在新版里加个快捷方式。以便直接操作应该不难吧。 |
| -- 作者：飞 -- 发布时间：2014/2/27 14:08:00 -- 可以自定义菜单,或者用系统菜单模板做一个菜单,然后给序列填充加个快捷键 |