当前位置:首页 » 机关扶贫 » vba控制其他窗口内控件

vba控制其他窗口内控件

发布时间: 2021-02-24 20:49:00

❶ vba如何控制外部程序上的控件

别说vba,vb都难。外部程序是你的不?是的话就好办了。可以发信息给你的程序,再让程序控制控件。

❷ VBA模块内引用窗体控件的问题,问题解决了再加分

1. label_pm 这个只是没有赋值的变量,而且控件好像不能这样引用的。
2. 你可以试一下使用下面的方法(帮助文件)来进行控件的使用,
3. 按照你的需求,需要在MenuMouseMove(ctl As Object) 这里面访问窗体里其他所有的的控件,所以可能还需要一个窗体变量作为参数。我现在没有VB,没法替你验证。

For Each MyControl In Controls
If (MyControl.Name Like "MultiPage*") Then
MsgBox MyControl.Name _
& ".Pages.Count = " _
& MyControl.Pages.Count
ElseIf (MyControl.Name Like "TabStrip*") Then
MsgBox MyControl.Name & ".Tabs.Count = " _
& MyControl.Tabs.Count
End If
Next

❸ 如何让vba加入其它控件

在窗体的工具窗口上右击鼠标,就会出现附加控件,就可以插入你所需要的所有系统已注册的控件。
也可以加入自定义控件,只要放在相应的路径下,也是可以加载进来的。

❹ excel vba 用代码在窗体中添加控件

Private Sub Form_Load()
HScroll1.Max = 200 '最大值制
HScroll1.Min = 0 '最小值
HScroll1.Value = 100 '初始滚动值
HScroll1.LargeChange = 10 '大改变
HScroll1.SmallChange = 5 '小改变

End Sub

Private Sub HScroll1_Change()
Print HScroll1.Value
End Sub

不懂请追问,满意请采纳

❺ vba 什么是窗体控件与工作表控件

窗体控件是你按alt+f11进入vba编译环境,添加的窗体上,用控件工具箱做出来的回,驱动需要vba代码控制,而工答作表控件是在工作表上用视图-控件工具箱作出来的,虽然也是代码驱动,但是代码不在vba后台,需要在设计模式察看代码才可以
图形控件可以设置一些个性化的图标作为按钮,用右键点画出来的图形,选择指定宏,就可以获得几乎和后台窗体以及工作表控件一样的效果,不同的是,绘图作出来的按钮,对代码的调用是一种链接关系.会随文件路径改变而受影响

❻ vba怎么实现在一个窗口中调用另一个窗口中的数据,或者一个窗口中的数据怎么在另一个窗口中表示

userform1 userfrom2

userfrom2 里面有控件 Label1 值是 “nihao”

userform1 编程回答

set a = new userform2

a.Label1.caption 取值

❼ vba中一个窗体中怎么引用另一个窗体中对象

将要传递的变量设置成模块级的公共变量,即在窗体外的模块中定义变量。

❽ 如何使用VBA在其他工作簿中插入控件并写入代码

希望楼主耐心揣摩,举一反三
Sub建立窗体并运行()
DimTempFormAsObject'采用后期绑定
Application.VBE.MainWindow.Visible=False'防止窗口闪动
SetTempForm=ThisWorkbook.VBProject.VBComponents.Add(3)'建立窗体
WithTempForm
.Properties("Caption")="智能输入"
.Properties("Width")=100
.Properties("Height")=100
EndWith
WithTempForm.Designer.Controls.Add("forms.ComboBox.1")'创建组合框
.Left=10
.Top=15
EndWith
WithTempForm.Designer.Controls.Add("forms.CommandButton.1")'创建一个按钮
.Left=10
.Top=45
.Caption="输入当前日期"
EndWith
WithTempForm.CodeMole'为窗体添加代码
.InsertLines.CountOfLines+1,"PrivateSubUserForm_Activate()"
.InsertLines.CountOfLines+2,"Me.ComboBox1.List=Array(""一月"",""二月"",""三月"",""四月"",""五月"",""六月"",""七月"",""八月"",""九月"",""十月"",""十一月"",""十二月"")"
.InsertLines.CountOfLines+3,"Me.ComboBox1=WorksheetFunction.Text(VBA.Month(Date),""[DBNum1][$-804]0月"")"
.InsertLines.CountOfLines+4,"EndSub"
.InsertLines.CountOfLines+5,"PrivateSubComboBox1_Change()"
.InsertLines.CountOfLines+6,"IfTypeName(ActiveCell)=""Range""ThenActiveCell=Me.ComboBox1.Text"
.InsertLines.CountOfLines+7,"EndSub"
.InsertLines.CountOfLines+8,"PrivateSubCommandButton1_Click()"
.InsertLines.CountOfLines+9,"IfTypeName(ActiveCell)=""Range""ThenActiveCell=date"
.InsertLines.CountOfLines+10,"EndSub"
EndWith
VBA.UserForms.Add(TempForm.Name).Show'显示窗体
ThisWorkbook.VBProject.VBComponents.RemoveTempForm'运行完毕删除窗体
EndSub

❾ VBA窗体控件放到了其它控件中怎么选中

找到工具栏设计模式图标(类似一个窗体的那一个)按下去就是设计模式了,然后就能选取这个VBA窗体控件了,再按一下就是退出设计模式。

❿ vba窗体控件调用

在VBA窗口双击左侧列复表框的制thisworkbook 在右边窗口粘贴下面的代码
Private Sub Workbook_Open()
userform1.show '如果你更改了窗体的名称那就改为 窗体名称.show
End Sub
这样打开这个工作薄 就直接调用你建的窗体.
还有一种就是创建一个过程宏调用,可以写在任意工作表的代码中或者模块中调用
sub 加载操作窗体()
userform1.show
end sub

热点内容
影视转载限制分钟 发布:2024-08-19 09:13:14 浏览:319
韩国电影伤口上纹身找心里辅导 发布:2024-08-19 09:07:27 浏览:156
韩国电影集合3小时 发布:2024-08-19 08:36:11 浏览:783
有母乳场景的电影 发布:2024-08-19 08:32:55 浏览:451
我准备再看一场电影英语 发布:2024-08-19 08:14:08 浏览:996
奥迪a8电影叫什么三个女救人 发布:2024-08-19 07:56:14 浏览:513
邱淑芬风月片全部 发布:2024-08-19 07:53:22 浏览:341
善良妈妈的朋友李采潭 发布:2024-08-19 07:33:09 浏览:760
哪里还可以看查理九世 发布:2024-08-19 07:29:07 浏览:143
看电影需要多少帧数 发布:2024-08-19 07:23:14 浏览:121