我在Excel中有一个userform,要求输入用户名和密码.输入密码后如果按下Enter它只是"选择"下一个项目即LogIn按钮,但不按下它.您必须Enter再次按下以实际按下按钮.
当用户按下键盘上的Enter键时,如何按下LogIn按钮并且相关的代码是runs(Logincode_click)？
我希望用一组复选框和选项按钮制作一个小形式,稍后会提供一个vba代码.我需要制作组合框,其中包含3个选项框但是独立的.现在我按下其中一个选项bokes,它会在另一个组中查看一个选项框.他们都是连接的,我不想要这个.有任何想法吗？谢谢
我正在编写一个VBA代码,通过一系列单元格检查每个单元格是否有数据验证(下拉菜单),如果没有从另一个工作表的列表中分配一个单元格.
我目前在检查当前单元格是否已经有数据验证的行上有问题.我得到错误1004"没有找到细胞".
Sub datavalidation()
Dim nlp As Range
Dim lrds As Long
Dim wp As Double
Dim ddrange As Range
Sheets("DataSheet").Select
lrds = ActiveSheet.Range("A1").Offset(ActiveSheet.rows.Count - 1, 0).End(xlUp).Row
Set nlp = Range("I3:I" & lrds)
For Each cell In nlp
'error on following line
If cell.SpecialCells(xlCellTypeSameValidation).Cells.Count < 1 Then
wp = cell.Offset(0, -8).Value
Set ddrange = ddrangefunc(wp)
End If
Next
End Sub
有任何想法吗？谢谢
这似乎不起作用.有没有办法做我想在这里做的事情？如果值在给定的sting中,我无法选择一个案例:
Select Case gTTD.Cells(r, 4)
Case InStr(gTTD.Cells(r, 4), "MASTER LOG")
resp = "MM LOG"
Case InStr(gTTD.Cells(r, 4), "MASTER MET")
resp = "MM MET"
Case "PIR"
gTTD.Cells(r, 7) = "Martin Trépanier"
resp = "Martin Trépanier"
End Select
我理解为什么这个不能工作,但有没有办法使它工作？谢谢
谢谢
我有一个Auto_Open的vba代码.它会进行一些检查,然后提示用户表单询问用户名和密码.我用这个用户表单调用了userform_name.show.
我的问题是如何从userform代码返回Boolean到我的Auto_Opensub.
我将验证凭据是否正确的代码链接到表单上的"登录"按钮.这是产生布尔值的代码.我需要将它返回到Auto_Open.
Private Sub loginbutton()
Dim bool As Boolean
Dim lrup
Dim r As Long
Dim pass As String
loginbox.Hide
'are fields empty
Do While True
If unBox.Text = "" Or pwBox.Text = "" Then
MsgBox ("You must enter a Username and Password")
Else
Exit Do
End If
loginbox.Show
Exit Sub
Loop
'find pw reated to username (if existant)
lrup = UserPass.Range("A1").Offset(UserPass.Rows.Count - 1, 0).End(xlUp).Row
If unBox = "b0541476" And pwBox = "theone" …我有一个字符串(msg),这是一个非常长的项目列表.我需要将它放在一个msgbox中,但它不足以显示整个文本.有替代方案吗？
谢谢!
我正在MS Access中构建一个供用户输入数据的表单，但是可能有太多字段。大多数情况下，将只使用一半的字段。
因此，我希望某些字段仅取决于用户在先前给定字段上输入的内容。
例如：用户输入项目编号，标题，然后检查“是/否”工程。自从他检查之后，这意味着工程受到了影响，因此出现了许多用户必须填写的字段。
这可能吗：
1）没有VBA
2）使用VBA
我有一个包含多个模块和多个子的工作簿.虽然有一些变量在大多数潜艇中不断使用,例如给定的工作台.
例如
dim cr as worksheet
set cr=sheets("combined_report")
我写的太多了.我可以在一个类模块中写一次,并在任何模块的任何子模块中使用"cr"而无需重新分配吗？
我有一个名为 cTask 的模块，其中包含以下代码：
Private pMile As String
Public Property Get Mile() As String
Mile = pMile
End Property
Public Property Let Mile(Value As String)
pMile = Value
End Property
所以在我的 sub 中可以说我发起
dim currtask as cTask
我想写
curtask.Mile=TIM
并且
curtask.Mile.stat=2
就像
worksook("qqq").sheets("okko").cells(1,1)...
我如何在我的班级中做嵌套的属性？
编辑：所以在一个名为 cTask 的类中
Private pMile As cMile
Public Property Get Mile() As String
Mile = pMile
End Property
Public Property Let Mile(Value As String)
pMile = Value
End Property
在课堂上，我有
Private pstatus As String
Public Property Get …我需要在If语句中比较2变量,但我仍然希望它重新生成如果除了案例之外的所有内容都是相同的.我知道不能写这个,但这里是我想要做的事情:
If (str1=str2 matchcase:=false) then
有任何想法吗？谢谢