最初に VBA が使用できるようにマクロと呼ばれるエクセル上のアプリ ( のようなもの ) を準備します Excel メニューのファイルオプションを選択表示される Excel のオプションからリボンのユーザー設定を選択メインタブ内の開発にチェックを付けて OK をクリック

Size: px

Start display at page:

Download "最初に VBA が使用できるようにマクロと呼ばれるエクセル上のアプリ ( のようなもの ) を準備します Excel メニューのファイルオプションを選択表示される Excel のオプションからリボンのユーザー設定を選択メインタブ内の開発にチェックを付けて OK をクリック"

はすなえいさか
5 years ago
Views:

1 ブログ自動投稿ツールの作り方 (Excel 2013 版 ) さとうちはるさんの無料レポート超簡単! 誰にでも出来るブログ記事自動投稿ツールを作成する方法をご紹介アフィリエイトにはめんどくさい作業や退屈な作業がたくさんありますやりたくない作業はツールを使って自動化しよう文末にはツールの無料プレゼントありますには Excel2013での実際の操作手順が掲載されていませんでしたそこで Excel 2013で実践してみましたその記録です活用していただければ嬉しいです麻生ゆき (Excel 2003だけで解説された部分のみです ) ( 前後の共通部分は無料レポートをご覧下さい )

2 最初に VBA が使用できるようにマクロと呼ばれるエクセル上のアプリ ( のようなもの ) を準備します Excel メニューのファイルオプションを選択表示される Excel のオプションからリボンのユーザー設定を選択メインタブ内の開発にチェックを付けて OK をクリック Excel のメニューに開発タブが追加されていれば完了です表示される Excel のオプションからリボンのユーザー設定を選択

3 メインタブ内の開発にマークを入れる右下の OK をクリック通常エクセルの初期設定ではセキュリティ機能によってプログラムは実行できないようになっていますマクロが実行できるように設定を変更します

4 開発タブのマクロのセキュリティをクリックマクロのセキュリティを開く

5 マクロの設定をクリック警告を表示して全てのマクロを無効にするを OK ボタンをクリックする

6 それではいよいよエクセル VBA の機能を体験してもらいます 1. Excel のシートを開きます 2. 開発タブをクリック 3. Visual Basic を開きます

7 画面が開いたら挿入タグから標準モジュールを選択

8 ここにプログラムのコードを貼り付けます以下のサンプルコードをコピーして試してみてください

9 入力したらツールマクロを選択 ( サンプルコード1)( コピペできます ) ~~~~~ Sub メッセージボックスを表示する () Msgbox アフィリエイトで稼ぐ End Sub ~~~~~

10 マクロ名を選び実行を選択

11 アフィリエイトで稼ぐと表示されました今回のプログラムはたった1 行だけなので単にメッセージボックスが表示されただけでしたがプログラムはいくらでも行数を増やせるのでアイデア次第でいろいろなことが出来るようになります

12 次はもう少し動きのあるプログラムを試していただきます ( サンプルコード 2) 最初に文字を入力してボタンの選択によって処理が分かれるように作ってあります少しプログラムコードについて上から順に説明していきます Sub サブルーチンの略である共通の処理を1つにまとめたものを呼びます Sub ~ End Sub までがひとつのマクロになります Sub ~ End Sub でくくられたそれぞれの指令文にはどの作業をどういう手順で行なうかということが記されています

