Tag: input

Excel：如何用用户input修改的代码填充单元格？: 我有这个IF声明： =IF([Year]=2016,IF([Condition]="XClean",72,IF([Condition]="Clean",72,IF([Condition]="Average",72,IF([Condition]="Rough",72,0))))) 我在一个单元格中embedded了这个IF语句55次，填满了11年的范围（从2016年到2005年）。我使用公式分配多个任务。我想知道是否有办法创build一个模块，在那里我可以input一个单元格坐标来replace[Year]，input另一个单元格坐标来replace[Condition]，以及一个我希望公式填充的单元格。这是我坚持的地方： Sub MaxTerm() Dim year As Range '[Year]' Dim condition As Range '[Condition]' Dim origin As Range 'first cell of the column I want to populate' year = InputBox("what is the coordinate for model year?") condition = InputBox("what is the coordinate for the condition of the vehicle condition?") origin = […]

VBA：叠加正弦波的振幅: 我写了一个excelmacros，允许用户创build一个graphics，然后以叠加的正弦波forms向数据添加噪声。为了给用户更多的控制，我使得正弦波的数量和正弦波的最大振幅都是input。每个正弦波的频率和相位是两个预设值之间的随机variables，并且幅度是大于0且小于或等于幅度的用户input值的随机variables。因此，最大可能的幅度不会随着更多正弦波的增加而增加，然后个体波的幅度除以正在使用的波的数量。这些variables中的每一个都是针对每个叠加波分别生成的，然后迭代计算每个点的位置。我所遇到的问题是，当使用更多的正弦波时，在任何给定点上所得到的曲线处于其最大值的概率要小得多，整个曲线具有较低的幅度并且更接近平均值。这意味着用户必须迭代地改变幅度，直到按需要，这是不理想的。这是相关的代码： j = Worksheets("Sheet1").Range("AE19").Value C = Worksheets("Sheet1").Range("AA19").Value w = 1 For i = 4 To 4003 Worksheets("Sheet2").Range("I" & i).Value = 0 Next i Do While w <= C A = ((Int((5 – 1 + 1) * Rnd + 1)) / (10 / j) / C) F = Int((8 […]

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与查找单元格的问题: 所以我一直在为员工制定一个假期日历，而且我遇到了一个我似乎找不到解决scheme的问题。我有两个button被分配到一个VBA脚本，我有一个假期条目的问题。我似乎无法从用户表单input中select特定的单元格来输出数据。代码如下所示： Private Sub ComboBox2_Change() End Sub Private Sub CommandButton1_Click() Dim emptyRow As Long 'Make Sheet1 active 'Holiday Calendar.Activate 'Determine emptyRow 'ActiveCell = (A5) 'emptyRow = WorksheetFunction.CountA(Range("Employees")) + 1 NextRow = 5 Do Until Sheets("Holiday Calendar").Cells(NextRow, 4) = Username.Value NextRow = NextRow + 1 Loop 'Transfer information Cells(NextRow, 6).Value = TypeOfLeave.Value Cells(NextRow, 5).Value […]

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

excel vba复制单元格块并插入多次: 我试图复制一个模板块的单元格，然后让它插入到用户select的行。理想情况下，我想要代码复制模板块，然后下拉2行，插入块X次，其中X是用户需要块的数量。 X将是input框的结果。然后插入每个块后，打开replace文本窗口。如果有人可以帮助我获得现有的代码，通过input框多次插入模板块，这将是一个巨大的帮助。如果查找和replace工作将会更好这是我的代码到目前为止。 Sub CopyTemplate() Worksheets("HR-Cal").Activate Dim rng As Range Dim trng As Range Dim tco As String 'Use the InputBox select row to insert copied cells Set rng = Application.InputBox("select row to paste into", Default:=ActiveCell.Address, Type:=8) startrow = rng.Row ' MsgBox "row =" & startrow Range("AF2") = startrow Application.ScreenUpdating = […]

将图片file upload到OCR网站: 我正在尝试使用免费的OCR网站开发OCRmacros。我检查了“上传文件”部分的HTML代码，如下所示：由于代码没有value选项，它也不做回发呼叫，所以如何通过Excel VBA将我的图片文件input到“上传文件”字段？

Excel VBA使用范围作为input: 我正在学习Excel VBA，并试图创build一个简单的函数。这个想法是，我将使用一个单元格作为input，该函数会告诉你在该单元格周围放置12个值的标准偏差。所以如果我inputgetstd（A1），它会得到A1，A3，A5，A7，C1，C3，C5，C7和E1，E3，E5和E7的标准偏差。如果我inputgetstd（X23），它将获得12个其他值的标准位于X23周围相同的偏移量。我现在最大的问题是搞清楚如何使用单元格作为input。例如，当试验抵消时： Function getstd(rng as Range) Range(rng).Offset(1,1) = "hello world" End Function 它总是给我一个＃值错误。我觉得，如果我可以做到这一点，那么创build我的function应该很容易。谢谢！迈克尔

input框缓慢的VBA代码: Range("C5").Select mydate = InputBox("Please enter Date Must be 3Letters+Day ie Jan1") Range("C5") = mydate 问题是，如果excel只是打开它的快速工作，在input框中键入date，但如果我试图在Excel数据工作的时间后操作代码它非常慢….不挂但慢（打字的步骤input框中的date）之后，代码正常运行正常后通过此步骤所以我必须在运行这个代码之前重新启动我的excel am using Application.ScreenUpdating = False 寻找你的帮助

根据用户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 = […]