Tag: 控件

主动x参考的VBA麻烦

我想为打印机编程一个控件。 打印机的界面是“Weber Packaging Solutions”的“Legitronic”软件。 在vba-activex手册中写道，一个实例的构build过程如下： 对于后期绑定： Dim MyLabel as Object Set MyLabel = CreateObject("Legi32.label") 早期绑定： Dim MyLabel as Legi32.label Set MyLabel = CreateObject("Legi32.label") 我提到了界面的types库（我的同事告诉我这是正确的参考，因为他在过去也做了一个程序，并且对他有效） 但每次我执行程序时，我都会得到运行时错误“429”：ActiveX组件不能创build对象。 我使用Microsoft Excel工作表的macros（.xlsm） 你知道这个问题还是知道，怎么解决？ 提前致谢！

Excel VBA中的现代forms和表单控件

从Excel 97开始，Excel VBA的窗体和控件的外观就没有更新过。它们看起来像Windows 95.它已经变成了一个非常老式的外观。 某些控件（如checkbox，单选button和编辑框）具有可以使它们看起来二维的属性。 早在1997年，这使得它们看起来像Windows 3x那样过时，但是现在讽刺的是（？*）它使得这些控件看起来更加现代。 我一直这样做，但对其他一些控件，特别是命令button和下拉菜单，效果不佳。 是否可以直接调用Windows API来获得更现代化的表单和表单控件？ 如果是这样，有没有人为他们做了一些样板VBA模块？ 另外，在Macintosh上也可以使用Excel吗？ *我曾经以为我明白讽刺，但我再也不能确定了。

什么是交互式graphics绘制控件？

用什么UI控件来绘制这个交互式图表？ 关于它的事实： 这是从Excel的查询加载项 。 它以图表的forms绘制单元格，工作表，工作簿的依赖关系图。 您可以自动布局graphics节点，将其拖动到另一个位置，展开子节点，突出显示依赖节点和先行节点。

excel VBA创buildcheckboxfunction

我正在创build一个创buildcheckbox的函数。 到目前为止，我已经写了下面的代码。 下面的代码不起作用，而是显示一个错误。 有任何想法吗？？ Sub test() ActiveCell.Offset(, 1) = Sample(Shp) End Sub Function Sample(Shp as shape) '~~> Create a Checkbox Set Shp = Sheets("Sheet1").CheckBoxes.Add(52.5, 3, 42, 17.25) End Function

具有集合对象引用的VBA Excel错误424

