Tag: 参考

C＃Microsoft Excel 11.0对象库

我试图添加Microsoft Excel 11.0对象库com到我的项目，但它不存在，只有12。 所以我不能使用Microsoft.Office.Interop。 如何将Microsoft.Office.Interop或Microsoft Excel对象库添加到我的项目中，而无需购买和安装旧版本的Excel？

检查单元格是否有效input

我已经find了一个解决scheme没有成功，所以我希望有人能帮助我。 请原谅我基本的excel技能。 我有两列数字代码的数据： A列被称为AREA ，可以是00 – 99之间的任何数字 B列被称为TYPE ，可以是00 – 38之间的数字，但只有某些值可以接受，具体取决于AREA值。 我有第二组数据包含所有AREA值和相应的可接受的TYPE值。 假设对于AREA 15，可接受的TYPE值是TYPE或17 我的第一组数据有一个AREA = 15 & TYPE = 23 ，根据上面的规则，23对于TYPE列是不可接受的值。 有没有办法将第一组数据（每周报告）与第二组数据（其中包含“规则”）进行交叉引用，以标识具有不可接受TYPE值的条目？ 对不起，如果我没有足够清楚地描述这一点。 我混淆了自己只是试图把它说出来…

使用另一个工作表的单元格引用递增自动填充公式？ （= INDIRECT？）

我正在尝试自动填充这些公式，增加单元格引用以遵循下面的模式。 公式平均块数为12，单元格引用每次增加11个; 我查看了一些其他相关的问题，我认为INDIRECT函数是要走的路，但是在我的公式中遇到了麻烦： Sheet2，单元格D2 =IF(ISERROR(SUM('Sheet1'!D2:D13)),0,SUM('Sheet1'!D2:D13)/MAX(1,COUNTIF('Sheet1'!D2:D13,">0"))) Sheet2，Cell D3 =IF(ISERROR(SUM('Sheet1'!D14:D25)),0,SUM('Sheet1'!D14:D25)/MAX(1,COUNTIF('Sheet1'!D14:D25,">0"))) Sheet2，单元格D4 =IF(ISERROR(SUM('Sheet1'!D26:D37)),0,SUM('Sheet1'!D26:D37)/MAX(1,COUNTIF('Sheet1'!D26:D37,">0")))

在另一个子例程中引用一个语句

我有代码，我分解成多个运行顺序。 我从一个消息框开始，询问“您是否input八月份的数据” 。 如果答案是肯定的，它会运行一系列的代码，但是现在我的代码太长了，我无法在八月份继续这一系列的代码。 我试图使代码无缝的变化。 当新的代码开始时，我可以再次问“你input数据的月份是什么”，但如果可能的话，我不想。 理想情况下，我希望我的新代码的第一行是“如果您对代码1中的最初问题回答”是“，则继续”。 这里是我所说的所有代码： Sub PreScrub() Call Tabs Call AUGSUMMCEND Call AugNUR End Sub 第一个代码只是格式化，所以我会跳过这个。 这是我第二个代码的开始，我在那里提示本月： Augbox = MsgBox("Are you entering Prescrub for August?", vbYesNo + vbQuestion) If Augbox = vbYes Then For i = 1 To recvarSumm.Rows.Count For j = 1 To recvarSumm.Rows.Count If recvarSumm.Cells(i, j).Value = "Aetna" Then recvarSummvalues.Cells(i, […]

在对象浏览器中查看和理解与VBA代码有关的项目的正确方法是什么？

对于下面的EXCEL-VBA代码，它显示了所有的9意味着vbObject。 Sub whatwehave() For Each ref In ActiveWorkbook.VBProject.References Debug.Print ref.Description; " — "; ref.FullPath Next Debug.Print VarType(ActiveWorkbook.VBProject.References) Debug.Print VarType(ActiveWorkbook.VBProject) Debug.Print VarType(ActiveWorkbook) End Sub 结果如下： Visual Basic for Applications – C：\ Program Files（x86）\ Common Files \ Microsoft Shared \ VBA \ VBA6 \ VBE6.DLL Microsoft Excel 12.0对象库 – C：\ Program Files文件（x86）\ Microsoft Office \ Office12 \ […]

Excel启动提示设置不起作用

我在工作簿中创build了一个外部参考，目标工作簿位于networking文件夹上。 我已经设置启动提示自动更新链接，而不通知用户。 尽pipe如此，我仍然收到错误消息2 ： 这个失败在哪里？

InputBox中的行参考？

这里是我目前在VBA（Excel）中的代码。 它大部分来自我制作的macros观录音。 我正在寻找的是能够插入，例如，行10只是10在input框中，而不必把它放在10:10。 有没有办法让我编辑我的当前代码，以允许这个？ 我试过使用行（“TargetRow：TargetRow”），但是这给了奇怪的结果。 Dim TargetRow As Variant TargetRow = InputBox("Insert row # where data should be inserted. This should take the format XX:XX (eg 90:90 for row 90)", "All Industries Row", "XX:XX") wbThis = ThisWorkbook.Name Windows(wbThis).Activate Rows(TargetRow).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove Windows("otherworksheet.xlsx").Activate Range("A119:J119").Select Application.CutCopyMode = False Selection.Copy Windows(wbThis).Activate Range(TargetRow).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, […]

参考用vba中的filedialogselect的工作簿

我正在尝试在Excel中创build一种用户界面，并且需要find一个简单的解决scheme将工作表从选定的工作簿复制到特定的工作簿。 到目前为止，我已经写了下面的代码，但我不知道如何在代码中引用选定的工作簿。 用户需要将许多不同的工作簿（具有不同的名称）复制到使用VBA的工作簿中（称为Storyboard ，名称永不改变）。 现在可以select另一个工作簿，但是我不能在代码中参考该工作簿。 此外，用户将要select的工作簿上有一些macros，如何在打开后禁用它们？ 这是目前的代码。 Sub Storyboard_Ekle() Dim DosyaSec As Office.FileDialog Set DosyaSec = Application.FileDialog(msoFileDialogFilePicker) With DosyaSec .AllowMultiSelect = False .Title = "Lütfen yeni eklenecek Storyboard dosyasini seçiniz." .Filters.Clear .Filters.Add "Excel Macro-Enabled Workbook", "*.xlsm" .Filters.Add "Excel Workbook", "*.xlsx" .Filters.Add "All Files", "*.*" If .Show = True Then YeniSB = .SelectedItems(1) End If Dim […]

使用EXCEL中的函数通过地址或引用获取单元格的名称

我搜查了很多，但没有find任何好的答案！ 是否有任何内部函数通过传递其地址作为参数返回单元格的Name ？ 如果不是，通过提供地址/引用来获取我们为单元格定义的name的最简单方法是什么？ 例如，我将“test_name”定义为单元格B4的name ，其内容是“test”。 我想在Excel中的函数，如：CellName（adr），并使用它像CellName（B4），并返回“ test_name ”

使用图标集进行条件格式化 – 复制到整个行

我有3列百分比。 我想根据以前的百分比，在每个百分比的同一个单元格中放一个向上或向下的箭头。 例如：H10 = 54,110 = 55，p10 = 50 我想让L10用向上箭头阅读55用P10阅读50 。 那么我想把这个公式复制到列L和P的第500行。 我可以创build一行（ H10 ， L10和P10 ），但是当我试图将其复制到其他行时，它继续引用第一行（ H10 ， L10和P10 ）。 我试图删除“$”绝对引用，并得到一个错误信息，说我不能使用相对引用。 我怎样才能复制这种格式一路下来。 这里是一个链接到我正在使用的字段的屏幕截图（ H行， L行， P行