Tag: input

运行时错误'91'将表单添加到用户表单数据: 我试图将简单的数据input到一个用户窗体中的两个文本框中，然后将这些数据添加到名为“AvantAct”的表中。每次运行用户表单时，我都希望将表中的数据input表中的第一个空行。有趣的是，我第一次做到这一点完美无瑕。但是，在退出工作簿之后又回来的时候，我似乎得到了： – 运行时错误“91”：对象variables或未设置块variables。当我debugging下面的行时高亮显示： tbl.DataBodyRange(lrow2, 1). Value = Me.TxtDate.Value 我应该补充说，我的表目前是一个空的（新插入的）表。它有8列（带标题），一个空行（从插入）和一个总行。有什么build议么？ Private Sub SubmitButton_Click() Dim ws As Worksheet Dim tbl As ListObject Dim TxtDate As Date Dim TxtPmt As Currency Dim col As Integer Dim lrow As Range Dim lrow2 As Long Set ws = ActiveWorkbook.Worksheets("Avant") Set tbl = ws.ListObjects.Item("AvantAct") If […]

如何发送input从Excel到Python？: 我使用python库xlsxwriter在Excel中创build了一个工作表。我在单元格B2中写入“input列以实现转向”，然后在单元格C2中提供了一个下拉选项列表。我通过调用工作表上的data_validation（）创build了下拉列表。 workbook = writer.book worksheet3 = workbook.add_worksheet('Sheet3') prompt = "Select category to calculate variance of: " worksheet3.write('B2', prompt) worksheet3.write('C2', 'Max TemperatureF') worksheet3.data_validation('C2', {'validate': 'list', 'source': ['Max TemperatureF', 'Mean TemperatureF', 'Min TemperatureF', 'Max Dew PointF']}) worksheet3.set_column(2, 1, 35) # C2 worksheet3.set_column(2, 2, 20) # C2 之后，我调用writer.save（）来保存工作表。现在我试图找出如何获得单元格C2的值。我想使用python添加一个提交button到单元格D2中的Excel工作表。然后当button被点击时，我将使用python获取C2的值并存储值。有没有人做过类似的事情，或知道如何？

Excel VBA，用于更改variables并粘贴其结果的for循环: 我有一个包含一系列计算的电子表格。我有一个依赖于所有计算的结果单元格。我写了一个macros：要求用户input两个数字之间的范围生成两个数字间隔为0.5的范围对于每个号码，将此号码添加到指定的单元格并等待处理将结果单元复制到摘要单元格重复范围内的所有数字这个例程中的数字4是我唯一的问题。我似乎无法得到每个循环的结果粘贴到不同的单元格。例如，对于1到3之间的范围，我应该有5个值。我希望这些值被粘贴在他们的压力值旁边。 Sub pressureOptimization() ' ' pressureOptimization Macro ' p1 = InputBox("Give lower pressure limit") p2 = InputBox("Give higher pressure limit") Application.ScreenUpdating = False For StartNumber = p1 To p2 Step 0.5 Range("D21").Select ActiveCell.FormulaR1C1 = StartNumber Range("C34").Select Selection.Copy Sheets("Result").Select Range("C2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ […]

读取另一个文件作为vbainput: 我有一个Excel文件中的这个macros： Sub ore() Sheets(1).Select LR = Cells(Rows.Count, "A").End(xlUp).Row drow = 2 For r = 2 To LR ore = Cells(r, 4) nome = Cells(r, 2) totore = totore + ore n = n + 1 If ore <> 8 Then Rows(r).Copy Sheets("log").Cells(drow, 1) drow = drow + 1 End If If n = 5 Then […]

如何在单元格更改但尚未input数据时运行Excelmacros？: 问题在于：我有一台激光扫描仪读取条形码，并在读取成功后返回一个值。发生这种情况时，序列号（一个20位数字）被粘贴到活动单元格中。粘贴，但没有input 。我想知道是否有任何方法可以在private sub中包含某种“如果粘贴数据”的语句。代码的第二个目的是为每个条目添加时间戳，如下所示： Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then ActiveCell.Offset(0, 1).Activate ActiveCell.Value = Now() ActiveCell.Offset(1, -1).Activate End If End Sub 数据不会被快速input，所以相对单元格引用不应该是一个问题。如果你看到其他可以改进的地方，请不要犹豫，提及它！编辑：因为有些人提出了，这不是一个“简单”的粘贴; 数据被放置在公式栏中，但不会被input。编辑2：这是另一个人有我的同样的问题。

VBA – 通过工作表循环查找用户select范围内的最大值: 我正在尝试为我的工作簿中的每个工作表取决于用户所选范围的最大值。我希望用户只select一个范围，并根据该范围查找每个工作表的最大值。换句话说，用户select范围B1：B100。 macros应循环遍历每张纸，并在每张纸的B1：B100范围内find最大值。最终，每个工作表都有一组数据点，我想用用户select范围内的最大值来划分。这是我的代码（以及相关部分）： Sub Plot() Dim i, ws_count As Integer Dim userng, brng As Range Dim maxval As Double On Error GoTo Canceled Set userng = Excel.Application.InputBox("Please input range.", "Input", Selection.Address, , , , , 8) ws_count = ActiveWorkbook.Worksheets.Count For i = 1 To ws_count Worksheets(i).Activate maxval = userng.Cells(1, 1).Value For Each […]

如何在pentaho中读取密码保护的excelinput？: 如何从pentaho excelinput步骤中的密码保护excel表单中读取数据？如果我们不能从密码保护的excel表读取数据，那么我们怎样才能跳过这个文件，在pentaho中只读取密码less的excel表格呢？请帮我解决一下这个。提前致谢。

需要用户input来指定代码: 我有一些代码，我发现，完美的作品，我想要的，这是整个工作表从一个工作簿复制到另一个，但我希望定制它，使它更容易一点（所以我不所有30张纸都不需要重新编码），允许用户准确地指定他们要复印的纸张。 Sub Start() Dim x As Workbook Dim y As Workbook '## Open both workbooks first: Set x = Workbooks.Open("data workbook") Set y = Workbooks.Open("destination workbook") 'This is where I would like the user to input the destination sheet in x: x.Sheets("USER INPUT").Range("A1:z28").Copy 'Then paste data from x to y: y.Sheets("STATIC SHEET").Range("A1").PasteSpecial 'Close x: x.Close […]

要求用户使用MATLAB从EXCEL中select所需的数据范围: 为了从Excel中的数据绘制在同一个Excel文件使用Matlab，是否有可能要求用户select所需的范围，而不是在Matlab代码中定义的范围？

Excel的VBAinput框 – select范围（types8），但不是一个固定的范围，即A1不是$ A $ 1: 我目前有一个Inputbox VBA代码中的以下行： Set myValues = Application.InputBox("Please select on the spreadsheet the first cell in the column with the values that you are looking for:", Type:=8) 但是，当我select单元格时，它会自动input例如$A$1 。这可以改变，而不需要用户手动删除$，这样Inputbox会自动获取A1的单元格引用吗？这是一个自动VLookupmacros的一部分，除了整个列中的VLookup值被固定之外，它完全可以工作。提前致谢。更新 – 这是完整的代码： Dim FirstRow As Long Dim FinalRow As Long Dim myValues As Range Dim myResults As Range Dim myCount As Integer Sub VlookupMacroNew() […]