所以我正在创build一个收集数据的用户表单，并使用这些数据来生成报告。 有很多的问题，用户被问到。 具体来说，这个表单上的testing有几个相同的问题。 众多的存在使得用户可以在表格上input关于众多testing的信息。 我对VBA excel相对比较陌生，而且我无法弄清楚如何为所有的重复性问题块创build一个类模块。 因此，我已经提出了8.每个块中的问题用不同的数字命名，例如：TestType1_ComboBox，TestType2_ComboBox等等。 是的，我意识到这是非常低效的，但是我设置类模块时遇到了很多麻烦。 我想能够引用所有的X_ComboBoxes例如，所以我可以用一个循环很容易地AddItem的所有。 我做了一个集合，所以我可以引用所有的TestType_ComboBoxes效率。 我打算为8个问题块中的所有控件做这种types的参考。 问题：当我尝试引用集合中的对象时，出现424对象引用错误。 ''' create collections: Public ttComboBox As Collection Public ttAmountBlocked As Collection Public ttgcFileName As Collection Public ttsoiDate As Collection Public ttsoiTime As Collection Public ttReportUse As Collection Sub ReportGenerationTool() ' set variables: '…other code ' make organList an array list Set organList = […]

将Excel表格embedded表单

好吧，我需要将Excel模板文档embedded到Winform中（保留所有格式），更改一些值，打印预览，然后将其打印到PDF或打印机。 而且我需要这样做，而不用花掉任何老板的现金。 我试图embedded标准的Excel COM的东西，但IDE（C＃Express 2010）不喜欢它，崩溃（办公室控制似乎没有做太多，访问Web浏览器中的XLS只偶尔工作） 所以我猜我在看第三方的开源Excel控制？ 实际上理论上可以是任何网格格式，只要我可以做类似于Excel的格式，并使它看起来非常漂亮的客户端。 有任何想法吗？ 干杯

Excel控件 – dynamic删除combobox

我已经dynamic地在工作表中添加了combobox，并且我想在两个事件结束时dynamic地删除combobox – 特别是combobox.LostFocus和combobox.KeyDown事件。 它目前适用于两种情况： 使用手动从下拉菜单中select一个项目 用户部分键入一个项目，自动完成填充其余部分，然后用户敲击键盘input。 如果用户inputselect的整个文本并按下回车键，则不起作用。 我收到消息： COMException被用户代码取消：无法获取OLEObject类的Name属性 Visual Studio指向行'sheetVSTO.Controls.Remove（myBox）;' 在myBox_LostFocus事件处理程序中作为失败的来源。 用户显示能够将整个文本input到combobox中并按下回车键。 任何帮助，将不胜感激。 这是我的（如果需要更详细的信息，请告诉我）： private void AddComboBox(String[] list) { Excel.Worksheet sheet = Globals.ThisAddIn.Application.ActiveSheet; Microsoft.Office.Tools.Excel.Worksheet sheetVSTO = Globals.Factory.GetVstoObject(sheet); Excel.Range cell = Globals.ThisAddIn.Application.ActiveCell; Microsoft.Office.Tools.Excel.Controls.ComboBox myBox= new Microsoft.Office.Tools.Excel.Controls.ComboBox(); myBox.Name = "button1"; myBox.Items.AddRange(list); myBox.KeyDown += new KeyEventHandler(myBox_KeyDown); myBox.LostFocus += new EventHandler(myBox_LostFocus); myBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend; myBox.AutoCompleteSource = AutoCompleteSource.ListItems; myBox.Focus(); […]

有没有办法编程添加表单控件？

我正在使用窗体控件的电子表格，打开用于数据input目的的用户窗体。 表单的提交button填充一行单元格，并在该行的最后两个单元格上添加两个button。 它将插入与用户一样多的行，并且每次使用它们自己的不同名称创build两个新button。 但是，这些是ActiveX控件，一旦同事打开文件并尝试在笔记本电脑上使用，它们会给我提供与其他Windows / Office版本的兼容性问题。 这是我用来在电子表格上添加一个命令button的代码（对于另一个button，只是不同的variables，它本质上是一样的）： Dim i As Long, Hght As Long Dim Name As String, NName As String i = 0 Hght = 305.25 NName = "cmdAction" & i For Each OLEObject In ActiveSheet.OLEObjects If Left(OLEObject.Name, 9) = "cmdAction" Then Name = Right(OLEObject.Name, Len(OLEObject.Name) – 9) If Name >= i Then i […]

Excel VBA：带有多列的表单控件列表框 – 如何从ADOlogging集填充？

由于兼容性问题，我不得不在我的电子表格上使用Excel 表单控件列表框 （与ActiveX）控件。 我想填充ADOlogging集中的三个字段，但是我有问题，因为我已经使用了表单控件。 这里是我为我的ActiveX列表框写的代码。 你能指点我一个从ADOlogging集填充表单控件列表框的例子吗？ 预先感谢您提供的任何帮助，以便进行此转换！ 汤姆 Private Sub Worksheet_Activate() On Error GoTo Err_Worksheet_Activate Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim i As Integer Set cnn = New ADODB.Connection cnn.ConnectionString = gcstr_Connection ' a global property with the connection string defined elsewhere. The connection is to a SQL Server database. cnn.Open Set […]

一个控件上的点击事件有时不会触发

我在一张纸上有两个button。 有时，点击其中一个button不会“触发”事件。 将光标悬浮在button上会将光标从十字转换为箭头 该button不会像“事件”发生时那样“压低”。 代码中的断点或停止语句没有达到。 另一个button从来没有演示这个问题。 如果代码是手动启动的，代码将按devise运行。 在Designer Mode ，代码似乎被附加到button。 closures并重新打开工作表，然后触发正常工作的button将恢复此button的function。 疑难解答build议，将不胜感激。 button代码如下是属性窗口，但我认为问题在于其他地方; 只是不知道在哪里看。 再次，另一个非常相似的button，它调用不同的代码，似乎一直工作正常。 感谢您的任何指导。 Option Explicit Private Sub cbDeleteViewed_Click() With cbDeleteViewed .Width = .Width End With Application.ScreenUpdating = False Select Case Environ("COMPUTERNAME") Case "RON-DODIER" sDrive = "F:\" sBasePath = "Videos" ProtectDisable Sheet1 UnProtectEnable Sheet3 Sheet3.Select Case "RONBP" sDrive = "Z:\" sBasePath = "" […]