Tag: userform

用箭头键closures用户窗体并打开一个新窗体: 我有以下代码，我用它来查看Userform上的图像，这取决于Range("A1:A200") Target.Value Range("A1:A200") Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim MyPath As String Dim MyPic As String MyPath = "C:\Users\Public\Pictures\Sample Pictures\" On Error GoTo error_handler: If Intersect(Target, Range("a1:a200")) Is Nothing Then Exit Sub MyPic = Target.Value & ".jpg" UserForm2.Image1.Picture = LoadPicture(MyPath & MyPic) UserForm2.Show vbModeless error_handler: Exit Sub End Sub 我遇到的这个脚本的问题是，我不能用我的箭头键来改变我的活动单元格。我该如何解决？

如何在Userform VBA中使用dynamicbutton: 我真的可以使用一些帮助。我已经阅读了大约60多个网站，它不是单击（双关意图），或者是对我的应用程序不正确。这里是简介：目标：使用在“用户窗体”中dynamic创build的“提交”button将标题从选项button复制到工作表上的dynamic单元格，然后清除/closures用户窗体。背景：从工作表中的列中的更改调用用户窗体。以下是用于调用用户表单的代码片段： Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim lastRow As Long With Worksheets("Test") lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With With Target If .Count > 1 Then Exit Sub If Not Intersect(Range("B1:B" & lastRow), .Cells) Is Nothing Then Application.EnableEvents = False If IsEmpty(.Value) Then .Offset(0, 1).ClearContents Else With .Offset(0, 1) .NumberFormat […]

使用VBA CommandButton值variables从用户窗体到模块: 我知道，如果我们将一个variables命名为Public那么如果variables在End Sub之间传递了End Sub ，则variables可以保持其值。但我的问题是，我有一个variables，从用户窗体中的commandnbutton获取它的值，每次我尝试从userform子项中设置这个variables时，都会收到编译错误。我有一个月的列表框，select月份后按下命令button，macros开始。我知道，只要H通过Ens Sub ，variables的值就会在subs之间移动，我也需要在其他的subs中使用这个variables值，我需要它是dynamic的，任何人都知道什么可以帮助我？这是用户表单子： Public MainWB As Workbook Public VisualWB As Workbook Public VisualWS As Worksheet Public VacationWS As Worksheet Public HealingWS As Worksheet Public IllnessWS As Worksheet Public Lists As Worksheet Public MonthCol As Long Public MonthName As String Public MonthBefore As Long Public ColumnSpace As Long Public […]

在用户窗体上的Excelcombobox中显示任意文本: 我有2个垂直触摸Excel用户窗体上的combobox，都添加在devise时，并没有一个绑定列。当在ComboBox1中进行select时，我想在ComboBox2中显示一些文本，例如“进一步select===>”。在ComboBox2中进行select时，该文本应该消失。我怎样才能做到这一点？

根据用户表单隐藏行checkbox: 大家，早安，我有一个macros，我想sorting数据。我的工作簿中的一个button调用一个带有10个checkbox的小型用户窗体。用户应该select他想查看的类别，然后点击sorting。我想要的结果是只有他select显示的类别，但我得到一个全部或没有附加macros的结果。下面是支持表单/button对类别进行sorting的macros。我已经通过谷歌和其他几个论坛search，找不到与我的问题有关的答案！任何帮助你可以提供将不胜感激。谢谢！ Private Sub cmdSort_Click() LastRow = Range("A" & Rows.Count).End(xlUp).Row If chkFE = True Then For Each cell In Range("BC4:BC" & LastRow) If UCase(cell.Value) <> "Fire Extinguishers" Then cell.EntireRow.Hidden = True End If Next End If If chkChem = True Then For Each cell In Range("BD4:BD" & LastRow) […]

如何dynamic获取当前多页标签值的值？: 社区，我目前隐藏我的标签在我的userform多页面当前标签除外。用户可以点击button在页面之间来回切换。一些button共享子例程。当用户点击一个button时，一旦select了新选项卡，它将隐藏前一个选项卡。我想这是一个双重的问题。 1）我怎样才能得到以前的选项卡select值？ 2）我怎样才能循环我的标签值？我的目标是testing当前标签标题或价值对所有其他人。想象这将是一个隐藏他们所有的简单方法，无论哪个页面和哪个button调用子例程。现在我只有一个选项卡button… Sub NewCreditSetup() MultiPage1.Pages(1).Visible = True MultiPage1.Value = 1 MultiPage1.Pages(0).Visible = False //More code displaying tab…irrelevant End Sub

更改VBA表单中的用户表单页面: 早上好！我有多个页面的VBA Excel中的用户窗体。我想创build一个命令button（“下一步”button），允许用户更改页面。我应该使用什么样的代码？

通过buttonVBA Excel将文本粘贴到文本框: 我想在MS Excel中复制和粘贴button，复制button看起来像这样 Private Sub CommandButton1_Click() Dim MyData As New DataObject MyData.SetText TextBox1.Text MyData.PutInClipboard End Sub 现在，我怎样才能以类似的方式编写/编码粘贴button？

在Excel用户窗体中显示“实时”图表数据: 所以，我一直在研究在用户窗体中显示图表的模式。一般的共识似乎是，你必须将图表保存为.GIF文件，然后将其作为图像上载到用户窗体中，然而，这意味着使用用户窗体的任何人都必须将该文件保存为图像为了查看信息（我不相信我的同事会花时间学习如何做到这一点，他们只是想快速查看图表）。是否有解决方法来显示用户窗体中的图表（不断更新数据）？我已经尝试了多种渠道，并没有find任何东西…此外，我的Excel 2013似乎没有在工具箱中的Microsoft Office图表选项，这是什么已经改变？谢谢！

引用最近添加的工作表: 我有一个用户表单将用户的input字段在工作簿中进行某些操作，其中一个操作是在工作簿中插入一个新的选项卡，并让用户在input框中input新工作表的名称。我希望能够引用这个新工作表（但我不知道其他人可能会命名它）并在新创build的工作表中粘贴一个图表对象。到目前为止，添加表单代码工作正常，但我的任何尝试粘贴图表范围都不起作用。我目前添加工作表的代码是： Private Sub MyChart_Click() Dim Answer As String Dim sht_name As Variant On Error Resume Next If Me.OptionButton2.Value = True Then Unload Me sht_name = InputBox("Please enter value") If sht_name <> "" Then Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sht_name Else Exit Sub End Sub 我的图表生活在另一个工作表（“Sheet2”），我试图只是将其复制到新创build的工作表中，只要用户在用户窗体中select此OptionButton2 …任何帮助表示赞赏。