怎么用别人网站做模板,写软文的app,wordpress js 代码编辑器,做空气开关那个网站推广比较好我的目标#xff1a;让中国的大学生走出校门的那一刻就已经具备这些office技能#xff0c;让职场人士能高效使用office为其服务。支持我#xff0c;也为自己加油#xff01;前面我们分享过如何做进度条#xff1a;《Excel进度条启示#xff1a;专注与持续积累定会让人生出… 我的目标让中国的大学生走出校门的那一刻就已经具备这些office技能让职场人士能高效使用office为其服务。支持我也为自己加油前面我们分享过如何做进度条《Excel进度条启示专注与持续积累定会让人生出彩》此种进度条是独立的进度条有时我们更需要集成式的进度条及进度条和其它控件共处在一个窗体中。我们先来看个例子上面案例中点击运行后会弹出一个输入随机数的对话框可以在其中输入需要输入随机数的区域(也可以直接在工作表中选取区域)随机数的范围点击确认后在对话框的底部会有进度条显示完成进度完成后点击取消可以关闭对话框。这样的进度条是怎么实现的呢步骤如下在VBE这种先插入窗体及各个控件并做好布局如下首先写确认按钮的Click事件代码Public t As DoublePrivate Sub CommandButton1_Click()Dim r$, mn, mx, n, rg As Range, rng As Ranger RefEdit1.Valuemn TextBox1.Textmx TextBox2.TextSet rg Range(r)If mx mn Then For Each rng In rg rng.Value Int(Rnd * mx mn) n n 1 t n / rg.CountLarge UserForm1.更新进度条 t NextEnd IfEnd Sub先获取控件RefEdit1、 TextBox1、 TextBox2中的值根据值确定选区随机数的最小值、最大值然后写在区域中写入随机数的代码并求出完成率t运行更新进度条的提示。更新进度条的代码如下(写在窗体代码窗口里)Public Sub 更新进度条(t) 显示完成进度条 Label4.Visible True Frame1.Visible True With Me .Frame1.Caption Format(t, 0%) .Label5.Width t * (.Frame1.Width - 10) .Repaint End WithEnd Sub接着写窗体初始化代码初始化时RefEdit1、TextBox1、 TextBox2的值清空隐藏进度条代码如下初始化窗体清空选区最大值最小值隐藏进度条’Private Sub UserForm_Initialize()RefEdit1.Value TextBox1.Text TextBox2.Value Label4.Visible FalseLabel4.Width 0Frame1.Visible FalseEnd Sub取消按钮的Click代码如下Private Sub CommandButton2_Click()Unload MeEnd Sub工作簿中命令按钮关联代码如下运行窗体Sub 运行()UserForm1.ShowEnd Sub本节的分享就到这里祝大家每天都有进步。公众号后台资源库可获取更多资源1在线课堂在逐渐完善中欢迎您的光临点击下方“”即可进入云课堂学习
