vba控制其他窗口内控件
❶ 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