Tag: 窗体

Excel单元格公式是否可以引用UserForm控件？

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

Django – 导出到Excel并呈现给模板

改变问题：5/5/12 2:34 pm（PST） 我想知道是否可以从表单POST数据呈现模板，并在该模板中提供button/链接到模板中使用的相同POST数据的Excel电子表格。 我已经使用POST进行了Excel下载，并且使用POST呈现了一个模板，但是我希望在窗体的Submitbutton被按下时发生以下情况：1.将信息从视图发送到模板，使模板渲染信息，在模板中有一个button/链接，点击后会popup一个窗口询问用户是否打开/保存.XLS文件。 我用来做每个代码如下： 1在新的URL中渲染模板 return render_to_response('report/result.html', {long dictionary}, context_instance=RequestContext(request)) 2使用模板导出为.XLS文件： response2 = render_to_response('report/result.html', {long dictionary}, context_instance=RequestContext(request)) filename = "ToolboxReport%s.xls" % (datetime.now()) response2['Content-Disposition'] = 'attachment; filename='+filename response2['Content-Type'] = 'application/vnd.ms-excel; charset=utf-8' return response2 这里是我想要的订单：1.在选项页面：select选项，点击生成报告button2.在结果页面：显示信息，显示button/链接下载此信息为.XLS 3.（可选）点击下载button：打开/似乎保存选项下载与.XLS相同的信息 我似乎无法从“选项”页面获取POST数据，以便在结果页面和.XLS下载中使用。

由控件源连接的单元格不断丢失公式

在我的电子表格中有两个单元格，一个只包含input值（比方说cell_1），另一个单元格（cell_2）的公式参考前一个（= cell_1）。 为了方便起见，我还创build了一个带有控件源属性链接到cell_2的文本框的用户窗体。 如果没有用户窗体，一切正常。 但UserForm（用vbModeless显示）和cell_1中的值发生变化（不pipe是通过手动还是其他VBA子集更改），cell_2中的公式将被cell_1的值覆盖，并且TextBox中的值停止更新。 有没有人遇到这个奇怪的事情？ ps：我创build了一个简单的例子，你可以在这里下载http://wikisend.com/download/192680/Control_Source_Bug_Test.xlsm [更新] 2014/11/29虽然根本原因还是个未知数，但我发现ListBox的rowsource属性工作得很好， 由行源连接的单元格的公式不会受到影响。 通过适当的设置，它看起来就像TextBox一样，可以用它作为replace！

更改Excel用户窗体combobox的列

早上好， 我在另一个车辙，需要一些帮助。 我创build了一个用户表单，允许用户删除第二张纸上的整行数据（rawdata）。 一切工作正常使用下面的代码，但combobox只显示行号。 我迫切需要改变列，所以它会显示需要删除的行的项目名称。 例： Row: Project 1 Alpha 2 Beta 我希望combobox显示阿尔法和testing版，并让用户能够根据该标准select他们想要删除的行。 下面的代码取消隐藏，然后隐藏我希望发生删除的工作表。 这是有目的的完成的。 Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim lRw As Long ActiveWorkbook.Sheets("RAWDATA").Visible = xlSheetVisible 'get the row number. add 1 because ListIndex starts at zero lRw = Me.ComboBox1.ListIndex + 1 ActiveWorkbook.Sheets("RAWDATA").Select Cells(lRw, 1).EntireRow.Delete ActiveWorkbook.Sheets("RAWDATA").Visible = xlSheetHidden End Sub Private Sub CommandButton1_Click() […]

Excel VBA运行时错误“-2147319767（80028029）”

嘿，我所有的我的VBA代码有一个相当奇怪的问题。 我使用macros以编程方式添加/删除用户窗体控件。 当我简单地添加一个用户表单控件，然后尝试删除它，一切工作正常。 但只要我尝试删除userform控件，我刚创build和使用（就像userform.Show）我收到标题错误。 再次尝试后，它的作品…所以第一个问题是，这到底是什么？ 第二个问题是我该如何解决这个问题，或者我甚至需要解决这个问题？ 我可以通过某种error handling来运行这个错误吗？ 我不知道我的代码的哪一部分有助于理解我的问题，但我认为删除用户窗体控件的代码可以帮助： Public Function delete_userform_controls(strUserForm As String) Dim VBProj As VBIDE.VBProject Dim VBComp As VBIDE.VBComponent Dim iCount As Integer Dim cnt As Control Dim iMaxColumns As Integer Dim lCountOfLines As Long Set VBProj = ActiveWorkbook.VBProject Set VBComp = VBProj.VBComponents(strUserForm) For Each cnt In VBComp.Designer.Controls If TypeName(cnt) = "Label" […]

ChartSpace中缺lessExcel VBA“AxisBetweenCategories”属性

我徒然尝试将AxisBetweenCategories属性设置为False在AxisBetweenCategories ChartSpace中。 这是一个聚类的BarChart。 我在一个正常的图表中手动做了同样的工作。 loggingMarco使用AxisBetweenCategories属性生成代码。 为什么我不能在Userform ChartSpace中使用它。 me.ChartSpace1.Charts(0).Axes(0).AxisBetweenCategories = False 'doesn't work 我错过了什么？ 谢谢

如何检测一个特定的键是否被按下？

我想知道是否有一种方法来检测是否按下特定的键（如backspace）。 这是我拍摄的： Private Sub SomeTextBox_Change() If len(Me.SomeTextBox.Value) = 3 and KEYPRESSED is NOT BACKSPACE Then <…….Code Here> Else <…….Code Here> End if End Sub

UserForm中的自动筛选范围会导致过早的函数无错地退出

Excel 15.0.4833.1001 Win 7 Pro 64位 更新： 我有一个邻近的原因：被筛选的数据范围也是我的UserForm上的列表框的RowSource 。 我修改了函数将所有的数据复制到一个临时表， 然后做所有的操作，现在它工作正常。 我有一个GetFileredDataRange函数采用providerName ，适当筛选rawDataRange ，并将筛选的结果复制到新的工作表。 function： Public Function GetFilteredDataRange(ByVal providerName As String) As Range '/ returns range containing filtered data Const PROVIDER_COLUMN As Long = 2 Dim rawFinalrow As Long rawFinalrow = wsInputs.Cells(1, 1).End(xlDown).Row Dim rawFinalColumn As Long rawFinalColumn = wsInputs.Cells(1, 1).End(xlToRight).Column Dim rawDataRange As Range […]