Tag: activex

Excel 2013 64位selectdate – 更新: 有没有人听说过任何Microsoft的更新能够添加dateselect器（单击单元格，并从日历中select一个date）到Excel 2013 64位？我知道共同的控制，但据我所知，这似乎是不兼容的。我search了论坛，但无法find最近的post，所以我想看看是否有更新。

如何在窗体控件中select一个ActiveX选项/单选button: 我有一个表单控件与ActiveX收音机/选项button。表单控件名称是Side，包含名称为xOption，oOption和randomSide的Option / Radio Button。我怎么能够创build一个macros，使我可以打开工作簿设置单选button到一定的值。录制macros的单击选项会导致空白的macros。我已经尝试过了： ActiveSheet.Shapes.Range(Array("Side")).Select ActiveSheet.Shapes.Range("xOption").OLEFormat.Object.Value = 1 但是，这给了我错误1004和其他代码给我错误91.我真的是新的VBA所以如果我看起来愚蠢，你知道为什么。

启动时帧控制错误91: 我有一个Microsoft Form 2.0框架控件与三个选项button。框架控件的名称是Side ，三个选项button标题分别是X ， O和Random ，名称分别为xOption ， oOption和randomSide 。代码运行良好，除了启动时，如果我打开Excel并立即运行程序，它会给我一个Error 91 ，请注意，其中一个选项（ X ， O或Random ）已被选中。为了摆脱这个错误，我需要明确地select另一个选项，然后错误消失。我不知道为什么会发生这种情况。这是Frame控制的子 Public Sub Side_Click() sideLetter = Side.ActiveControl.Caption If StrComp(sideLetter, "Random") = 0 Then Randomize tempRand = Int((Rnd() * 2 + 1)) If tempRand = 1 Then sideLetter = "X" Else sideLetter = "O" End If […]

使用ActiveX从Excel导入到Matlab: 我需要优化将.xls文件导入到matlab中，因为xlsread耗费大量文件非常耗时。当前的xlsread脚本如下： scriptName = mfilename('fullpath'); [currentpath, filename, fileextension]= fileparts(scriptName); xlsnames = dir(fullfile(currentpath,'*.xls')); xlscount = length(xlsnames); xlsimportdata = zeros(7,6,xlscount); for k = 1:xlscount xlsimport = xlsread(xlsnames(k).name,'D31:I37'); xlsimportdata(:,1:size(xlsimport,2),k) = xlsimport; end 我有接近10K文件每周需要处理和约。每个文件在我现在的工作站上处理2秒，大约需要5个半小时。我已经读过ActiveX可以用于这个目的，但是这远远超出了我目前的编程技能，并且还没有能够在其他地方find解决scheme。任何帮助如何做到这一点，将不胜感激。如果使用ActiveX（或其他build议的方法）执行起来很简单，我也会对单元格D5和G3的数据感兴趣，我现在正在从“xlsnames（k，1）.name”和“xlsnames（k， 1）.date” 编辑：更新以反映解决scheme % Get path to .m script scriptName = mfilename('fullpath'); [currentpath, filename, fileextension]= fileparts(scriptName); % Generate list of .xls file […]

在Excel vba中更改代码名称和ActiveX控件的形状名称: Excel VBA：我正在尝试通过OLEObjects对象获取一些activex选项button，但是我发现即使在对象的属性窗口中更改了（Name）的值，它仍然需要“OptionButton1”默认名称作为关键字。我知道Excel VBA中的一些对象有一个代码名和另一个名字，这个名字也是用来从OLEObjects得到它的键，但我不知道如何改变这个“其他”的名字。我传递我的对象名称作为参数（基本上）到一个函数，所以我不能这样做： ActiveSheet.optMyNewName.Value pipe他呢。我需要能够做到这一点： ActiveSheet.OLEObjects("optMyNewName").Object.Value 但目前只有这个作品： ActiveSheet.OLEObjects("OptionButton1").Object.Value

