求助油漆过敏怎么办，，这种表格怎么做？？？？？

来源：蜘蛛抓取(WebSpider) 时间：2016-10-02 02:45 标签： 向微信求助捐款怎么写
查看: 1198|回复: 10
各位老师们，这个表格应该怎么弄啊？求助求助
阅读权限20
在线时间 小时
要求在表格中，先谢了，各位老师！
(10.61 KB, 下载次数: 22)
14:21 上传
点击文件名下载附件
阅读权限20
在线时间 小时
没人指导。。悲凉。
阅读权限100
在线时间 小时
& & & & & & & &
你的数据源表格设计得很累，但是给后续的数据处理带来很大的麻烦。
而且B列和C列的功能是重迭的，其实只要选择了后者，就可以决定了前者，
而且窗体的控件又是难处理的。
所以，我给的建议是取消所有的窗体控件，在E列增加一个打√，就可以轻松选定。后续的输出清单处理也就简单了。
阅读权限20
在线时间 小时
& & & & & & & &
蓝桥玄霜 发表于
你的数据源表格设计得很累，但是给后续的数据处理带来很大的麻烦。
而且B列和C列的功能是重迭的，其实只要 ...
万分感谢蓝桥玄霜老师的指导，是我把问题想复杂了。
阅读权限20
在线时间 小时
蓝老师，如何实现一对多的现象呢？就是E列被选上后，B列如何识别的问题。详细见附件
08:56 上传
点击文件名下载附件
9.99 KB, 下载次数: 3
阅读权限100
在线时间 小时
Sub yy()
Dim Arr, i&, m&, ad$, Myr&
Sheet2.Activate
Arr = [a1].CurrentRegion
For i = 4 To UBound(Arr)
& & If Arr(i, 5) = &√& Then
& && &&&If Cells(i, 2).MergeCells Then
& && && && &m = Cells(i, 2).MergeArea.Count
& && && && &ad = Cells(i, 2).MergeArea(1, 1).Address
& && && && &Myr = Sheet1.[b65536].End(xlUp).Row + 1
& && && && &Sheet1.Cells(Myr, 2) = Range(ad).Value
& && && && &Sheet1.Cells(Myr, 7) = Arr(i, 4)
& && && && &Sheet1.Cells(Myr, 10) = Arr(i, 3)
& && &&&Else
& && && && &Myr = Sheet1.[b65536].End(xlUp).Row + 1
& && && && &Sheet1.Cells(Myr, 2) = Arr(i, 2)
& && && && &Sheet1.Cells(Myr, 7) = Arr(i, 4)
& && && && &Sheet1.Cells(Myr, 10) = Arr(i, 3)
& && &&&End If
& & End If
Next
End Sub
复制代码
阅读权限100
在线时间 小时
删除了所有的checkbox控件，改为E列的数据有效性，使得代码简单有效了。
请见附件。
09:46 上传
点击文件名下载附件
11.5 KB, 下载次数: 9
阅读权限20
在线时间 小时
蓝桥玄霜 发表于
删除了所有的checkbox控件，改为E列的数据有效性，使得代码简单有效了。
请见附件。
谢谢蓝老师的指导。
还有如下问题，请老师指导：
1、在“输出栏”中序号怎么实现自动增加序号呢？
2、只能把五行的数据写入到“输出栏”中，实际上需要导出的数据很多。
阅读权限20
在线时间 小时
有些东西的确很神奇
阅读权限100
在线时间 小时
Sub yy()
Dim Arr, i&, m&, ad$, Myr&
Sheet2.Activate
Arr = [a1].CurrentRegion
For i = 4 To UBound(Arr)
& & If Arr(i, 5) = &√& Then
& && &&&If Cells(i, 2).MergeCells Then
& && && && &m = Cells(i, 2).MergeArea.Count
& && && && &ad = Cells(i, 2).MergeArea(1, 1).Address
& && && && &Myr = Sheet1.[b65536].End(xlUp).Row + 1
& && && && &Sheet1.Cells(Myr, 2) = Range(ad).Value
& && &&&Else
& && && && &Myr = Sheet1.[b65536].End(xlUp).Row + 1
& && && && &Sheet1.Cells(Myr, 2) = Arr(i, 2)
& && &&&End If
& && &&&Sheet1.Cells(Myr, 1) = Myr - 6
& && &&&Sheet1.Cells(Myr, 7) = Arr(i, 4)
& && &&&Sheet1.Cells(Myr, 10) = Arr(i, 3)
& & End If
Next
MsgBox &OK!&
End Sub
复制代码
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1417|回复: 11
老板让我做一份成本表，我不太懂表格怎么弄
& &&&老板让我做一份成本表，我不太懂表格怎么弄，有谁可以帮忙吗？6 y, h5 Q$ l, Y" |' a
& & 我们是做机床钣金外壳的
貌似很多钣金厂有一种ECXEL表格的，里边定义了一些函数，列出板厚，外形尺寸，设定下料余量，材料费就出来了。列出各工序加工工时，加工费出来了，求出喷粉面积或重量，喷粉费用出来了。算上运输，管理费用。成本就出来了。
如果公司以前没有这种表格就先把成本算出来先，把所有计算的内容包括在里面，不要过分考虑表格的完美，一般先讲究结果的正确再考虑形式的漂亮
SolidWorks上面有成本计算的功能，你试试
你是要做报价用的还是只做分成本分析?如果要做报价的话就要很详细计算各个材料，工时等等，如果只是做个成本分析用的的话，你只要统计下板材，配件，人工，喷粉的成本就可以了。4 v& F% ?( Z5 a' ?- j8 F! A
貌似应该是报价用的，需要比较详细一点。这种企业内部用的excel可以自己制作的，一开始肯定不完美，不停地完善就行。主要就是用到函数和公式。
第1页：材料费（不含17%增值税）
第2页：加工费（不含17%增值税） 5 S5 h! q1 O# Q
第3页：备件、装配、调试、验收（2次）工时费+运费、吊装费（呈给用户看的分项报价，不含17%增值税）. e, Z; ^/ `/ {8 z, M- ^
第4页：汇总表（含17%增值税）; w' f! ?8 g: T3 X9 G, H) H2 f
以上表格倒序排列（汇总表在最前）。2 i! O# |) K3 @/ N7 F$ ~+ n
谢谢各位，是成本分析而已，不是报价用
面包出炉 发表于
13:57 &&J+ W( \8 f3 r# X3 c( V3 e
你是要做报价用的还是只做分成本分析?如果要做报价的话就要很详细计算各个材料，工时等等，如果只是做个成本 ...7 ?! m+ ~; n& |- B. J&&]* x
有没有样板呀，，，谢谢啦~~
面包出炉 发表于
13:57 7 i$ n, y+ b: U7 X5 Q&&^" i- n
你是要做报价用的还是只做分成本分析?如果要做报价的话就要很详细计算各个材料，工时等等，如果只是做个成本 ...
做成本分析的) F& M1 W, P: `4 w9 F
工作时间：9:00-17:00
Powered by百度知道 - 信息提示
知道宝贝找不到问题了&_&!!
该问题可能已经失效。
秒以后自动返回

我要回帖

更多关于 向微信求助捐款怎么写 的文章

 

随机推荐