13 Dim Res As Integer Dim は言語にもよりますが多くは dimension ( ディメンション ) の略語で変数の宣言等で使われます integer は整数の意味となりますよってこの場合は Dim Res As Integer とは Res を整数として扱うということになります Res = MsgBox(" お金を稼ぐことは好きですか?", vbyesnocancel) MsgBox はその名の通りメッセージボックスで入力した値に対して次の処理の内容を表示して処理の続行をはいいいえで促したり処理の結果を表示したりしますよってこの場合は " お金を稼ぐことは好きですか?" というメッセージと文字入力フォームさらにはいいいえキャンセルのボタンを表示して入力された文字をRes の値として扱います次の If Res <> vbcancel Then から 11 行目までの End If まではまとめて処理されます If~Then~Else~End If は If 文に設定されている条件式を判定してその結果が真 (True) の場合はThen 以降の処理を実行して偽 (False) の場合はElse 以降の処理を実行するようになっていますそれぞれの行で処理される内容の説明は上記のプログラムコード内に追記していますのでそちらを参照し

", vbyesnocancel) ' 文字を入力 If Res <> vbcancel Then ' キャンセルがクリックされた時プログラム終了 If Res = vbyes

14 てみてください ~~~~~ ( コピペできます ) Sub メッセージボックスの利用 () Dim Res As Integer Res = MsgBox(" お金を稼ぐことは好きですか?", vbyesnocancel) ' 文字を入力 If Res <> vbcancel Then ' キャンセルがクリックされた時プログラム終了 If Res = vbyes Then ' はいがクリックされた時次の行を実行する MsgBox " アフィリエイトなら稼げますよ ", vbyesno Else ' いいえがクリックされた時次の行を実行する MsgBox " ツールがあれば作業がラクになりますよ ", vbyesno End If MsgBox " ご回答ありがとうございました " End If End Sub ~~~~~

15 次のサンプルコード 3 はエクセルのセルに入力された数値を処理するものですエクセルの A1 列に適当に文字や数字を前もって 10 個ほど入力しておいてください ( サンプルコード 3) はデータの間に一行ずつ空白行を挿入するプログラムの例になります

16 ~~~~~ ( コピペできます ) Sub 一行ずつ空白行を挿入 () Dim i As Long Const mycol = 1 ' 最終行を判断するための列 For i = Cells(Rows.Count, mycol).end(xlup).row To 2 Step -1 Rows(i).Insert Next i End Sub ~~~~~ 以上サンプルコード (1) から (3) まで動かすことができたでしょうか以上のサンプルコードはすべてエクセルのシート上のみでの動作でしたが実はインターネットの画面 ( インタネットエクスプローラー ) を操作することもできるのですでは実際にやってみましょう ( サンプルコード4) は郵便番号を入力して Google マップを表示させる方法です

17 ( サンプルコード 4) ~~~~~ ( コピペできます ) Sub 郵便番号でGoogleマップを表示 () Dim 郵便番号 As String Dim SPDY_URL As String Dim Res As Integer 郵便番号 = Application.InputBox(" 郵便番号を入力してください ") SPDY_URL = " _ & 郵便番号 & "&z=" & "16" CreateObject("WScript.Shell").Run SPDY_URL 'Google Map を表示する End Sub ~~~~~

18 すると次に下のような画面が出てきましたので Japan と入力してみましたすると簡単なのになかなか面白いですねこのようにいろいろなプログラムを試しているとその可能性の大きさを感じていただけたのではないかと思いますレポートで紹介したようなサンプルコードはネットで検索していただくとたくさん出ていますぜひいろいろと試してみてくださいね

19 VBA について気になることを調べて知識が徐々に増えてくると自分が日々やっているアフィリエイトの作業をどうにか自動でできる方法は無いかと考えるようになり前出のGoogleマップのコードを試した際にはブログの記事を自動で投稿することも出来るはずだと考えるようになりました先のサンプルコード4ではボックスに入力した7 桁の数字からグーグルマップのサイトを開くことができたのでこれを少し応用すれば簡単にできると思いましたエクセルでブログのURL やタイトル等を入力したシートを作成してそのデータを元にVBA でブログサービスのサイトを操作するプログラムを作ればブログの記事を自動で投稿できるはずだと予想しました VBA はマウスやキーボードで操作することは基本的に何でもできると最初の頃にどこかのサイトで読んでいたからきっとできるはずだと考え試行錯誤しながらやっとできたのが次のコードですレポートを作成しようとした際は出来る限り簡潔にしようと思っていたのですがどうしても書いておきたいことが追加で出てきて長くなってしまいましたやっとのことでブログ記事を投稿するためのコード紹介のところまでやってきましたもう一息ですがんばりましょうこれまでを同じように以下のコードをVBAのコード編集画面に貼り付けてください

