Tag: 文本框
将最后一列中的单元格的值链接到插入的文本框（通过vba）
我试图通过在图表标题中插入一个文本框来创build一个dynamic图表标题，该文本框显示列A中最后填充的单元格的值。随着时间的推移，行数增加，所以我试图想出一个dynamic单元格引用。 当我将鼠标hover在文本框上时，出现一个工具提示“TextBox 2”，因此我假设这是文本框的名称。 我绝对开放其他方法，不使用vba。 似乎没有任何代码可以激活文本框： Sub textbox() Worksheets("Figure3-5").TextBoxes("TextBox 2").Range("A" & Rows.Count).End(xlUp).Value End Sub Sub textbox() Worksheets("Figure3-5").TextBox2.Value = Range("A" & Rows.Count).End(xlUp).Value End Sub Sub textbox() ActiveSheet.Shapes("TextBox 2").Select Selection.Characters.Text = Range("A" & Rows.Count).End(xlUp).Value End Sub 在此先感谢您的帮助。 问候，
保存文本框值，VBA，Excel
我正在写一个Excel的代码，这将有一个forms女巫包括一个文本框和button。 buttonselect一个文件夹目录并将其写入文本框中。 部分forms是这个！ 屏幕截图 代码是这样的 Private Sub CommandButton1_Click() Dim diaFolder As FileDialog On Error GoTo ErrorHandler Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker) diaFolder.AllowMultiSelect = False diaFolder.Title = "Select a folder then hit OK" diaFolder.Show TextBox1.Text = diaFolder.SelectedItems(1) Set diaFolder = Nothing Exit Sub ErrorHandler: Msg = "No folder selected, you must select a folder for program to […]
如何使ActiveX文本框只读，但在Excel 2013中滚动？
我想要在Excel 2013中只读的多行ActiveX文本框，但仍然允许用户滚动文本。 我有多行设置为true，我有一个垂直滚动条可见。 不过，我找不到一种方法来防止用户更改文本框的内容，但仍然能够使用文本框滚动条。 我不希望用户能够编辑文本框的内容。 我必须使用ActiveX。 标签不会工作，因为它不能有滚动条。 禁用文本框也会禁用滚动条。 像许多人指出的那样，Locked属性在Excel 2013中完全没有用处，对于任何事情都没有影响，无论设置为true还是false。 我也考虑尝试使用OnChange和其他事件的文本框，但他们似乎没有用…你只知道发生了一些事情，但你不能防止任何事情。 我不希望使用不断地将文本存储在variables中的黑客策略，并且每当获得OnChange时都要重置Text属性。 请不要提供其他解决scheme，如消息框，使用大型文本框或单元格以避免滚动等。我想使用文本框控件。 这是为了向用户显示冗长的状态消息。 我也想避免必须保护工作表或整个工作簿，虽然我testing链接单元格和保护没有任何区别。 我不明白为什么最简单的概念是难以置信的难以实现的。 我明白，微软是无用的，但这是重要的。 大多数情况下，你必须解决他们的错误（他们经常称之为function），但这是荒谬的。 有人必须有解决这个问题，不需要第三方控制。
如何在win32com.client中使用Python在Excel中的文本框中更改文本的字体颜色
我想尝试更改Excel中文本框中显示的文本的字体颜色。 我目前正在使用python来访问对象，但不能这样做。 ActiveSheet.Shapes.Range(Array("Text1")).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "7" With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill .ForeColor.RGB = RGB(255, 0, 0) 下面的代码是VBA等同于将数字7分配给文本框，并将文本的字体颜色更改为红色。 我试过使用各种迭代，并遇到以下python代码来执行相同的过程。 Currentsheet.Shapes.Range("Text1").TextFrame2.TextRange.Characters.Text= 7 Currentsheet.Shapes.Range("Text1").TextFrame2.TextRange.Font.ForeColor.RGB('255','0','0') 代码的第一部分工作，我可以将值7分配给文本框。 但是，我无法将字体颜色分配为红色。 任何帮助在这方面将不胜感激。
如何使用python从excel文本框中获取内容
我想用python获取excel文本框的内容，但是我没有办法解决，请帮帮我。
Excel工作表上的ActiveX文本框会在丢失焦点时更改边框和字体
我有MS Excel中的ActiveX文本框的问题，如下图所示： 关注点： 但是，当失去焦点时，它显示不正确的字体： 你能告诉我如何纠正这个问题吗？
将多个单元格链接到TextBox VBA
嗨，我是新来的VBA，但想做一些看似简单的事情，但我无法弄清楚。 我想链接多个单元格到一个文本框，并在不同的行上的值。 防爆。 A1 =蓝色; B1 =红色; C1 =黄色 我想要一个文本框返回： 红 蓝色 黄色 我无法在任何地方find答案。 我现在的代码是： Sub Macro2() ' Macro2 Macro ActiveSheet.Shapes.Range(Array("TextBox 2")).Select Selection.Formula = "=$A$1" End Sub 这将A1的值返回到文本框中，但是我也需要B1和C1的值。 任何帮助，将不胜感激。 谢谢 更新： 埃尔伯特比利亚雷亚尔的答案解决了我的问题，但我还有最后一个问题。 我有多行，我想这样做（A2，A3，A4）。 有没有办法为这些不同的数据行做循环？
文本框中的VBA文本string限制
我在这里遇到了一个关于如何使用VBA从Excel中的文本框中获取文本的答案： 获取文本框的值到单元格 我今天评论，但不确定这是否会被拿起，我想我会问这个问题。 我的Excel版本是2002年/版本10.我的查询是从TextBox返回文本的这种方法是限制返回一定数量的字符/string的长度。 Worksheets("Sheet1").Shapes("TextBox 1").TextFrame.Characters.Text 这将返回文本，但不会返回整个string。 当我使用： Worksheets("Sheet1").Shapes("TextBox 1").TextFrame.Characters.Text = "blah blah blah" 它将文本设置为“等等等等”，除非初始文本很长。 在这种情况下，它将覆盖大部分现有文本“等等等等”，但是也包括文本的其余部分。 我希望这是有道理的，我希望有人知道答案。 谢谢 ****另外****其实我刚才看了一下，有什么好玩的，想回答我的问题是它返回的字符数是255（着名的255）。 所以考虑到这一点，我认为我的问题需要改变，“有没有办法解决这个问题，限制在255个字符？
dynamic创build文本框的名称属性
先来一点背景资料： 我正在使用Excel工作。 打开文件时，popup一个用户窗体并要求在多个文本框中input。 然后将input放入Excel文档中的某些单元格中。 然后另一个用户窗体popup，并要求更多的input，像以前一样插入到单元格中。 接下来，它要求在文本框中input数字，并且这个数据在Excel文档的每个类别下插入相应的行数。 现在的问题。 接下来我想要做的是有一个用户表单，它根据用户在前一个用户表单中input的数字dynamic地创build一定数量的标签和文本框。 我已经想出了如何将variables从一个用户表单转换到另一个用户表单。 现在我遇到了dynamic创build的文本框的命名问题 。 那么，我真的知道如何命名它们，但不知道如何使用文本框的.Text属性作为Excel文档中的单元格的input 。 我花了六个小时在互联网上search解释如何做到这一点，我可以适用于我的项目，所以现在我正在寻找个性化的帮助。 以下是我所考虑的选项： Arrays Controls.Add("txtBoxName" & i) in a For…Next loop I have actually tried the For…Next loop with Controls.Add, and had absolutely no luck. 这两个问题，而数组可能会更方便从长远来看，是（至less在我看来），你必须命名的文本框，然后调用名称，这是我找不到任何地方的语法。 谁能帮忙？ 如果需要的话，我可以发布相关的代码。 另外，如果我忽略了一些东西，请随意指出我的方向。 虽然我可能会请求帮助理解它！ ;） 谢谢，Dudebird47
如何在expression式SSRS之前创build文本？
我需要能够在表格中的文本框说“票号：”，然后有expression式= Count（Fields！TicketID.Value）所以这是更友好的用户，因为它不会只显示一个随机数文本框（PS：这将会被导出为excel）
