Excel VBA 数据视图和查询实例
来源:互联网 发布:类似淘宝网站建设费用 编辑:程序博客网 时间:2024/05/01 20:52
Private Sub Workbook_Open()
Sheets("营业部").Select
'行遍历
For i = 5 To 368
'列遍历
For j = 1 To 32
Cells(i, j + 5).Select
Dim str As String
str = "=IF(ISNUMBER(VLOOKUP(R" & CStr(i) & "C3,总表!R5C3:R1466C37," & CStr(j + 3) & ",false)),VLOOKUP(R" & CStr(i) & "C3,总表!R5C3:R1466C37," & CStr(j + 3) & ",false),"""")"
ActiveCell.FormulaR1C1 = str
Next j
Next i
ActiveWorkbook.Save
End Sub
Sub excel去掉公式()
Sheets("营业部").Select
Sheets("营业部").UsedRange = Sheets("营业部").UsedRange.Value
End Sub
Sheets("营业部").Select
'行遍历
For i = 5 To 368
'列遍历
For j = 1 To 32
Cells(i, j + 5).Select
Dim str As String
str = "=IF(ISNUMBER(VLOOKUP(R" & CStr(i) & "C3,总表!R5C3:R1466C37," & CStr(j + 3) & ",false)),VLOOKUP(R" & CStr(i) & "C3,总表!R5C3:R1466C37," & CStr(j + 3) & ",false),"""")"
ActiveCell.FormulaR1C1 = str
Next j
Next i
ActiveWorkbook.Save
End Sub
Sub excel去掉公式()
Sheets("营业部").Select
Sheets("营业部").UsedRange = Sheets("营业部").UsedRange.Value
End Sub
- Excel VBA 数据视图和查询实例
- EXCEL-VBA:通过SQL查询数据Sheet中的数据
- Excel VBA实例
- Excel VBA数据导出
- Excel VBA 多条件查询
- Excel VBA之类模块 实例
- Excel vba编程实例 源码
- Excel vba编程实例 源码
- 【Excel技巧】 数据阅后即焚-VBA
- VBA Excel值数据替换
- 用VBA整理EXCEL数据
- VBA模拟提交查询到他人网站,获得结果数据后写到一个Excel表中
- VBA读取Excel和CSV
- VBA:Excel使用SQL进行查询
- Excel vba从excel中导出表格数据和图表到新word文档
- Excel VBA真正的动态数组实例
- excel vba真正的动态数组实例
- 用excel vba,将EXCEL数据追加到ACCESS数据库的某张表中的实例(学习备注)
- 两条命令Debian6一键安装包DebianLNMP最快.最新.最省!
- Busybox 命令大全~~
- Android触摸屏输入系统
- 二次开发
- java_高新代理(黑马程序员)
- Excel VBA 数据视图和查询实例
- JS调用ashx文件传递中文参数取不到值的解决方案
- 我要学C++
- 成都传智播客java培训中心,今年最后一期基础班
- MyEclipse 8.6部署JBoss
- php杂项函数(一)
- dedecms相关知识
- The Function Invocation Pattern
- excel 去掉公式保留数值的方法