20 ( サンプルコード 5) ブログ自動投稿ツール ~~~~~ Const FC2ADDRESS = 3 Const FC2MAILADD = 4 Const FC2PASS = 5 Const FC2TITLE = 6 Const FC2CATEGORYCHOICE = 7 Const FC2ARTICLE = 8 Const FC2CATEGORY = 9 Sub ブログ記事投稿 () '[--- メインプログラム---] '[--- プログラムで使用する変数を設定---] Dim IEobj As Object ' オブジェクト変数として定義 Dim row As Integer ' 整数として定義 Dim sitehtml As String ' 文字列として定義 Dim index As Integer ' 整数として定義 '[--- プログラムで使用する変数を設定---] '[--- 前準備 ---] Set IEobj = CreateObject("InternetExplorer.Application") 'IEを操作する準備 row = 6 ' エクセルのセルをD6 の位置にする '[--- 前準備 ---] '[--- 記事投稿メインプログラム (Do~ の間をくり返し )---] Do While Cells(row, FC2MAILADD).Text <> "" URL = " ' まずは一旦ログアウト IEobj.Navigate URL ' 改めてログインする IEobj.Application.Visible = True ' ブログサイトを表示 '[--- サイトの完全表示を待つ---]

21 Do While IEobj.Busy = True 'IEを表示する Do While IEobj.Document.ReadyState <> "complete" ' 完全に表示されるまで待機 '[--- サイトの完全表示を待つ---] '[--- ブログサイトにログインして投稿処理する---] URL = " ' ブログサイトのURL を指定 IEobj.Navigate URL ' 指定したURL のサイトを表示 IEobj.Application.Visible = True ' 確認できるようにIE を表示 '[--- サイトの完全表示を待つ---] Do While IEobj.Busy = True 'IEを表示する Do While IEobj.Document.ReadyState <> "complete" ' 完全に表示されるまで待機 '[--- サイトの完全表示を待つ---] IEobj.Document.all. .Value = Cells(row, FC2MAILADD).Text ' メールアドレス入力 IEobj.Document.all.pass.Value = Cells(row, FC2PASS).Text ' パスワード入力 IEobj.Document.forms(0).Submit ' ログインボタンをクリック '[--- サイトの完全表示を待つ---] Do While IEobj.Busy = True 'IEを表示する Do While IEobj.Document.ReadyState <> "complete" ' 完全に表示されるまで待機

22 '[--- サイトの完全表示を待つ---] IEobj.Navigate " ' ブログサービスのトップ画面を表示 '[--- サイトの完全表示を待つ---] Do While IEobj.Busy = True 'IEを表示する Do While IEobj.Document.ReadyState <> "complete" ' 完全に表示されるまで待機 '[--- サイトの完全表示を待つ---] ' ブログの管理画面を表示 IEobj.Navigate " '[--- サイトの完全表示を待つ---] Do While IEobj.Busy = True 'IEを表示する Do While IEobj.Document.ReadyState <> "complete" ' 完全に表示されるまで待機 '[--- サイトの完全表示を待つ---] ' 新しい記事を投稿する画面を表示 IEobj.Navigate " '[--- サイトの完全表示を待つ---] Do While IEobj.Busy = True 'IEを表示する Do While IEobj.Document.ReadyState <> "complete" ' 完全に表示されるまで待機

