Foxtable(狐表)用户栏目专家坐堂 → 【已解决】[求助]我需要像wps一样选中一片区域,Ctrl+c就粘贴,单元格值都变成了剪切板上的如何写?


  共有2066人关注过本帖树形打印复制链接

主题:【已解决】[求助]我需要像wps一样选中一片区域,Ctrl+c就粘贴,单元格值都变成了剪切板上的如何写?

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/6 14:45:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部