基于EXCEL加热炉热平衡计算软件设计(10)
Label33.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 20, False), "0.0000")
Label34.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 21, False), "0.0000")
Label35.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 22, False), "0.0000")
Label36.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 23, False), "0.0000")
Label37.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 24, False), "0.0000")
Label7.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 25, False), "0.0000")
Label9.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 26, False), "0.0000")
Label12.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 27, False), "0.0000")
Label13.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 28, False), "0.0000")
Label26.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 29, False), "0.0000")
Label57.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 30, False), "0.00%")
Label56.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 31, False), "0.00%")
Label42.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 32, False), "0.00%")
Label43.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 33, False), "0.00%")
Label44.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 34, False), "0.00%")
Label45.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 35, False), "0.00%")
Label46.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 36, False), "0.00%")
Label47.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 37, False), "0.00%")
Label48.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 38, False), "0.00%")
Label49.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 39, False), "0.00%")
Label50.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 40, False), "0.00%")
Label51.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 41, False), "0.00%")
Label52.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 42, False), "0.00%")
Label53.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 43, False), "0.00%")
Label58.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 44, False), "0.00%")
Label54.Caption = Format(Application.WorksheetFunction.VLookup(ComboBox1.Text, Range("A1:AT100"), 45, False), "0.00%")
End Sub
Private Sub CommandButton1_Click()
UserForm2.Hide
UserForm6.Show
End Sub
3.4 数据打印窗体
数据打印窗体使用了标签控件、下拉框控件以及按钮控件。标签控件用来显示文本信息；下拉框控件用来显示“数据库二”中存储的单位名称，按钮控件实现了各个窗体间的转换。如图 3.7所示，用户根据需求选择需要生成数据报告的炉窑名，选择“打印封面及前言”，软件会连接到工作簿中的“封面前言”工作表，用户需按照冶金工业部《十种炉窑热平衡测试与计算方法暂行规定》的格式编制，其中包括前言、概况、热平衡计算、热平衡表、主要经济技术指标、分析与建设、附录等，使用打印机需修改打印程序中的部分设置。“封面前言”的打印预览如图 3.8所示。