Tag: userform

用户窗体百分比列表框？

我在一个用户窗体中使用一个列表框，它显示一个格式为百分比的列中的唯一值。 我通过使用字典对象生成一个唯一的列表/值，并将其提供给一个列表框。 我的问题是所有的值都显示为列表框中的十进制数字而不是百分比。 任何想法如何以百分比/格式显示他们？ 参考：列表框值可以改变取决于用户select文本/数字/date/货币/百分比 唯一的列表代码 Sub UniqData(fString As String, cbNr As Integer) ' fString as string Dim d As Object With Sheets("xxx") cNr = WorksheetFunction.Match(fString, .Rows(1), 0) lRo = .Cells(Rows.Count, 1).End(xlUp).Row arrD = .Range(.Cells(2, cNr), .Cells(lRo, cNr)) Set d = CreateObject("scripting.dictionary") For Each c In arrD If Len(c) > 0 Then d00 = dic.Item(c.Text) […]

VBA列表框按索引select工作表

我有一个带有列表框的表单，它dynamic地提供当前工作簿（下面的代码）中的工作表列表。 我希望在选定的工作表中参考，并在稍后的公式中参考它。 从几个小时的玩耍，我似乎无法完成这一点。 我相信我读过的地方，你不能把string回到子，并使用它来引用一个对象。 所以我想也许我可以创build两个列表框 为表名称 为图表索引 我可以通过索引号，并可能在我的公式中使用它来查找正确的工作表中的项目。 对于我的生活，我似乎无法find一种连接两者的方式，因为这些项目总是在变化。 该代码将由多个运营商在多个工作簿上运行，因此布局很可能会在用户之间发生变化。 我可以很容易地添加索引＃的第二个列表框，但我有一个关于如何将名称，将有意义的用户和我可以传回给子索引块。 我意识到列表框中的“点击”过程将两者联系起来，但是与字段的dynamic特性相关，我不能拿出把它放到代码中的逻辑。 For N = 1 To ActiveWorkbook.Sheets.Count With ListBox1 .AddItem ActiveWorkbook.Sheets(N).Name End With Next N

在主监视器上显示Excel

我有一个用户窗体打开Excel文件时自动打开。 它有一些显示问题，当向下滚动窗体时，选项button消失。 这个问题只发生在我有2个监视器（主要和次要）。 我注意到了这两种情况： 如果我打开任何Excel文件，并在主屏幕上使其全屏，然后closures它，然后打开用户表单，它工作正常！ 如果我打开任何Excel文件，并将其移动到辅助屏幕，然后closures它，并打开用户窗体，出现问题！ 所以，我的问题是： 有什么办法强制Excel打开全屏在主屏幕？

在用户表单中调用数组终止/closuresVBA

我有一个问题，我想在用户窗体closures时将用户窗体的内容存储在数组中。 我以为我有正确的语法，但似乎不重新填充userform初始化。 我试图把数组放在自己的模块，这也没有工作。 任何人都在照顾我？ 示例代码： Public Sub DPArrayStuff() Dim DP(2) DP(0) = Block1 DP(1) = Block2 DP(2) = Block3 End Sub Private Sub userform_terminate() If Block1.Value <> vbNullString Then Call DPArrayStuff End Sub Private Sub userform_Initialize() If DP(0) <> vbNUllString Then Block1 = DP(0) Block2 = DP(1) Block3 = DP(2) End If End Sub

使用VBA将选项卡添加到Excel中的多页用户表单中

我需要findVBA代码添加x个选项卡到excel中的一个用户窗体中的多页。 如果我使用Visual Basic编辑器，我可以手动添加选项卡，但我希望能够在运行时使用VBAdynamic添加/删除选项卡。 谢谢

如何在工作簿中使用VBA UserForm循环几个工作表

