企業研修講師派遣のBESTグループ
出張パソコン教室ITスクール
webコンサルティングスクール
パソコンの家庭教師BEST
ExcelシートをHTMLに変換する方法
Q．Excelの数式を使ってある集計処理を行っているのですが、上司から、その集計結果表をホームページ業者にHTMLファイルとしてお渡しして、ホームページに掲載してもらうように指示されました。今のExcelブックを簡単にHTMLに変換する方法はあるでしょうか。 A．ExcelマクロのPublishObjectsというオブジェクトを使用すれば簡単に実現できます。 最も単純なケースは、集計結果表のExcelファイルにマクロを追加して対応して実現することが可能です。 集計結果表のExcelファイルをマクロ付きブックとして保存し、マクロを使える状態にします。それから「開発」リボンからVisual Basic Editorを起動して下さい。 ファイルの一覧の出力対象とするシートをVisual Basic Editorの左ペインから選択し、コードエディタから下記のようなマクロのコードを記述し、 実行することで、ExcelファイルをHTMLファイルとして出力することができます。 ここでは、「集計」シートの内容を、cドライブ直下に、result.htmlとして出力しています。 Sub HTML出力 With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "c:\result.html", "集計") .Publish True End With End Sub これを実行する際には、Excel画面の「開発」リボンの「マクロを表示」から上記関数を選択し実行するようにして下さい。 (Excel画面上にボタンなどを貼り付け、そのボタンから上記の関数を実行するとエラーとなるようです。) このやり方を覚えると今まで作った資料なども簡単にWebにアップすることができますね。 Excelファイルだと、Excelで開かないと基本的に中身を見ることができません。 ですがこの方法でHTMLファイルにすれば、このケースのようにホームページに組み込んだり、HTMLファイルをテキストエディターで開き、中身のHTMLテキストをブログに貼り付けたりすることでブログ記事に組み込むようなことが可能となります。 是非、ご活用下さい。
Excelシート上の重複行を削除するマクロ
Q．商品リストなどをExcelで扱う際に、商品の種類だけを知りたいなどで、2行以上ある同じ商品のリストを1行にまとめることはVBAで可能でしょうか。 A．VBAを使えばとても簡単に実現可能です。 重複行の削除は、VBAのプログラムでひとつひとつ地道にリストを辿れば可能ですが、実はVBAに便利なコマンドがあります。 今回はそれを紹介します。 まずはシート上に以下のようなリストを作成して下さい。これは1日の商品の売り上げリストをイメージしました。 (A列) (B列) 番号 販売商品 1 A5ノート 2 鉛筆10本入り 3 A4ノート 4 A4ノート 5 クリアファイル 6 消えるボールペン 7 クリアファイル 8 A4ノート さて、VBAの画面を開き、下記のコードを入力します。 Sub 重複データ削除 Range("A1").CurrentRegion.RemoveDuplicates Columns:=2, Header:=xlYes End Sub たったこれだけです。RangeオブジェクトでA1セルを含む表を指定し、そのRemoveDuplicatesメソッドで重複を除去します。 重複を判定する列は、2列目すなわちB列(販売商品)ですね。最後の Header:=xlYes は、1行目がヘッダー(「番号」「販売商品」)なので、データではないことを示しています。 プログラムが完成したら、「デバッグ」メニューの「VBAProjectのコンパイル」をして、エラーが出ないことを確認します。 シートの画面に戻り、「開発」リボン※の「マクロ」で、上記のプログラムの名称「重複データ削除」を実行すると、シート上にテキストファイルの内容が出力されます。 いろんな場面で使用できそうなコマンドですので是非覚えてみて下さい。 ※「開発」リボンが見えない場合は、下記の記事を参考にしてください。 http://www.office-kaiketsu.com/excel%ef%bc%88%e3%82%a8%e3%82%af%e3%82%bb%e3%83%ab%ef%bc%89%e3%83%9e%e3%82%af%e3%83%ad%e3%83%bbvba/%e3%83%9e%e3%82%af%e3%83%ad%e9%96%8b%e7%99%ba%e3%82%bf%e3%83%96%e8%a1%a8%e7%a4%ba%ef%bd%9c%e3%82%a8%e3%82%af%e3%82%bb%e3%83%ab2007/
VBAからワークシート関数を使う
Q．マクロを使用して集計を行いたいのですが、Excelシート上では入力できる合計「=SUM(･･･)」は、VBAでは見当たらず、どのように行えば良いでしょうか。 A．WorksheetFunctionクラスのSUMメソッドが使えます。 WorkSheetFunctionクラスには、その名の通り、「ワークシートの関数」がいろいろ用意されています。 そのうちのSUMメソッドを使用して、下記のように記述します。 Sub ワークシートのSUMファンクション Dim sumValue as integer sumValue = WorksheetFunction.Sum(Range("A1:A12")) End Sub Sumメソッドの引数に、集計したいセルを表示すれば良いのです。 WorkSheetFunctionのメソッドは沢山あります。Visual Basic Editorで「WorksheetFunction.」とドットを打てばメソッドの一覧が表示されますので、他にも使える関数がないか確認してみて下さいね。
ブックの変更をしないでブックを閉じるマクロ
Q．最近VBAを使用して、シート上の数値などを集計したりしているのですが、ブックを閉じる際にブックを保存するか確認する表示がされます。保存する必要はないので、これを表示させないようにすることは可能でしょうか。 A．いくつかの方法がありますが、今回はそのうちのひとつをご紹介します。 シート上にボタンを配置し、「閉じる」などと表示し、このボタンを押してブックを閉じることとします。 さて、この配置したボタン(Button1とします)のクリックイベントを記述するため、VBAの画面を開き、下記のコードを入力します。 Private Sub CommandButton1_Click() ActiveWorkbook.Saved=True '★ ActiveWorkbook.Close End Sub まずこのブックを保存して下さい。(保存せずに閉じるマクロのため) そして、シート上のButton1をクリックすると、何もメッセージが出力されず、閉じられたと思います。 これはどういうことかというと、Excelのワークブックは、SavedプロパティがFalseのとき、まだ保存がされていない、という判断がされ、 その判断に基づいて、保存を促すメッセージが表示されます。 従って、SavedプロパティをTrueに設定してあげれば(コード中★の部分)、実際に保存されていなくても、保存済のように振る舞うことが可能となるのです。 いかがでしょうか。この他の方法は、またの機会にでも投稿することにしますね。
前の記事を見る
