- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]能否实现文本复制后粘贴选中区域 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137447)
-- 发布时间：2019/7/6 10:15:00
-- [求助]能否实现文本复制后粘贴选中区域
利用狐表录入多行相同的内容，单个复制后只能单个粘贴，是否可以有类似EXCEL的区域粘贴或者下拉填充的功能？
新手求教，感激不尽
此主题相关图片如下：图片a.png
此主题相关图片如下：图片b.png
此主题相关图片如下：图片c.png
-- 发布时间：2019/7/6 10:22:00
--
参考：http://www.foxtable.com/webhelp/topics/0140.htm
-- 发布时间：2019/7/6 14:29:00
--
感谢版主解答
我试了重复填充只能第一列有效，如果是多列选中向下填充有无办法
此主题相关图片如下：图片11.png
此主题相关图片如下：图片12.png
-- 发布时间：2019/7/6 14:46:00
--
1、逐列填充
2、使用代码处理
With Tables("订单")
Dim r As Row = .Rows(.Toprow)
For i As Integer = .TopRow+1 To .BottomRow
For j As Integer = .LeftCol To .RightCol
.Rows(i)(j) = r(j)
Next
Next
End With
-- 发布时间：2019/8/2 16:31:00
-- [求助]锁定行被填充的问题
版主：之前为了多列可以快速向下填充，给了一个代码：
使用代码处理
With Tables("订单")
Dim r As Row = .Rows(.Toprow)
For i As Integer = .TopRow+1 To .BottomRow
For j As Integer = .LeftCol To .RightCol
.Rows(i)(j) = r(j)
Next
Next
End With
发现此代码有个小问题：填充的行中包含锁定行时，锁定行内容仍然会被填充覆盖
请帮忙看下如何实现只填充未锁定行，锁定行内容不变
-- 发布时间：2019/8/2 16:34:00
--
参考：http://www.foxtable.com/webhelp/topics/0597.htm
-- 发布时间：2019/8/2 17:09:00
--
版主：
锁定行我能明白
现在的问题，行锁定后，仍然可以被填充代码修改。
如何只填充未被锁定的行
此主题相关图片如下：图片1.png
此主题相关图片如下：图片3.png
-- 发布时间：2019/8/2 17:43:00
--
明白啥呀，判断有没有被锁再填充咯
if r.Locked = false then
填充
[此贴子已经被作者于2019/8/2 17:43:31编辑过]