|
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的要好一些。 |
|