想找人开发vba报表,vba做报表
作者:hacker | 分类:黑客业务 | 浏览:118 | 日期:2022年07月16日目录：
- 1、找人帮忙做个VBA。
- 2、我找人开发了一套报表软件，应该给我开什么样的发票？
- 3、找人编一个vba，A列有100个数值但是之一个数值出现在不确定的单元格中，求出现数值的之一个单元格
- 4、使用VBA *** 报表
- 5、excel用VBA编程做表格
找人帮忙做个VBA。
给想找人开发vba报表你做好想找人开发vba报表了
我找人开发了一套报表软件，应该给我开什么样的发票？
凡是与销售软件产品一同发生的一并收取软件安装费、维护费、培训费，因按照混合销售有规定征收增值税，而对软件产品交付使用后，按期或按次收取的维护费、技术服务费、培训费等不征收增值税。所以，在该软件交付时，应开具普通货物销售发票或增值税发票。
找人编一个vba，A列有100个数值但是之一个数值出现在不确定的单元格中，求出现数值的之一个单元格
a=0
while cells(a,1)=""
a=a+1
Wend
最后a就是你要的行号
使用VBA *** 报表
你好，动手前有几个问题需要明确：
1. 是否相当于在“结算数据”、“时间差退款数据”这两张表里面，把按商户名称分类，每个商户对应的数据不做任何汇总处理，直接罗列在“货款返还对账单”中。
2. “货款返还对账单”中，还是有3列需要求和汇总：商品数量、采购金额、运费。
3. “货款返还对账单”中，“时间差退款部分”（橘色）的商品数量和运费，是否也要做负数处理？在你给的样本中，商品数量没有做减法，仍然累加，是否正确？运费因为是0，所以看不出来应该如何操作。
4. 每个对账单针对一个商户，并另存为一个Excel文件，文件名就是文件标题“xxx-商户货款返还对账单(返还时间段)”。
excel用VBA编程做表格
Sub usa()
Dim BoR, WokeR
Dim WorkLike, Area, Weight, AllArea, AllWeight, AllBo
Dim LikeID(), LikeIDst(), LikeIDwi()
ReDim LikeID(9)
LikeIDst() = Array(1, 3, 5, 9, 13, 17, 19, 20, 21, 24)
LikeIDwi() = Array(2, 2, 2, 4, 4, 2, 1, 1, 3, 3)
For j = 1 To 2
AllBo = 0: AllArea = 0: AllWeight = 0
BoR = Sheets("编码").Cells(65536, j).End(3).Row
WorkLike = Left(Sheets("编码").Cells(1, j), 2)
If Sheets(WorkLike "生产计划单").[B65536].End(3).Row 5 Then
Sheets(WorkLike "生产计划单").Rows("6:" Sheets(WorkLike "生产计划单").[B65536].End(3).Row).Delete
End If
Sheets(WorkLike "生产计划单").Range("A6:E6") = ""
For k = 2 To BoR
WokeR = Sheets(WorkLike "生产计划单").[B65536].End(3).Row + 1
With Sheets("编码")
For i = 0 To UBound(LikeID())
LikeID(i) = Mid(.Cells(k, j), LikeIDst(i), LikeIDwi(i))
Next
End With
With Sheets(WorkLike "生产计划单")
.[C4] = Format(Now(), "日 期：yyyy年mm月dd日 hh时mm分 aaaa")
.Rows(WokeR).Insert Shift:=xlDown
.Cells(WokeR, 2) = Application.WorksheetFunction.VLookup(LikeID(1), Sheets("颜色").Range("A:B"), 2, 0) " " _
LikeID(2) * 1 "-" LikeID(3) * 1 "*" LikeID(4) * 1 "/" LikeID(8) * 1 " " _
Application.WorksheetFunction.VLookup(LikeID(5), Sheets("等级").Range("A:B"), 2, 0) " " _
Application.WorksheetFunction.VLookup(LikeID(6), Sheets("包装").Range("A:B"), 2, 0) _
"/" Application.WorksheetFunction.VLookup(LikeID(7), Sheets("隔离层").Range("A:B"), 2, 0)
.Cells(WokeR, 3) = LikeID(9) * 1
AllBo = AllBo + LikeID(9) * 1
Area = LikeID(3) / 1000 * LikeID(4) / 1000
AllArea = AllArea + Area * LikeID(8) * LikeID(9)
Weight = LikeID(2) / 1000 * LikeID(3) / 1000 * LikeID(4) / 1000 * 2.5
AllWeight = AllWeight + Weight * LikeID(8) * LikeID(9)
.Cells(WokeR + 1, 1) = "合计："
.Cells(WokeR + 1, 3) = AllBo
.Cells(WokeR + 1, 4) = "合计：" AllArea "㎡ 净重" Format(AllWeight, "0.00") "吨"
End With
Next
Next
End Sub
等了一天一楼没有回答。一楼搞好了没？手痒。我先交了。
还有，我改了表格格式，看可以不？
再说了，你的厚度的哪个是不是圈错了，还是打错了。600MM的厚度。有生产这么厚的玻璃吗？
对了，考虑一个工厂发展与客户的要求，不只会生产这几个等级和规格等，我把他们分开表了，只要增加上内容就可以自动填写。
还有，能加分不。写得挺辛苦的。
