VBA做的一段处理
来源:互联网 发布:方坦纳欧洲经济史知乎 编辑:程序博客网 时间:2024/05/16 17:29
Dim startId As LongPrivate Sub CommandButton1_Click() startId = 11 ' For i = 1 To 64 Step 1 ' Sheet1.Cells(1, startId + i) = Sheet1.Cells(i, 2) ' Sheet1.Cells(2, startId + i) = Sheet1.Cells(i, 4) ' Sheet1.Cells(3, startId + i) = Sheet1.Cells(i, 6) ' Sheet1.Cells(4, startId + i) = Sheet1.Cells(i, 8) ' Next Dim usea As Long Dim moda As Long Dim linea As Long linea = 0 For i = 1 To 1023 Step 1 moda = i Mod 4 If moda = 0 Then usea = 8 End If If moda = 1 Then usea = 2 linea = linea + 1 End If If moda = 2 Then usea = 4 End If If moda = 3 Then usea = 6 End If Sheet1.Cells(i, 11) = Sheet1.Cells(linea, usea) Next ' Sheet1.Cells(1, 11) = Sheet1.Cells(1, 2) 'Sheet1.Cells(2, 11) = Sheet1.Cells(1, 4) ' Sheet1.Cells(3, 11) = Sheet1.Cells(1, 6) ' Sheet1.Cells(4, 11) = Sheet1.Cells(1, 8) 'Sheet1.Cells(5, 11) = Sheet1.Cells(2, 2) 'Sheet1.Cells(6, 11) = Sheet1.Cells(2, 4) ' Sheet1.Cells(7, 11) = Sheet1.Cells(2, 6) ' Sheet1.Cells(8, 11) = Sheet1.Cells(2, 8) ' Sheet1.Cells(9, 11) = Sheet1.Cells(3, 2) ' Sheet1.Cells(10, 11) = Sheet1.Cells(3, 4) 'Sheet1.Cells(11, 11) = Sheet1.Cells(3, 6) ' Sheet1.Cells(12, 11) = Sheet1.Cells(3, 8)End Sub
0 0
- VBA做的一段处理
- VBA代码做匹配处理
- 一段为图像处理做准备的BCB代码
- 一段VBA调用RFC的代码
- VBA的异常处理
- 简谈VBA的错误处理
- VBA 字符串的处理方法
- 一段缓冲处理的源代码
- 时间处理的一段代码
- 我自己做的一段程序
- MSFT Outlook VBA处理新邮件的方法
- Perl,Shell,VBA对日期的处理
- VBA中常用的字符串处理函数
- 利用Excel的VBA来处理XML
- VBA处理JSON文件的类模块
- [VBA] 处理中英文对齐的文本
- 一段处理json的C#代码
- 如何优化一段VBA:去掉有且只有2个或者1个数字的行
- C语言中的#,##
- Linux内核怎么学
- Myeclipse优化
- 组合模式
- Oracle内存全面分析(6)-1Oracle 的内存架构组成_2PGA的组成、PGA内存自动管理、参数以及视图
- VBA做的一段处理
- andriod横竖屏设置
- 安卓开发环境搭建初学者
- Python中的__getitem__和__setitem__特殊方法
- 陌上花开
- Attribute v.s. Property
- 第18章、基于监听器的事件处理(从零开始学Android)
- java多线程
- //linux shell 生成 范围 随机整数