a1 = sheetNo1.Cells(i, 1) '记账凭证号 -- 记账凭证编码
a2 = sheetNo1.Cells(i, 2) '用途类型
a3 = sheetNo1.Cells(i, 3) '卡片编号
a4 = sheetNo1.Cells(i, 4) '资产编号
a5 = sheetNo1.Cells(i, 5) '资产名称 -- 固定资产名称
a6 = sheetNo1.Cells(i, 6) '规格型号
a7 = sheetNo1.Cells(i, 7) '资产类别
a8 = sheetNo1.Cells(i, 8) '供应商
a9 = sheetNo1.Cells(i, 9) '2019年盘点后使用部门
a10 = sheetNo1.Cells(i, 10) '2019年盘点后使用人
a11 = sheetNo1.Cells(i, 11) '使用日期
a12 = sheetNo1.Cells(i, 12) '原值
a13 = sheetNo1.Cells(i, 13) '数量
If a1 = "" Then
Exit Do
End If
If i > 2 Then
'拷贝生成一张新卡片
newStartCells = 2 + oneRowNum * (i - 2)
newEndCells = newStartCells + 23
SheetNo3.Range("B2:K24").Copy SheetNo3.Range("B" & newStartCells & ":K" & newEndCells)
End If
'找准对应的cell填入数值
SheetNo3.Cells(5 + (i - 2) * oneRowNum, 3) = a1 '固定资产名称
SheetNo3.Cells(4 + (i - 2) * oneRowNum, 3) = a11 '记账日期
SheetNo3.Cells(2 + (i - 2) * oneRowNum, 3) = a5 '记账凭证编码
SheetNo3.Cells(6 + (i - 2) * oneRowNum, 3) = a6 '资产名称
SheetNo3.Cells(6 + (i - 2) * oneRowNum, 5) = a8 '供应商
SheetNo3.Cells(6 + (i - 2) * oneRowNum, 7) = a11 '开始使用日期
SheetNo3.Cells(2 + (i - 2) * oneRowNum, 9) = a3 '卡片编号
SheetNo3.Cells(4 + (i - 2) * oneRowNum, 9) = a4 '资产编号
SheetNo3.Cells(5 + (i - 2) * oneRowNum, 6) = a8 '保管单位
SheetNo3.Cells(5 + (i - 2) * oneRowNum, 11) = a10 '保管人
SheetNo3.Cells(6 + (i - 2) * oneRowNum, 9) = a12 '原值
SheetNo3.Cells(8 + (i - 2) * oneRowNum, 9) = a12 '合计
SheetNo3.Cells(11 + (i - 2) * oneRowNum, 8) = a11 '开始日期
SheetNo3.Cells(11 + (i - 2) * oneRowNum, 10) = a9 '保管部门
i = i + 1
End Sub
Excel查看资源 --》 整改资产明细-模板Sub 按钮1_Click()i = 2colNum = 13oneRowNum = 25a1 = "1"SheetNo3.Range("A25:K65535").ClearDo While 1 '读取一行数据 a1 = sheetNo1.Cells(i, 1) '记账凭证号 -- 记账凭证编码 a2 = sheetNo1.Cells(i, 2) '用途类型 a3 = sheetN...
在
Excel
中，有时一些操作，并不是很好用函数完成，如把去掉单元格中某些字符并把它进行格式转化
填充
到另外的列中去，这些函数当然可以完成，但是用
宏
可以更快的完成，下面举一个例子，如有10000条字符串，格式为key=value的形式，要把把key
填充
到一列中去，value
填充
到另一列中去，操作步骤为：
[list]
[*]打开
Excel
的
宏
命令窗口
[*]选择“插入-模块”命令，在开打的窗口中...
VBA是什么?
VBA其实一点也不神秘，它来自于微软的VB语言，语法基本上相同，但是对应办公组件的VBA
宏
里面包含了一些对应的内建模块，以
Excel
为例，其中内建的对象有Application,Workbook,Worksheet,Range,WorksheetFunction对象等。同理，Word，PPT，CAD，Access等支持VBA
宏
的软件也自带有相应的内建对象。
VBA
宏
是什么？.
37. 隐藏单元格中的所有值（微软OFFICE技巧大赛获奖作品） 29
38. 恢复隐藏列 30
39. 快速隐藏/显示选中单元格所在行和列（微软OFFICE技巧大赛获奖作品） 30
40. 彻底隐藏单元格 30
41. 用下拉列表快速输入
数据
31
42. 快速输入自定义短语 31
43. 设置单元格背景色 31
44. 快速在多个单元格中输入相同公式 31
45. 同时在多个单元格中输入相同内容 32
46. 快速输入日期和时间 32
47. 将
复制
的单元格安全地插入到现有单元格之间 32
48. 在
EXCEL
中不丢掉列标题的显示 32
49. 查看与日期等效的序列数的值 33
50. 快速
复制
单元格内容 33
51. 使用自定义序列排序（微软OFFICE技巧大赛获奖作品） 33
52. 快速格式化
EXCEL
单元格 33
53. 固定显示某列 33
54. 在
EXCEL
中快速编辑单元格 34
55. 使用自动
填充
快速
复制
公式和格式 34
56. 为单元格添加批注 34
57.
数据
自动输入 35
58. 在
EXCEL
中快速计算一个人的年龄 35
59. 快速修改单元格次序 35
60. 将网页上的
数据
引入到
EXCEL
表格
中 36
三、 图形和图表编辑技巧 36
1. 在网上发布
EXCEL
生成的图形 36
2. 创建图表连接符 36
3. 将
EXCEL
单元格转换成图片形式插入到WORD中 37
4. 将WORD内容以图片形式插入到
EXCEL
表格
中 37
5. 将WORD中的内容作为图片链接插入
EXCEL
表格
中 37
6. 在独立的窗口中处理内嵌式图表 38
7. 在图表中显示隐藏
数据
38
8. 在图表中增加文本框 38
9. 建立文本与图表文本框的链接 38
10. 给图表增加新
数据
系列 39
11. 快速修改图表元素的格式 39
12. 创建复合图表 39
13. 对度量不同的
数据
系列使用不同坐标轴 40
14. 将自己满意的图表设置为自定义图表类型 40
15.
复制
自定义图表类型 40
16. 旋转三维图表 40
17. 拖动图表
数据
点改变工作表中的数值 41
18. 把图片合并进你的图表 41
19. 用图形美化工作表 42
20. 让文本框与工作表网格线合二为一 42
21. 快速创建默认图表 42
22. 快速创建内嵌式图表 42
23. 改变默认图表类型 43
24. 快速转换内嵌式图表与新工作表图表 43
25. 利用图表工具栏快速设置图表 43
26. 快速选取图表元素 44
27. 通过一次按键创建一个
EXCEL
图表 44
28. 绘制平直直线 44
四、 函数和公式编辑技巧 45
1. 巧用IF函数清除
EXCEL
工作表中的0 45
2. 批量求和 45
3. 对相邻单元格的
数据
求和 45
4. 对不相邻单元格的
数据
求和 46
5. 利用公式来设置加权平均 46
6. 自动求和 46
7. 用记事本编辑公式 47
8. 防止编辑栏显示公式 47
9. 解决SUM函数参数中的数量限制 47
10. 在绝对与相对单元引用之间切换 48
11. 快速查看所有工作表公式 48
12.
实现
条件显示 48
五、
数据
分析和管理技巧 48
1. 管理加载
宏
48
2. 在工作表之间使用超级连接 49
3. 快速链接网上的
数据
49
4. 跨表操作
数据
50
5. 查看
EXCEL
中相距较远的两列
数据
50
6. 如何消除缩位后的计算误差（微软OFFICE技巧大赛获奖作品） 50
7. 利用选择性粘贴命令完成一些特殊的计算 50
8. WEB查询 51
9. 在
EXCEL
中进行快速计算 51
10. 自动筛选前10个 51
11. 同时进行多个单元格的运算（微软OFFICE技巧大赛获奖作品） 52
12. 让
EXCEL
出现错误
数据
提示 52
13. 用“超级连接”快速跳转到其它文件 53
六、 设置技巧 53
1. 定制菜单命令 53
2. 设置菜单分隔线 53
3. 备份自定义工具栏 53
4. 共享自定义工具栏 54
5. 使用单文档界面快速切换工作簿 54
6. 自定义工具栏按钮 54
'寻找广告费
adverst = Dir("D:\众结资料\1日常工作内容\每日销售开发业绩(Python)\" & Application.WorksheetFunction.Text(Date, "yyyymmdd") & "\每日广告费.csv")
If adverst = "" Then
MsgBox "未找到广...
是的，Easy
Excel
可以通过
Excel
模板来
填充
数据
。使用
Excel
模板可以更加灵活和方便地生成
Excel
报表，同时还可以保留原有的样式和格式。
以下是一个例子，演示如何使用 Easy
Excel
通过
Excel
模板来
填充
数据
：
1. 首先，我们需要准备一个
Excel
模板，模板中包含我们要
填充
的
数据
和样式。在模板中，我们可以通过占位符（如 ${name}）来标识
数据
的位置。
2. 然后，我们使用 Easy
Excel
的 `withTemplate()` 方法来加载模板文件，并指定要
填充
数据
的 sheet 名称或者索引。
3. 接着，我们通过 `sheet()` 方法来获取要
填充
数据
的 sheet 对象，然后使用 `fill()` 方法来
填充
数据
。在
填充
数据
时，我们可以使用一个 Map 集合来存储
数据
，键值对的键为占位符，值为要
填充
的
数据
。
4. 最后，我们调用 `finish()` 方法来保存文件并关闭
Excel
Writer 对象。
下面是一个示例代码：
```java
// 加载
Excel
模板
InputStream templateInputStream = new FileInputStream("template.xlsx");
Excel
Writer writer = Easy
Excel
.write(fileName)
.withTemplate(templateInputStream)
.build();
//
填充
数据
Map<String, Object> dataMap = new HashMap<>();
dataMap.put("name", "张三");
dataMap.put("age", 20);
dataMap.put("gender", "男");
Sheet sheet = writer.getSheet(0);
sheet.fill(dataMap);
// 保存文件并关闭
Excel
Writer
writer.finish();
在这个例子中，我们首先通过 `withTemplate()` 方法加载了一个
Excel
模板文件。然后，我们创建了一个 Map 集合，用来存储要
填充
的
数据
。接着，我们使用 `getSheet()` 方法获取了要
填充
数据
的 sheet 对象，并使用 `fill()` 方法来
填充
数据
。在
填充
数据
时，我们使用了占位符 ${name}、${age} 和 ${gender} 来标识
数据
的位置。最后，我们调用 `finish()` 方法来保存文件并关闭
Excel
Writer 对象。
需要注意的是，在使用
Excel
模板时，占位符的格式和位置需要与模板中的格式和位置一致，否则
填充
的
数据
可能会出现错位或者无法
填充
的情况。
Layui跨域问题:No 'Access-Control-Allow-Origin' header is present on the requested resource.
蓝之风狼:
Layui跨域问题:No 'Access-Control-Allow-Origin' header is present on the requested resource.
Leo_KevinBY:
Layui跨域问题:No 'Access-Control-Allow-Origin' header is present on the requested resource.
我啥也不会。:
Eureka笔记
不正经的kimol君:
