我在excel中有一个用于考勤报告的用户表单。在表单上,用户选择他们想要审查的员工,然后他们可以选中一个框,上面写着“年初至今”,或者从下拉框中选择单个月份。这一切都是为了查询我们的sql服务器上的数据。年初至今很容易,因为我知道如何使用当前日期和一年中的第一天的变量。我遇到的问题是如何将用户的月份选择转换为可用的查询。例如:如果用户选择一月作为下拉列表,则查询将为
select * from [dbo.mytablename]
where [agent name] = '<value from a textbox that I know how to pass in>
好吧,我认为这应该是一个更简单的问题:我在一个用户表单中工作,我需要获取该用户表单上任何和所有组合框的值。
请注意,组合框中的下拉列表值都不是来自excel电子表格(我见过的唯一示例总是引用表格中的单元格,但我的值是在运行时添加的,所以对于像我这样的n00b来说,理解这些值是不好的)。
就代码而言,我有以下内容:
Dim con As Controls
Dim ArrValUe
Dim i
For Each con In Me.Controls
i = 1
If TypeName(con) = "ComboBox" Then
If con.Name =
我是个新手,但对VBA有一点经验。我正在尝试创建一个日常工作清单的数据库,为不同的客户提出各种问题。一位朋友建议我通过VBA创建一个动态表单,每当从下拉框中选择一个客户端时,该表单将在文本框中创建多个问题。我正尝试在VBA中创建文本框,但我收到一条错误消息,说我需要处于设计模式才能创建文本框。
我从互联网上删除了下面的代码,有没有可能在代码运行后激活设计视图,因为我需要在窗体视图中启动以单击下拉菜单,或者如果有人有其他方法的建议,我也会非常感谢。谢谢
Private Sub ComClient_AfterUpdate()
Dim x As Integer
Dim frm As
我想知道是否有任何VBA代码允许输入框使用下拉列表搜索工作表,并在用户搜索后自动重定向到工作表。类似于我们如何在excel上找到数据,除了这个事实,它现在是工作表。下拉列表应该包含工作簿中的所有工作表,以便他们可以选择要转到的工作表。我有一个代码,用户必须手动输入,如果工作表名称太长,这可能会很麻烦,从而导致拼写或格式错误。
Sub searchsheet()
Dim strsheet As String
' dim i as integer
strsheet = Application.InputBox("put sheet name", "Sheet
我对VBA非常陌生,我不认为答案和教程是非常有用的。
所以我要做的是检测下拉列表中选择的值是否发生了变化,然后将excel表的视图更改为相关的单元格。
我的问题是,许多示例VBA代码并没有提供真正的解释。现在我拥有的是
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
With Application
.EnableEvents = False
.ScreenUpdating = False
我有以下VBA代码(来自MS Access 2007)。该代码创建一个新的工作簿,并向单元格中添加一个下拉列表。这个小代码片段向特定单元格添加了一个下拉列表,并向其中添加了一些项。
Dim myRng As Range
Dim myDD As Dropdown
Set myRng = wSheet.Cells(row, col)
With myRng
Set myDD = .Parent.DropDowns.Add(Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
myDD.AddItem "msg1"
首先,我试着用谷歌搜索这个,并做了无数次尝试让它工作,但没有任何帮助,我将非常感激。
下拉列表用于填充vba自动发出的电子邮件
代码如下
Public sub Template
Dim olkApp As Object
Dim strSubject As String
Dim strTo As String
Dim strCc As String
Dim strBody As String
Dim strAtt As String
StrSubject = "Transfer Please"
StrBody = "general text" & (h