表格a列内容水果、蔬菜,b列内容为苹果、香蕉、火龙果、白菜、包菜、胡萝卜,c列为数量7、6、2、4、3,写Vba代码实现生成word报告,内容为水果总共有多少,包括苹果多少kg、香蕉多少kg、火龙果多少kg;蔬菜总共有多少kg,包括胡萝卜多少kg、白菜多少kg、西红柿多少kg,word文件名设置为“进货日报”,内容标题为”当天日期进货日报”,标题居中宋体四号;"苹果多少kg、香蕉多少kg、火龙果多少kg"首行缩进2字符,两端对齐,字体宋体小四;"蔬菜总共有多少kg,包括胡萝卜多少kg、白菜多少kg、西红柿多少kg"首行缩进2字符,两端对齐,字体宋体小四。

时间: 2023-05-20 11:03:34 浏览: 50
以下是VBA代码实现: Sub GenerateReport() Dim fruitTotal As Integer Dim veggieTotal As Integer Dim appleQty As Integer Dim bananaQty As Integer Dim dragonFruitQty As Integer Dim carrotQty As Integer Dim cabbageQty As Integer Dim tomatoQty As Integer Dim reportDate As String Dim fileName As String '获取当天日期 reportDate = Format(Date, "yyyy年mm月dd日") '计算水果和蔬菜的总重量 appleQty = Range("C2").Value bananaQty = Range("C3").Value dragonFruitQty = Range("C4").Value carrotQty = Range("C5").Value cabbageQty = Range("C6").Value tomatoQty = Range("C7").Value fruitTotal = appleQty + bananaQty + dragonFruitQty veggieTotal = carrotQty + cabbageQty + tomatoQty '设置文件名 fileName = "进货日报.docx" '创建Word文档 Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True Dim objDoc As Object Set objDoc = objWord.Documents.Add '设置文档标题 objDoc.Paragraphs.Add objDoc.Paragraphs.Last.Range.Text = reportDate & "进货日报" objDoc.Paragraphs.Last.Range.Font.Name = "宋体" objDoc.Paragraphs.Last.Range.Font.Size = 14 objDoc.Paragraphs.Last.Range.ParagraphFormat.Alignment = 1 '插入水果重量表格 objDoc.Paragraphs.Add objDoc.Paragraphs.Last.Range.Text = "水果总共有多少,包括苹果多少kg、香蕉多少kg、火龙果多少kg" objDoc.Paragraphs.Last.Range.Font.Name = "宋体" objDoc.Paragraphs.Last.Range.Font.Size = 12 objDoc.Paragraphs.Last.Range.ParagraphFormat.Alignment = 1 objDoc.Paragraphs.Add Dim objTable1 As Object Set objTable1 = objDoc.Tables.Add(objDoc.Paragraphs.Last.Range, 4, 2) objTable1.Cell(1, 1).Range.Text = "水果" objTable1.Cell(1, 2).Range.Text = "重量(kg)" objTable1.Cell(2, 1).Range.Text = "苹果" objTable1.Cell(2, 2).Range.Text = appleQty objTable1.Cell(3, 1).Range.Text = "香蕉" objTable1.Cell(3, 2).Range.Text = bananaQty objTable1.Cell(4, 1).Range.Text = "火龙果" objTable1.Cell(4, 2).Range.Text = dragonFruitQty objTable1.Range.ParagraphFormat.Alignment = 3 objTable1.Range.Font.Name = "宋体" objTable1.Range.Font.Size = 12 objTable1.Range.Paragraphs(1).Range.ParagraphFormat.LeftIndent = 2 '插入蔬菜重量表格 objDoc.Paragraphs.Add objDoc.Paragraphs.Last.Range.Text = "蔬菜总共有多少kg,包括胡萝卜多少kg、白菜多少kg、西红柿多少kg" objDoc.Paragraphs.Last.Range.Font.Name = "宋体" objDoc.Paragraphs.Last.Range.Font.Size = 12 objDoc.Paragraphs.Last.Range.ParagraphFormat.Alignment = 1 objDoc.Paragraphs.Add Dim objTable2 As Object Set objTable2 = objDoc.Tables.Add(objDoc.Paragraphs.Last.Range, 4, 2) objTable2.Cell(1, 1).Range.Text = "蔬菜" objTable2.Cell(1, 2).Range.Text = "重量(kg)" objTable2.Cell(2, 1).Range.Text = "胡萝卜" objTable2.Cell(2, 2).Range.Text = carrotQty objTable2.Cell(3, 1).Range.Text = "白菜" objTable2.Cell(3, 2).Range.Text = cabbageQty objTable2.Cell(4, 1).Range.Text = "西红柿" objTable2.Cell(4, 2).Range.Text = tomatoQty objTable2.Range.ParagraphFormat.Alignment = 3 objTable2.Range.Font.Name = "宋体" objTable2.Range.Font.Size = 12 objTable2.Range.Paragraphs(1).Range.ParagraphFormat.LeftIndent = 2 '保存并关闭文档 objDoc.SaveAs fileName objDoc.Close objWord.Quit '释放对象 Set objTable1 = Nothing Set objTable2 = Nothing Set objDoc = Nothing Set objWord = Nothing End Sub

