Tag: excel vba mac

比较两列与ID

我正在比较两列A和B.列A和B包含来自数据库的ID。 身份证是13位数字，但大多数情况下他们是11位数字。 情况1：如果列A有一个ID ABC02369000，列B有一个ID ABC02369000，结果是匹配的。 情况2：如果列A有一个ID ABC14285500，列B有一个ID ABC1428550000，结果仍然匹配。 案例3：如果列A的ID为ABC15184200，列B的ID为ABC15144200，则结果不匹配。 我想有一个这个标准的代码。 如果匹配，则突出显示为绿色，否则显示为红色。 我已经尝试了条件格式。 我会很高兴，如果我可以在代码中。 Sub RangeTest() Dim targetWorksheet As Worksheet Dim i As Long Dim totalrows As Integer For i = 2 To 112 Set targetWorksheet = Worksheets("Preparation sheet") With targetWorksheet Cells(i, 3) = IIf(Cells(i, 1) = Cells(i, 2), "Yes", "NO") Cells(i, 3).Interior.Color = IIf(Cells(i, 3) […]

macros如果作为加载项加载失败，则作为个人工作簿的一部分运行

我有一个三angular分布function，从一个添加运行，但是当我尝试从我的个人工作簿中的一个模块运行时，给出了#Name错误。 我改变了macros的名字，以确保这不是一个问题。 这是代码。 Public Function TriangD2(mn As Double, md As Double, mx As Double) Application.Volatile rr = Rnd() Calculate ' Triangular If rr = ((md – mn) / (mx – mn)) Then TriangD = md Else If rr < ((md – mn) / (mx – mn)) Then TriangD = mn + Sqr(rr * (mx – […]

链接到源数据仍然不适用于OSX！ – VBA解决方法问题

拥有和更新一张150张幻灯片的pipe理难度很大，自动化不起作用。 在Windows上，您可以轻松更新Excel中的数字和连通图（链接到源数据）的更改。 我不知道有没有人想知道，但这似乎是一个长期以来已知的问题： 为了说明我想要通过编码实现的目标，在这里我们要讲述一下这个故事：在我们公司里，所有的系统都在一起。 我使用Mac（和Office Mac），而其他人请求相同的数据，并使用Office Windows进行操作。 当我发现它的苹果系统的安排，禁用MSO程序或自动化的许多function。 我在Windows和Mac上使用Officetesting了这个自动更新故事，并执行了以下步骤： 创build一个Excel文件，并input一些数字 从这个图上做出来的。 在一个新的Powerpoint文件中“特殊粘贴”图（链接到数据源 – 不，这不是一个错误） 在Excel中更改数字，并更新Powerpoint中的graphics。 保存并closures两个文件在一个文件夹中。 （并没有改变路线） 再次打开Excel，更改数据并打开Powerpoint（比较Office Windows和Office Mac） Office Windows：Powerpoint要求我更新所有链接的数据。 数据已更新 Office Mac：什么都没问。 数据未更新。 所以这只是对更大问题的描述。 为了解决这个问题（这可能只是几年之后才能确定的……这已经是一个已知的问题），我正在尝试使用VBA。 在我和Windows之间的差异代码，最后应该有一个代码为所有用户。 我到目前为止做了什么： 根据操作系统运行代码（Mac是问题!!） 复制范围 创build图表 将范围粘贴到图表中 将图表保存为图像 – >这里我有问题，因为在Mac上保存的文件是空的（0字节）。 注：我的示例Excel很容易，包含3张：UKI，法国和图片。 UKI和法国是带有数字和graphics的示例表，由这些表单创build。 图表的范围被复制并用于逐个复制到图片中。 其目的是复制图表并保存，并对每个国家/地区（例如UKI法国）重复此操作。 我挣扎的地方是出口部分。 在Mac文件通常保存在一个特殊的微软文件夹…. / users /…/microsoft.com/data/ …… 当我尝试地址“特殊文件夹”时; 如桌面，图片，文档（等）我收到一条错误消息，说“权限被拒绝”。 这里的苹果沙箱需求似乎阻止我。 只有特殊的文件夹“图片”似乎工作：保存的文件出现，但就像在微软的文件夹，他们被创build为空。 我是VBA新手，所以这可能是一个代码混乱 – 但为什么保存的JPG / […]

在Excel OS X中自动复制设置从文档到文档的列

我不是技术专业人员，但是足够了解最基本的说明。 我需要将某个行从一个Excel复制到另一个。 例如，我已经给了一个巨大的Excel，我只需要从6列，T列，AP AP列FL 我想创build一个macros，使我能够做到这一点。 任何人都可以协助

如何在Excel 2011 for Mac中打开外部网站？

在Excel 2010中，我很容易创build一个打开网站，从网站select数据并将其粘贴到工作簿的macros。 我到处search了解如何在运行Excel 2011的Mac上执行此操作，但是我猜测，因为他们只是将VBA重新引入到Office版本的Mac版本中 ，因此可能还没有function。 你能帮我弄清楚如果可能的话怎么做？

在初始保存时保存名称的报价？

此代码有效，但有些奇怪的事情发生时，当我试图保存文件，它显示在"Open Order Log – 10-4-12.xlsx"而不是Open Order Log – 10-4-12.xlsx这是有原因吗？ NewFile = Application.GetSaveAsFilename(InitialFileName:="Open Order Log – " & Format(Date, "dd-mm-yyyy") & ".xlsx") 解决了它： wbBK2.SaveAs Dir & Application.PathSeparator & "Open Order Report -" & Format(Date, "mm-dd-yyyy") & ".xlsx" 这是一个有点扭曲，但它的作品。

VBA的date不能在Excel 2011中工作？

这里是我的代码，我正在尝试，它在PC上，而不是在Mac上，顺便说一句，运行这个代码，并创build一个Excel表单，命名，添加一个选项卡，更改所述选项卡的颜色，更改名称然后调换数据，同时将单元格的格式和单元格的宽度和高度保持为新的工作表。 这工作，在个人电脑上….但是当我到一台Mac，它不。 我进入参考文献，这就是我所看到的。 我看到参考编辑控制，和微软脚本运行时间丢失。 我禁用了这两个，脚本仍然给我一个错误： wbBK2.SaveAs Dir & Application.PathSeparator & "Open Order Report -" & Format(Date, "mm-dd-yyyy") & ".xlsx" 错误发生在(Date, "mm-dd-yyyy")具体是date部分。 我无法弄清楚为什么这是真的发生。 如果有人可以仔细阅读，给我一个答案和解决scheme，不胜感激。 我得到的Error '9 Subscript Out Of Range是一个Error '9 Subscript Out Of Range我不明白为什么这个错误只显示在Mac上，而不是一台PC。 Option Explicit Sub OpenOrderReportExport() Dim wsJL As Worksheet 'Jobs List Dim wsPOT As Worksheet 'PO Tracking Dim wsTNO As Worksheet 'Tel-Nexx […]

checkbox不工作在Mac上

我写了一个与checkbox一起工作的excel VBAmacros。 要检查checkbox是否被选中，我使用下面的代码： Sheet4.Shapes("dietary").OLEFormat.Object.Value 这在Windows PC上运行良好; 然而，一个同事使用一个mac，并在那里产生一个错误。 如何以与Windows和Mac兼容的方式使用checkbox？

input公式时运行时错误“1004”

虽然在excel 2011 for mac上运行这个，我得到这个错误是： 运行时错误“1004”： Microsoft Excel找不到要replace的匹配数据。 选区中没有任何单元格包含您input的内容，或没有logging符合条件。 奇怪的是，程序运行，公式input正确的单元格，我希望它是。 点击debugging时突出显示的代码行是 ActiveSheet.Range("Q" & rowNum – 1).FormulaR1C1 = "=sum(R[-" & rowsToSum & "]C[-11]:RC[-11])/abs(sum(R[-" & cellsToSum & "]C[-13]:RC[-13]))/100" 完整的循环与错误， For rowNum = 2 To lastRow + 1 'checks if cells A through O in a given row are empty If WorksheetFunction.CountA(Range(Cells(rowNum, 1), Cells(rowNum, 15))) = 0 Then rowsToSum […]

计算同一列中的单元格之间相同文本值的标准偏差

最近几天我一直试图在Excel中创build一个macros，它可以计算出标准偏差，这个标准偏差将从列A中的不同单元格之间的相同文本值的列B取值，并将结果提供给列C中相应的单元格。在我的表格在列A中有许多不同的文本值，在列B中有相应的值。我想从列A中的相应同一文本的第一行到最后一行的列B的所有值计算这些值的标准差，并显示导致列C 例如，当它从第一个单元格（aass）开始时，那么它必须计算所有的aass ，然后从B列的相应单元格中取值，然后计算标准偏差。 请帮助我，我很乐意听到你们的声音。 我正在试图展示我的工作表，如下所示： column A column B column C text value result(standard deviation) aass 112 35.16 aadd 243 12.9 ffdd 523 108.55 aass 198 35.16 aadd 252 12.9 aass 136 35.16 ffdd 342 108.55 ffdd 312 108.55 aadd 222 12.9 aadd 255 12.9 ffdd 322 108.55 aass 112 35.16 jjhgf 487 25.8 pouwe […]