主页 / user-2135807

CorlissExcelling's questions

Martin Hope
CorlissExcelling
Asked: 2025-04-10 02:52:57 +0800 CST
  • 4

我希望我的格式化宏在与存储宏的工作簿不同的工作簿上运行。到目前为止，我只有以下代码：

Application.ScreenUpdating = False

If ActiveWorkbook.Name <> ThisWorkbook.Name Then
--Do the things i want--
End If

我是否需要有 Dim ___ As 东西来配合它？

抱歉造成任何混淆，用于容纳此宏的主要工作簿将在几个不同的选项卡上包含大量信息。

其他工作簿/原始数据需要宏来格式化，因为会有许多不同类型的原始数据，我计划为每个数据制作一个宏，因为所有内容都会有不同的布局。这主要用作一种保护措施，以防有人不注意并在主报告工作簿上运行它并意外删除了重要信息。

microsoft-excel
Martin Hope
CorlissExcelling
Asked: 2024-10-04 05:29:03 +0800 CST
  • 5

我能够让该公式适用于我有列AE和AF选择的过滤器。

当我尝试在公式中添加排序部分时，它将标题与其混合在一起，公式将标题与列出的数据混合在一起。

原来的：

=FILTER(CHOOSE({1,2},AF:AF,AE:AE),AE:AE>0)

按第一列升序排序：

=SORT(FILTER(CHOOSE({1,2},AF:AF,AE:AE),AE:AE>0),1,1)

有没有办法让标题不参与排序？

注意：数据集不是表格，我无法将其变成表格，因为客户不希望转换原始数据。

自定义列的资源：

更新：10/4/24 我尝试按照建议使用 DROP 部分，但出现了 NAME？错误，所以我的版本不允许我使用 DROP。——不过还是谢谢你。

microsoft-excel
Martin Hope
CorlissExcelling
Asked: 2024-09-20 22:20:25 +0800 CST
  • 5

我正在使用旧版本的 Excel，所以我无法使用许多可以让我的生活更轻松的新公式。

我目前正在尝试让特定字符后的所有文本出现。

例如 '12345678 CustomerName
所需结果是针对“CustomerName”

起始数字的长度可以改变。

我已经尝试了一个名为 Textafter() 的函数，但它不起作用。我们使用的是 2019 版本，并且 textafter 函数没有作为可用列表中的选项填充。我收到 #Name? 错误

这是最佳配方吗？或者我可以使用更好的配方吗？

=IFERROR(MID(K2,LEN(K2),SEARCH(" ",K2,LEN(K2))),MID(K2,9,30))

我一直在做一些额外的研究，并偶然发现了这个来源https://community.smartsheet.com/discussion/97017/how-can-i-find-a-position-of-a-character-in-a-string 但它看起来仍然比我想象的更广泛。

microsoft-excel
Martin Hope
CorlissExcelling
Asked: 2024-09-19 20:19:52 +0800 CST
  • 5

我一直在做一些研究，并从两个资源中拼凑了一些代码，想知道我整理的代码是否还有改进的空间。我有一个有点笨重的旧代码。

资料来源： https ://excelchamps.com/vba/delete-sheet/#:~:text=Each%20sheet%20has%20a%20name%2C%20and%20you%20can,code%20would%20be%3A%20Sub%20vba_delete_sheet%28%29%20Sheets%28%22Data%22%29.Delete%20End%20Sub

https://www.automateexcel.com/vba/delete-clear-worksheet/#:~:text=With%20On%20Error%20Resume%20Next%20you%20can%20tell,if%20so%20delete%20it.%3A %20If%20RangeExists%28%22Sheet1%22%29%20Then%20Sheet%28%22Sheet1%22%29.删除

代码：

Dim ws As Worksheet
Dim mySheet1 As Variant
Dim mySheet2 As Variant
Dim mySheet3 As Variant
Dim mySheet4 As Variant
Dim mySheet5 As Variant


mySheet1="S363"
mySheet2="non"
mySheet3="promos"
mySheet4="All Filtered"
mySheet5="Final Send"

Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If mySheet1 = ws.Name Then
      ws.Delete
 ElseIf  mySheet2 = ws.Name Then
      ws.Delete
ElseIf  mySheet3= ws.Name Then
      ws.Delete
ElseIf  mySheet4 = ws.Name Then
      ws.Delete
ElseIf  mySheet5 = ws.Name Then
      ws.Delete
    End If
Next ws

‘All other instructions here
Application.DisplayAlerts = True
End Sub
microsoft-excel