[三流君] −−＞ [ＶＢＡで楽しく] −−＞ [バックナンバー一覧]
−−＞ No.051 Excel Range オブジェクトを使う

Excel Range オブジェクトを使う

メルマガ発行内容

＜Excel Range オブジェクトを使う＞

こんにちは、三流プログラマーＫｅｎ３です。

今回は、
Excel Range オブジェクト
~~~~~~~~~~~~~~を軽く書きたいと思います。

へぇ〜、そうなんだぁ程度に、気楽に読んでください。

サンプルファイルは、
http://www.ken3.org/vba/lzh/vba051.lzh
に
test051-book.xlsが保存されています。
遊んでみてください。

/*
 * １．今回のキッカケ
*/

Excelは、表計算ソフトって言われてます。
まぁ、よく聞くフレーズだよね。

Excelでは、
操作の対象が、セルの集合体（範囲）なんてよくあると思うので、
今回は、Rangeオブジェクトについて、軽く書きたいと思います。

おまけで、Excelの表をHTMLにするサンプルを書きました。
テストして、笑ってくださいね。

＊今後、やってほしい特集あったら、メール・掲示板に書いてください。

/*
 * ２．Range とか 言ってるけど？
*/

Range オブジェクトとか言ってるけど、
単なるセルの集合体なんですよね。

Sub test()
    Range("a2:d10").Value = "TESTです"
    Range("a2:d10").Font.Bold = True
End Sub

ごくごく、簡単な方法は、
Range("a2:d10など範囲の文字列").プロパティorメソッド
なんてよくワークシートのＳＵＭで使っている
A2:D10と見た目も簡単に書くことが出来ます。

また、
Sub test2()
    Range(Cells(11, 2), Cells(20, 5)).Value = "ここですよ"
    Range(Cells(11, 2), Cells(20, 5)).Font.Size = 8
End Sub
みたいに、
セルのここからCells(11, 2)、ここまでCells(20, 5)、
と、範囲の指定も出来ます。

/*
 * ３．Range型として、変数で使用可能です
*/
直接、Range("a2:d10")なんて書いてたら、なんか使いにくいですよね。
As Range と Range型を定義して、使用することも出来ます。

Sub test3()

    Dim myRANGE As Range  'Range型を定義

    Set myRANGE = Range("A2:F10")

    myRANGE.Cells(1, 1) = "XXXX"
    myRANGE.Cells(1, 1).Font.Size = 16

End Sub

Dim myRANGE As Range
と、Range型の変数を作成、
値の代入には、Setを使い、
Set myRANGE = Range("A2:F10")
みたいな感じで、代入セットします。

面白いのは、myRANGE.Cells(1, 1)みたいに、
その変数内の1行目1列目と使えるとこかなぁ。

/*
 * ４．応用編、こんな使い方も出来るのかなぁ
*/

ここまでだと、物足りないので？
セルの範囲を選択させ()、
ＨＴＭＬのテーブルを（ファイルを）作ってみたいと思います。

Sub make_table()

    'Application.InputBoxでセルを選択させる
    Dim objHANI As Range '選択されたセルの集合
    Set objHANI = Application.InputBox(prompt:="セルを選択", Type:=8)
    If IsEmpty(objHANI) Then 'キャンセルが押されたかチェックする
        MsgBox "キャンセルが押されました"
    End If

    'ファイルをオープンする
    Dim FNO      As Integer  'ファイル番号
    Dim strFNAME As String   'ファイル名保存用
    FNO = FreeFile '空いてるファイル番号を取出す
    strFNAME = ThisWorkbook.Path & "\test.html" 'ファイル名を作る
    Open strFNAME For Output As #FNO  'テキストファイルを新規作成

    'HTMLのヘッダーを書く
    Print #FNO, "<HTML><HEAD><TITLE>"
    Print #FNO, "テーブル作成"
    Print #FNO, "</TITLE></HEAD>"
    Print #FNO, "<BODY>"
    Print #FNO, "<TABLE border=1>"  'テーブルの開始

    '行、列でループを作る
    Dim y As Integer
    Dim x As Integer
    For y = 1 To objHANI.Rows.Count         '行のループ
        Print #FNO, "<TR>";  '行の開始タグ
        For x = 1 To objHANI.Columns.Count  '列のループ
            'セルの値を<TD>で囲って出力
            Print #FNO, "<TD>" & objHANI.Cells(y, x).Value & "</TD>";
        Next x
        Print #FNO, "</TR>"  '行の終了タグ
    Next y

    'HTMLのタグを閉める
    Print #FNO, "</TABLE>"
    Print #FNO, "</BODY></HTML>"

    'ファイルをクローズする
    Close #FNO

    'おまけでＩＥを起動して、表示
    Dim objIE    As Object  'ＩＥオブジェクト参照用
    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")
    objIE.Visible = True '見えるようにする(お約束)
    objIE.Navigate strFNAME  '文字列で指定したＵＲＬに飛ぶ

    '終わりの挨拶
    MsgBox strFNAME & "を作成しました"

End Sub

