【实例07-根据模版生成数据】Excel表格VBA编程实例 代码分享
Private Sub CommandButton生成_Click()
'清空生成结果
With ThisWorkbook.Worksheets("生成结果")
(资料图片仅供参考)
.UsedRange.ClearFormats
.UsedRange.ClearContents
End With
With ThisWorkbook.Worksheets("临时表")
.UsedRange.ClearFormats
.UsedRange.ClearContents
End With
'将模版复制到临时表
Dim modelrange As String
With ThisWorkbook.Worksheets("操作界面")
If Trim(.Cells(2, "C").Value) <> "" Then
modelrange = Trim(.Cells(2, "C").Value)
End If
End With
With ThisWorkbook.Worksheets("模版")
Dim addmodeladdress As String
addmodeladdress = .Range(modelrange).Cells(1).Address
.Range(modelrange).Copy ThisWorkbook.Worksheets("临时表").Range(addmodeladdress)
End With
'循环填充数据
With ThisWorkbook.Worksheets("数据列表")
Dim i, imax, j, jmax
imax = .Cells(1000000, 1).End(xlUp).Row
jmax = .Cells(1, 1000).End(xlToLeft).Column
If i = 1 Then
Exit Sub
End If
Dim rmax As Long '生成结果最大行
For i = 2 To imax
For j = 1 To jmax
If .Cells(1, j) <> "" Then
If .Cells(i, j).Value <> "" Then
ThisWorkbook.Worksheets("临时表").Range(CStr(.Cells(1, j))).Value = .Cells(i, j).Value
Else
ThisWorkbook.Worksheets("临时表").Range(CStr(.Cells(1, j))).Value = ""
End If
End If
Next j
'循环一行,就将结果复制到生成结果表
If i = 2 Then
ThisWorkbook.Worksheets("临时表").Range(modelrange).Copy ThisWorkbook.Worksheets("生成结果").Cells(1, 1)
Else
rmax = ThisWorkbook.Worksheets("生成结果").UsedRange.Cells(ThisWorkbook.Worksheets("生成结果").UsedRange.Count).Row
ThisWorkbook.Worksheets("临时表").Range(modelrange).Copy ThisWorkbook.Worksheets("生成结果").Cells(rmax + 1, 1)
End If
Next i
End With
'处理完成跳转到生成结果表
ThisWorkbook.Worksheets("生成结果").Activate
End Sub
相关新闻
- 【实例07-根据模版生成数据】Excel表格VBA编程实例 代码分享
- 每日速读!晶盛机电:公司生产的碳化硅外延设备已实现批量销售
- 迈克大夫:每日动态
- 环球微速讯:临泉一男孩哭着说:我爸会打我……
- 中国联通(00762.HK)拟3月8日举行董事会会议批准年度业绩:环球热门
- qun:天天快消息
- 环球精选!我国首个深远海浮式风电平台启运
- 皇甫道
- 台湾鸡蛋荒持续 烘焙业者因缺蛋不敢接大单只能现做现卖|世界热资讯
- 大东方2月24日快速上涨-全球动态
- LNG进口现货价格跌至一年来新低,可以抄底了吗?-环球热资讯
- 世界观速讯丨易叫车乘客端_对于易叫车乘客端简单介绍
- 每日速递:室内设计底薪一般多少_室内设计师工资
- 范拼音的近义词
- 巴奴火锅就天价土豆事件发文致歉,因管理失误导致误解
- 全球播报:小物业当“大管家”,破解老旧小区管理难题
- 芦毛灰姑娘 二周年贺图
- 飞利浦推出Envia游戏显示器系列从34英寸和42英寸型号开始
- 天天观速讯丨拉卡拉:融资净偿还201.1万元,融资余额5.7亿元(02-22)
- 市洪都中医院二期3月1日试运行
- 今日报丨抠细节、重团队——中国男篮队员谈新帅乔尔杰维奇
- 天天观热点:【“湘”当自觉自信自强】县城里的“飞翔梦”
- 今天最新消息 捷豹路虎、宝马等车企召回部分进口至中国的缺陷车辆
- flv是什么格式的|视焦点讯