我在excel表格中有一个对象列表,每个对象都有一个复选框和4个代表该对象的组框中的下拉列表。
我可以使用VBA遍历工作表中的每个分组框,但如何遍历分组框中的每个控件呢?
Dim oGroupBox As GroupBox
Dim cntrl As Control
For Each oGroupBox In Worksheets("Grapher").GroupBoxes
For Each cntrl In oGroupBox.Controls
Debug.Print (cntrl.Name)
Next cntrl
Next oGroupBox
我在验证访问表单,更确切地说是复选框时遇到了问题,因为Access告诉我对象不支持该属性或方法。
我的代码用于执行验证,计算表单的每个控件,如果它的值为空或空,它会将它的背景色涂成橙色,如果它被更正,它会将它返回为白色。
由于复选框对象没有将BackColor属性与textbox或combobox共享,所以我尝试使用BorderColor,这对这三个选项都是常见的。
我的代码:
Private Sub ValidarCampos()
Dim FormActivo As Form
Dim control As control
Set FormActivo = Forms(0)
ValidaC
用户通过使用复选框选择所需的选项。每个复选框的标题值都存储在一个动态数组中,然后显示在确认选择的消息框中。
我现在需要遍历一个单元格范围,在每一行确定cell (x,4)是否等于数组中的任意值,但我不知道如何像这样循环。请参阅下面填充数组的代码。
提前谢谢你!
Sub ProcessStrats_Click()
Dim ctl As Control
Dim cnt As Long
Dim msg As String
Dim i As Long
Dim cResp As Integer
Dim stArray() As Variant
cnt = 0
我希望将数据从工作簿x中的一组命名范围导出到工作簿y中的另一组范围。要导出的范围的名称将在表"Table_Export“中指定。问题是,我不想说明这些不同的范围位于哪些工作表中,因为我不知道实际的工作表名称。但是,由于范围是全局的,所以应该可以在vba中引用它们,而不必引用相应的工作表?
下面可以找到相关的代码,其中我想要完成的是if语句中的两条星行中的任何一条。
Dim x As Workbook, y As Workbook
Set x = ThisWorkbook
Set y = Workbooks.Open(Range("Export_to").Valu
我已经搜索了相同的问题,我看到了一些类似的帖子,但是我的用户表单仍然不能工作。我是VBA和Userform的新手。
我总共有12个复选框(12个月),我必须检查至少一个CheckBox被选中。
Dim atLeastOneChecked As Boolean
atLeastOneChecked = False
Dim ctrlNCK As Control
For Each ctrlNCK In Controls
If TypeName(ctrlNCK) = "chkMonth" Then
If ctrlNCK.Value = True Then atLe
我正在使用微软Word 2010。我使用VBA编辑器编写了一个代码,用于保存我编辑的文档。基本上,它打开“另存为文件”对话框,并基于一个字符串输入一个名称,该字符串由文档中的某个文本定义,用户通过Inputbox输入。当我单击视图宏组件选项卡并从那里执行宏组件时,我可以成功地运行它,但是如果我在带状上放置一个快捷方式,该文件将立即保存在C:\Users\Username\Documents中,其中包含文档的第一行。
Sub SaveAs()
'Preia numarul dosarului in numele fisierului
Dim oRng As Range
Dim Nrdo
我有一个带有5个复选框内容控件的word文档-这些控件用于显示在pdf和/或打印文档时已选中(或未选中)的选项。他们自己实际上不需要‘做’任何事情,代码明智。 我有一个有5个复选框的用户表单,对应于文档中的5个复选框。用户可以选择任何、不选中或全部选中这些用户表单复选框,我希望word文档内容控件复选框与之匹配。 为简单起见,我将内容控件复选框命名为与用户表单复选框相同的名称,以便在代码运行后循环执行代码。 打开用户表单时,可执行以下操作: Private Sub UserForm_Initialize()
Dim x As Variant
Dim z As control
是否可以在VBA方法中使用变量?
例如,我试图将项目添加到列表中: Listbox1.AddItem (item1)
Qns:我能用varible: Listbox & "Varible".AddItem (item1)替换"1“吗?
Sub ThisWorks()
Worksheets("Control Sheet").Tx_TgtRaw_FX_CA.AddItem ("Remark1")
End Sub
=======================
Sub test()
'Trying to use this as
我试图使用代码将复选框添加到工作表中:
Sub DropCheckboxOnSheet()
ActiveSheet.OLEObjects.Add ClassType:="Forms.CheckBox.1"
End Sub
当我运行这段代码时,我确实会收到一个复选框,添加到工作表中,但是我也会收到这样的消息: Excel“无法在中断模式下执行代码”。我知道我的代码向对象模型中添加了一个对象,这就是它中断的原因,但它也为我提供了继续的选择。
如何在添加对象后告诉VBA继续?
我尝试过的是:添加DisplayAlerts=False不起作用。MSDN也没有提供任何帮助:
我正在尝试计算已在用户表单的特定页面上选中的复选框的数量。我正在使用VBA与Excel 2010。
这是我的密码:
Public Sub AutoCount()
Dim ctl As control
Dim j As Long
For Each ctl In CharacterBuilder.MultiPage1.Pages(2).Controls' error occurs here
If TypeOf ctl Is msforms.CheckBox Then
If CharacterBuilder.Controls(ctl.name).Value = True T
我正在尝试制作一个VBA,它可以读取HTML并检查是否选中了特定的复选框,并在单元格中写入选中或取消选中。但我有与VBA的困难,因为我不经常使用它,任何建议都将不胜感激。
HTML
<input id="foo1" type="checkbox" name="Device" value="iPad"
checked="checked">
VBA
Sub getValue()
Dim IE As Object: Set IE =
CreateObject("
我一直在尝试修改David Foster不久前创建的一段有用的代码,但是在参考资料中很难找到对这段代码真正有用的补充。 我需要获取宏,以确保在将notes母版应用于所有幻灯片时勾选了"Slide Image“复选框,因为一些幻灯片已被”科学地“写入项目。 我正在努力地在powerpoint参考资料中找到任何关于这个复选框的引用,有什么想法吗? Sub DReplaceNotesMaster()
' Modified version of code originally posted to
' msnews.microsoft.com public newsgrou
我是新的VBA电源点插件开发,我已经成功地添加了editBox在PowerPoint带状使用CustomUI编辑器。后来,我在通过VBA代码动态地向editBox添加文本时遇到了困难。我看到了一些解决方案,如下面提到的流程:
编写onLoad函数使用GetText方法,可以使用GetText函数在editBox中输入文本。
但在我的情况下这是不可能的。有人能帮助/指导我使用VBA代码在editBox中填充PowerPoint带状的数据吗?
供参考,我已经张贴了下面的代码。请查收。
Option Explicit
Dim sRename As String
Dim RibbonUI As IR
我试图将当前的excel工作表发送到接受内容类型的api中:“多部分表单”。我需要帮助在vba中形成请求。以下是我的做法:
Sub sendInternalDataToAPI(myCSVFileName As String)
Dim data As Worksheet
Dim boundary As String
Dim filename As String
boundary = "--------------------------784780577729000449617522"
filename = "data"
我在Word文档中创建了带有复选框'cbxYes'和内容控制复选框'docCbx'的'docCbx'。我希望选中'cbxYes'中的UserForm复选框,然后更改Word文档中的Control复选框。因此,输入来自UserForm复选框,输出是Control复选框。
我已经尝试了多次搜索如何做到这一点,但我没有找到确切的我需要什么。大多数搜索都与Excel有关。老实说,我不知道我在做什么。请。正确的帮助是非常感谢的。
Private Sub cbxYes_Click()
Dim oCC As ContentControl
I
我在vba表单中的复选框的onclick事件上遇到了问题。基本上,我尝试做的是修改特定选项卡上所有复选框的值,使其与主复选框的值相同。在这种情况下,单击下面的“Use Online”复选框(代码中的online_toggle)将切换选项卡上的其他复选框“开”或“关”。我目前有以下代码,但它一直在“For Each obj In online.OLEObjects”处产生错误。
Private Sub online_toggle_Click()
Dim ctl As Control
For Each ctl In Me.MultiPage1.Pages(6).Controls
我目前正在制作一个表单,其中包含一个包含11页的单个多页。每个页面都有多个复选框,从3到12个复选框不等.复选框表示如下所示的列表项:
我计划使用一个二维for循环(for循环中的for循环)来使用以下语法检查每个框。
我已经习惯了Python,所以我的想法是循环,直到出现错误(指示不再有复选框),然后中断当前循环并继续。
For Each pg In Me.MultiPage1.Pages
x = 1
For i = 0 To 12
If ActiveSheet.Shapes("CheckBox" & x & i).Value
所以这比你典型的
strSQL = "sql string where & forms!myform.variable & "stuff"
我有一个表,它会改变,用户会给它添加新的年份。因此,明年将是新的2015年数据。我为每年创建了一个带有复选框的表单,这个表单是基于这个sql的。
select year from table group by year
如果用户将复选框标记了若干年,我希望根据用户复选框的选择在vba中编写一个查询。例如,假设我现在有3年,2012年,2013年,2014年,用户只标记2012年和2014年,跳过2013年看起
在编写VBA代码时,我被困在一个特定的点上。我使用VBA登录到一个Intranet门户网站,这是一个文件管理系统,一个接一个地打开一系列动态网页。使用VBA,我试图得到一个复选框元素的检查。一旦选中此元素,下面表格中出现的所有子元素都将自动选中。在此之后,我需要启动下载所有选定的文件。但是,我不能让复选框元素“选中”。 这是显示在网页上的HTML。我不能分享这个链接,因为它是内部网和机密的。 Link to the HTML as I am not allowed to post images yet 下面是我的VBA代码: Set inpute = objIE.Document.query
在我的excel文件中,我根据单元格的值用VBA代码隐藏了一些行。 当Properties=数为6时,所有行72-82都可见 图1第72-82行 ? 当属性数=4时,只有第72-78行可见 图2第72-78行 ? 我使用的VBA代码如下: ActiveSheet.Activate
If Target.Cells.Count <> 1 Then Exit Sub
If Not Application.Intersect(Range("U68"), Range(Target.Address)) Is Nothing Then
S
我正试图从零开始创建一个复选框,并且我遇到了一些问题。
在我的控件中,初始化了.h文件
public : int checked = 0;
因此,只要鼠标按下正确的区域,checked就会成为一个区域。drawCheckBox方法将检查它是1还是0,并在框中添加一个复选框。程序运行,但是当我按下方框区域,并检查checked是什么值时,它总是显示0。但我不知道为什么。
绘制复选框/检查用户是否选中
// Function to generate food selection box in left selection area.
void Control::drawCheckBox(strin
我有一个带有多个框架的用户表单,所有这些都充满了多个复选框。我已经将这些复选框命名为相应的Excel单元格。现在,我想让VBA在运行时单击这些复选框中的任何一个。我知道我可以通过为每个单独的复选框创建一个单击-sub来实现这一点,但是必须有一个更干净的方法来做到这一点。
到目前为止,我已经尝试将这段代码放入userform_Click和userform_Mousedown事件中,但是当我单击复选框时它们不会运行。有人知道怎么做吗?
Dim iControl As Control
For Each iControl In Me.Controls
If TypeName(iControl
我正在尝试创建一个VBA代码来检查基于现场数据的特定润滑油路线。我的代码将生成一个动态用户表单,并将设备号和部件名称作为复选框。
我的问题是,我如何编写enter命令按钮代码,以便在Done列中插入"X“?
我当前的代码如下所示。还附上了图纸的图像。
Option Explicit
Private Sub CommandButton1_Click()
Dim curColumn As Long
Dim LastRow As Long
Dim i As Long
Dim chkBox As MSForms.CheckBox
Dim ct
我一直在尝试在excel中单击复选框时输出字符串。这些复选框当前链接到工作簿中的单独页面。到目前为止,我正在编写的代码是:
Private Sub Rollout()
If Rollout.Value = True Then
Range(D11, [D11]).Value = "Roll-Out"
Else
Range(D11, [D11]).Value = "No Roll-Out Service"
End If
End Sub
Rollout()是指定给复选框的宏。页面上我希望字符串输出的单元格是D11。
我是VBA的新手,所以我不确定我是否使用了正确的
在电子表格中,我有大量预先存在的复选框,手动设置每个单元格的链接单元格将是一项繁琐的任务。
我希望对它们进行大量分组,然后编写实现以下目标的VBA代码:
i = 1
n = number of checkboxes in group
While i < n
Loop
For checkbox i in 'group X', assign linked cell to cell (range A1-->Z1)
End loop
显然这不是VBA,但我不熟悉它的语法,有没有人知道a)是否可以执行这样的函数(例如,通过分组的元素+分配链接的单元格) b)我需要查找来编写它