23 '[--- サイトの完全表示を待つ---] '[--- 各フォームにデータを入力する---] ' エクセルシートのタイトル欄と記事欄が空欄になってないか確認 If Cells(row, FC2TITLE).Value <> "" And Cells(row, FC2ARTICLE).Value <> "" Then '[--- 各フォームにエクセルのデータを入力する---] ' 記事タイトルの入力 IEobj.Document.forms.Item(0).elements.Item(0).Value = Cells(row, FC2TITLE).Value ' カテゴリーの入力 IEobj.Document.forms.Item(0).elements.Item(1).Value = Cells(row, FC2CATEGORY).Value ' 記事本文の入力 IEobj.Document.forms.Item(0).elements.Item("entry[body]").Value = Cells(row, FC2ARTICLE).Value '< 記事を保存する > ボタンをクリック IEobj.Document.Script.setTimeout "postentry();return false;", 200 '[--- 各フォームにエクセルのデータを入力する---] '[--- エクセルの入力済みのデータを削除---] Cells(row, FC2TITLE).Value = "" ' エクセルのタイトル欄を空白にする Cells(row, FC2CATEGORYCHOICE).Value = "" ' エクセルのカテゴリー欄を空白にする Cells(row, FC2ARTICLE).Value = "" ' エクセルの記事本文欄を空白にする '[--- エクセルの入力済みのデータを削除---] '[--- IEページ遷移時の警告を回避する---] Application.Wait Now() + TimeValue("00:00:05") ' ここでしばらく待機 ( 警告ウィンドウ対策 ) SendKeys "%{S}", True ' 警告ウィンドウのページに留まる (S) をクリック '[--- IEページ遷移時の警告を回避する---] '[--- サイトの完全表示を待つ---] Do While IEobj.Busy = True 'IEを表示する Do While IEobj.Document.ReadyState <> "complete" ' 完全に表示されるまで待機

24 '[--- サイトの完全表示を待つ---] End If '[--- 各フォームにデータを入力する---] '[--- ブログサイトにログインして投稿処理する---] row = row + 1 ' エクセルの次の行に移動する ' 最初の行に戻る ( エクセルの入力されている最後の行までくり返し ) '[--- 記事投稿メインプログラム (Do~ の間をくり返し )---] '[--- 後処理 ( ログアウト )---] URL = " ' ログアウトする IEobj.Navigate URL '[--- サイトの完全表示を待つ---] Do While IEobj.Busy = True 'IEを表示する Do While IEobj.Document.ReadyState <> "complete" ' 完全に表示されるまで待機 '[--- サイトの完全表示を待つ---] Set IEobj = Nothing ' 終了する '[--- 後処理 ( ログアウト )---] '[--- メインプログラム---] End Sub ~~~~~ 上記のコードを貼り付けた後はエクセルのシートを準備します事前に FC2 ブログ ( ブログ名サイト URL ログインパスワードメールアドレス ) を開設して記事が

25 投稿できるように準備しておいてください ========== ここから先はさとうちはるさんの無料レポート超簡単! 誰にでも出来るブログ記事自動投稿ツールを作成する方法をご紹介アフィリエイトにはめんどくさい作業や退屈な作業がたくさんありますやりたくない作業はツールを使って自動化しよう文末にはツールの無料プレゼントありますの11ページへ戻ってくださいね 11ページの下の方にはエクセルのサンプルファイルを用意してくださっていますからダウンロードして利用なさると便利でしょう

26 以上実際に Excel2013 でも実践してみましたが自動投稿されていましたぜひ作業を効率化してアフィリエイトの収入を上げていきましょう麻生ゆき

ExcelVBA

ExcelVBA EXCEL VBA REGLECASSE YU SATO 目次はじめに開発タブの表示拡張子 VBEの起動と初期設定モジュールの挿入削除プロジェクトモジュールプロシージャ変数の宣言 (Dim) If~Then For~Next 応用 :If~ThenとFor~Next ボタンの作成最後に Subプロシージャ基本説明セルの指定 (Range) 変数とデータ型 (String,Long)