| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 【已解决】[求助]我需要像wps一样选中一片区域，Ctrl+c就粘贴，单元格值都变成了剪切板上的如何写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141598) |
| -- 作者：zto001 -- 发布时间：2019/10/6 13:20:00 -- 【已解决】[求助]我需要像wps一样选中一片区域，Ctrl+c就粘贴，单元格值都变成了剪切板上的如何写？ If e.Control = True AndAlso e.KeyCode = Keys.c Then Dim 表 As Table = Tables("运费_table1") If 表.TopPosition > -1 Then \'如果选定区域包括数据行 For i As Integer = 表.TopPosition To 表.BottomPosition 表.Rows(i)= 1 Next End If End If [求助]我需要像wps一样选中一片区域，Ctrl+c就粘贴，单元格值都变成了剪切板上的如何写？ 我的这样写，但写不出来。
[此贴子已经被作者于2019/10/8 9:09:40编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/10/6 14:45:00 -- 这种？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=80523 |
| -- 作者：zto001 -- 发布时间：2019/10/6 15:18:00 -- 不是这样的。是这样，选中区域的值全部改为一样的，跟填充类似，不过不局限于一列 |
| -- 作者：有点蓝 -- 发布时间：2019/10/6 15:24:00 -- Dim 表 As Table = Tables("运费_table1") If 表.TopPosition > -1 Then \'如果选定区域包括数据行 For i As Integer = 表.TopPosition To 表.BottomPosition For j As Integer = 表.LeftCol To 表.RightCol 表.Rows(i)(j)= 1 Next Next End If
|