Tag: excel vba mac

Excel for Mac VBA – 另存为HTML会在文件名中添加一个意外的换行符: 我在Excel 2011 for Mac 2011中创build了一个小的VBA脚本，每次保存电子表格时都会自动保存HTML格式的电子表格副本（与原始文件位于同一位置）。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim folderPath As String Dim filename As String folderPath = Application.ActiveWorkbook.Path filename = folderPath & Application.PathSeparator & "dashboard.html" ActiveWorkbook.SaveAs _ Filename:=filename, _ FileFormat:=xlHtml End Sub 问题是生成的文件名最后有一个换行符，这真的很奇怪。在terminal ，文件看起来像这样： -rw-r–r–@ 1 user group 29K Feb 21 10:24 dashboard.html? drwxr-xr-x 12 user group […]

编译错误：期望的函数或variables: 我有这个macros（在Excel 2016 / Windows中编写），作为一个非常简单的预订工具，检查资产当前是预订还是免费。根据这一点，它可以在预订期间结束时或下一个预订期间将在另一个工作表中开始时写入： Sub Schaltfläche1_Klicken() Worksheets("Tabelle10").Activate With Columns(4) .Find(what:="*", after:=.Cells(1, 1), LookIn:=xlValues).Activate End With ActiveCell.Offset(0, -3).Select If Selection.Value = "TODAY AM" Then Sheets("HTML Output").Range("B3").Value = "Desk booked from this afternoon. Next availability" ActiveCell.Offset(0, 3).Select Do Until IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop ActiveCell.Select ActiveCell.Offset(0, -2).Select Selection.Copy Sheets("HTML Output").Range("C3").PasteSpecial xlPasteValues ActiveCell.Offset(0, 1).Select Selection.Copy Sheets("HTML Output").Range("D3").PasteSpecial xlPasteValues […]

VBA匹配function和嵌套循环查错: 我有两张床单。一个是表格，包含我想要input到另一个的数据。另一个看起来就像是一张甘特图，名字倒在旁边，可以看到顶部（见这里）。我希望程序以下面指定的方式运行，但是按原样运行，它将返回：运行时错误“438”：对象不支持这个属性或方法上 For Each Row1 In Resource 我尝试了各种修复，但每次我调整一个错误，我似乎造成另一个！检查表列“分配的资源”，并在日历表的第一列中find匹配的名称。检查表格列“分配date”，并在日历表的第一行find匹配的值。 select这些相交的单元格（列号分别为“Date Allocated”和行号“Resource Allocated”的单元格）。根据第三个表格列“时间”偏移列号。用代码中指定的RGB颜色填充单元格。重复每一行。 Option Explicit Sub CalendarSync() Sheets("Log").Select Dim Resource As ListColumn Dim Dates As ListColumn Dim ToD As ListColumn Dim Row1 As ListRow Dim Row2 As ListRow Dim Row3 As ListRow Set Resource = […]

Excel中的平均比率公式: 我有两个单元格，其中包含以下数据： W7=2:1, W8=2:1 我试图得到这两个单元的平均值，但不能算出来，因为他们是比例。显然，（2：1 + 2：1）/ 2 = 2：1的平均值应该是2：1，但在Excel中进行计算似乎并不那么简单。有没有一个公式可以做到这一点？一个小方面说明，我用来创build比例的公式是： =ROUND((U8-M8)/(M8-V8),2)&":1" 所以你可以看到，1是刚添加，每次都是一样的。这个数字实际上并没有被计算出来。

