这个系统如何做?

natureyoung

现需要做一个报价系统,详情见附件!请高手帮忙一下!谢谢!!!!!!!!!
E-mail:natureyoung@126.com   QQ:305682358
难点:总价=价格1+价格2+价格3......     
        但是各种价格又由很多小项加起来,每个小项经常在变,如何在只变化的小项只改变一个变化数值,所有产品的总价自动变化!

欢迎有更好的方案!!!!

liwen

参考数据难以估到系统要求,再者如:配件代码与配件结构档中配件表如何关连等都看不出来.
难点在于:思路不清

natureyoung

我重新整理了一下!詳情見附見.
請班主幫忙修改一下。謝謝!!!!!!

[ 本帖最后由 natureyoung 于 2008-4-10 09:58 编辑 ]

natureyoung

難點:  
    1、工钱下的三个小项如果有变化，如何让数据库的数据全部跟着变化？
  2、登入数据时能否连同公式一同登过到数据表中？
  3、由于每种产品由许多配件组成，不同产品配件组合不一样，有可能配件1有5种，配件2没有，配件3有1种。。。。。。，如何在登入数据时能让其一项项接着后面自动排列。

liwen

Sub Macro1()
  i = Sheets("數據").[A65536].End(xlUp).Row + 1
    Sheets("數據").Range("A" & i).FormulaR1C1 = Sheets("登入").Range("B3").FormulaR1C1
    Sheets("數據").Range("B" & i).FormulaR1C1 = Sheets("登入").Range("I10").Value
    Sheets("數據").Range("C" & i).FormulaR1C1 = "=" & Sheets("登入").Range("B4").Value & "*IF(R5C3="""",1,R5C3)"
    Sheets("數據").Range("D" & i).FormulaR1C1 = "=" & Sheets("登入").Range("D5").Value & "*IF(R4C4="""",1,R4C4)"
    Sheets("數據").Range("E" & i).FormulaR1C1 = "=" & Sheets("登入").Range("D6").Value & "*IF(R4C5="""",1,R4C5)"
    Sheets("數據").Range("N" & i).FormulaR1C1 = Sheets("登入").Range("B14").Value
    Sheets("數據").Range("O" & i).FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(VLOOKUP(RC[-1],'C:\Documents and Settings\Bluewater\桌面\仓库管理\[配件結構檔.xls]銀配件'!R2C1:R65534C[-12],2,FALSE)=0,"""",VLOOKUP(RC[-1],'C:\Documents and Settings\Bluewater\桌面\仓库管理\[配件結構檔.xls]銀配件'!R2C1:R65534C[-12],2,FALSE)))"
End Sub

象这样，一个一个的设置，那个配件也跟这差不多，通过判断是否为空，进行输入。

但我感觉这样的库还是做成ACCESS的要好一些。

justnow

原帖由 liwen 于 2008-4-10 16:05 发表
Sub Macro1()
  i = Sheets("數據").[A65536].End(xlUp).Row + 1
    Sheets("數據").Range("A" & i).FormulaR1C1 = Sheets("登入").Range("B3").FormulaR1C1
    Sheets("數據").Range("B" & i).FormulaR1C1 = S ...

对!