我有一个存储过程,当从SQL Server Management Studio运行时,当像这样调用时,它始终需要5秒才能运行。
exec dbo.MyStoredProc '2009-04-30 00:00:00', '2009-04-30 20:00:00'
当通过VBA从excel电子表格调用时,它需要6分钟以上的时间(不包括将记录集复制到工作表所需的时间。VBA没有什么特别之处,只是使用ADO连接返回一个记录集。不幸的是,Excel方法是我还不能摆脱的客户需求。
Public Function GenerateSQL(strQueryName As S
在我的Excel-2013VBA项目中,我有一个带有文本框的UserForm。我需要这个文本框只接受数字,and,and和27个希伯来字母。
Private Sub my_TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (Not (KeyAscii > 47 And KeyAscii < 58)) And _ <= 0-9
(Not (KeyAscii > 64 And KeyAscii < 91)) And _ <= A-
我对VBA很陌生。我担心的是,我试图验证多个文本框,使其只接受60到100之间的数字。我只想问一下,是否可以使用Loop,或者我需要为每个文本框创建一个Sub,或者还有什么可以做的吗?
用户表单
我的想法是,当单击“计算”按钮时,验证就会运行。
我试图使用IF语句,但我认为我使用的方式不对。
If tb_mtb <=60 And tb_mtb >=100 And tb_fil <=60 And tb_mtb >=100 And tb_eng <=60 And tb_eng >=100 And _
tb_math <=60 And tb_mat
.PasswordChar属性使用元件用户在Excel for Windows (而不是Excel for Mac )中正确选择的任何内容来屏蔽文本框输入。
我处理过Textbox1_Change事件,但它的工作效率不高。
有人能提示我该怎么做吗?
Private Sub TextBox1_Change()
Dim mystring As Variant
Dim textlen As Integer
Dim counter As Integer
mystring = UserForm1.TextBox1.Value
textlen = VBA.Len
我在Excel单元格中有以下值:
Time Dev Total
00:47:53 00:03:40 50
我使用VBA来计算我的"Total“值:
Minute(Cells(2, 1).Value) + (Minute(Cells(2, 2).Value))
这将返回50。我想要考虑秒,并返回52,因为秒将增加到93秒,这使得超过一分钟半。所以它必须四舍五入到52
我必须如何调整我的VBA代码?
我希望在Excel中使用VBA的文本框如下所示:
RGB(0,112,192) (蓝色)中的测试框中的文本-- RGB中“1/2”行的文本框的形状轮廓。
我已经创建了这段代码,但我不知道如何编程。
Sub TextBox()
Set myDocument = Worksheets(1)
myDocument.Shapes.AddTextBox(msoTextOrientationHorizontal, _
100, 100, 200, 50) _
.TextFrame.Characters.Text = "Test Box of how I would l
您是否注意到在Excel Vba代码中划分2/ 60的问题?我正在使用Excel 2013。请测试以下代码:
Sub test1()
Dim A As Integer
Dim B As Integer
MsgBox 2 / 60
A = 2
B = 60
MsgBox A / B
End Sub
Sub test2()
Cells(1, "a") = 2
Cells(1, "b") = 60
Cells(1, "c") = Cells(1, "a") / Cells(1, "b")
MsgBox Cells(1,
这是在3个years+之前被问到的,但没有给出有效的解决方案: Set focus on UserForm Textbox on tabbing from another Textbox 我有一个用户表单,希望在输入正确的数据后自动导航到下一个文本框(例如,如果我知道文本框的正确字符数是2,那么在输入两个字符后,它会自动移动到下一个文本框)。 我的问题是错误检查,例如,如果某人在3个字段中的第一个字段中输入了他们的出生日期,而他们输入了32,那该怎么办?然后我想要一个消息框,告诉他们输入1到31之间的2位数字,清空该字段并将其放回焦点,这样就可以有效地停止该过程,直到他们输入正确的数据。 第
我试图用VBA将Word文档报告链接到Excel数据库。我在文档中插入了各种ActiveX文本框控件。我是手动输入每一个这些文本框与独特的代码(“代码”)。其他文本框控件将根据Excel数据库中的关联数据自动填充。匹配因素将是“代码”。
运行以下代码时,将收到
运行时错误13“类型错配”
第16排(If cell.Value...)。我在VBA方面没有太多经验,但我看到了许多例子,表明Value命令应该绑定到“Range”对象。谢谢你的帮助。
Private Sub CommandButton1_Click()
Dim objExcel As New Excel.Application
D