相关推荐

最新推荐

解决苹果电脑装win7时解盘鼠标不能用的问题

此文档是为了解决给苹果电脑装win7时出现的键盘鼠标失灵问题制作的,完美解决,我是苹果售后的,这是内部用的东西

在windows下制作苹果win7 8双系统安装u盘

在windows下制作苹果macos和windows的双系统安装u盘,用来给苹果电脑重装macos 加装windows

解决苹果装win7遇到的键盘鼠标失灵的情况

专门为了解决各系列苹果电脑安装win7时遇到的键盘鼠标失灵的情况,发布的一个文档,希望能帮上大家

完美解决苹果MacBook无法对NTFS格式的u盘进行读写问题

用命令行方法几行命令,完美解决苹果MacBook无法对NTFS格式的u盘进行读写问题,开启苹果电脑原生对NTFS的支持

2024年全球嵌入式配电盘行业总体规模、主要企业国内外市场占有率及排名.docx

2024年全球嵌入式配电盘行业总体规模、主要企业国内外市场占有率及排名

医院人力资源规划PPT模板.pptx

医院人力资源规划是为了实现医院的战略目标,通过对现有人力资源进行分析和预测,确定未来一段时间内所需要的人力资源数量、结构和质量的过程。医院人力资源规划需要充分考虑医院的发展战略、业务需求、市场竞争状况以及政策法规等因素,以确保人力资源的有效配置和利用。通过制定科学合理的人力资源规划,医院可以提前预测和解决可能出现的人力资源短缺或过剩问题,降低人力资源管理风险,提高组织绩效。医院人力资源规划应具有灵活性和可持续性,能够根据外部环境的变化和医院内部发展的需要进行适时调整,以实现人力资源的长期稳定发展。 医院人力资源规划对于医院的长期发展具有重要意义。它有助于合理配置人力资源,提高医疗服务质量,降低人力成本,从而提升医院的竞争力和市场地位。通过科学的医院人力资源规划,可以确保医院拥有足够的合格人员,从而保障医院的正常运转和发展。同时,人力资源规划还可以帮助医院建立健全的人才储备和晋升机制,激励员工持续提升自身能力和业绩,为医院的可持续发展奠定基础。 在医院人力资源规划中,人力资源需求分析是一个关键环节。通过对医院各部门和岗位的人力需求情况进行详细调研和分析,可以确定医院未来一段时间内所需的人才数量和结构,并制定相应的招聘计划和培训方案。人力资源招聘与配置是确保医院人力资源充足和合理配置的重要步骤。医院需要根据实际需求和岗位要求,制定招聘标准,通过多种途径吸引和选拔优秀人才,并将其分配到适合的岗位上,以发挥其最大潜能。 在医院人力资源规划中,培训与发展策略的制定非常重要。医院需要根据员工的实际情况和发展需求,制定个性化的培训计划,提供各种培训资源和机会,帮助员工不断提升自身素质和技能,适应医院的发展需求。绩效评估与激励措施是医院人力资源管理的关键环节。通过建立科学合理的绩效评估体系,可以客观、公正地评价员工的工作表现,为员工提供激励机制,激发其工作热情和创造力,促进医院整体绩效的提升。 在最后的总结中,医院人力资源规划的成功实施需要医院领导层的高度重视和支持,需要各部门之间的密切合作和协调,还需要全体员工的积极参与和配合。只有通过全员共同努力,才能确保医院人力资源规划的顺利实施,为医院的长期发展和持续成功奠定良好基础。医院人力资源规划是医院管理工作的重要组成部分,它不仅关系到医院的发展和竞争力,也关系到员工的个人发展和幸福感。希望医院人力资源规划可以不断完善和优化,为医院的可持续发展和员工的幸福生活做出积极贡献。

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire

