Tag: 框

用户窗体的名称框

我创build了一个带有文本框的用户窗体(userform6)。 我需要给最后5行的名字。 这是我正在使用的代码。 该代码也select了最后五行,但出现错误。 Dim n As Long n = 5 Cells(Rows.Count, "A").End(xlUp).Offset(1 – n). _ Resize(n).EntireRow.Select Selection.Name = UserForm6.TextBox8.Text 我得到了一个运行时错误1004,错误突出显示“selection.name = userForm6.TextBox8.Text”。 我也检查了空间,但没有成功。 任何帮助将不胜感激。

Application.InputBox错误424取消

我正在调用一个input框从一个工作表复制选定的单元格,并将其粘贴到一个多列列表框。 我终于得到了一切正常工作, 除了错误424当用户取消input框。 我已经阅读了无数的帮助线程关于这个错误,并没有发现,似乎能够处理我的错误。 我希望有人可以告诉我,如果下面的代码有问题(除了1200万退出子试图阻止错误),或者可能给我一个另一个领域的想法(声明,初始化,激活?我应该检查。 任何想法表示赞赏,谢谢。 Private Sub CopyItemsBtn_Click() Dim x As Integer Dim rSelected As Range, c As Range Dim wb Dim lrows As Long, lcols As Long x = ProformaToolForm.ItemsLB.ListCount 'Prompt user to select cells for formula On Error GoTo cleanup wb = Application.GetOpenFilename(filefilter:="Excel Files,*.xl*;*.xm*") If wb <> False Then Workbooks.Open wb End […]

如何为每个vba excel分配input框input到variables

我有一个VBA脚本中的每个单元格中的一个for语句(范围中的单元格的数量是可变的,基于用户input – 可能是三个单元格可能是100)。 for循环的每个实例都调用一个input框。 如何将for循环的每个实例的用户input分配给variables供以后使用? 这里是input框的代码: For Each cell In MyQCData text_string = cell.Value WrdArray() = split(text_string, ",") For i = LBound(WrdArray) To UBound(WrdArray) strg = strg & vbNewLine & "Part No. " & i & " – " & WrdArray(i) Next i InputBox ("This part requires a " & WrdArray(0) & " measurement of […]

input框取消excel vba

这段代码复制一个excel数据块(Col A到Col BH),并提示用户select复制模板需要粘贴的行。 代码似乎工作得很好(随意清理/优化任何代码),我的问题是每当用户点击取消时,他们需要select行我得到一个错误“运行时错误13types不匹配”。 如果select取消,是否有结束macros? Sub CopyTemplate() Worksheets("HR-Calc").Activate Dim rng As Variant Dim trng As Range Dim tco As String Dim hi As String Dim de As String 'Use the InputBox select row to insert copied cells Set rng = Application.InputBox("select row to paste into", "Insert template location", Default:=ActiveCell.Address, Type:=8) startrow = rng.Row ' MsgBox […]

Excel vba无法find用户input的date

我对VBA还是有点新鲜感,而且我的代码今天早些时候工作,但现在由于某种原因,即使它存在,它也停止在我select的列中finddate。 我正在阅读每一行,并寻找两个标准(1.移植date,2.networking)。 一旦完成,我根据他们的标准复制行来分离工作表,并随后保存它们。 我现在的问题是,尽pipe我input的date,它不会再find它 – 我确实以DD / MM / YYYY格式input,因为这是我的基础格式。 尽pipe我把它放在了Err_Execute。 这是我正在使用的数据types: ColA PCname(即John的机器) ColB用户名(即John Doe) ColC DeviceType(即笔记本电脑) ColDnetworking(即Jody的networking) ColE迁移波(即第一波) ColF设备的顶级用户 ColG最后一个人login 设备的位置 ColI迁移date(在另一个工作簿中查找,所以仍然是一个公式)ColJ用户的电子邮件 ColK SR# ColL迁移date(作为值而不是公式复制) Sub test() Dim LSearchRow As Integer Dim LCopyToRow1 As Integer Dim LCopyToRow2 As Integer Dim LSearchValue As String On Error GoTo Err_Execute Sheets("Confirmed devices").Activate Range("I2:I10000").Select Selection.Copy Range("L2:L10000").PasteSpecial xlPasteValues […]

VBA InputBox提示两次

我有一个简单的脚本在closures工作簿之前需要密码 (以防止意外closures),但是如果input正确的关键字,则InputBox重新打开。 我已经创build了下面的脚本的多个迭代,但我无法解决它。 Sub Workbook_BeforeClose(Cancel As Boolean) If InputBox("Please enter the password to close the workbook.") <> "pa55word" Then MsgBox ("Incorrect password. Please try again") Cancel = True Exit Sub Else GoTo GoToClose End If GoToClose: ThisWorkbook.Close SaveChanges:=False End Sub

使用Python从Box下载文件

我正在尝试使用Python将Excel文件从Box下载到我的本地驱动器。 使用boxsdk,我可以通过OAuth2进行身份validation,并成功获取Box上的文件ID。 但是,当我使用client.file(file_id).content()函数,它只是返回一个string,如果我使用client.file(file_id).get()那么它只是给了我一个boxsdk.object.file.File 。 有人知道如何将其中的任何一个写入本地机器上的Excel文件? 或者使用Python从Box下载excel文件的更好的方法。 (我发现boxsdk.object.file.File有一个选项download_to(writeable_stream 这里,但我不知道如何使用它来创build一个Excel文件,我的search没有帮助)。

根据用户input在列中查找重复的值

我正在尝试在列中find重复的单元格。 我从手动给范围更改为用户定义的代码。 但它给了我错误。 从下面的代码中应该修改什么来接受用户input和处理。 Sub DupEntry() Dim cel As Variant Dim rng As Range Dim clr As Long Dim colname As Variant Dim j As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual colname = Application.InputBox("Input Column Name") j = Cells(l, colname).Column Set rng = Range(j & "1:" & j & Range(j & "1048576").End(xlUp).Row) rng.Interior.ColorIndex = […]

pandas:从一个大的Excel文件中的每个电子表格生成一个数据框

我有一个大的excel文件,我已经导入pandas,由92张组成。 我想使用循环或某种工具从每个电子表格中的数据(每个电子表格中的一个数据框)生成数据框,这些数据框也会自动命名每个数据框。 我刚刚开始使用pandas和jupyter,所以我不是很有经验。 这是迄今为止的代码: import pandas as pd import matplotlib.pyplot as plt import numpy as np import datetime %matplotlib inline concdata = pd.ExcelFile('Documents/Research Project/Data-Ana/11July-27Dec.xlsx') 我也有一个所有电子表格名称的列表: #concdata.sheet_names 谢谢!

VBA:如何使用InputBox在将.txt文件导入Excel时提示用户input.txt文件path?

我一直在关注一个线程,在那里向我展示了如何在VBA编辑器中使用查询表将一个.txt文件从特定path导入到工作表中。 代码如下: Sub Sample() With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Sample.txt", Destination:=Range("$A$1") _ ) .Name = "Sample" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = […]