スマートフォンでウェブサイトを見ていたり、ネットショッピングをしている時に PC 版のサイトを見たいと思った事はありませんか？
大抵のウェブサイトやネットショッピングサイトでもスマートフォンからのアクセスが PC を上回る状況に来ていますが、スマートフォンで PC 版を見たいというニーズは今でも一定数はあるようです。ウェブサイトやスマートフォンのブラウザで PC 版サイトを表示する設定やボタンがありますが、初心者にはわかりづらい所にあります。
例えばショッピングモールの楽天では、画面右上に PC 版で見るボタンが用意されています。しかし、初心者にはそれが何のボタンかもわかりませんし触ろうとも思わないでしょう。
楽天でもスマートフォンサイトに力を入れているショップが大半となりましたが、やはりスマートフォンサイトでは画面も小さくて収められる情報も限られてきます。そこで誰でもわかりやすく楽天のスマホ商品ページに「PC版で見る」ボタンを付けようというのが今回の本題です。
PC版で見るボタンを作る
<table width='85%' align='center' bgcolor='#ff2525' cellpadding='5'><tr><td align='center' height='50'><b><a href='商品ページのURL?force-site=pc'><font color='#ffffff' size='5'>PC版で見る≫</font></a></b></td></tr></table>
上のコードは例ですが、html で PC 版で見るボタンを作りました。
これをブラウザで見ると上図のような感じになります。
楽天でスマートフォンサイトから PC 版サイトを見る為には、URL の最後に「?force-site=pc」というパラメータを付加する事で PC 版サイトを見る事ができます。つまり商品ページ URL の最後に「?force-site=pc」を追加して a タグでリンクすれば OK です。
スマホページに一括でPC版で見るボタンを追加
PC 版で見るボタンは作れましたが、商品数が何千、何万とあれば付けるのが大変です。そんな時は Excel のマクロを使えば一瞬です。
-
-
Excelで全ての行のセルの頭や最後に文章を追加したい【マクロ使用】
Excel にはマクロ機能といって Visual Basic を使ってプログラミングができる機能があります。ちょっとでも自分でプログラミングが出来ると作業の時短が出来て便利なんですよね。 今回は、何万 ...
上の記事でも紹介している方法でスマホサイトの商品説明の最下部に PC 版で見るボタンを追加します。
Sub セル末尾文章追加()
Dim i As Integer
For i = 2 To Sheets(1).UsedRange.Rows.Count
Sheets(1).Cells(i, 53).Value = Sheets(1).Cells(i, 53).Value & "<br><br>" & Chr(10) & "<table width='85%' align='center' bgcolor='#ff2525' cellpadding='5'><tr><td align='center' height='50'><b><a href='http://item.rakuten.co.jp/******/" & Sheets(1).Cells(i, 2).Value & "/?force-site=pc'><font color='#ffffff' size='5'>PC版で見る≫</font></a></b></td></tr></table>"
Next
Msgbox("終了")
End Sub
随分と長いですがやっている事は単純です。商品情報を CSV で一括編集する事はよく行われている事だと思います。スマホ商品説明の末尾に PC 版で見るボタンを追加しています。
楽天の商品ページの URL は「http://item.rakuten.co.jp/ショップID/」の後に商品管理番号が付加されて出来ています。その為「Sheets(1).Cells(i, 2).Value」で商品管理番号を付加して URL を完成させています。「Sheets(1).Cells(i, 53)」「Sheets(1).Cells(i, 2)」の53と2という部分は、お使いのデータフォーマットに合わせてスマホ商品説明の列番号、商品管理番号の列番号に変更してください。
補足説明
- Chr(10)は CSV データ上で改行する意味です。
- Sheets(1).Cells(i, 2).Value とは、1番めのシートの i 列2行目のデータを挿入するという意味です。上の例で iは for 文により 2から最後の行数まで変化します。
おわりに
これで、ちょうどショッピングカートの上部分に PC 版で見るボタンができます。スマートフォンで見ながら商品ページを PC 版サイトで詳しく見たいというニーズを満たせると思います。
