Tag: 控制

VBA日历控制不同版本的问题: 我已经构build了一个使用附加日历控件（mscal.ocx）的简单Excel工具。一切工作都很好，在不同的系统上，但是，日历似乎没有实现，而不是没有显示dateselect器，整个forms崩溃。有没有办法实现日历控制，以便它在每个系统上运行？或者我必须自己编写dateselect器？（OFFICE12）

bstrProgId作为string结尾的“.1”是什么意思？: 当dynamic创build一个用户窗体布局，同时添加控件，我发现语法需要在bstrProgId的末尾“.1”作为string在下面的代码位： For loopthroughsteps = 0 To 0 For foodgroup_id = 0 To 6 'For vit = 2 To 18 For vit = 2 To 3 Dim listbox As Object Set listbox = UserForm3.Controls.Add("Forms.Listbox.1", foodgroup_id & "-" & vit & "-" & loopthroughsteps, True) With listbox .Left = 35 * (vit – 1) + 205 * […]

C＃excel从c＃创build的工作表中获取文档级别: 我一直在试图添加一个combobox或真正的任何forms的控制到飞行中创build的Excel表。在c＃中创build一个Excel工作簿项目时，我可以添加一个combobox到excel工作表，并且能够访问文档级（Sheet1）中的Controls.AddComboBox函数，如下所示：图1 namespace ExcelWorkbook2{ public partial class Sheet1{ private void Sheet1_Startup(object sender, System.EventArgs e){ Microsoft.Office.Tools.Excel.Controls.ComboBox comboBox1 =this.Controls.AddComboBox(this.Range["A1", "A1"], "comboBox1"); comboBox1.Items.Add("1 Item"); this是指sheet1这个代码在创build工作簿项目时工作正常，但是当我像这样创build一个Excel工作表时：图2 Application xlApp = new Application(); xlApp.Visible = true; Workbook wb = xlApp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet); Worksheet ws = (Worksheet)wb.Worksheets[1]; 我无法进入工作表（ws）并获得“controls.AddCombobox”。将工作表（图2）放在快速表中说System .___ Comobject在另一个项目（图1）中的“this”对象返回值（ExcelWorkbook2.Sheet1）。我怎么能到达Controls.AddCombobox作为WorkSheetBase在c＃生成的工作表中使用（图2）。谢谢

如何确保两个XLS文件是相同的: 我有一个电子表格连接到数据库，并希望以某种方式确保testing中使用的电子表格与生产中的电子表格是相同的。检查最重要的是vba代码本身。我们首先想到从工作簿中创build一个哈希。唯一的一点是，我们需要更改string以连接到testing或生产数据库，所以这是一个“预期”的差异。有任何想法吗？ Ps .:是的，我们打算将这个迁移到java或其他东西..但直到那里我们需要处理它:) 感谢致敬！

Excel VBA自动版本控制创build神秘的节省循环 – 来源？: 以下子例程用于Excel工作簿中的版本控制工作表，以在创build新时间戳的.xmls文件之前捕获用户名，保存时间和更改注释，以保留过去的文档迭代。结果是成功的，但是它创build了一个神秘的保存循环，它不断地要求用户input，而不是保存或退出。如果有什么想法吗？ Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim LastRow As Long Dim ActBook As Workbook Dim NewFile As String Dim LongName As String Application.ScreenUpdating = False LongName = ThisWorkbook.FullName NewFile = (Worksheets("Estimate Sheet").Range("B2") & Format(Now(), "yyyymmddhhmmss") & ".xlsm") 'Change Confirmation Dialogue If MsgBox("Were changes made to this document?", vbYesNo, […]

Excel单元格公式是否可以引用UserForm控件？: 我有一个用户窗体已经通过ControlSource属性绑定到某些工作表单元格的文本框。我需要在两个这些绑定值之间运行计算，并将结果放在第三个工作表单元格中。我知道有很多方法可以完成，但我想知道是否有一些方法来做到这一点作为引用UserForm控件值的工作表单元格中的公式。例如，我希望能够在单元格C3中join一个类似的公式 = UserForm1.TextBox1.Value * UserForm1.TextBox2.Value 但我还没有find任何引用地址使用工作表单元格公式直接从UserForm控件获取值。（不，在这种情况下，我不能通过插入类似于“= A1 * B2”的东西来引用绑定的单元格到单元格C3中，这个问题具体是关于是否可以从工作表单元格公式中引用UserForm控件。）预先感谢任何有用的build议。

通过虚拟机查看时，Excel 2003工作簿表单控件有时会resize: 我为在Windows XP系统上仍然使用Excel 2003的客户开发。因此，我们在运行XP和Office 2003的虚拟机内开发。我经常使用Form Control对象（主要是button控件）在文件内创build菜单或控制表。有时当我打开这些工作簿时，控件会自行resize（更大，更小和/或不成比例）。有时我有一个控制，当你点击它，它变得越来越小。如果在发生这种情况后保存文件，下次打开工作簿时将保留更改。最大的问题是，如果最终用户机器迁移到不同版本的Windows并在虚拟机中使用devise的工作表，也可能发生在最终用户机器上。任何build议不胜感激。