最終更新:ID:kaddsxZCHQ 2015年11月08日(日) 00:17:18履歴
「寝そべり画像」および「寝そべり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
以下の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
このページへのコメント
コメント