Tag: macros

保存工作簿副本时撤防某些macros

我已经build立了一个macros来创build和保存原始工作簿的副本。 不过，我不想让原来的某些macros在副本上运行。 有什么方法可以让我获得macros，创build并保存原始副本，“解除”某些macros？ 在此先感谢您的帮助！

如何在vba excel中初始化我的柜台

我的vba项目有问题。 我的工作手册有4张（草稿，cky，co and和bey），在表格草稿中有我所有的数据，我想重新组织它们，表格“草稿”的列“G”包含值（cky，coy我希望我的macros通过colums并复制所有具有相同值的单元格，并将它们粘贴到单元格（A2）开始的对应表单中，例如：我希望macros复制所有数据有“cky”，并将其粘贴在表单“cky”中，从单元格A2开始，依此类推/下面你可以看到我迄今为止做了什么： Sub MainPower() Dim lmid As String Dim srange, SelData, ExtBbFor As String Dim lastrow As Long Dim i, j, k As Integer lastrow = ActiveSheet.Range("B30000").End(xlUp).Row srange = "G1:G" & lastrow SelData = "A1:G" & lastrow For i = 1 To lastrow If InStr(1, LCase(Range("E" & i)), "bb") <> 0 Then Range("G" & […]

消息框返回macros完成后的任务？

我有一个macros从我的电子表格数据选项卡中删除特定的不需要的数据。 我是VBA的业余爱好者，所以我确信我的macros可能会更好，但是首先它会根据表中的3个标准删除重复项，然后过滤3列并删除基于所述filter的每行数据，清除所有一旦macros完成运行，筛选器将提示一个完整的消息框。 有什么方法可以添加到消息框或创build一个用户表单，将返回已完成的操作（＃删除重复，＃行删除等）？ 我知道当你只使用数据选项卡中的重复删除function，它会警告有多less被删除，剩余多less行。 这是我的新手脚本。 Sub Del_Dups_and_Remarks() ' Del_Dups Application.ScreenUpdating = False Range("DenialsTable1[[#Headers],[Payment Tx ID]]").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Range("DenialsTable1[#All]").RemoveDuplicates Columns:=Array(2, 6, _ 14), Header:=xlYes ' Remark_Removal ActiveSheet.ListObjects("DenialsTable1").Range.AutoFilter Field:=19, _ Criteria1:="=MEDICAID [239]", Operator:=xlOr ActiveSheet.ListObjects("DenialsTable1").Range.AutoFilter Field:=22, _ Criteria1:="Y" ActiveSheet.ListObjects("DenialsTable1").Range.AutoFilter Field:=9, _ Criteria1:="N598" Application.DisplayAlerts = False Range("DenialsTable1").Offset(1, 0).Select Selection.Delete Application.DisplayAlerts = True 'Clear_Filters Range("A6").Select ActiveSheet.ShowAllData Range("A7").Select Application.ScreenUpdating […]

如何在不同的工作簿之间切换以复制/粘贴信息

这是我第一次尝试在工作中编写一个macros，所以如果这很简单，请在我的代码中find一个错误的解决scheme， 基本上，我有一个原始数据文件，我想复制不同的过滤数据到一个新的工作簿。 我已经通过将M列复制到新创build的工作簿的部分，但是我不知道如何使代码返回到原始数据文件并复制另一列，然后将其粘贴到同一个新工作簿中的另一列中。 这是我到目前为止，与'''的线是我试过，并得到错误。 不知道为什么它不工作 Dim FilePath As String Dim SourceFile As String Sub Reconcile() FilePath = Sheets("Reconcile").Range("E5") 'location of saved attachment If Right(FilePath, 1) <> "\" Then FilePath = FilePath & "\" SourceFile = Sheets("Reconcile").Range("E7") 'name of attachment file FilePath = FilePath & SourceFile Application.DisplayAlerts = False Application.ScreenUpdating = False Workbooks.Open Filename:=FilePath, UpdateLinks:=False 'open […]

VBA错误91 – 无法设置我的范围

我已经完成了我非常粗略的代码，但是我正在优化它。 我已经定义了我的工作表，但现在我需要定义我的2个范围，rngTo和rngFrom。 rngTo设置没有问题，但rngFrom抛出一个错误91，我不明白为什么。 它应该与另一个不同？ 下面是我认为是相关的代码的一部分，但可能有一些昏暗的不在这个快照中使用： Sub Worksheet_UpdateAllItemCostData() Dim material As Variant Dim fndEntry, rngTo, rngFrom As Range Dim wb1 As Workbook, wb2 As Workbook Dim wsTo, wsFrom As Worksheet Dim lr As Long, I As Long, J As Long Const sPOS As String = "Pos. " Application.Calculation = xlCalculationManual ' Disable Application.ScreenUpdating = False Application.DisplayAlerts […]

Excel以相同的顺序将数据从一张纸张插入其他纸张

我正在使用下面的代码将数据从一个表插入到其他表。 但是，这个表格似乎被颠倒过来了。 我如何从底层读取而不是顶端 码： Sub InsertData() Dim dc As Range With Sheets("Open Tickets") For Each dc In Intersect(.Range("J:J"), .UsedRange) If dc.Value2 >= 14 Then dc.Resize(1, 1).EntireRow.Copy Sheets("Dashboard").Rows(6).Insert Shift:=xlDown End If Next End With End Sub

Excel-向下移动多个数据单元格，并在下面插入行

我有一个Excel 2007工作表，其中包含10个列的1Klogging。 问题是，一个单元格包含多个数据，我需要向下移动到每个单元格，随着它，我需要插入新的行向下移动数据中断其余的行和重叠。 他们是一个VBA代码或macros程序，这样做。 请帮忙。 这是Excel表格。 Category | Desciption | Sizes | Price —— | —— car | Car Description | 123 – M | $20 1245 – XL | $50 1243 – XXL| $55 Car2 | Car2 Description | 123 – M | $20 1245 – XL | $50 1243 – XXL| $55 我希望它清楚我想达到什么。 […]

复制macrosvba中可见的所有数据

我试图select单元格可见的所有数据区域。 Range(Selection, Selection.SpecialCells(xlLastCell)).Select 我用这个vba来select表单中的所有数据。 Range("A1:A" & Cells(Rows.Count,"A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy 我试过这个方法，但没有奏效 有没有其他的方式来select与VBA工作表中的所有可见的数据？

Mac Excel：无法在Visual Basic编辑器中编写代码

我试图在编辑器中创build一个macros，就像互联网所暗示的那样。 但是，如屏幕截图所示，我无法在编辑器的右侧input任何内容。 下侧的button也没有工作。 这是写你的代码的正确方法吗？

从数据透视表中取数据并在特定标题下插入

我刚刚创build了一个macros，使我的数据透视表和它的工作非常好。 下面介绍数据透视表的格式。 这个文件被称为Sheet1 Name Hours Bob 100 Jones 200 Jilly 300 etc etc 现在我有另一个叫做Company文件，它的顶部有很多头文件，这些头文件是从企业网站上读取的。 不幸的是，在标题中缺less名称和小时数列。 inheritance人目前看起来如何 Employee No. Company Code Cost Centre Level Organization Code etc etc 我希望它看起来像Employee No. Name Hours Company Code … name和hours应该从数据透视表中取出。 任何想法如何我可以做一个脚本来做到这一点？ 谢谢。 更多信息 最初有一个名为Cado的文件 Cado有很多标题即 Pers.No Employee Date Hours Time … … 12345 Bob June 6 123324 joe June 5 […]