我有一个用户表单,它被填写并在电子表格中输入数据。我添加的一个特性是由10个文本框组成的框架,除非在前面的框中输入数据,否则这些文本框将保持隐藏状态,最多允许10个条目。因为用户要在这些文本框中输入参与者的姓名,所以我希望他们都填充电子表格的相同单元格,用逗号分隔。一开始,我输入代码时没有考虑,即使没有添加名称,我也会在单元格中接收9个逗号。从那以后,我成功地获得了第二个文本框值,前面添加了一个逗号到单元格中,但无法获得任何附加文本框(3-10)的值来进行同样的操作。
ws.Range("I" & LastRow).Value = tbPart1.Value
If No
我一直在搜索和搜索这个网站。如果这是一个简单的问题或经常被回答,我很抱歉,但我还没有找到我的解决办法。
本质上,我已经创建了一个包含输入表单控件对象(而不是ActiveX)和一些形状的工作表。
因此,我有这个工作表,我想保护,但我想选择特定的形状(几个文本框),允许输入。我不想让用户移动东西,点击随机单元格等等。我想要5-6特定的表单控件,我已经命名了允许输入,其他一切都被锁定。
我该怎么做?同样,对于一个简单的答案,我也很抱歉,但很明显,我的搜索并没有提出正确的问题。
' Locks the main config pages and hides everything the use
我正在尝试创建一个用户表单,其中操作符将从工作顺序中扫描他们的“操作”("OperationBox“文本框),然后他们的”员工ID #“("IDbox”文本框)将被输入到电子表格中的正确列中。输入的值也将显示在列表框中。工作表的名称是“数据库”;用户表单的名称是"ScanForm“。
我不确定如何进行此检查,然后用ID#填充电子表格单元格。任何帮助都会很好。
谢谢
Sub Submit()
'Transfer data from the form to the database
Dim sh As Worksheet
Dim iRow As Long
我在一个用户表单上有4个文本框。所有4个文本框的值都被传递到一个由换行符(Char(10))和前缀"Error1:“字符串分隔的单元格中,但如果只有第一个文本框有值,其余的都为空,则另一个文本框的前缀将出现在该单元格上。我想知道是否可以跳过空的文本框,并且不将它们的前缀转移到单元格中。 我使用If语句和"&“将所有文本框添加到一个单元格中。 a = Error1Box.Value
b = Error2Box.Value
c = Error3Box.Value
d = Error4Box.Value
If a = "" Then
'Do
我正在尝试创建一个用户表单,它将自动从数据库中创建x个打印出来的用户论坛。我不知道如何从数据库中获取某个值,以便输入到我的用户表单上的特定text.box中。现在,代码将遍历我的数据库,找到所有的桥接器,它们都是“块”,然后找到相应的NBI编号,但我无法确定使用它的确切语法。我试过使用各种不同的方法,但似乎都有某种问题。最终目标是用文本框NBI NO.(textbox(1))、Local ID No.(textbox(5))、structure No(textbox(4))和type(textbox(3))填写用户表单。
Sub word()
Dim i As Integer
Dim feat
大家早上好!
我正在试验一个Access 2007窗体,其中包含一个向查询中插入值的文本框。我希望能够在文本框中输入多个值。这些值用逗号分隔,但也用引号括起来。文本框中的值插入到HAVING子句中。
下面是代码的样子:
示例:
HAVING Max([COLOR].[COLOR_CODE] In ("11111","22222"))
现在,我想在表单上使用文本框来插入值,但我需要处理引号。因此,我在SELECT语句和HAVING子句中将值转换为数字。
示例:
HAVING Max(CLng([COLOR].[COLOR_CODE] In ([Forms].[My
我有一个用户表单,作为审计的记分卡。表单上的每个文本框都是列表中每一项的分数。我想要做的是,当用户点击提交时,代码循环遍历这些分数所在的单元格范围,并在其中输入分数。它类似于:
For i = 6 To 14 ' number of cells to loop through
For j = 1 To 9 ' number of textboxes in the userform
Cells(j, 3).Value = Me.Controls("score" & i).Value 'Textb
我正在使用一个用户表单,作为审计的记分卡。表单上的每个文本框都是列表中每个项目的分数。我想要做的是,当用户点击提交时,代码循环遍历这些分数所在的单元格范围,并在其中输入分数。我有以下几点: For i = 6 To 14 ' number of cells to loop through
For j = 1 To 9 ' number of textboxes in the userform
Cells(j, 3).Value = Me.Controls("score" & i).Value
当前,当单击特定单元格时,我的代码将打开用户窗体。我想要的是将输入到用户窗体中的文本框中的字符串移动到首先单击加载表单的单元格中。这是调用表单的代码:
dim x as integer
For x = 5 To 100
If Target.Address = "$AY$" & x Then
UserForm1.Show
End If
Next x
例如,用户单击单元格AY10,表单打开,他们将字符串输入到TextBox1中。然后,我需要的是当他们单击提交按钮(Button1)时,字符串被移动到单元格AY10中,该单元格被单击以打开表单。
我正在尝试在Excel中创建一个输入表单,该表单根据大量的Textboxes设置一行中单元格的值:
为每次单击命令按钮,使用当前表单数据更新新的一行单元格。每个文本框设置新行中特定单元格的值。。
我设法磨出了一些有用的东西,但它似乎很笨重。我可能以n行结束(可能有数百行)。编辑或排除故障将是一种痛苦。
我不知道如何将每个文本框引用到每个新行中的正确单元格。
如何将这段代码从n行减少到固定数目?
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1"
这是一个小问题,但我不能清除它。
我在visual studio 2013中创建了一个表单,它是一个数据输入表单。有许多文本框..当用户在每个文本框中输入并通过Tab键从一个文本框跳到另一个文本框时...但是,当用户转到其他屏幕并返回到表单时,光标点将再次显示第一个文本框(不是用户保留光标的最新文本框),请帮助我,如何在切换回表单时保持光标不动。