VB 在EXCEL中的使用心得 表格操作 复制粘贴 排序等

前提:一个偶然的机会要对一个已经开发比较完全的VB项目进行维护工作
整体代码量不高 大部分操作可以通过EXCEL的宏操作录制然后去复制
部分操作需要通过直接写代码去执行

这里涉及到一开始接触VB有代码基础的人观看 涉及VB中的基本常用操作

首先是碰到的问题
VB程序在导入数据的过程中出现数据丢失的情况
这里VB系统可以通过断点 F5 运行 F8逐步调试去试验代码流程
在这里插入图片描述
1、表格的选择
Workbooks(“X.xlsm”).Activate X的表格当前置顶(设为活动表格)
2、sheet表格的选择
Sheets(“总表”).Select 配合第一条可以打开EXCEL后选择该表中的某条数据
3、单元格的选择
Cells(1, Y) 可以通过变量的方式选择单元格,变量和大写字母可能会混淆
此时可以通过1-24表示A-Z或者用
Cells(1, “Y”) 表示Y这一行
4、列的选择
Rows(“1,1”).select 列A选择
5、行的选择
columns(“1,1”).select 行A选择
6、新建SHEET表格

 Workbooks("X_update.xlsm").Activate
       Sheets("Y").Select
      Worksheets.Add().Name = "临时文件"

此3行代码可以解释为在X_update这个EXCEL表格的Ysheet表前生成一个叫做临时文件的sheet
这里就可以避免直接生成的sheet被放到了第一个位置
在这里插入图片描述
否则直接使用Worksheets.Add().Name = "临时文件"
会在图示位置的第一个位置生成一个SHEET
这样如果代码中有Sheets(1).Select 则可能会发生冲突

7、删除sheet

Worksheets("临时文件").Delete

同样搭配以上的选择表格使用

8、复制粘贴

Workbooks("X_update.xlsm").Activate
    Sheets("临时文件").Select
    Range(Columns(1), Columns(2)).Select
    Selection.Cut
    Sheets("总表").Select
    Range(Columns(1), Columns(2)).Select
    ActiveSheet.Paste

打开表格 选择临时文件 复制1-2列 打开总表 在1-2列中粘贴

Range(Columns(YXT_XM_L), Columns(YXT_XM_L)).Select

此代码的意思是选中第YXT_XM_L列
这个是防止用cells时出现变量无法选中的替代方法

9、使用筛选功能

  Selection.AutoFilter

10、升序排列

Range("A1:HH6000").Sort Key1:=Range("J1"), Order1:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin, DataOption1:=xlSortNormal

选定A1-HH6000范围 并以J1列进行升序排序

11、不为空方法

If Not C Is Nothing Then '如果找到了
      XXXX
      End If

如果C条件存在 则执行X方法

12、

If Not C Is Nothing Then '如果找到了
      XXXX
      ELSE
      YYYY
      END IF 

如果C存在则执行X方法 如果没有则执行Y方法
13、 For方法

For I = 1 To YXT
       XXXX
    Next I

这个是典型的For方法
执行I从1-YXT这个变量
如果符合则执行X方法
这里和JAVA不同 方法内没有自加程序
这里默认执行1-yxt整数增加

14、

GoTo  L1
L1:

XXXX

在IF中举中嵌套GOTO方法
然后在下面位置编写对应的方法
完成方法的调用功能

15、方法定义

DIM x as Integer
Dim y as string
参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

祁焰

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值