excel-vba-mac

    0热度

    1回答

    我无法为Macintosh运行Excel,但由于Excel VBA编译器常量VBA7是在Excel(针对Windows)2010中引入的,因此我认为它也适用于Mac Excel 2011。 但是,显然这个代码时,在Mac的Excel 2011运行了“其他”部分(适用于Excel 2007中)编译: #If VBA7 Then 'Set constants here for Excel 2

    1热度

    1回答

    我正在尝试修改代码以在PC和Mac上运行,并且遇到访问网络文件夹上文件的问题。以下是目前适用于PC用户的代码。我知道Mac的文件路径的语法是不同的,但我似乎无法做到。我需要协助我需要做些什么改变吗? Dim filename1 As String Dim Path1 As String Dim Name1 As String Path1 = "\\Spr1rfpfil\groupdata\a

    -2热度

    1回答

    这是我的代码。请我需要你的帮助..在此先感谢 次更新() ActiveSheet.DisplayPageBreaks =假 sheet3.Activate Range("A2:AI50").Select Selection.Delete Shift:=xlUp Dim ws As Worksheet Set ws = Sheets(Sheets.Count) Dim LR As Long

    1热度

    1回答

    我写了一个excel VBA宏,它与复选框一起工作。要检查复选框是否被选中,我使用以下代码: Sheet4.Shapes("dietary").OLEFormat.Object.Value 这适用于Windows PC;然而,一位同事使用了一个mac,并在那里产生了一个错误。 如何以与Windows和Mac兼容的方式使用复选框?

    0热度

    1回答

    查找下一个问题堆栈溢出 我有什么变成一个长的VBA脚本。其目的是让用户输入全部或部分姓氏和名字,然后编辑记录。问题是数据可能有重复的搜索关键字。例如,John Smith的密钥ID是SmithJohn。假设表中还有一个Ray Smith(ID = SmithRay)。如果用户搜索史密斯,约翰史密斯将得到击中。如果用户真的想要Ray Smith,我已经给他们一个按钮来转到我的三页表单的下一页并再次搜

    3热度

    1回答

    我有一段代码,通过查看两列(第3列& 5)从表中删除重复项。 lRow = .Cells(Rows.Count, "A").End(xlUp).Row '.Range("A1:BR" & lRow).RemoveDuplicates Columns:=Array(3, 5), Header:=xlYes .Range("$A$1:$BR$" & lRow).RemoveDuplicates C

    0热度

    1回答

    寻找一些相当基本的Excel宏的帮助来读取一个Excel工作表上单元格中的值,然后找到值在第二个工作表中,并将预定义值输入到该行中的指定单元格中。 要打破它...... 阅读sheet_1指定单元格的值(这将是一个ID号) 转到sheet_2,发现column_a ID号 去一个给定列该行中 写一个预先定义的值进入细胞 谢谢!

    1热度

    1回答

    当运行这个于2011年的Excel的Mac,我得到这个错误是: 运行时错误“1004”: Microsoft Excel不能找到匹配要取代的数据。选区中没有任何单元格包含您输入的内容,或没有记录符合条件。 奇怪的是程序运行并且公式在我希望的单元格中正确输入。 的代码高亮行,当我点击调试是 ActiveSheet.Range("Q" & rowNum - 1).FormulaR1C1 = "=sum

    0热度

    1回答

    我有一张含有工厂详细信息的表格。缩写,属,物种,通用名等 此表是我的参考表。 我有一个库存表,我可以在其中输入代码,它们在哪里,有多少,多大等等。它还填写了在第一个表上执行查找的通用名称。 现在,当输入缩写时,我希望自动完成预填充,所以当我键入前几个字母时,所有匹配的缩写都会显示出来。 事情要避免: 我不想使用的下拉列表中200个项目。滚动的方式太多了。 我根本不想使用鼠标。输入几个字符,标签到下

    0热度

    1回答

    我打算在vba中编写一个脚本,用于将多个文本文件导入到excel(一张),然后在一张图上绘制它们。 我正面临刷新BackgroundQuery问题并落在1004运行时错误。 我该如何解决? 感谢, 的Eyal 这里是我的代码: Sub fring1() Dim fpath As String Dim fname As String Dim i As Integer