Tag: macros

Excel VBAmacros将所有以前保存的工作表replace为CSV文件？

这里是我用于将工作簿中的所有工作表保存为单独的CSV文件到用户可以通过文件夹选取器选取的特定path的代码。 但是，如果我对任何电子表格进行了任何更改并再次运行macros，则会提示“文件已存在于此path…..您是否要replace”。 如果我单击是，每个工作表都会出现提示。 如果我点击否，macros将引发错误 – 请参阅截图。 有没有办法，我可以修改macros只是为了replace所有的CSV文件，并提示完全？ Sub CSVAutomation() Dim ws As Worksheet, wb As Workbook Dim pathh As Variant Set wb = ActiveWorkbook With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False If .Show = -1 Then 'a folder was picked pathh = .SelectedItems(1) End If End With If pathh = False Then Exit Sub 'no folder picked; […]

删除不包含部分string的单元格？ 错误

我有一个excel列中的文件path和名称的长列表。 我正在处理一个代码，以删除不包含任何我已经放在数组中的任何部分string的单元格。 我得到一个错误“范围类的删除方法失败”。 我对VBA非常陌生，所以任何提示都会被赞赏，这里是我到目前为止： Sub Tester() Dim dontDelete As Variant Dim sKeep As String, x As Long Dim rngSearch As Range, c As Range Dim i As Long, j As Long dontDelete = Array("abel", "varo") For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 For j = LBound(dontDelete) To UBound(dontDelete) Set c = Range("A" […]

从特定的子项运行事件macros

我有一个有很多sub的模块： Sub a1 Sub a2 Sub a3 … Sub a10 在工作表中，我有一个事件macros： Private Sub Worksheet_Change(ByVal Target As Range) … End Sub Sub a1到a9在工作表中进行更改（添加列，更改值…） 我希望事件macros在a1-a9完成时开始工作（仅适用于a10）。 这是可行的吗？

如何从自定义function区中的button运行macros？

我使用自定义用户界面编辑器为Microsoft Office创build了自定义function区 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon> <tabs> <tab idMso="TabHome" > <group id="customGroup1" label="My Group" insertAfterMso="GroupEditingExcel"> <button id="customButton1" label="Click Me" size="large" onAction="test()" imageMso="HappyFace" /> </group> </tab> </tabs> </ribbon> </customUI> 我将excel 2007文件保存为Excel Macro-Enabled工作簿 这是我的macros。 它手动运行时工作正常 Sub test() For i = 1 To 10 For j = 1 To i Cells(i, j) = j Next Next End Sub 但是当我按自定义function区中的笑脸button时，会显示以下错误消息。 […]

Excelmacros：双循环添加两个单元toegther

背景：我正在尝试改进我用于清单的Excel电子表格。 我需要添加两个单元格，并将结果放回到第一个（原始单元格）。 这里是Excel工作表的截图 我创build了一个双循环遍历所有单元格并将它们添加在一起。 我遇到的地方是如何实际将两个单元格加在一起。 这是我的代码… Private Sub CommandButton1_Click（） Dim i As Integer, p As Integer, r As Integer, v As Integer ' i is for the column in Inventory ' p is for the column in Pending ' r is for the current row ' v is the holding variable for the Sum of […]

Excelmacros单元格地址增加

我可以通过使用macros来增加单元格地址吗？ 我正在实施Excel单元格颜色匹配function。 例如：当我将单元格“A1”更改为红色时，单元格“D1”将更改为红色。 如果将“C1”更改为红色，“F1”也将更改为红色。 所有需要增加3列。 现在我只需要修改“c.Address”+ 3，这样细胞就会去做D1。 我尝试使用c.Address + 3，但它不能工作。 任何帮助将不胜感激！ 谢谢！ Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each c In Worksheets("Sheet1").Range("A1:C1").Cells If c.Interior.Color = 255 Then Sheet1.Range(c.Address + 3 ).Interior.Color = 255 <<– Can't work Else Sheet1.Range(c.Address + 3 ).Interior.Color = white <<– Can't work End If Next c End Sub

macros基于两个单元格删除工作表中的重复项

我试图删除一个表中的所有重复的条件下，一列中的A和B列中的值在任何其他行中的列A和B中重复。 列数是无关紧要的。 有人可以显示我要去哪里错了吗？ 我现在的代码： Sub RemoveDuplicate() Dim rCell As Range Dim rRange As Range Dim lCount As Long Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Data") lCount = sh.Range("A2", sh.Range("A2").End(xlDown)).Rows.Count + 1 Set rRange = sh.Range("A2:B" & lCount) For lCount = lCount To 1 Step -1 With rRange("A" & lCount & ",B" & lCount) If […]

复制粘贴后转换为excel中的数字错误

我面临的问题从SAP导出文件复制和粘贴后，它要求转换为数字选项，这是错误的，而不转换为数字公式不起作用。 单元格值也只是数字。 我试图使macros，但它只能在单列上工作。 如何使它在多个柱子上一起工作，并使其更快，也因为它长时间卡住了exel。 代码转换为数字 Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True Columns("F:F").Select Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True Columns("G:G").Select Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo […]

如何selectmacros应该在哪里执行（在一个单元格中）

我有下面的macros，我想在单元格M153中执行，现在它只是列出A1单元格中的所有文件。 该macros应查找一个文件夹内，并返回该文件夹中的所有文档名称。 如果有人能帮助我，那会很棒。 这里是代码： Sub FilnamnRitningar() Dim varDirectory As Variant Dim flag As Boolean Dim i As Integer Dim strDirectory As String Dim ws As Worksheet Dim rng As Range Dim a As String Dim o As String Dim a1 As String Dim a2 As String a = Chr(228) a1 = Chr(229) o = Chr(246) […]

如何从另一个工作簿在密码保护的工作簿中运行macros？

我正在使用其他人开发的.xlsm文件。 我需要运行名为SimulateHouse的macros，但是.xlsm文件受密码保护，我无法访问有关代码的任何信息。 反正我可以从其他工作簿运行这个macros吗？