Tag: 表单

使用Excel用户窗体剪切具有“x”的行，删除行，并粘贴到不同的工作表中

在Excel中处理一个用户窗体，它将在用户窗体中input的列“B”中的值切割一行，然后将该行粘贴到工作表2中，同时从用户窗体中添加另外3个值。 这是我所拥有的，但是现在对我来说什么也没有做。 Private Sub OkButton2_Click() Dim i As Long: i = 1 With ActiveSheet For n = nLastRow To nFirstRow Step -1 If .Cells(n, "B") = "ChartTextBox2.Value" Then .Cells(n, "B").EntireRow.Cut Sheet2.Cells(i, "A") .Cells(n, "B").EntireRow.Delete i = i + 1 'Transfer information Sheets("Sheet2").Cells(emptyRow, 7).Value = DTPicker4.Value Sheets("Sheet2").Cells(emptyRow, 8).Value = DispoTextBox.Value Sheets("Sheet2").Cells(emptyRow, 9).Value = ReasonTextBox.Value End If […]

当用户窗体可见时，Excel 2013模态VBA用户窗体更改Activeworkbook

在Excel 2013（Office 15）中，快捷方式和非常简单的用户表单（用于格式化）的组合有时会导致Active Workbook消失，而另一个工作簿无缘无故地出现（通常仅在更改了活动工作簿后才会发生）。 我试图保持当前的工作簿窗口在前台，而格式化的用户窗体显示，但没有成功。 这是我的代码： Sub AssignKeys() Application.OnKey "^%,", "MakeBlue" End Sub Sub MakeBlue() frmFormat.Show End Sub frmFormat是一个非常简单的小表单，只有一个input格式代码的文本框。 它确实能够在隐藏模式表单后使用以下代码恢复以前激活的工作簿： Private Declare PtrSafe Function SetForegroundWindow Lib "USER32" (ByVal hWnd As LongPtr) As LongPtr Public Sub MyAppActive(Handle As Long) Dim lngStatus As LongPtr lngStatus = SetForegroundWindow(Handle) End Sub Private Sub tbShortcut_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift […]

使用locking属性时Excel表单列表框问题

我有问题的方式列表框的行为在Excel表单上。 重现问题的步骤： 用一个列表框控件创build一个用户窗体 使用此用户表单使用以下代码： Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.ListBox1.Locked = True Me.ListBox1.Locked = False End Sub Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To 10 Me.ListBox1.AddItem i Next i End Sub 首先显示表单时，我可以使用箭头键和页面键正常浏览列表框。 但是，在双击事件触发后，所有键盘导航都不起作用，包括对其他控件（如果它们在表单上）的Tab键。 单击列表框似乎工作，焦点大纲显示正确，但是在列表框被locking，然后解锁之后处理焦点的方式有些问题。 到底是怎么回事？ 使用Office 2013 32位版本。

允许用户在vba用户窗体中粘贴屏幕截图

我build立了一个报表生成器，可以让其他人从Excel用户表单中创build报表。 我有很多要求用户能够将剪贴板中的截图或图片粘贴到用户表单中。 然后，我会调整这个截图的大小，并将其包含在报告中。 他们不希望手动resize，或将屏幕截图保存在计算机的任何地方并加载。 有没有一种方法可以让用户将图片粘贴到在Excel中运行的用户表单中？

用户表单中的某些错误将数据添加到多个工作表/表中

你能帮我解决这些错误吗？ 代码运行，但是把数据放在错误的地方，我把笔记放在下面的注释中，在这里做的是这样的…我需要在添加用户表单值之前检查重复的名字这里是我的用户表单代码： Private Sub cmdAddVol_Click() Dim lRow As Long Dim ws As Worksheet Set ws = Worksheets("VOLUNTEERS") Dim wsArray As Worksheet For Each wsArray In Sheets(Array("VOLUNTEERS", "OCTOBER", "NOVEMBER", "DECEMBER", "JANUARY", "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE", "JULY", "AUGUST", "SEPTEMBER", "FY TOTALS")) With wsArray 'first clear all filters *(this is not working)* 'This removes any filtering in […]

