Tag: macros

macros没有完全执行

所以我有以下的macros Private Sub Worksheet_Change(ByVal Target As Range) BeginRow = 178 EndRow = 178 ChkCol = 8 For RowCnt = BeginRow To EndRow If IsError(Sheet1.Cells(RowCnt, ChkCol).Value) Then Sheet1.Cells(169, ChkCol).EntireRow.Hidden = True Sheet1.Cells(170, ChkCol).EntireRow.Hidden = True Sheet1.Cells(171, ChkCol).EntireRow.Hidden = True Sheet1.Cells(172, ChkCol).EntireRow.Hidden = True Sheet1.Cells(173, ChkCol).EntireRow.Hidden = True Sheet1.Cells(174, ChkCol).EntireRow.Hidden = True Sheet1.Cells(175, ChkCol).EntireRow.Hidden = True Sheet1.Cells(176, […]

在一个工作表中返回值，并将值返回到右侧

我的任务是创build一个像VLOOKUP一样的macros，但规模更大。 基本上，我们希望macros查看列顶部的值，然后在不同的表格列中search该值。 如果find该值，则应将单元格中的值返回到其右侧。 完成后，应删除该列中的任何重复值和空白单元格。 然后，我需要代码循环到下一列并重复，直到没有更多的值留下来查找。 我可以完美地获得第一列数据，但似乎无法使其在后续列（循环或直接引用）上工作。 任何人都可以指向正确的方向吗？ （请注意，由于每行的数据量很大，我禁用了最后一行来testing10行的循环）。 Option Explicit Sub ReturnActions() Dim itemNumber As String Dim finalRow As Integer Dim i As Integer Dim ws1 As Object Dim ws2 As Object Set ws1 = Worksheets("Intermediate_Data") Set ws2 = Worksheets("Final Workings") ws2.Activate Range("A2").Select itemNumber = ws1.Range("A1").value finalRow = ws2.Range(ActiveCell, ActiveCell.End(xlUp)).Select ws2.Activate 'For i = 2 […]

不完全执行Excel Excel VBAmacros的工作簿

我有6个文件逐个执行macros。 带有VBA代码的第一个文件（主文件）打开剩余的5个文件并启动VBA连锁反应。 第二个文件做macros工作并启动第三个文件的工作，并且一直到第六个文件。 然后第6个文件引用第1个文件的macros（master），它应该closures所有5个工作簿（除了这个1stone）。 第六个工作簿的代码如下所示： Application.DisplayAlerts = False ThisWorkbook.RefreshAll Workbooks("6th_file.xlsm").SaveAs Filename:= _ "[URL]6th_file_htm.htm" Application.Run ("refresh_tool.xlsm!CloseAll.CloseAll") 然后它转到： Option Explicit Sub CloseAll() Dim wb1 As Workbook Dim wb2 As Workbook Dim wb3 As Workbook Dim wb4 As Workbook Dim wb5 As Workbook Set wb1 = Workbooks("wb1.xlsm") Set wb2 = Workbooks("wb2.xlsm") Set wb3 = Workbooks("wb3.xlsm") Set wb4 = […]

Excel颜色范围条件macros

我是macros指令的新手，我无法完成一个非常简单的任务。 我必须给包含数字的单元格指定一个特定的颜色，如果它在100-199之间，它必须是黄色，200-299橙色和300-399红色，如附图所示。 这个想法是使这个dynamic分析自动… 先谢谢你， 马特

无论如何select数据input的基础上，它是在Excel中input的date？

我想创build一个macros，从工作表中select一部分数据开始…但是我希望这个select只包括在macros运行当天input的数据。 例如（简化）如果excel表中已经有10行数据，并且今天又input了3行数据，我希望它是当我启动macros时，它只select最后3行数据。 这可能吗？ （为了达到我所期望的目的，在input数据之后，macros总是运行的，实际上每次input的数据会更接近〜200行…因此我无法通过单独的types在行旁边的date或类似的东西）。

python脚本来增加天真的电子表格macros的价值

我在电子表格中有一个简单的macros函数，如下所示： =LOOKUP(B2, eligible.submissions!A1:A158,eligible.submissions!B1:B158) 我想这样增加它： =LOOKUP(B2, eligible.submissions!A1:A158,eligible.submissions!B1:B158) =LOOKUP(B3, eligible.submissions!A1:A158,eligible.submissions!B1:B158) =LOOKUP(B4, eligible.submissions!A1:A158,eligible.submissions!B1:B158) 但点击和拖动function增加了每一件事情，这是错误的。 是否有可能使用Python来增加function的第一个值，即与B2相关的一个，即B2 ， B3 ， B4等等。

如何构build一个可以复制一系列单元格并用新date插入行的macros？

我每个月都有一个电子表格，每个月有294行，不包括周末date。 我想要做的是能够复制每个星期五的行的范围，并复制和粘贴每周失踪的星期六和星期日的数据。 我find了一个可以find缺失date并为这些date插入一行的macros，但不知道如何在更改date的同时复制一系列单元格。 这是我在另一个主题中find的macros，这个主题添加了缺失date的行。 Sub insertMissingDate() Dim wks As Worksheet Set wks = Worksheets("Sheet1") Dim lastRow As Long lastRow = wks.Range("C2").End(xlDown).Row 'Work bottom up since we are inserting new rows For I = lastRow To 3 Step -1 curcell = wks.Cells(I, 3).Value prevcell = wks.Cells(I – 1, 3).Value 'Using a loop here allows us to […]

根据时间范围在单元格上设置If语句

我在这里是新的，目前我有一个使用VB在Excel中build立一个macros的任务。 这是我为当前单元设置的逻辑： Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then Range("D" & Target.Row) = Date Range("E" & Target.Row) = Format(Now, "hh:mm:ss") End If End Sub 每当有人在B行的一个单元格内input信息时，它会在input时自动获取date和时间（types的日志）。 我需要的是取决于单元格E的时间框架，我需要根据从单元格E到另一行的时间框架计算信息。 class次1 =上午6:30至下午2:30 class次2 = 2:30 pm – 11:30 pm class次3 = 11:30 pm – 6:30 am 有什么build议么？

Excel – 如何使用另一张纸上的sku返回项目详细信息（包括sku的整行数据）

我发现这个问题有很多问题，但我不能完全满足我的具体需求。 我不是在找人为我做这个工作，我正在寻找指导如何最好地提出问题，所以我可以挖掘出来并学习。 我的问题… 我们印刷t恤，并有19.2万个人sku号码（超过2600个devise风格，颜色和大小的变化）。 产品在Shopify上维护。 我有一个导出的项目被分成3个工作簿，每个工作簿最多有72,000个skus。 我目前的项目是与一个团队合作清点我们的清仓产品（被打印错误或退货的衬衫），并将其作为新产品折扣购买。 为了开始这个项目，其中一个团队成员穿着145件衬衫，使用我给她的衬衫描述清单。 然后，她添加了她发现的devise风格（连帽衫，T恤等），颜色和大小。 然后，我用一个macros将她更新的行拖入一个新表，并使用vlookup公式来完成sku。 我现在有一个需要添加到网站的SKU列表。 我的想法是使用该表单上的SKU（清除）从3个SKU工作簿（Inventory1,2和3）中拉出整行数据。 然后我会查找重复项，并将这些行加载到Shopify。 我花了一个上午的时间寻找使用vlookup将整行数据撤回到“清除”的例子。 没有find明确的答案，我现在想知道是否更有意义的工作在“库存”工作表上，并计数“清除”工作表上的SKU。 最终只能将确切的SKU（以及所有相关数据）上传到Shopify，才能生成一个新的产品。 谢谢。

通过更改字符ASCII来屏蔽Excelmacros数据

我正在通过添加字符的ASCII来处理数据遮罩工具，但是一旦达到最大的ASCII码，它将会出现错误。 如果已经达到最大ASCII码，有什么办法可以防止或者忽略添加的ASCII码？ 我的Excel代码 Sub DataMask() Dim rngCell As Range Dim intChar As Integer Dim strCheckString As String Dim strCheckChar As String Dim intCheckChar As Integer Dim strClean As String For Each rngCell In Selection strCheckString = rngCell.Value strClean = "" intChar = 1 If strCheckString <> "" Then For intChar = 1 To Len(strCheckString) strCheckChar […]