Tag: 表单

excel vba创buildlogin屏幕: 并提前感谢帮助。我正在创build一些工作簿的login屏幕在此工作簿正在打开我有“userform1.show”，并在用户表单我硬编码的用户名和密码。当userform1popup询问用户名和密码时，我可以点击X，它只是closures窗体，用户仍然可以使用工作簿。我如何让Xclosures整个工作簿。我不知道在VB中调用X. 我已经尝试了所有3个选项“application.enablecancelkey”，但没有任何工作。一）是正确的方式去呢？ B）如果是我在哪里放？

如何强制用户select一个选项，使用框架，excel用户窗体: 我有我的用户表单4帧。帧1,2和4有两个选项button。第3帧有5个选项button。我想要做的是，当select了命令button时，如果一个选项框中的选项button没有被选中，就会出现一条消息。我想为每个框架有一个自定义消息。我已经做了一个开始，但是真正努力去应付不同的框架……有人能指出我正确的方向吗？（还是非常初学者，想学习，所以如果所有的回复都可以被贬低，那就太棒了！）D）（我从一个例子中拉出了这个代码，所以它可能不是我的问题的最佳方法…） Dim ThisControl As Control For Each ThisControl In UserForm2.Frame1.Controls If TypeName(ThisControl) = "OptionButton" And _ ThisControl.Value = True Then Unload Me End If Next ThisControl MsgBox "Please Select an Option", vbCritical, "Select Opton"

禁用用户窗体上的button: 我想弄清楚如果我的电子表格中的某个单元格等于一定的数字如何禁用我的userForm中的button。我试过下面的代码，但它不工作。 Private Sub UserForm_Initialize() Label2 = Sheets("DATA").Range("AM2").Value Label4 = Sheets("DATA").Range("AO2").Value Label7 = Format(Sheets("DATA").Range("R8").Value, "Currency") If Sheets("DATA").Range("AL10").Value = 10 Then ActiveSheet.Shapes("CommandButton1").Select UserFormact_Upgrade.CommandButton1.Enabled = False Else End If End Sub

EXCEL VBA：用户表单代码，重复代码改进: 有没有更有效的方式来编写这个用户表单代码？ Private Sub Userform_Initialize() 'do stuff With Item1_DropDown .AddItem "Monday" .AddItem "Tuesday" .AddItem "Wednesday" End With With Item2_DropDown .AddItem "Monday" .AddItem "Tuesday" .AddItem "Wednesday" End With With Item3_DropDown .AddItem "Monday" .AddItem "Tuesday" .AddItem "Wednesday" End With 'and so on, and so on. (I have about fifty of these 'With/End With' blocks) End Sub 基本上，我希望能够停止写这么多的“With / […]

