Excelで作る自動化テンプレート3

■ Excelで作る自動化テンプレート3

　テンプレート自テンプレート内から自動的にリンク先を挿入してみましょう。リンクの作成方法は2種類考えられます。

リンク方法1

　マイブースのような画像や文字にリンクを貼る。

リンク先URLとリンク文字を入力し、リンクを挿入してみます。

新たにTextBox5のリンク先URLとTextBox6のリンク文字用のテキストボックスを追加しました。

リンクに必要な文字列を結合しただけです。

<A HREF = "TextBox5の内容 ">TextBox6の内容</A>

を表示させるように置き換えただけです。

DimでLinkを宣言し、以下のようにコードを記入します。====================================================================

Dim Link
Link = "<A HREF=" & Chr(34) & TextBox5.Text & Chr(34) & ">" & TextBox6.Text & "</A>"

====================================================================

※ダブルコーテーションのキャラクター番号はChr（34）です。Yahooオークションの場合無くても良かったような気がします。

これでリンクを貼る準備が出来ました。あとはどこに表示させるかだけです。自サイトへのリンク先と置き換えてみます。リンク先の宣言と、最後の一行だけを変数Linkに置き換えました。

実際のコードは以下のようになります。赤字部分が追加されたコードです。

==========================サンプル表記内容===========================

Private Sub CommandButton1_Click()

'リンク先を宣言
Dim Link
Link = "<A HREF=" & Chr(34) & TextBox5.Text & Chr(34) & ">" & TextBox6.Text & "</A>"

' 変数を宣言
Dim Syouhin
Dim Shiharai
Dim Hassou

' 文字列に含まれるCRを に変更する
Syouhin = Replace(TextBox2.Text, Chr(13), " ")
Shiharai = Replace(TextBox3.Text, Chr(13), " ")
Hassou = Replace(TextBox4.Text, Chr(13), " ")

TextBox1.Text = "<CENTER><TABLE BORDER=0 WIDTH=600 HEIGHT=420 CELLSPACING=0 CELLPADDING=0>" & vbNewLine & _
"<TR><TD WIDTH=33% HEIGHT=20 BGCOLOR=#FFCCFF> " & vbNewLine & _
"～商品説明～ " & vbNewLine & _
"</TD><TD WIDTH=33% HEIGHT=20></TD><TD WIDTH=34% HEIGHT=20></TD></TR>" & vbNewLine & _
"<TR><TD WIDTH=100% HEIGHT=120 COLSPAN=3 BGCOLOR=#FFEEFF> " & vbNewLine & _
Syouhin & vbNewLine & _
"</TD></TR><TR><TD WIDTH=33% HEIGHT=20></TD><TD WIDTH=33% HEIGHT=20 BGCOLOR=#FFCCFF>" & vbNewLine & _
" " & vbNewLine & _
"～支払方法～ " & vbNewLine & _
"</TD><TD WIDTH=34% HEIGHT=20></TD></TR>" & vbNewLine & _
"<TR><TD WIDTH=100% HEIGHT=120 COLSPAN=3 BGCOLOR=#FFEEFF> " & vbNewLine & _
Shiharai & vbNewLine & _
"</TD></TR>" & vbNewLine & _
"<TR><TD WIDTH=33% HEIGHT=20></TD><TD WIDTH=33% HEIGHT=20></TD><TD WIDTH=34% HEIGHT=20 BGCOLOR=#FFCCFF>" & vbNewLine & _
"" & vbNewLine & _
"～発送方法～ " & vbNewLine & _
"</TD></TR>" & vbNewLine & _
"<TR><TD WIDTH=100% HEIGHT=120 COLSPAN=3 BGCOLOR=#FFEEFF> " & vbNewLine & _
Hassou & vbNewLine & _
"</TD></TR></TABLE>" & vbNewLine & _
"" & Link & "</CENTER> " 'ここにリンク先を挿入

End Sub

====================================================================

リンク方法2

　特定のフレーズをリンク先と置きかえる。

たとえば、よく目にするのが「こちら」をご覧くださいの部分がリンク先になっているものです。この方法も非常に簡単で、リンク先と置き換えてあげれば良いだけです。

