网站大量收购闲置独家精品文档,联系QQ:2885784924

项目管理软件:MS Project二次开发_(10).宏的录制与编辑.docx

项目管理软件:MS Project二次开发_(10).宏的录制与编辑.docx

  1. 1、本文档共18页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

PAGE1

PAGE1

宏的录制与编辑

在项目管理软件MSProject中,宏是一种非常强大的工具,可以自动化执行一系列任务,提高工作效率。宏可以通过录制和编辑两种方式创建。录制宏是一种简单的方法,适用于那些只需要简单重复操作的场景。而编辑宏则更加灵活,可以处理复杂的逻辑和数据操作。

录制宏

录制宏的过程非常直观,只需按照一定的步骤操作即可。以下是录制宏的详细步骤:

启动宏录制器:

在MSProject中,点击“开发工具”选项卡(如果没有看到此选项卡,可以在“文件”-“选项”-“自定义功能区”中启用),然后点击“录制宏”按钮。

执行操作:

在启动宏录制器后,执行你希望宏录制的一系列操作。这些操作可以包括添加任务、分配资源、调整时间线等。

停止录制:

完成所有操作后,再次点击“录制宏”按钮,停止录制。

命名和保存宏:

停止录制后,会弹出一个对话框,让你命名宏并选择保存位置。通常,宏会被保存在“个人宏”或“当前项目”中。

示例:录制添加任务的宏

假设我们需要录制一个宏,用于在项目中添加一个新任务。以下是具体步骤:

启动宏录制器:

点击“开发工具”选项卡-点击“录制宏”按钮。

执行操作:

在项目计划中点击“任务”选项卡-点击“新建任务”按钮-输入任务名称“编写项目报告”-设置任务开始日期为“2023-10-01”-设置任务工期为“5天”。

停止录制:

点击“开发工具”选项卡-点击“停止录制”按钮。

命名和保存宏:

弹出“录制宏”对话框-输入宏名称“AddNewTask”-选择保存位置为“个人宏”-点击“确定”。

编辑宏

虽然录制宏可以快速生成简单的宏,但在处理复杂任务时,编辑宏提供了更大的灵活性。通过编辑宏,可以添加条件判断、循环和其他高级功能。MSProject使用VBA(VisualBasicforApplications)作为宏的编程语言。

VBA编辑器

要编辑宏,首先需要打开VBA编辑器:

打开VBA编辑器:

点击“开发工具”选项卡-点击“VisualBasic”按钮。

创建新的模块:

在VBA编辑器中,点击“插入”-“模块”,创建一个新的模块。

编写宏代码:

在新模块中编写VBA代码。以下是一些基本的VBA代码示例。

示例:编写一个宏来批量添加任务

假设我们需要编写一个宏,用于批量添加多个任务。以下是具体的VBA代码示例:

SubAddMultipleTasks()

定义一个数组,存储任务名称和工期

DimtaskNamesAsVariant

DimtaskDurationsAsVariant

taskNames=Array(编写项目报告,审查报告,提交报告)

taskDurations=Array(5天,3天,2天)

获取当前项目的任务表

DimprojectAsProject

Setproject=ActiveProject

循环添加任务

DimiAsInteger

Fori=LBound(taskNames)ToUBound(taskNames)

添加新任务

DimtaskAsTask

Settask=project.Tasks.Add(taskNames(i))

设置任务工期

task.Duration=taskDurations(i)

设置任务开始日期

Ifi=0Then

task.Start=2023-10-01

Else

task.Start=project.Tasks(i).Finish+1

EndIf

Nexti

EndSub

代码解释

定义数组:

DimtaskNamesAsVariant

DimtaskDurationsAsVariant

taskNames=Array(编写项目报告,审查报告,提交报告)

taskDurations=Array(5天,3天,2天)

这里定义了两个数组,分别存储任务名称和对应的工期。

获取当前项目:

DimprojectAsProject

Setproject=ActiveProject

获取当前激活的项目,以便在其中添加任务。

循环添加任

您可能关注的文档

文档评论(0)

找工业软件教程找老陈 + 关注
实名认证
服务提供商

寻找教程;翻译教程;题库提供;教程发布;计算机技术答疑;行业分析报告提供;

1亿VIP精品文档

相关文档