試圖一排日期組合成一個細胞

確定，所以我嘗試創建一個宏，將我定的細胞，並把它們插入到HTML代碼...試圖一排日期組合成一個細胞

我有什麼是細胞與我的HTML代碼和細胞與我的價值觀，我需要...首先它參考。第一個html J2並將其放置在B13中的下一個參考中。我的價值，我需要並將其放置在C13等等...它得到一個基於日期的文件名，所以可以說日期是2012年6月20日，它會採取這種方式，並格式化下一個單元格拉那個日期，但格式化文本去20120620.mp3 ...當參考。代碼需要該單元格格式...但是當我運行另一個腳本將所有單元格連接到一個它將日期更改爲原始格式的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>

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

嘗試這一個結合和香港專業教育學院也

 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

和所有相同的結果...我希望這有助於和索姆EONE可以給我一些這方面的幫助......我在VBA全新的，不知道是什麼即時通訊做......我做了什麼一直是我只是在玩和獲得幸運...笑

感謝

來源

2012-06-21 Nate

如果您連接僅包含日期的單元格的日期（例如6/20/2012而不是sermons_mp3/mp3/6/20/2012），你可以用下面的公式來獲取src參數：

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

來源

2012-06-21 16:40:15 Aprillion

謝謝...那做到了 – Nate

試圖一排日期組合成一個細胞

回答

相關問題