vba并从隐藏/未启用的乘法输出数据

我有一个多个页面上的各种选项卡的用户窗体。 我使用datepickers（Microsoftdate和时间选取器控制6.0）和不同的选项卡上的文本框。 当我想要从隐藏的，未启用的或简单地不活动的多个数据输出到工作表时，就会出现问题。 例如，Multipage1有一个出生date，Multipage 2有一个开始date。 当我按下命令button执行所有数据到工作表的所有数据输出时，它只会输出当前活动的多页面的值。 其他值是默认值。 Mulitpage1激活意味着它将返回DOB，但从Multipage2返回空白/默认开始date Multipage2激活意味着它将返回开始date，但从Multipage1返回一个空白/默认的DOB 多页3激活意味着DOB或开始date都不会输出非默认值。 （假定所有的乘法的所有字段实际上已经完成了一个值） 有没有解决的办法？ 用来输出数据的命令button有一长串如下的语句： Cells(6, 2) = Address1TextBox.Value Cells(7, 2) = Address2TextBox.Value Cells(8, 2) = Address3TextBox.Value

根据userform中的多个checkbox显示文本框中的文本string

我用4个checkbox和1个文本框创build了一个简单的用户窗体。 我希望能够显示基于点击checkbox的句子。 如果checkboxSwimming池是检查，我想显示这个string：来电者提到关于游泳池。 如果checkbox游泳池和checkbox阳台是检查，我想显示这个string。 来电者提到游泳池。 来电者提到了阳台。 和儿子。 这是我的代码到目前为止： Private Sub CommandButton1_Click() 'If chkPool.Value = True Then 'txtComment.Text = "The caller asked about Swimming Pool." 'ElseIf chkBalcony.Value = True Then 'txtComment.Text = "The caller asked about Balcony and Patio." 'End If Select Case test_test Case chkPool.Value = True txtComment.Text = "The caller asked about Swimming Pool." […]

用UserForm控件名称构build用于下一​​个循环值的string

我正在努力build立价值 If UserForm1.p1OptionButton.Value = True 其中p1OptionButton中的1是For Next循环计数器的值，但是我收到错误，但是我尝试构build它。 如果我使用 Dim iPart As Integer For iPart = 1 to 6 If "UserForm1.p" & iPart & "OptionButton.Value" = True …. blah blah blah rest of the code Next iPart 我得到这个错误： 运行时错误13types不匹配。 如果我离开“从绳子的其他部分出来”，它也不起作用。 谢谢你的帮助。

在Image1.Click调用后，VBA UserForm.Image1.Picture不会刷新

我有一个用户窗体更改图片时，用户更改页面与SpinButton使用： Image1.Picture = LoadPicture(imageString) 它工作正常，但每当Click（）被调用的图像，该图像停止接受任何进一步的图片更改，即使例程是空的： Private Sub Image1_Click() End Sub 在调用空Click（）调用后更改页面将不再更新图片。 如果我添加： UserForm.Hide UserForm.Show 要么 UserForm.Repaint 到页面更改程序的.Picture更新将再次开始工作。 为什么每次捕捉Click（）事件都必须执行额外的操作，而不是当我没有？

VBA – 定义一个用户表单稍后调用它

对不起，如果这不明确，但由于某种原因，我的代码最近停止工作，我不知道为什么。 基本上，我在我的工作中创build了一个excel vba程序来做报告（例如炉子报告或树报告）。 有一个封面表格，要求用户input报告的各种细节（即出席者，date，地址等）。 一旦完成，他们然后select一个报告来完成（有5个不同的用户表单，他们可以从封面上去）。 例如，如果他们select电气，他们然后可以select一般，火炉或热水系统报告（记住这一点）。 说他们select水暖，他们可以select一般或热水系统报告。 inheritance人我的问题…我已经回来或返回所有的用户forms（除封面页）上的button，我使用相同的用户表单为热水系统和一般报告电气和pipe道（因为文本框，checkbox是相同的）。 考虑到这一切…..（对不起….）….. 我如何定义什么样的用户表单（pipe道或电气）也回来？ 如果需要可以发布代码