Tag: macros

excel计时器macros不工作，“macros找不到或macros未启用”

所以我build立了这个计时器macros，不止一个YouTube用户指定了如何以完全相同的方式构build，但它仍然拒绝工作。 Sub StartTimer() Application.OnTime Now + TimeValue("00:00:01"), "nextTime" End Sub Sub nextTime() If Sheet1.Range("I1") = 0 Then Exit Sub End If Range("I1").Value = Range("I1").Value – TimeValue("00:00:01") StartTimer End Sub Sub StopTimer() Application.OnTime Now + TimeValue("00:00:01"), "nextTime", , False End Sub StartTimer子例程中的代码行出现问题。 nextTime方法根本不会被识别，因为Error说：macros可能在此工作簿中不可用，或者所有的macros可能被禁用。 这显然不是我的所有其他macros工作的情况下，子程序就在那里。 你有什么build议？

VB中的macros在Excel 2016中的多列组

我有以下的input： 我想写一个macros，它将按城市分组，然后是车号。 在输出中，我想要从MIN（开始date）到Max（结束date）的列以及每行作为唯一车号。 每当车辆被占用时，标记为红色，否则为绿色。 期望的输出： 我知道逻辑，但如何在macros中实现，我不知道。

Excel VBA在Mac上运行shell命令？

我想知道如何在Excel中使用macros运行shell命令？ 我想通过shell运行chmod +x /Users/asdasd/Music/playlistLoad.sh 。 我已经实现了这个使用Python和os.system("Command here")但有什么这样的Excel VBA？ 它必须在Mac上工作，不仅仅是Windows。 谢谢！！

Excel 2010macros

嗨，大家好我是新来的macros和VBA。 我需要创build一个macros，将多行中的多个单元格连接到一个单一的string单元格换行/回车 例如select图像： 串联后应该看起来像这样： 连接成一个单元格： 我当前的代码并没有连接到一个单元格，但不添加换行符： Sub concat_3() Dim row As Range Dim cell As Range Dim txt As String For Each row In Selection For Each cell In row.Cells txt = txt & cell.Value Next cell txt = txt & vbCrLf Next row Selection.ClearContents txt = Left(txt, Len(txt) – 2) Selection(1).Value = txt End […]

使用button标题作为variables的Excel

这必须是一个显而易见的事情，但我想要使用在Excel中按下的命令button的名称作为macros中的variables。 这个macros就像设置一个单元格的值到button的名字一样简单; 因此，如果button标题为“10”，单元格值将是“10”，同一个macros需要为所有数字button标题/名称工作。 再次，对不起，如果这是明显的！

从工作表中获取文件夹path以计算Excel VBA中该文件夹内的文件

我有下面的代码，它返回文件夹中的文件数量。 Sub sample() Dim FolderPath As String, path As String, count As Integer FolderPath = "C:\Documents and Settings\Santosh\Desktop" path = FolderPath & "\*.xls" Filename = Dir(path) Do While Filename <> "" count = count + 1 Filename = Dir() Loop Range("Q8").Value = count 'MsgBox count & " : files found in folder" End Sub 我需要参数化FolderPath作为Excel工作表本身的input，以便在单元格A1中input文件夹path并获取B1中的文件号。 […]

Excel VBA：如何删除所有表中的空行

第一篇文章在这里，我一直试图删除在Excel 2010中使用此代码的每个工作表中的空行： Private Sub CommandButton1_Click() Dim I As Integer 'For all sheets… For I = 1 To Sheets.Count 'select corresponding sheet Sheets(I).Select Sheets(I).Activate 'write delete code For fila = 1 To 10 If Cells(fila, 4).Value = "" Then Rows(fila).Delete End If Next fila 'Go to next sheet Next End Sub 但似乎这个代码只会删除我的第一个活动工作表上的行。 任何想法如何使它在每个表中删除？ 谢谢

我的自定义函数使用代码运行成功，但使用公式返回#VALUE

我创build了一个函数来获得具有给定产品编号的产品属性。 它运行成功，当我从模块运行，但不是从公式运行。 function（编辑）： Public Function ÖZELLİKGETİR(İsim As String, Özellik As String) As String Dim Okunan() As Römork Okunan() = VERİGETİR() Dim i MsgBox UBound(VERİGETİR()) '0 ReDim Preserve Okunan(UBound(VERİGETİR()) + 1) MsgBox "Reached" 'Even this is not reached For i = 0 To UBound(Okunan()) If Not Okunan(i) Is Nothing Then MsgBox "Reached" If Okunan(i).ÜrünKodu = İsim […]

Excel VBA：下标超出范围（从Excel中的多个逗号分隔string中提取子string）

Sheet1上有以下列表： COLUMN A COLUMNB COLUMN C 1 ADDRESS Services(s) USED VEHICLE(S) USED 2 Address1 Service4 Vehicle1, Vehicle3, Vehicle4 3 Address1 Service3 Vehicle1, Vehicle3, Vehicle4 4 Address2 Service5 Vehicle1, Vehicle2, Vehicle5 5 Address2 Service2 Vehicle1, Vehicle6 6 Address2 Service1, Service2, Service3, Service4, Service5, Service6 Vehicle2, Vehicle5, Vehicle6 7 Address1 Service1, Service2, Service3, Service4, Service5, Service6 Vehicle2, […]

使用任务pipe理器打开Excel文件，运行macros，保存文件，然后closures

我想每天早上5点打开一个excel文件，运行一个macros，它将数据和文件pipe理器/数据组织起来，保存并closures文件。 我目前有任务pipe理器与.vbs脚本来打开下面的文件，并打开文件，但它closures保存窗口popup，并尝试将文件保存为原件的副本。 Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True ' Import Add-Ins 'xlApp.Workbooks.Open "G:\CNC\Schiermeyer\Active Job Files\Autorefresh" "C:\<pathOfXlaFile>\MyMacro.xla" 'xlApp.AddIns("MyMacro").Installed = True 'Open Excel workbook Set xlBook = xlApp.Workbooks.Open("G:\CNC\Schiermeyer\Active Job Files\Autorefresh\AutoRefresh Active Job Report.xlsm", 0, True) ' Run Macro xlApp.Run "sheet1.ActiveJobReportRefresh" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Quit […]