被災支援活動をしている皆さまへ

被災支援活動をしている皆さまへ

お役に立てれば幸いです。あるかたのを参考にさせていただきました。

【作表の簡単操作(ameblo ×　excel ×　tagindex.com)】

　◇　準備

　　①　アメブロ「タグ編集エディタ」設定

　　②　ブラウザお気に入り登録
　　　　http://www.tagindex.com/tool/table.html （tagindex.comさま）

　　③　エクセル空ファイル(ただし、excel2007以降は、拡張子xlsm)

　◇　作表順序

　　①　コード生成（tagindex.comさま）

　　②　excel　セル貼付け（セル作業はどれか一つ）
　　③　excel　テーブルデータ適宜置換え
　　④　excel　コードの実行（コードは以下参照）
　　⑤　アメブロ編集画面貼付け
　　⑥　出来上がり！

以下、excelモジュールシート(VBE)添付（excelのシートへボタン作成、マクロ登録）

'****excelのコード　ここから********

Sub amelo用にタグ詰め作業()
Dim str, str2 As String
str2 = ">"

str = str2 & Chr(0): Call 作業(str, str2) '値 0 を持つ文字
str = str2 & Chr(8): Call 作業(str, str2) 'タブ文字
str = str2 & Chr(9): Call 作業(str, str2) 'バックスペース文字
str = str2 & Chr(10): Call 作業(str, str2) 'ライン フィード文字
str = str2 & Chr(13): Call 作業(str, str2) 'キャリッジ リターン文字
str = str2 & vbCrLf: Call 作業(str, str2) 'キャリッジ リターンとライン フィードの組み合わせ
str = str2 & " ": Call 作業(str, str2)
str = str2 & "　": Call 作業(str, str2)

ActiveCell.Copy　'セル内容をクリップボードへ
Application.CutCopyMode = False
MsgBox "終了だよ"
End Sub

Sub 作業(str, str2)
Cells.Replace _
What:=str, _
Replacement:=str2, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
End Sub

'****excelのコード　ここまで********