ラブライブ!グッズ「寝そべりぬいぐるみ」シリーズのwikiになります。

「寝そべり画像」および「寝そべり4コマ」に絞って説明します。

以下のPDFファイルをご覧下さいませませ。

https://image02.seesaawiki.jp/l/i/lovelive_nuiguru...


★★タグ作成が面倒くさい場合はご利用ください(Excelのマクロですが)★★
※コピペする場合は大変お手数ですが、「編集」画面にしてからコピーしてください。

〜使い方〜
1 添付ファイル一覧からExcelのB1〜B5セルにドラッグ&ドロップ
2 URL抽出のマクロを実行→→A1〜A5セルにURLが抽出される
3 タグ付与のマクロを実行(5ついっぺんか1つずつか)→→A7セルにタグ付きURLができる
4 A7セルをコピーし、編集画面に貼り付ける
5 クリアするマクロを実行する (※リンクを残さないために)


<URL抽出>
Sub linknuki() 'ハイパーリンク抽出

Dim i As Long
On Error Resume Next
For i = 1 To 5

Cells(i, 1) = Cells(i, 2).Hyperlinks(1).Address

Next i

End Sub


<タグ付与その1>
Sub タグ5マス() '5マス用

For m = 1 To 5

元データ = Cells(m, 1)

If 元データ = "" Then
ファイル = ""
Else
ファイル = "|&ref(" & Left(元データ, Len(元データ) - 4) & "-s.jpg)?"
End If

If Cells(7, 1) = "" Then
Cells(7, 1) = ファイル
Else
Cells(7, 1) = Cells(7, 1) & ファイル
End If

Next

Cells(7, 1) = Cells(7, 1) & "|"

End Sub


<タグ付与その2>
Sub タグ1マス() '1マス用

For m = 1 To 5

元データ = Cells(m, 1)

If 元データ = "" Then
ファイル = ""
Else
ファイル = "|&ref(" & Left(元データ, Len(元データ) - 4) & "-s.jpg)?|"
End If

Cells(m + 6, 1) = ファイル

Next

End Sub


<クリア用>

Sub クリア用()
'
Range(Cells(1, 1), Cells(11, 2)).Select
Selection.ClearContents

With Range("B1:B5")
.Hyperlinks.Delete
End With

Range("A1").Select
End Sub

このページへのコメント

コメント

0
Posted by jaja 2017年06月23日(金) 13:08:14 返信

コメントをかく


「http://」を含む投稿は禁止されています。

利用規約をご確認のうえご記入下さい

公式Twitter

どなたでも編集できます

メンバー募集!