如何打开保存在特定位置的Excel文件，使用VBA在工作表的最后一个选项卡中创build一个新选项卡: 我不是从软件背景，并试图写一个macros，以避免重复的工作，导致错误。请随时提出一些事情，使其更好。我试图从这个网站从不同的程序，并使其工作。先谢谢你。这是我想要做的。 a）我想从当前文件（说文件1）打开保存在特定位置的Excel文件（可以说文件2）。作品 b）在文件2中创build一个与该文件Works中最后一个选项卡相同的新选项卡 c）使用文件1中的2个不同的单元格重命名创build的选项卡。（自动重命名将基于文件1单元格，但我只能pipe理popup，要求我进入，但不重命名文件）。不工作/部分工作 d）popupinput名称和另外2个input在不同的单元格（我只能得到你的名字，我怎么能得到3input3个不同的单元格）不工作/部分工作 e）复制文件1中的2个单元格，并复制到新创build的文件夹2中。不起作用这是我试图写的代码。 Sub Filling_List() Dim sPath As String, sFile As String, wb As Workbook, i As Integer 'Application.ScreenUpdating = False sPath = "C:\Users\aricsonp\Desktop\Filling list macro\" sFile = sPath & "ArF Filling List.xlsm" Set wb = Workbooks.Open(sFile) ActiveSheet.Copy After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = InputBox("New Name:") If […]

Excel 2011 Mac VBA Combobox值: 在2011年的Mac上，我有一个电子表格与两个控件。一个combobox和一个button。 combobox被命名为作物，我想访问该框的值单击button时。在Windows Office中显而易见的Crops.Value似乎不工作，我得到一个错误，说作物对象丢失。这个（简单）任务可以在Mac上使用VBA吗？

macros提示用户selectCSV文件导入工作簿中的现有工作表: 我正在运行一个macros，它会自动将csv文件导入到我的工作簿中的特定工作表中。但是，我想通过让用户select要导入的文件而不是让macros自动获取csv文件来增加更大的灵活性，因为命名和目录一样可以更改。我是VBA新手，一直试图更好地理解MsoFileDialogType和GetOpenFilename，但是很难将概念/实现理解为我的代码。我最终想要的是让用户单击工作簿前端的button。提示消息以select要导入的第一个csv文件。此csv文件将被导入到工作簿temp1中的一个预先命名的工作表中。但是，由于数据文件成对出现，我希望用户能够在第一个文件之后select下一个csv文件到temp2中。我目前所拥有的是： Worksheets.Add ActiveSheet.Name = "temp1" With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;MAC Directory path here" _ , Destination:=Range("A1")) .Name = "temp 1 03.02.12" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .TextFilePromptOnRefresh […]

MAC上的VBA打开/closures工作簿会报错: 以下macros在Windows上没有问题，但在MAC上引发运行时错误。问题是我没有一个MAC来testing这个。代码简单地从另一张纸上的单元格中拾取2个文件（A和B）的位置，打开它们，将数据复制到另一张纸上并进行一些计算。 Sub Compile() Application.ScreenUpdating = False ThisBook = ActiveWorkbook.Name 'open A Workbooks.Open (Sheets("Control").Range("C2")) ABook = ActiveWorkbook.Name 'copy data from A Workbooks(ThisBook).Sheets("Data").Cells.Clear ActiveSheet.UsedRange.Copy Workbooks(ThisBook).Sheets("data").Range("A1") 'close A Workbooks(ThisBook).Activate Workbooks(ABook).Close False 'prep A Sheets("data").Activate C = Range("A" & Cells.Rows.Count).End(xlUp).Row 'some calculation 'open B Workbooks.Open (Sheets("Control").Range("C5")) BBook = ActiveWorkbook.Name 'prep B D = ActiveSheet.Range("A" & Cells.Rows.Count).End(xlUp).Row 'some […]

发生以下错误：应用程序定义的或对象定义的错误1004 VBAProject: Function copyHeader(inputrange As String, inputsheet As String, outputcell As String, outputsheet As String) Sheets(inputsheet).Range(inputrange).Copy Destination:=Sheets(outputsheet).Range(outputcell) Application.CutCopyMode = False Cells(1, 1).Value = 4 'probably better to make this dynamic End Function Function copyDetail(inputrange As String, inputsheet As String, outputcell As String, outputsheet As String) Sheets(inputsheet).Range(inputrange).Copy Destination:=Sheets(outputsheet).Range(outputcell) Application.CutCopyMode = False Cells(1, 1).Value = 4 'probably better to […]