Question

好的，所以即时尝试创建一个宏，它将获取我的设置单元格并将它们插入到html代码中......

我拥有的是带有我的html代码的单元格和带有我需要的值的单元格...首先它是参考。第一个html J2并将它放在B13旁边的ref。我需要的价值，并把它放在C13等等......它得到一个基于日期的文件名所以让我们说日期是6/20/2012它将采取这个并格式化下一个单元格拉那个日期，但格式化文本转到20120620.mp3 ...当ref。代码采用格式化的单元格...但是当我运行另一个脚本将所有单元格连接到一个时，它将日期更改为原始格式的6/20/2012 ...我想也许它拉动原始格式但我改变了第一个日期单元格的原始格式，它仍然保持6/20/2012格式。

<div id="messageDate">6/20/2012</div><audio id="audio" preload="none" controls="controls"><source src="sermons_mp3/mp3/6/20/2012" type="audio/mpeg"></audio>

它看起来应该是这样的

<div id="messageDate">6/20/2012</div><audio id="audio" preload="none" controls="controls"><source src="sermons_mp3/mp3/20120620.mp3" type="audio/mpeg"></audio>

即时使用此代码组合单元格

   Sub JoinText()
myCol = Selection.Columns.Count
For i = 1 To myCol
ActiveCell = ActiveCell.Offset(0, 0) & ActiveCell.Offset(0, i)
ActiveCell.Offset(0, i) = ""
Next i
End Sub

我也试过这个

     Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
        Dim finalValue As String

        Dim cell As Excel.Range

        For Each cell In sourceRange.Cells
            finalValue = finalValue + CStr(cell.Value)
        Next cell

        ConcatinateAllCellValuesInRange = finalValue
    End Function
    Sub MyMacro()
        Range("b14").Select
        ActiveCe

ll.FormulaR1C1 = ConcatinateAllCellValuesInRange([b13:r13])
End Sub

并且所有结果都相同...我希望这会有所帮助，有人可以给我一些帮助...我在VBA是全新的，不知道我在做什么...我做了什么已经我只是在玩耍并且很幸运... lol

感谢

Answer 1

如果从仅包含日期的单元格（例如6/20/2012而不是sermons_mp3/mp3/6/20/2012）连接日期，则可以使用以下公式来获取src参数：

="sermons_mp3/mp3/" & text(date_value, "yyyymmdd") & ".mp3"

尝试将一行与一个日期组合成一个单元格

1 个答案: