Tag: 文本框

使用VBA在Excel 2013中复制/处理文本框中的格式化文本: 我想在Excel 2013中使用VBA做两件事情：从文本框中获取FORMATTED文本，并对其进行处理（如HTML）。和将FORMATTED文本从文本框复制到另一个文本框。我试了两件事： 'Copies text only. No formatting, but with proper line breaks Dim txtContent As String txtContent = Worksheets("TextBox").Shapes("TextBox1").TextFrame.Characters.Text Worksheets("TextBox").Shapes("TextBox 3").TextFrame.Characters.Text = txtContent 第二种方法与上面类似： 'Does not do anything. Produces Run-time error 91 Dim myFrame As TextFrame myFrame = Worksheets("TextBox").Shapes("TextBox1").TextFrame Worksheets("TextBox").Shapes("TextBox 3").TextFrame = myFrame 请帮忙。

在文本框中添加文本: 我想在文本框中添加文字信息。当我使用这个方法时： TextBox1.Text = … 先前的文本被清除。有什么function，我可以添加文本，并不清楚以前？

标签链接到文本框的值: 早上好，我正在编辑VBA Excel上的用户表单，如果用户在文本框中插入某个值，我想显示一个提示。我写了这个代码： If txtbox.Value < 0 Then lbl_Alert.Visible= True Else lbl_alert.Visible=False End IF 该代码正常工作，但一旦出现警报，如果我改变文本框中的值不会消失。我应该添加什么string到我的脚本，让标签消失，当我改变文本框的值？谢谢！

在vba excel中的userform中dynamic读取dynamic命名的文本框的语法？: 我dynamic地创build一个名为UserForm1的用户表单。其中，我生成的文本框，将由用户手动填充。之后我想阅读他们的价值，但我不知道如何调用（的价值）的文本框。以下代码用于创build和命名文本框： With UserForm1 'scaling userform .Height = max_width .Width = 600 End With For test1 = 1 To nr_of_zeros + 1 'create textboxes Set ctextbox = Controls.Add("forms.textbox.1", test1) 'creating textbox With ctextbox 'scaling textbox .Height = 20 .Width = 40 .Top = 40 + 25 * test1 .Left = 400 End With […]

根据名称将文本框值分配给相应的单元格: 我在窗体上有一组文本框，称为sm1，sm2等，我想将它们分配给单元格A1，A2等。有没有办法把它放在一个循环，即： For i = 1 to 100 Cells(i, 1).Value = ("sm" & c).Value Next i

如何访问放在VBA模块表单上的文本框？: 我已经在Excel表格中放置了一个TextBox控件，在一个VBA模块中，我想要访问TextBox并填充内容。我如何引用TextBox控件？我已经命名了TextBox'tbSQL'，在模块中我可以看到Application并且可以从模块中引用表单，表单被称为'Database Info'。我想从VBA模块写入数据到文本框，但到目前为止我还没有能够引用它。我试过了： Public Const DATABASE_INFO As String = "Database Info." Dim objDBsheet As Worksheet, objSQL As Range Dim tbSQL As TextBox Set objDBsheet = Application.Sheets(DATABASE_INFO) Set tbSQL = objDBsheet.Shapes("tbSQL") 但是，就我所知的Set tbSQL行错误而言。报告的错误是“types不匹配” 我知道控件是一个TextBox，它是从Controlbox工具栏创build的。在Excel中的范围栏中查看时，将显示： "=EMBED("Forms.TextBox.1","")" 在TextBox控件的属性框中，我将（Name）属性设置为tbSQL，但在fx文本框中保持不变。它在范围框中显示为tbSQL。

VBA文本框以数字值: 我有这个代码，我需要文本框9和10，当进入我的Excel表中的数字vlaues任何想法如何我可以解决这个问题？ Sub FillRanges(ws As Worksheet, L As Long) With ws .Range("C" & L).Value = (Now) .Range("D" & L).Value = Me.TextBox2 .Range("E" & L).Value = Me.TextBox3 .Range("F" & L).Value = Me.TextBox4 .Range("G" & L).Value = Me.TextBox5 .Range("K" & L).Value = Me.ComboBox1 .Range("L" & L).Value = Me.ComboBox2 .Range("M" & L).Value = Me.ComboBox3 .Range("N" & L).Value = Me.TextBox9 […]

数据控制从文本框和反转的日/月值: 我需要检查在文本框中input的date是否有效。它必须是一个单独的文本框，所以没有这样的解决方法。现在，我有这个代码： Private Sub cmdOK_Click() Dim dataAnalisi As Date If IsDate(txtDataAnalisi.Value) Then dataAnalisi = txtDataAnalisi.Value Dim giornoAnalisi, meseAnalisi As Integer giornoAnalisi = Format(dataAnalisi, "dd") meseAnalisi = Format(dataAnalisi, "mm") If giornoAnalisi <= 31 And meseAnalisi <= 12 Then Call arrayList(dataAnalisi) Unload Me Else GoTo DateError End If Else DateError: MsgBox "Inserire una data formattata correttamente!", […]

在Mac上使用Excel 2011中的VBA用户窗体（在Windows中编程）：文本框不起作用: 我已经在Excel中创build了一个用户窗体（在Windows中，使用没有ActiveX控件的VBA），它包含几个文本框。当用户input一个行号并按下一个button时，这些文本框意味着显示该行中特定单元格的文本。这在Windows中可以正常工作，但是当我尝试在Excel 2011的Mac上使用用户窗体时，其中一个文本框不能正确显示文本 – 相反，它变得可见，但只是空白。表单上的其他文本框工作正常，而不显示的文本最初是由Thunderbird导出的，包含电子邮件。我知道我正在拉右边的单元格，因为当我向我的代码中添加“MsgBox（emailtext）”时，会popup一个消息框，其中包含要显示的文本 – 它不会显示在文本框中！我想知道这是否是某种字符编码问题。我已经定义了variables（“emailtext”）作为string，然后简单地分配给我想要的单元格的值（“emailtext = Sheet2.Cells（rownumber，7）”）。正如我所说，这种方法适用于下一列，其中包含直接input到Excel中的文本，不包含任何奇怪的字符。任何想法如何让这个文字显示？

如何将文本框中的数据转换为另一个文本框中的公式: 我在过去几天里学习了这个编程，而且我很难从TextBox传输数据，并把这个值放到另一个TextBox的公式中。这里有一个例子： Private Sub TextBox7_Change() i = TextBox7 ii = i / 100 End Sub 而我需要将ii中的值代入.. Private Sub TextBox12_Change() TextBox12 = (d * 1000) / (e * 1000 * c * ff * ii) End Sub