Kenny's questions

我正在制作一个电子表格，该电子表格用于对大量（10,000 多个）音频文件进行编目，这些文件可以是 Wav、Flac、mp3、Ape 和 ._Pro Tools 格式。

数据作为平面工作表提供给我，我在处理每个轨道的轨道长度信息时遇到问题。

在工作表中，每个轨道的长度提供为 00:06:11 单元格似乎是 hh:mm:ss 的自定义格式。有些曲目的长度可能超过一个小时 (02:06:11)，有些可能只有几分钟 (00:06:11)，而另一些则只有几秒钟 (00:00:11)。

我需要删除无关的 00 & : 取决于每个文件的长度，例如 02:06:11 变为 2:06:11, 00:06:11 变为 6:11 & 文件少于 60 秒 00:00:11变成0:11。Fluff13 在 excelforum.com 上给了我公式=IF(TrackDataImport!C2<1/24,"mm:ss","hh:mm:ss")，它查看单元格并返回该单元格中的数据是分钟和秒还是小时、分钟和秒。但是我一直无法将其转换为能够适当格式化目标单元格的多标准公式。它也没有告诉我它是否只是“ss”

我知道这=TEXT(TrackDataImport!C2,"hh:mm:ss")会将输入的单元格中的数据格式化为各种格式，但我需要一个公式来查看传入的数据，确定它是否h:mm:ss, mm:ss or m:ss or ss（但添加“0:”回来使其变为“0:11”）并应用哪种格式适合。

我研究了 Excel TIME 功能，但我发现它在每个网站上似乎都使用它来处理物理时间，例如：12.01 pm 等等。如此混乱。

如果这有助于描述我希望更好地实现的目标，我在这里有一张工作表流程图类型表的图像。

我已经编辑了这篇文章以使其更清晰。

我有代码提示用户通过鼠标左键单击并拖动来选择一个范围，然后将不同工作表上一个单元格的内容复制到该范围内的每个单元格。

我现在只需要将宏绑定到 A 列，这样如果用户在任何其他列中选择任何范围或单元格，则宏将不会运行并给出错误消息，例如“您选择了无效区域，请重试”，然后再次显示选择框，因此用户只能在 A 列中进行选择

Public Sub SelectRange()
  Dim aRange As Range
  Dim cel As Range
      
  On Error Resume Next
    Sheets("Sheet2").Select
    Columns("A2:A").Select
  Set aRange = Application.InputBox(prompt:="Enter range - Click And Drag To Select", Type:=8)
        aRange.Formula = "=Sheet1!A2"
    If aRange Is Nothing Then
        MsgBox "Operation Cancelled"
  Else
    aRange.Select
  End If
End Sub

Excel 2016

你好

我有一个名为“Project”的工作簿和一个名为“Imported_Text”的工作表。

从在线资源和我自己有限的知识（反对可能性）生成了一个子（宏），它将打开用户选择的制表符分隔的 txt 文件，仅选择我需要的列，然后将其放在工作表中。一切正常，但是，Excel 总是创建一个新的工作簿并将导入的数据放入其中，这是我不想要的。

我需要能够从“项目”工作中运行子宏，并将导入的数据放入现有的“Imported_Text”工作表中，但我无法弄清楚如何。

我知道我可以录制宏，执行导入文本文件，当宏仍在录制时，手动选择并复制新工作表中的数据，将其粘贴到我的“Imported_Text”工作表中，保存我的“项目”工作簿，关闭保存 Excel 创建的新工作簿并停止宏录制。这会给我 VBA 代码来实现我的目标，但这似乎是一种相当复杂的做事方式。

任何人都可以提出更好的方法吗？

例如，数组的结果是否可以在将结果写入新文件并粘贴到我选择的工作表之前被捕获（到剪贴板？）？

这是我的代码 - 它远非优雅，但它有效，

Sub ImportTXT()
    Dim Answer As VbMsgBoxResult
    Dim fDialog As FileDialog, result As Integer
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    
'Optional: FileDialog properties
    fDialog.AllowMultiSelect = False
    fDialog.Title = "Select a file"
    fDialog.InitialFileName = "F:\"
    
