[求助]海外求助～第三道终极题目已贴出，大家不要眼花哦～跪求高手解答～

detifo · 发表于 2007-5-12 21:21

题目3:编写一个发票录入程序. 在收集完发票日期( 购买方代码,发票日期,货物代码,单价,销售数量)等信息后,程序要完成2个任务.   第一,程序必须建立一个工作表作为销售的数据库. 这里需要所有的输入发票的信息(不是发票)的所有信息.(日期,发票号码, 购买方代码, 货物代码,单价,销售数量). 这些信息应该可以供以后生成报表使用. 第二, 基于现有列示的发票信息(不止一个发票的信息),可以生成1个预先格式化的工作表(用于打印). 标题栏信息: 销售方信息( 通常都是不变的,随便找个名字?); 购买方代码; 购买方名字(为了查找名字,单独建立小的数据库在一个独立工作表. 购买方代码和名字相邻存放.); 购买物品的清单(物品代码) 和 单价, 销售数量 和 总价. 在发票底部必须有总价. 当发票生成后, 程序应该切换到发票页面以便于用户检查和打印.     这个程序只能接受有效的输入以及自动分派一个唯一的标识号码给所有的发票(这个号码必须同时出现在发票和数据库中--- 这里你可以需要一个静态变量(STATIC 变量) ). 使用定义好的数据形式,同时不要忘记可以允许用户终止输入. 在储存数据之前, 向用户显示结果(比如说使用一个MSGBOX)同时要求用户确认. 如果用户不确认结果(认为有错误), 重新输入数据.(不是整张发票). 每次新开始都应该生成一张新的发票, 在结束后所有的数据都要显示到发票上.

[此贴子已经被作者于2007-5-13 10:39:56编辑过]

detifo · 发表于 2007-5-12 21:22

发重了。.上面的就可以了.

[此贴子已经被作者于2007-5-13 7:44:05编辑过]

zhangbo19856 · 发表于 2007-5-12 22:31

detifo实在就是一牛人～～～各位高手们，动起来，呵呵～～小弟的作业就靠你们啦～

小戏 · 发表于 2007-5-13 12:04

Sub save()     Application.ScreenUpdating = False     Dim i As Long, j As Integer, row1 As Long, row2 As Integer     If Sheets("INVOICING").Range("D3") = "" Then         MsgBox "INVOICING NUMBER not null！", 48, "ADVERT"         Exit Sub     End If     row1 = Sheets("INVOICING DATA").Range("A65536").End(xlUp).Row     For i = 1 To row1         If Sheets("INVOICING DATA").Cells(i, 1) = Sheets("INVOICING").Range("D3") Then             MsgBox "INVOICING NUMBER repeat！", 16, "ADVERT"             Application.ScreenUpdating = True             Exit Sub         End If     Next     With Sheets("INVOICING")     If .Range("C10") <> "" Then         row2 = 10     Else         row2 = .Range("C10").End(xlUp).Row     End If     For j = 7 To row2         Sheets("INVOICING DATA").Cells(j - 6 + row1, 1) = .Range("D3")         Sheets("INVOICING DATA").Cells(j - 6 + row1, 2) = .Range("D4")         Sheets("INVOICING DATA").Cells(j - 6 + row1, 3) = .Range("D5")         Sheets("INVOICING DATA").Cells(j - 6 + row1, 4) = .Range("G3")         Sheets("INVOICING DATA").Cells(j - 6 + row1, 5) = .Range("C" & j)         Sheets("INVOICING DATA").Cells(j - 6 + row1, 6) = .Range("D" & j)         Sheets("INVOICING DATA").Cells(j - 6 + row1, 7) = .Range("E" & j)         Sheets("INVOICING DATA").Cells(j - 6 + row1, 8) = .Range("F" & j)         Sheets("INVOICING DATA").Cells(j - 6 + row1, 9) = .Range("G" & j)         Sheets("INVOICING DATA").Cells(j - 6 + row1, 10) = .Range("G12")         Sheets("INVOICING DATA").Cells(j - 6 + row1, 11) = .Range("D12")     Next     Application.EnableEvents = False     .Range("D3:D5").ClearContents     .Range("C7:G10").ClearContents     .Range("G3") = VBA.Date     End With     MsgBox "OK！", 64, "ADVERT"     Sheets("INVOICING").Range("E9").Select     Application.EnableEvents = True     Application.ScreenUpdating = True End Sub

rivate Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = FalseOn Error Resume Next If Target.Row > 6 And Target.Row < 11 Then     If Target.Column = 6 Then         [F11] = Application.WorksheetFunction.Sum([F6:F10])     ElseIf Target.Column = 7 Then         [G11] = Application.WorksheetFunction.Sum([G6:G10])     ElseIf Target.Column = 3 Then         Cells(Target.Row, 4) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), Sheets("ITEM").Range("A2:C" & Sheets("ITEM").Range("A65536").End(xlUp).Row), 2, 0)         Cells(Target.Row, 5) = Application.WorksheetFunction.VLookup(Cells(Target.Row, 3), Sheets("ITEM").Range("A2:C" & Sheets("ITEM").Range("A65536").End(xlUp).Row), 3, 0)     End If ElseIf Target.Column = 4 And Target.Row = 4 Then     [D5] = Application.WorksheetFunction.VLookup([D4], Sheets("BUYERS").Range("A2:B" & Sheets("BUYERS").Range("A65536").End(xlUp).Row), 2, 0) End If Application.EnableEvents = True End Sub

rivate Sub Workbook_Open() Application.EnableEvents = False Sheets("INVOICING").Range("G3") = VBA.Date Sheets("INVOICING").Range("D3:D5").ClearContents Sheets("INVOICING").Range("D3:D5").ClearContents Application.EnableEvents = True End Sub偶得E文水平太菜,提示语句自己改吧[em04][em04]三段描述没有看明白意思,等空的时候再来看看吧  虽然没完全符合要求，但小戏同学作为第一个响应者，奖励两个金币                                                                                                                     -----ldy

[此贴子已经被ldy于2007-5-13 14:12:42编辑过]

时间 · 发表于 2007-5-19 14:52

最大的收获就是5楼说的话了

		自动登录	找回密码
密码			注册

[求助]海外求助～第三道终极题目已贴出，大家不要眼花哦～跪求高手解答～

第三个题目部分代码