ポイントは、
    Dim objHANI As Range '選択されたセルの集合
    Set objHANI = Application.InputBox(prompt:="セルを選択", Type:=8)
で、セルを選択させて、
その選択された範囲に対して、

    '行、列でループを作る
    Dim y As Integer
    Dim x As Integer
    For y = 1 To objHANI.Rows.Count         '行のループ
        Print #FNO, "<TR>";  '行の開始タグ
        For x = 1 To objHANI.Columns.Count  '列のループ
            'セルの値を<TD>で囲って出力
            Print #FNO, "<TD>" & objHANI.Cells(y, x).Value & "</TD>";
        Next x
        Print #FNO, "</TR>"  '行の終了タグ
    Next y

のループで、データを書いてるだけです。
ループ作成で、これは？何？と思うのが、
objHANI.Rows.Countの行カウントと、
       ~~~~~~~~~~~
objHANI.Columns.Count列カウントです。
       ~~~~~~~~~~~~~~
これは、Rangeオブジェクトが値を持っているので使わせてもらいました。
＊Ａ1：Ｅ７とかから求めるのは大変だったのでラッキーでした。

あとは、普通に、選択された範囲から
objHANI.Cells(y, x).Value 
と、Cells(y, x)で普通に取出しています。

Range型のプロパティ、メソッドは数多いので、みなさんも探ってみて下さい。

/*
 *　５.おわりの挨拶
*/

Rangeオブジェクト、なんとなく使い方、わかったと思います。

今回は、
・Rangeオブジェクトって？
・Range型として、変数で使用可能です
・.Rows.Countの行カウントと.Columns.Count列カウント
でした。

サンプルファイルは、
http://www.ken3.org/vba/lzh/vba051.lzh
に
test051-book.xlsが保存されています。

表の入力が得意のExcelで表を入力、
ちょっとしたＶＢＡで表をＨＴＭＬ化することも、
なんか簡単にできそうですね。
＊メモ帳、ＨＴＭＬ作成派の私も表の部分は使ってみようかなぁ、、
　えっ、まだまだ、機能が足りないって？そうですね。
　今後、Ｅｘｃｅｌ解説とあわせて肉付けしていく予定です。

何か素朴な疑問などあったら、メール、掲示板に気軽に書いてください。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

----------------------------------
関連項目(ただのバックナンバー紹介)
----------------------------------
[No.11 ＩｎｐｕｔＢｏｘ関数で簡単な値を受け取る]
( /vba/backno/vba011.html を参照)
では、
Excel VBA Application.InputBox の解説を少し。

[No.27 テキストファイル処理  ファイルへの書き込み]
( /vba/backno/vba027.html を参照)
では、
テキストファイルの作成処理の解説を少し。

[No.44 Cells(257)とCells(2,1)の関係]
( /vba/backno/vba044.html を参照)
では、
Cellsを少し。

[No.50 IE起動 CreateObject("InternetExplorer.application")]
( /vba/backno/vba050.html を参照)
では、IEの起動方法を書きました。

--------------------
読者からのお便り紹介
--------------------
In message "Re: やばい０のまま、、、",
いちにいさん wrote...
 >>  >で、購読者「0x0000」ってか？(笑）
 >>
 >> イヤ＆ｈ００です。
 >> １６進で書いても０は０かぁ（涙でそう）
 >VBだから、&Hか。（笑）
 >400円/月なら、数ヶ月分で参考書とか買えちゃうよね。
 >やっぱ、出版素人の物って、業界のプロの物でも、
 >手を出しにくいよね。
 >あと、形のないデジタルデータって、何か金払いたくない、
 >みたいな。（笑）
----
有料版のメルマガ、予想通り苦戦中。
2003/01/18 三流作者、有料メルマガに挑戦
http://www.ken3.org/backno/backno_guchi29.html#146
で、最悪４・５人なんて書いてたけど、現実はかなり厳しい。
←読者０の現実画像
まずは、無料版をがんばってから有料版だよね。

話は少し変わって、
http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi?mode=allread&no=13&page=0
で、Ｅｘｃｅｌ ＶＢＡからＦＴＰを使う方法、

http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi?mode=allread&no=44&page=0
で、AccessVBAからExcelの書式を設定..

など、質問の掲示板も運営してるので（おいおい）、
時間のあるとき、のぞきに来てください。
＊なかなか、掲示板を流行らせるのって大変みたいですね。
　おっと、まずは、メルマガ無料読者を増やさなきゃね。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

No.051を読んだ満足度(評価)は？
5満足（参考になった）
4まぁまぁ（一部参考になった）
3普通（どちらとも言えない）
2なんかなぁ（期待と違った）
1不満（読んで損した気分）
 作者に感想・質問を送る場合は下記に気軽に書いてください
あなたのお名前（ニックネーム） さん

作者からの返信は、 不用 E-mail で受信したい
＊質問・感想はメルマガで紹介する場合があります

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係 関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます
広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する
Google
Web www.ken3.org
www.microsoft.com support.microsoft.com
あとは、項目別にMSでお勉強かな？
◆ マイクロソフト サイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジ マップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店
 ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・