'Optional: Add filters
    fDialog.Filters.Clear
    fDialog.Filters.Add "Text/CSV files", "*.txt"

    Answer = MsgBox("Are You Sure You Want To Import A Text File?", vbYesNo + vbCritical, "Import A Text File")
    If Answer = vbYes Then
        Application.ScreenUpdating = False

    FName = Application.GetOpenFilename()

' ImportTXT code copied from Macro recording
        Workbooks.OpenText FileName:=FName, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
        (1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 9), Array(8 _
        , 9), Array(9, 9), Array(10, 1), Array(11, 9), Array(12, 9), Array(13, 9), Array(14, 9), _
        Array(15, 9), Array(16, 9), Array(17, 9), Array(18, 9), Array(19, 9), Array(20, 9), Array( _
        21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 9)), TrailingMinusNumbers _
        :=True
    
    End If
End Sub

我正在使用 Excel 2016

上一个问题/线程在这里

我有两个工作表“Data_Import”和“Pack”。

现有代码从 A 列的第一个空白单元格开始导入文件夹名称。然后对于具有新数据的每一行，它将行高设置为 18，将 A 列设置为自动调整，这非常有效。

我还需要清除“Data_Import”的 A 列中的所有数据，并从单元格 A1 开始并将行高设置为 18，将 A 列设置为自动调整。

对工作表“Pack”也执行相同的操作，并且对于具有新数据的每一行，它将行高设置为 18，将 A 列设置为自动调整。

我无法为具有新数据的每一行获取“打包”表，它将行高设置为 18，将 A 列自动调整为工作，宏将所有行的行高设置为 18，并且没有设置 AutoFit。

我将不胜感激任何建议，非常感谢。

我的其他问题中的现有代码