Scrapy中的去重与增量爬取技术探究

![Scrapy中的去重与增量爬取技术探究](https://images2018.cnblogs.com/blog/1324415/201805/1324415-20180531231407066-1757931790.png) # 1. 爬虫框架介绍 网络爬虫,简单来说就是一种自动获取网页信息的程序,能够模拟浏览器请求并解析网页内容。爬虫框架则是一种可以帮助用户快速开发爬虫程序的工具,提供了一系列功能组件,简化了爬虫程序的开发流程。 爬虫框架的作用主要在于提供了网络请求、页面解析、数据存储等功能,让开发者能够专注于业务逻辑的实现,而不必过多关注底层细节。使用爬虫框架可以提高开发效率,降

qt 窗口设置Qt::WindowStaysOnTopHint之后,QCombox无法弹出

当窗口设置了Qt::WindowStaysOnTopHint标志后,QComboBox可能无法弹出。这是因为Qt::WindowStaysOnTopHint会将窗口置于其他窗口之上,包括弹出菜单窗口。 解决这个问题的一个方法是,将Qt::WindowStaysOnTopHint标志应用于QComboBox的弹出菜单。这样可以确保弹出菜单始终在最顶层显示,而不受窗口置顶标志的影响。 以下是一个示例代码: ```cpp // 创建QComboBox对象 QComboBox* comboBox = new QComboBox(parent); // 获取弹出菜单窗口 QMenu* menu

毕业论文ssm412影院在线售票系统.docx

本毕业论文以《ssm412影院在线售票系统》为主题,主要目的是为了介绍并实现一个电影院售票网站,以提高管理效率并促进电影产业的发展。论文主要包括摘要、背景意义、论文结构安排、开发技术介绍、需求分析、可行性分析、功能分析、业务流程分析、数据库设计、ER图、数据字典、数据流图、详细设计、系统截图、测试、总结、致谢、参考文献等内容。 在摘要部分,指出随着社会的发展,管理工作的科学化变得至关重要,而电影院售票网站的建设正是符合管理工作科学化的需要。通过介绍现有的研究现状和系统设计目标,论文概述了对电影院售票网站的研究内容和意义。 在背景意义部分,阐明了管理工作的科学化对于信息存储准确、快速和完善的重要性。而电影院作为一种娱乐文化形式,特别适合在互联网上进行售票,以提高用户体验和管理效率。因此,建设一个电影院售票网站是符合时代潮流和社会需求的。 在论文结构安排部分,详细列出了论文各个章节的内容和安排,包括开发技术介绍、需求分析、可行性分析、功能分析、业务流程分析、数据库设计、ER图、数据字典、数据流图、详细设计、系统截图、测试等内容,以便读者了解整体的论文结构和内容安排。 在开发技术介绍部分,介绍了采用了SSM框架作为开发技术,以实现一个电影院售票网站。通过SSM框架的应用,实现了管理员和用户前台的各项功能模块,包括首页、个人中心、用户管理、电影类型管理、放映厅管理、正在上映管理、即将上映管理、系统管理、订单管理等功能。 在需求分析、可行性分析、功能分析和业务流程分析部分,通过详细的研究和分析,确定了系统的需求、功能和业务流程,为系统设计和实现提供了具体的指导和依据。 在数据库设计、ER图、数据字典和数据流图部分,详细设计了系统的数据库结构和数据流向,以确保系统的数据存储和处理的准确性和完整性。 在详细设计和系统截图部分,展示了系统的具体设计和实现过程,包括界面设计、功能实现和用户操作流程,以便读者了解系统的整体架构和运行流程。 在测试和总结部分,对系统进行了详细的测试和评估,总结了系统的优点和不足之处,并提出了改进建议和展望。 在致谢和参考文献部分,感谢所有给予支持和帮助的人员和机构,并列出了参考文献,以便读者查阅相关资料和研究。 综上所述,本毕业论文全面介绍了《ssm412影院在线售票系统》的设计与实现过程,通过详细的研究和分析,实现了一个功能完善的电影院售票网站,为电影产业的发展和管理工作的科学化提供了有力支持和借鉴。