0

さて、設定したセルを取得してhtmlコードに挿入するマクロを作成しようとしています...

私が持っているのは、HTMLコードを含むセルと、必要な値を含むセルです...最初に参照します。最初のhtmlJ2をB13に配置し、次にrefを配置します。必要な値をC13などに配置します...日付に基づくファイル名になるので、日付が2012年6月20日であるとすると、次のセルを次のようにフォーマットします。その日付をプルしますが、参照するときに20120620.mp3...に移動するようにテキストをフォーマットします。コードはそのセルを取得し、フォーマットを取得します...しかし、別のスクリプトを実行してすべてのセルを1つに結合すると、日付が2012年6月20日の元のフォーマットに変更されます...おそらく元のフォーマットを取得すると思いましたしかし、最初の日付セルの元の形式を変更しましたが、それでも2012年6月20日の形式のままです。

<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>

このコードを使用してセルを結合するim

   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

そしてiveもこれを試しました

     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でまったく新しいので、何をしているのかわかりません...ラッキーになって…笑

ありがとう

4

1 に答える 1

0

日付のみを含むセルから日付を連結する場合（たとえば6/20/2012、ではなくsermons_mp3/mp3/6/20/2012）、次の数式を使用してsrc引数を取得できます。

="sermons_mp3/mp3/" & text(date_value, "yyyymmdd") & ".mp3"
于 2012-06-21T16:40:15.480 に答える