Excel中的VBA：从ActiveX文本框创build图表: 我试图从5个ActiveX文本框中创build一个图表，我把它放在我的工作表中。首先，用户input值，然后按下生成图表的button。这是我的方法，但它不起作用。它说类似“对象必要” Private Sub CommandButton1_Click() Dim arKurse(4) As Double arKurse(0) = Conver.ToDouble(TextBox1.Text) arKurse(1) = Conver.ToDouble(TextBox2.Text) arKurse(2) = Conver.ToDouble(TextBox3.Text) arKurse(3) = Conver.ToDouble(TextBox4.Text) arKurse(4) = Conver.ToDouble(TextBox5.Text) Dim oChtObj As ChartObject Set oChtObj = ActiveSheet.ChartObjects.Add(Left:=445, Width:=385, Top:=10, Height:=245) With oChtObj.Chart .SeriesCollection.NewSeries .SeriesCollection.Values = arKurse .SeriesCollection.XValues = Array("1", "2", "3", "4", "5") .ChartType = xlLine .HasLegend = […]

从Excel / ActiveX电子表格中恢复数据: 我有以下问题：我有一个Excel电子表格与很多VBA代码和ActiveX控件，包括RExcel公式。 Excel版本是2007年。当我试图打开这个文件，任务pipe理器说Excel不回答，并开始像Excel开始运行无尽的代码; 我停用了每个控件，而且看起来好像还是坏了。我想至less恢复一些我在电子表格中编写的公式，但通过以常规方式打开电子表格，这实际上是不可能的。你能告诉我如何在电子表格中“读取”公式和文本而不用Excel打开它吗？谢谢，

VB和C ++ ActiveX控件以不同的方式保存其信息，如何实现C ++ ActiveX控件replaceVB ActiveX？: 背景有一个由VB创build的旧的ActiveX控件。我将这个ActiveX控件添加到我的Excel工作簿并设置了一些属性。当这本书被保存时，这些属性被保存了。具体来说，它们保存在使用VB代码中的PropertyBag的UserControl_WriteProperties函数中。所以这些属性一直存在于工作簿中。我的任务我必须使用C ++创build一个新的ActiveX控件，以便与旧版本兼容。我需要所有信息保存在我的旧Excel工作簿中的ActiveX控件中。所以，我实现了IPersistPropertyBag到我的ActiveX控件。我的期望是，当我打开我的旧Excel工作簿时，必须通过PropertyBag正确检索所有信息。问题我发现我的Excel工作簿中保存的信息是stream格式。我可以实现IPersistStreamInit到我的新的ActiveX控件，但我不明白在我的Excel工作簿持续stream的格式。所以，我无法检索我的Excel工作簿中保存的信息。我不知道为什么这些信息是以Stream格式保存的，尽pipe它们是通过VB代码中的Propertybag保存的。题在这种情况下有没有办法让所有的信息在ActiveX控件中保留？我已经find了两天，但我找不到方法。

使用活动的xbutton进行复制和粘贴时出错: 我试图设置一个命令button，将复制和粘贴到另一个工作表的数据。目前我的代码如下所示： Private Sub CommandButton1_Click() ThisWorkbook.Sheets("Raw Data").Activate ThisWorkbook.Sheets("Data AC").Range("A1:J1000").Select Selection.Copy ThisWorkbook.Sheets("Raw Data").Range("A2:J1001").Select Selction.Paste End Sub 我不断收到一个错误，说'范围类select方法失败'，但不能解决如何解决它。谢谢

OptionButton编号循环: 希望你有一个优雅的解决scheme，可能是一个简单的问题！我正在使用ActiveX选项button，但在工作表中，而不是一个用户窗体或一个组框，因为工作表的devise方式。该代码包含在一个选项button代码forms内的一个子。这段代码很好理解了我正在做的事情： Public Sub SectionD_Click() If OptionButton1.Value = True Then ThisWorkbook.Sheets("Boolean").Range("B2").Value = 1 ElseIf OptionButton2.Value = True Then ThisWorkbook.Sheets("Boolean").Range("B2").Value = 0 End If If OptionButton3.Value = True Then ThisWorkbook.Sheets("Boolean").Range("B3").Value = 1 ElseIf OptionButton4.Value = True Then ThisWorkbook.Sheets("Boolean").Range("B3").Value = 0 End If If OptionButton5.Value = True Then ThisWorkbook.Sheets("Boolean").Range("B4").Value = 1 ElseIf OptionButton6.Value = True […]