范文无忧网公文文书公文写作

EXCEL VBA的计算

03月18日 编辑 fanwen51.com

[EXCEL与行政采购的问题]一、做库存报表最起码要掌握表格制作方法。Excel的基本操作要会。例如设置 行高、列宽、插入行、删除行、单元格的设置等等。这些都在工具栏中能调用。简单的库存表不需要很...+阅读

EXCEL VBA的计算

用VBA 可以实现,我弄弄看.

Public Total_data(100) As Long

Public row_i As Integer, cloumn_i As Integer

Public Sub find_data()

Dim i As Integer, flag As Long, total_i As Long

Dim myrange As Range

total_i = 0

For Each myrange In Range("M20:S30")

If myrange.Value <> "" Then

total_i = total_i + 1

Total_data(total_i) = myrange

End If

Next

row_i = 1

cloumn_i = 1

For i = 1 To total_i

flag = get_data(i, total_i, 10000 - Total_data(i))

If flag Then

Cells(row_i, cloumn_i) = Total_data(i)

row_i = row_i + 1

cloumn_i = 1

End If

Next i

End Sub

Public Function get_data(start_i As Integer, end_i As Long, find_value As Long)

get_data = 0

If start_i > end_i Then

get_data = 0

Exit Function

End If

If find_value = 0 Then

cloumn_i = cloumn_i + 1

get_data = start_i

Exit Function

Else

If get_data(start_i + 1, end_i, find_value - Total_data(start_i + 1)) Then

Cells(row_i, cloumn_i) = Total_data(start_i + 1)

cloumn_i = cloumn_i + 1

get_data = start_i + 1

End If

If get_data(start_i + 1, end_i, find_value) Then

get_data = start_i + 2

End If

End If

End Function

延伸阅读:

如何利用excel和Word批量生成公文首先我们也是先有这么个数据表: 然后我们也要有模板:然后我们也要有模板: t;注意:末尾不要有多余的回车或者分页符。邮件合并会自动给每一项创建一页。注意:末尾不要有多余的回车...

Excel如何一步到位制作学生成绩通知单编辑特别推荐: 全国计算机等级考试(等考)指定教材 全国计算机等级考试学习视频 全国计算机等级考试网上辅导招生 全国计算机等级考试时间及科目预告 考试大教育全国计算机等级...

excel两表中两列数据中的某行数据相同则显示另一列的数据=VLOOKUP(A1&B1,IF({1,0},教职工学历及任课情况花名册!$B$1:$B$999&amp;教职工学历及任课情况花名册!$E$1:$E$999,教职工学历及任课情况花名册!$H$1:$H$999),2,0) 按三键结束Ctrl+...

excel数值范围决定显示颜色选中成绩那几列,2003版EXCEL中 下拉菜单:格式--条件格式 1. 单元格数值--大于或等于--90--选择格式为“填充红色” 2. 选择:添加 3. 单元格数值--介于--80--90--选择格式为“填...

excel怎么取消套用表格格式1、我想以我的 Excel 表单为例, 它是一种已以表格形式格式化的窗体。 2、接着我们就开始用鼠标选中套用格式的区域。 3、然后选择的区域的格式清除, 如在 "开始" 菜单中显示的...

如何使用Excel表格制作工资条样式的成绩通知单班主任工作繁杂琐碎,每到各种考试,向学生反馈成绩就是一件必须完成的事情。现在不主张把所有学生的成绩全部打出并直接张贴,又得让学生尽快知道自己的成绩,所以选用"成绩通知单"的...

请问哪位有excel制作的管理系统请问哪位有excel制作的管理系统:没那么麻烦,你只要学会透视表,就解决了。 饭店名称 客户姓名 订房时间 A饭店 张三 25-3 c饭店 李四 25-1 A饭店 王五 25-1 c饭店 钱六 25-3 A饭...

推荐阅读
图文推荐
栏目列表