2013年02月27日

HPへ facebook のいいねボタンを設置

ホームページへフェイスブックの「いいね!」ボタンを設置する方法

@自分のアカウントでフェイスブックにログインして、下記のページからURLを入力してコードを取得し、ホームページに貼り付ける
http://developers.facebook.com/docs/reference/plugins/like/

A紹介文や画像等を指定したい場合
HPのヘッダーに下記のタグを埋め込む
<meta property="og:title" content="表示したいタイトル"></meta>
<meta property="og:type" content=website></meta>
<meta property="og:url" content="HPのURL"></meta>
<meta property="og:image" content="画像のURL"></meta>
<meta property="og:site_name" content="サイトタイトル"></meta>
<meta property="og:description" content="表示させたい文章を入れる。"></meta>

但し、直ぐに反映されないので気長に待つべし

posted by ガンさん | Comment(0) | ホームページ作成 |

2013年02月20日

郵便番号で住所を自動入力

エクセルの郵便番号変換ウィザードを使えば郵便番号⇔住所が一括変換できるが、電話やFAX注文のデータを1件づつ入力する際には使い物にならない
そこで、VBAのユーザーフォームのテキスト入力欄に自動的に表示できないかと調べてみましたら、詳しく解説されたページがありました
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_130_050.html

まず、こちらのページから Excel サンプルと、郵便局のホームページから郵便番号データ全国一括版をダウンロード
サンプルを開き、郵便番号データファイルの取り込みをクリックすると自動的に郵便番号住所変換データベース (KEN_ALL.mdb) が生成される
試しに、郵便番号⇒住所変換サンプルをクリックしてテストしてみると正常に動くのがわかる

20233.jpg
このサンプルのモジュールを自分が使っているフォームにコピーして実行させると何故かコンパイルエラーとなる ちっ(怒った顔)
当然、TXT_ZIPCODE と TXT_JUSYO の部分は書き換えているのだが?
基礎から勉強してない私には手におえないと思っていたら、マクロ⇒visual basic editor⇒ツール⇒参照設定をクリックし、参照可能なライブラリ ファイルの中から「Microsoft ActiveX Data Objects 2.7 library」と「Microsoft ADO Ext. 2.7 for DDL and Security」にチェックを入れてやると動きました わーい(嬉しい顔)

なお、先に住所を地番等まで入力し、後から郵便番号を入れると折角入力した地番等が消えてしまうので、住所欄にデータがあれば動かないようにしました
If 住所.Text <> "" Then Exit Sub

逆に、住所を入れれば郵便番号が自動的に表示されるようしたいと思っても、私には到底無理なので、住所欄に住所を入力してボタンをクリックするとグーグルで郵便番号を検索した結果が出るようにしておきました
Private Sub CommandButton_Click()
Dim 番号検索 As String
番号検索 = "http://www.google.co.jp/search?sjif&q=" + 住所.Value + "%20郵便番号"
ThisWorkbook.FollowHyperlink address:=番号検索
End Sub
posted by ガンさん | Comment(2) | Word / Excel |

2013年02月19日

郵便番号変換ウィザードのコンパイルエラー

エクセル2003で郵便番号⇔住所を自動変換させたいのですが・・・
OSは Windows7 使用しており、郵便番号変換ウィザード (2000-2007 ユーザー用) をインストールしたらコンパイルエラーがでまし

Window7用郵便番号辞書アップデートを入れれば正しく作動しました
http://www.microsoft.com/ja-jp/download/details.aspx?id=15639&hash=a4MMB53YP1PzxdSSdZ8Ji8oanmeuquZIxQRm6uy9RGIrB0rFrsXROpcjg6xyYPNgPjVHWGTtcvihH3RegW5v3A%3d%3d
posted by ガンさん | Comment(0) | Word / Excel |