菜单
　　

    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所示。
  1. 上一篇：php网上购物平台设计+ER图+流程图
  2. 下一篇：Flash CS4益智游戏推箱子设计

  1. 基于MATLAB的图像增强算法设计

  2. 基于Kinect的手势跟踪与识别算法设计

  3. JAVA基于安卓平台的医疗护工管理系统设计

  4. 基于核独立元分析的非线...

  5. 基于Hadoop的制造过程大数据存储平台构建

  6. 基于安卓系统的测量软件...

  7. 基于VC++的GIS矢量图形系统开发

  8. 河岸冲刷和泥沙淤积的监测国内外研究现状

  9. 酸性水汽提装置总汽提塔设计+CAD图纸

  10. 中考体育项目与体育教学合理结合的研究

  11. 十二层带中心支撑钢结构...

  12. 杂拟谷盗体内共生菌沃尔...

  13. java+mysql车辆管理系统的设计+源代码

  14. 乳业同业并购式全产业链...

  15. 大众媒体对公共政策制定的影响

  16. 电站锅炉暖风器设计任务书

  17. 当代大学生慈善意识研究+文献综述

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回