Excel跟踪更改VBA: 用户表单和很多VBA都有很大的优势。我有部分locking一个工作表的问题，同时允许VBA跟踪更改。目前我使用下面的代码跟踪更改 – 此代码是坐在Microsoft Excel对象>> Sheet1： Option Explicit Public preValue As Variant Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Target.ClearComments Target.AddComment.Text Text:="Previous Value was " & preValue & Chr(10) `& "Revised " & Format(Date, "mm-dd-yyyy") & Chr(10) & "By " & Environ`("UserName") End Sub Private Sub Worksheet_SelectionChange(ByVal Target […]

Excel VBA listview控件在设置宽度时会给出“无效的属性值”错误: 这是Listview控件6.0（SP6）当我试图添加一列我没有看到列，我意识到这可能是由于列的宽度为0.00的事实，所以我试图改变宽度多种方式。所有导致相同的错误 “运行时错误'380'：无效的属性值 Private Sub ListView41_Click() Dim width As Long width = 10 With ListView41 .View = lvwReport .HideColumnHeaders = False .ColumnHeaders.Clear .ColumnHeaders.Add 1, , "A" .ColumnHeaders(1).width = width .ColumnHeaders.Add 2, , "B", width End With End Sub 唯一没有给出的错误是当宽度= 0我的直觉告诉我有一些其他的属性值造成这一点，但我不知道它可能是哪个属性。

如何在excel用户表单中dynamic链接框架？: 我正在处理一个excel 2013用户表单，其中包含一个用户窗体中的3个不同的框架。第一个框架包含用户名，第二个框架包含资格，第三个框架包含出厂年份。现在我的第一帧包含单选button来select用户。当用户被选中时，我希望其他两个框架自动显示关联的资格和出场。因此，当select不同的用户时，我可以获得该用户的资格和出价。这是我正在工作的用户窗体。任何人都可以提出一个前进的方法吗？

Excel VBA – 表单显示和导入数据后提示密码: 我有这个密码保护的macros，并显示一个窗体。最近我添加了从excel导入数据的代码，每当我closures它时都会要求input密码 – 我可以通过它取消，但是我想让它消失，我没有看到它会来的合理原因。我已经分出了导致这个问题的几行 Sub a() UserForm1.Show strConnString = "Provider=Microsoft.Jet.OLEDB.4.0" & _ ";Data Source=" & "C:\Book1.xls" & _ ";Extended Properties='Excel 8.0; IMEX=1'" & _ ";Persist Security Info=False" Set objRSGlobal = CreateObject("ADODB.Recordset") objRSGlobal.Open "select * from [Sheet1$]", strConnString objRSGlobal.Close Set objRSGlobal = Nothing End Sub 这进入Module1。我有一个名为UserForm1的空白窗体。我使用密码locking代码（用于查看）并将所有内容保存在Book1.xls中。现在我打开文件，执行Alt + F8运行macros，closures窗体，然后closures文件密码提示出现。我不明白为什么会出现，如何让它消失。提前致谢！！注意 – […]

VBA – 从用户的Combobox中复制文本，并将其粘贴到Excel工作表中: 我是新的excel的VBA和我试图适应一些堆栈溢出find的解决scheme，但我仍然卡住！我正在尝试在用户窗体中的combobox中使用选定的选项的文本将此选定的文本的行粘贴到Excel工作表。下面的代码旨在select当前活动的用户窗体的combobox值“CboIncomesPatch”，并将此值粘贴到活动页的单元格“M8”中，然后循环粘贴，直到计数器达到数字总单元数为止。单位总数是文本框值“TxtNumberOfUnits”，例如“15”。 combobox中的15个文本应粘贴在单元格“M8”中，然后是所有后续行“M9”，“M10”等。ComboBox使用的范围是硬编码的，所有选项都是所有string（没有数字）。在下面的代码.SelectedItem错误发生。当我使用它作为文本框（不包括select代码的combobox部分）时，循环工作。请让我知道，如果我可以在这里提供更多的信息来协助您的答案。谢谢，尼尔 Sub Incomes_Patch() Dim Counter As Integer Dim ws As UserForm Dim Total As Integer Dim Incomes As String Set ws = UserForm(this.CboIncomesPatch.GetItemText(Me.CboIncomesPatch.SelectedItem)) Set Incomes.Value = ws Total = TxtNumberOfUnits.Value Counter = 0 Application.ActiveSheet.range("M8").Select Do While Counter <= Total If Counter = Total Then Exit Do […]

网站login不能识别getelementbyID方法: 我对VBA比较陌生。我喜欢这个。我需要login到网页和浏览几页。我一直在用*调用login信息，没有问题。我来到一个新的网站，它拒绝接受我的意见。我不得不修改我的代码到这个**。此外，当我说.elements（“密码”）它在URL行input密码。即使我告诉它使用正确的ID。真奇怪的是，如果你一步一步地完成，那将是行不通的。只有在运行macros时才有效。我所知道的是，有一些Javascriptvalidation程序，所以我不能只传递login的价值，我必须键入它。因此，sendkeys。我没有得到的是为什么它会find用户ID框来放置login信息，但是当它读下一行说“把密码放在这里”的时候，它会横向走。我不太了解VBA来问正确的问题。这应该是一件容易的事情。 * With ieDoc .getElementById("UsernameIDvar").Value = LoginVal .getElementById("PasswordIDvar").Value = PassVal .all("loginbuttonvar").Click End With ** ieDoc is Internetexplorer.Application.Documents LoginVal and PassVal is a string pulled from an excel spreadsheet With ieDoc.forms("lqLogin") .elements("user").Click SendKeys (LoginVal), True .elements("password").Click SendKeys (PassVal), True .submit End With 网站代码： […]