刚刚更新我的数据，所以你可以看到。 因为我正在引用该工作表，它正在为1工作表。 仍然很难弄清楚如何引用整个工作簿，所以它会在所有31个工作表中查找名称。 如果患者一年中有一次以上的话，我也不知道如何去下一个logging。 任何帮助是非常appriciated。 好的，我的工作簿中的所有工作表都有一个问题循环。 目标我正在努力完成。 按患者姓名searchlogging。 一旦发现该logging中的所有单元格都将被导入到usrform中。 能够编辑我需要的任何信息并将其保存回到相同的logging中。 我find了一个关于如何通过工作表完成而不是整个工作簿的Youtubevideo 。 此代码将在现有的用户窗体上进行。 它将需要一个function，它可以让我select下一次病人出现。 所以可能有多个病人的条目。 希望能够select年份和病人作为search标准。 Private Sub CommandButton1_Click() Dim ws As Worksheet Dim found As Range row_number = 0 Do DoEvents row_number = row_number + 1 item_in_review = Sheets("2012").Range("A" & row_number) If item_in_review = Patients_Name.Text Then Date_of_Incident.Text = Sheets("2012").Range("B" & row_number) Month.Text = Sheets("2012").Range("C" […]

用UserForm中的TextBox捕获单元格值

我有一个UserForm应该能够复制粘贴单元格的理想select。 所以首先我要点击我想要复制的范围，然后激活UserForm。 UserForm将有一个combobox来select我要粘贴数据的工作表，然后它将转到该工作表，用户将点击他想要粘贴数据的范围或单元格。 我原来做了一个input框代码来做到这一点，它的工作原理是完美的，但是当我在UserForm中执行它不起作用，因为我不能将Type:=8代码合并到文本框中。 因此，我将需要一些帮助，我怎样才能启用我的UserForm粘贴工作表上的单元格数据，类似于我在application.inputbox所做的。 这是一个input框forms的完美工作代码： Sub CopyPasteCumUpdateWithinSameSheet() Dim rng As Range Dim inp As Range Selection.Interior.ColorIndex = 37 Set inp = Selection On Error Resume Next Set rng = Application.InputBox("Copy to", Type:=8) On Error GoTo 0 If TypeName(rng) <> "Range" Then Exit Sub Else inp.Copy rng.Select ActiveSheet.Paste Link:=True 'Cells(1,2).Font.ThemeColor = End If End Sub […]

我的模块结束后，Internet-Explorer将不会closures

我有这个从网站上抽出数据的macros。 我得到来自用户的input。 它工作没有错误，但由于我看不到的原因，IE不会closures和吸收我所有的RAM。 是否需要其他东西，而不是IE.Quit ？ 这是分。 正如你所看到的，我最后closuresIE。 Public Cancel As Boolean Sub USGD() Dim IE As Object Dim iWsh As Worksheet Dim link As String Dim sDate As String Dim eDate As String Dim StationID As String Cancel = False With USGS .StartUpPosition = 0 .Left = Application.Left + (0.5 * Application.Width) – (0.5 * […]

用于VBA Userform文件select的省略号文本框

我试图为我一直在努力的广泛的VBA程序创build一个pathselect用户界面，但我似乎无法得到我想要的省略号文本框。 这是一个非常常见的function，特别是在选项表中。 这是我想从VBA选项面板直接得到的一个例子： 我会喜欢find一种方法来获取用户窗体中的相同function。 我迄今为止唯一find的解决scheme是使用combobox，并启用省略号箭头选项。 但是，似乎没有一种明显的方法来使用combobox箭头的激活来运行对话框，也似乎没有办法使其看起来不像combobox。 最后一招，我在文本框下面使用了一个button，但是我真的更喜欢这样做的不那么笨重的方式。 任何解决scheme将不胜感激。

在用户窗体初始化之后更新一个用户窗体列表框

是否有任何方法来更新UserForm之外的UserForm的ListBox ？ 为什么？ 我正在build造一个二十一点游戏，并使用列表框来告诉用户他们拥有哪些牌/经销商。 我希望使用一个简单的子（ ShowCards ）将项目添加到列表框，但我遇到了问题： Playbutton调用位于普通模块中的PlayBlackjack子 Option Explicit Dim cards As New Collection Sub ShowGame() UFDisplay.Show End Sub Sub PlayBlackjack() 'fill the cards collection with 5 shuffled decks PrepareCards Dim i As Integer Dim userHand As New Collection Dim dealerHand As New Collection 'deal cards (removing the dealt cards from the cards collection) […]