Sub GetFolderNames()
    Dim Answer As VbMsgBoxResult
    Dim xRow As Long
    Dim vSF As Object
    Dim xDirect$
    Dim InitialFoldr$
    Dim ws As Worksheet: Set ws = Sheets("Data_Import")
    Answer = MsgBox("Are you sure you want to run the macro - Import Folder Names", vbYesNo, "Run Import Folder Names Macro")
    If Answer = vbYes Then
        Application.ScreenUpdating = False
        xRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
        InitialFoldr$ = "F:\" '<<< Startup folder to begin searching from
        With Application.FileDialog(msoFileDialogFolderPicker)
            .InitialFileName = Application.DefaultFilePath & "\"
            .Title = "Please select a folder to list Files from"
            .InitialFileName = InitialFoldr$
            .Show
            If .SelectedItems.Count <> 0 Then
                xDirect$ = .SelectedItems(1) & "\"
            End If
        End With
        If xDirect$ <> "" Then
            With CreateObject("Scripting.FileSystemObject").GetFolder(xDirect$)
                For Each vSF In .subfolders
                    ws.Cells(xRow, 1) = Mid(vSF, InStrRev(vSF, "\") + 1)
                    xRow = xRow + 1
                Next vSF
            End With
            ws.Columns("A:A").AutoFit
        End If
    End If
End Sub

这就是我到目前为止尝试修改它的方式

Sub ClearAllGetNewFolderNames()
     
    Dim xRow&, vSF
    Dim xDirect$, InitialFoldr$
    Dim Answer As VbMsgBoxResult
    Dim x As Integer
    Dim y As Integer
    Dim myRow As Integer

    Answer = MsgBox("Are You Sure You Want To Clear All Existing " & vbNewLine & "Data Records Before Importing New Data", vbYesNo, "Import Data")
    InitialFoldr$ = "F:\" '<<< Startup folder to begin searching from
    
    If Answer = vbYes Then
        Sheets("Data_Import").Select
        Columns("A:A").Select
        Selection.ClearContents
        Range("A1").Select
        Rows.RowHeight = 10
        
    End If
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count <> 0 Then
            xDirect$ = .SelectedItems(1) & "\"
        End If
    End With
    
    If xDirect$ <> "" Then
        With CreateObject("Scripting.FileSystemObject").GetFolder(xDirect$)
            For Each vSF In .subfolders
                ActiveCell.Offset(xRow) = Mid(vSF, InStrRev(vSF, "\") + 1)
                xRow = xRow + 1
            Next vSF
        End With
        
    End If
    
        For x = 1 To ActiveSheet.UsedRange.Rows.Count
 
            ActiveSheet.UsedRange.Rows.RowHeight = 18
            Columns("A").EntireColumn.AutoFit
    Next x
        
        Sheets("Pack").Select
        
    For x = 1 To ActiveSheet.UsedRange.Rows.Count
        ActiveSheet.UsedRange.Rows.RowHeight = 18
        Columns("A:H").EntireColumn.AutoFit
    Next x

   
End Sub

Windows 7的

Excel 2016

我在使用 Excel 2007 时曾问过以前的问题，但我终于设法从工作中带回家一台装有 Excel 2016 的笔记本电脑，因为这是本工作簿将使用的版本。

我正在尝试调整在谷歌搜索我的问题时发现的宏但我无法让它工作

VBA 和/或宏对我来说非常新，所以我想寻求帮助，以便我可以学习。

我有一个工作簿，其中包含许多工作表，这些工作表从名为 Data_Import 的工作表的 A 列中的字符串中提取数据，随着时间的推移，我将从 A 列中的第一个空单元格开始添加新字符串。

我已经有一个可以为我导入新字符串的工作宏，但这依赖于用户手动检查然后选择 Data_Import 页面的 A 列中的第一个空单元格，或者用户可以清除所有现有数据并手动选择单元格A1 然后运行导入数据宏。

由于我不是唯一使用此工作簿的人，因此在可能的情况下使用宏和弹出表单自动执行一些任务是有意义的。

我已经在功能区栏上创建了一个名为的选项卡，Data_Import它有一个按钮，用户可以从工作簿中的任何位置单击该按钮，它运行导入宏，但我需要它更灵活，有几个用户选择的选项，我希望可以按如下方式工作：

1. 用户单击功能区栏上的按钮。
2. 弹出选项框出现以下按钮，供用户单击，并在上方或每个按钮中加上短标题。按钮 1 = 清除所有现有数据并导入新数据 按钮 2 = 将新数据添加到现有数据的末尾 按钮 3 = 取消

如果用户单击按钮 1，则会弹出一条警告消息“警告 - 您确定要覆盖现有数据吗？然后要求做出是/否决定...

如果选择“是”按钮，我现有的宏将运行并清除 Data_Import 工作表的 A 列中的所有数据，选择 Al 并导入新字符串。

如果没有选择按钮，则会显示选项框，用户可以选择按钮 2 或全部取消。

如果用户单击按钮 2，则会弹出一条警告消息“警告 - 您确定要向现有数据添加新数据吗？然后要求做出是/否决定。

如果选择了“是”按钮，则会运行一个宏，该宏将查看工作表中的范围A:A并Data_Import选择第一个空单元格并从该单元格开始导入新数据。因此，如果有数据，Cells A1 - A100那么它应该开始添加新字符串cell A101

如果用户单击按钮 3，则会弹出一条警告消息“您尚未导入任何新数据，确定要取消吗？是/否。如果单击是，则选项框关闭 如果单击否，则警告框关闭，从而允许用户进行新的选择。

它看起来很复杂，但它本质上是 3 个步骤和（希望）两个宏。

目前我连续调用了三个宏来导入数据。

第一个宏。当您单击功能区按钮时，这是一个弹出消息提示，然后设置 Data_Import 页面，选择所有列 A，清除所有数据，选择单元格 A1。完成后，它调用名为的第二个宏GetFolderNames

Sub Import_Data()
'Imports folder names into the Data_Import Sheet
'MsgBox function help:
'https://msdn.microsoft.com/en-us/library/office/gg251821%28v=office.15%29.aspx?f=255&MSPPError=-2147217396

Dim Answer As VbMsgBoxResult

    Answer = MsgBox("Are you sure you want to run the macro - Import Folder Names", vbYesNo, "Run Import Folder Names Macro")

    If Answer = vbYes Then
        Sheets("Data_Import").Select
        Columns("A:A").Select
        Selection.ClearContents
        Range("A1").Select

        Call GetFolderNames
    End If

End Sub

第二个宏（不是我的代码，现在大部分都丢失了）。一旦用户选择了要从中导入数据的文件夹，这就会导入数据。完成后，它会调用名为的第三个宏Column_Autofit

Sub GetFolderNames()

    Dim xRow&, vSF
    Dim xDirect$, InitialFoldr$

    InitialFoldr$ = "F:\" '<<< Startup folder to begin searching from

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count <> 0 Then
            xDirect$ = .SelectedItems(1) & "\"
        End If
    End With

    If xDirect$ <> "" Then
        With CreateObject("Scripting.FileSystemObject").GetFolder(xDirect$)
            For Each vSF In .subfolders
                ActiveCell.Offset(xRow) = Mid(vSF, InStrRev(vSF, "\") + 1)
                xRow = xRow + 1
            Next vSF
        End With

        Call Column_Autofit

    End If
End Sub

第三个宏。这会将 A 列设置为自动调整宽度

Sub Column_Autofit()

    Columns("A:A").AutoFit

End Sub

至于在工作Data_Import表的 A 列中寻找第一个空单元格的宏，我能找到的最好的东西是下面的代码（不是我的），但我无法让它工作，因为坦率地说，我的技能水平还差得很远足够好，但我决心学习。

Sub SelectFirstBlankCell()
    Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer
    Dim currentRowValue As String

    Sheets("Data_Import").Select
        Columns("A:A").Select

    sourceCol = 1
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row

    'for every row, find the first blank cell and select it
    For currentRow = 1 To rowCount
        currentRowValue = Cells(currentRow, sourceCol).Value
        If IsEmpty(currentRowValue) Or currentRowValue = "" Then
            Cells(currentRow, sourceCol).Select

    Call GetFolderNames

        End If
    Next
End Sub

我觉得好像答案就在我面前，但我看不到它……任何建议都将不胜感激。

我有一个相当复杂的（至少对我而言）嵌套的 IF(ISNUMBER 公式，我想包装或包含 SUBSTITUTE 以从公式的结果中删除“”并将“ ”替换为空格“”。

当公式相当基本时，我在这里问了一个类似的问题，但由于这个问题得到了感激的回答，我认为一个新问题是合适的。

下面的公式在单元格 B1 中输入，并查看单元格 A1 中包含字母和数字的字符串，并在字符串中查找单词 Wav、mp3、flac 或 mogg 的出现。然后，该公式运行嵌套公式，查找并显示与 Wav、mp3、flac 或 mogg 一词相关的额外信息。

这一切都很好，虽然我知道公式并不优雅，但是它从中提取结果的字符串有“_”分隔字符串中的所有单词，我试图用一个简单的空格“”在公式结果中替换这些单词。

字符串看起来像 Artist_-_Album_Title_[Source]_(14_Tracks)_44.1_kHz_16_bit_Wav

该公式实际上是提取“16_bit”部分，也是 32、64 或 128_bit，我需要结果为“16 位”等等。

主要配方 =IF(ISNUMBER(SEARCH("wav",A1)),MID(A1,SEARCH("kHz",A1)+4, SEARCH("Wav",A1)-SEARCH("KHz",A1)-5),IF(ISNUMBER(SEARCH("flac",A1)),MID(A1,SEARCH("kHz",A1)+4, SEARCH("flac",A1)-SEARCH("KHz",A1)-5),IF(ISNUMBER(SEARCH("mp3",A1)),MID(A1,SEARCH("kHz",A1)+4, SEARCH("mp3",A1)-SEARCH("KHz",A1)-5),IF(ISNUMBER(SEARCH("mogg",A1)),MID(A1,SEARCH("kHz",A1)+4, SEARCH("mogg",A1)-SEARCH("KHz",A1)-5),"NO"))))

为了使事情更复杂，我使用下面的内容来检查 A 列中的单元格是否为空白，如果不是，则运行上述公式，但如果 A1 为空白，则它什么也不做。

=IF(A1="","",SUBSTITUTE(A1,"_"," "))

正如我所说，它们单独工作都很好，但这远高于我的技能水平，我无法将两者结合起来？

在单元格 A1 中

我有像 AB_CD_(EF_G_H)_1234 这样的文字

我正在尝试编写一个公式，该公式选择（但不包括）（字符和之前（但不包括））字符之前的文本，然后用空格替换 _ 字符，因此最终结果将是 EF GH

我在单元格 B1 中输入公式

我已经设法使用 EF_G_H

=MID(LEFT(A1,FIND(")",A1)-1),FIND("(",A1)+1,LEN(A1))

我可以删除 _ 并使用空格替换

=SUBSTITUTE(A1,"_"," ")

但我不能让两者结合成一个公式

有什么建议么？