リンク先のコードはリンク方法1で示した方法と全く同じ方法で記述します。（Linkを使用）
そして、一旦TextBox1に表示させた内容に編集を加えます。具体的にはTextBox1内の特定のフレーズTextBox6をLinkに置き換えます。

====================================================================

TextBox1.Text = Replace(TextBox1.Text, TextBox6.Text, Link)

====================================================================

くどいようですが下の例の場合、変数Link は <A HREF = "リンク先URL ">こちら</A> で、TextBox1内の「こちら」という特定の文字をLinkとおきかえました。

実際のコードは以下のようになります。赤字部分が追加されたコードです。

==========================サンプル表記内容===========================

Private Sub CommandButton1_Click()

'リンク先を宣言
Dim Link
Link = "<A HREF=" & Chr(34) & TextBox5.Text & Chr(34) & ">" & TextBox6.Text & "</A>"

' 変数を宣言
Dim Syouhin
Dim Shiharai
Dim Hassou

' 文字列に含まれるCRを に変更する
Syouhin = Replace(TextBox2.Text, Chr(13), " ")
Shiharai = Replace(TextBox3.Text, Chr(13), " ")
Hassou = Replace(TextBox4.Text, Chr(13), " ")

TextBox1.Text = "<CENTER><TABLE BORDER=0 WIDTH=600 HEIGHT=420 CELLSPACING=0 CELLPADDING=0>" & vbNewLine & _
"<TR><TD WIDTH=33% HEIGHT=20 BGCOLOR=#FFCCFF> " & vbNewLine & _
"～商品説明～ " & vbNewLine & _
"</TD><TD WIDTH=33% HEIGHT=20></TD><TD WIDTH=34% HEIGHT=20></TD></TR>" & vbNewLine & _
"<TR><TD WIDTH=100% HEIGHT=120 COLSPAN=3 BGCOLOR=#FFEEFF> " & vbNewLine & _
Syouhin & vbNewLine & _
"</TD></TR><TR><TD WIDTH=33% HEIGHT=20></TD><TD WIDTH=33% HEIGHT=20 BGCOLOR=#FFCCFF>" & vbNewLine & _
" " & vbNewLine & _
"～支払方法～ " & vbNewLine & _
"</TD><TD WIDTH=34% HEIGHT=20></TD></TR>" & vbNewLine & _
"<TR><TD WIDTH=100% HEIGHT=120 COLSPAN=3 BGCOLOR=#FFEEFF> " & vbNewLine & _
Shiharai & vbNewLine & _
"</TD></TR>" & vbNewLine & _
"<TR><TD WIDTH=33% HEIGHT=20></TD><TD WIDTH=33% HEIGHT=20></TD><TD WIDTH=34% HEIGHT=20 BGCOLOR=#FFCCFF>" & vbNewLine & _
"" & vbNewLine & _
"～発送方法～ " & vbNewLine & _
"</TD></TR>" & vbNewLine & _
"<TR><TD WIDTH=100% HEIGHT=120 COLSPAN=3 BGCOLOR=#FFEEFF> " & vbNewLine & _
Hassou & vbNewLine & _
"</TD></TR></TABLE>" & vbNewLine & _
"<A HREF=http://auctempnavi.fc2web.com/ TARGET=new>AuctionTemplateNavi</A></CENTER> "

'特定の文字をリンクと置きかえる
TextBox1.Text = Replace(TextBox1.Text, TextBox6.Text, Link)

End Sub

====================================================================

するとこうなります。

～商品説明～
オークションのテンプレートの事ならこちらのサイトをごらんください。
	～支払方法～
タダ
		～発送方法～
ダウンロード

AuctionTemplateNavi

リンク先を複数設定する場合はLink2,3,4等の変数を増やしテキストボックスの数を増やすし、何度か置換をすれば良いのです。

Excelのマクロ作成、ご使用、セキュリティレベルの変更はご自身の責任で行ってください。それが原因で如何なる損害があっても当サイトと管理者は責任を取りません。

おさらい

やはり置換を覚えよう！

戻る

SEO		[PR] 爆速!無料ブログ無料ホームページ開設無料ライブ放送