マクロの登録

以下のvbaをマクロとして登録、各ボタンにマクロを割り付けます。

ｖｂａ全体

'ｈｔｍｌの文字列を書き出し
Sub html()
For i = 0 To 19
s1 = Cells(4 + i, 14).Value
If s1 = "" Then
s2 = ""
Else
s2 = "　<a href=""http://www.google.co.jp/search?hl=ja&source=hp&q=" & s1
s2 = s2 & """ target=""_blank"" rel=""noopener"">" & s1 & "</a><br>"
End If
Cells(4 + i, 17).Value = s2
Next
'javascriptのＴＢＬを書き出し
For i = 0 To 19
s1 = Cells(4 + i, 15).Value
If s1 = "" Then
s2 = ""
Else
myColor = Cells(4 + i, 13).Interior.Color
myR = myColor Mod 256
myG = Int(myColor / 256) Mod 256
myB = Int(myColor / 256 / 256)
s2 = " "
s2 = s2 & myR
s2 = s2 & ", "
s2 = s2 & myG
s2 = s2 & ", "
s2 = s2 & myB
s2 = s2 & ","" "
s2 = s2 & Cells(4 + i, 14).Value
s2 = s2 & ""","
End If
Cells(4 + i, 16).Value = s2
Next
End Sub

' 吹き出しに文字を設定する
Sub mojiSet()
For i = 1 To 20
moji = Cells(3 + i, 15).Value
p = "waku" & i
Sheet1.Shapes(p).TextFrame2.TextRange.Text = moji
Sheet1.Shapes(p).Fill.ForeColor.RGB = RGB(255, 255, 255) '背景
Sheet1.Shapes(p).TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0) '文字色
Next
End Sub

' 吹き出しにナンバーを設定する
Sub no_mojiSet()
For i = 1 To 20
p = "waku" & i
Sheet1.Shapes(p).TextFrame2.TextRange.Text = i
Sheet1.Shapes(p).Fill.ForeColor.RGB = RGB(255, 255, 255) '背景
Sheet1.Shapes(p).TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0) '文字色
Next
End Sub

' 吹き出しに背景色を付ける
Sub ColorSet()
For i = 1 To 20
myColor = Cells(3 + i, 13).Interior.Color
myR = myColor Mod 256
myG = Int(myColor / 256) Mod 256
myB = Int(myColor / 256 / 256)
p = "waku" & i
Sheet1.Shapes(p).Fill.ForeColor.RGB = RGB(myR, myG, myB) '背景
Sheet1.Shapes(p).TextFrame2.TextRange.Text = ""
Next
End Sub

'画面をコピーしてペイントを起動
Sub paint_start()
Range("A1:K19").Select
Range("K19").Activate
Selection.Copy

lngTaskID = Shell("mspaint.exe", vbNormalFocus)
Application.Wait Now + TimeValue("00:00:01")
AppActivate lngTaskID
SendKeys "^v"
End Sub

'セルの高さ調整
Sub takasa()
Rows("1:1").Select
ActiveWindow.SmallScroll Down:=18
Rows("1:25").Select
Selection.RowHeight = 18.75
End Sub

 

button名　　登録マクロ　　　　　機能
文字設定　　mojiSet()　　　 吹き出しに文字を設定する
背景色設定　ColorSet()　　　吹き出しに背景色を付ける
№設定　　　no_mojiSet()　　吹き出しにナンバーを設定する
ｈｔｍｌ　　html()を登録　　ｈｔｍｌの文字列を書き出す
ペイント　　paint_start()　　画面をコピーしてペイントを起動
高さ調整　　takasa()　　　　セルの高さ調整

マクロの登録、ボタンへの登録はgoogleで検索すると直ぐにでてきますのでここでは紹介していません。

 

以上で「エクセル・リンク領域エディタ」は準備完了です。

サイトマップに戻る

ホーム