すべてにご挨拶。

この投稿では、さまざまなルーチンを自動化するために、VBAとは何か、Microsoft Excel 2007/2010でVBAを使用する方法（古いバージョンの場合、インターフェイスのみが変更され、コードはほとんど同じになる）を説明します。

VBA（Visual Basic for Applications）は、多くのMicrosoft Office製品に組み込まれているVisual Basicの簡易バージョンです。 特定のドキュメントのファイルにプログラムを直接書くことができます。 さまざまなIDEをインストールする必要はありません-デバッガーを含むすべてが既にExcelにあります。

Visual Studio Tools for Officeを使用して、C＃でマクロを記述し、それらを埋め込むこともできます。 FireStormに感謝します 。

私はすぐに言わなければならない-他の言語（C ++ / Delphi / PHP）での書き込みも可能ですが、オフィスファイルの読み取り、変更、書き込みの方法を学ぶ必要があります-ドキュメントに埋め込むことはできません。 また、MicrosoftインターフェイスはCOMを介して機能します。 すべての恐怖を理解するために、COMを使用したHello Worldを紹介します。

したがって、悲しいかな、Visual Basicを学習します。

少しの準備と問題の説明

行きましょう。 Excelを開きます。

まず、開発者パネルをリボンに追加しましょう。 フォームを構築するためのボタン、テキストフィールド、その他の要素が含まれています。

タブが表示されました。

ここで、VBAを研究する例について考えてみましょう。 最近、表のように見える価格表をうまく整理する必要がありました。 Googleにアクセスし、「価格表」を入力して、次のように装飾されたものをダウンロードします（広告の場合は考慮しないでください）。

つまり、商品を組み合わせることができる少なくとも2つのグループが必要です（この場合、これらはこの順序でタイプとメーカーになります）。 提案したアルゴリズムが正しく機能するように、1つのグループの商品が最初に並んでいるように商品を並べ替えます（最初にType 、次にManufacturer ）。

達成したい結果は次のようになります。

もちろん、コンピューターでのみ価格表を見る場合は、フィルターを追加できます。適切な製品を検索する方がはるかに便利です。 ただし、コーディング方法を学びたいので、タスクは非常に適切です。

コディム

最初にボタンを作成する必要があります。クリックすると、プログラムが呼び出されます。 ボタンは「開発者」パネルにあり、「挿入」ボタンに表示されます。 ボタンフォームコンポーネントが必要です。 クリックして、シートの任意の場所に置きます。 さらに、マクロ宛先ウィンドウが表示されない場合は、右クリックして「マクロの割り当て」項目を選択する必要があります。 FormatPriceと呼びましょう。 マクロ名の前に何もないことが重要です。そうしないと、ブックの名前空間ではなく、別のモジュールで作成されます。 この場合、選択したシートにすばやくアクセスすることはできません。 「新規」ボタンをクリックします。

そして、ここではVB開発環境にいます。 また、コンテキストメニューから「ソーステキスト」/「コードの表示」コマンドを使用して呼び出すこともできます。

スタブプロシージャのあるウィンドウを次に示します。 デプロイできます。 コードは次のようになります。

Sub FormatPrice()

End Sub

Hello Worldを書きましょう。

Sub FormatPrice()
MsgBox "Hello World!"
End Sub

そして、ボタンをクリックする（以前に選択を削除する）か、エディターから直接F5を押すことで開始します。

ここでは、おそらく、VBの構文に関する小さな教育プログラムに気を取られるはずです。 誰が知っているか、彼はこのセクションを最後まで安全にスキップできる。 Visual BasicとPascal / C / Javaの主な違いは、コマンドが分離されていないことです。 ただし、実際に1行に複数のコマンドを記述したい場合は、改行またはコロン（ :)を使用します。 構文の基本的なルールを理解するために、抽象的なコードを提供します。

構文例

熊手-1。 IDEからコードを（英語のExcelで）コピーすると、すべてのテキストが1252 Latin-1に変換されます。 したがって、ロシア語のコメントを保存する場合は、ワニをLatin-1として保存し、1251で開く必要があります。

レーキ2。 なぜなら VBでは未宣言の変数を使用できます。OptionExplicitは常にコードの先頭（すべての手順の前）に配置します。 このディレクティブは、インタープリターがそれ自体で変数を開始するのを防ぎます。

すくい3。 グローバル変数は、最初の関数/プロシージャの前でのみ宣言できます。 ローカル-プロシージャ/ファンクション内の任意の場所。

InPos 、 Mid 、 Trim 、 LBound 、 UBoundといった便利な追加機能がいくつかあります。 また、関数の操作/そのパラメーターに関するすべての質問に対する回答は、MSDNで入手できます。

これで、コードを怖がらず、自分でコンピューターサイエンスの宿題を書くのに十分であることを願っています。 投稿中に、目立たないように新しいデザインを紹介します。

私たちはExcelの下でたくさんコーディングします

このパートでは、Excelのシートで機能するもののコーディングを既に開始します。 まず、 resultという名前の別のシートを作成します（データシートはdataと呼ばれます ）。 さて、おそらく、このシートの内容をクリアする必要があります。 また、データシートを「選択」して、シートを使用して配列に長い呼び出しを書き込まないようにします。

Sub FormatPrice()
Sheets( "result" ).Cells.Clear
Sheets( "data" ).Activate
End Sub

セル範囲を操作する

Excel VBAでのすべての作業は、セル範囲で行われます。 それらはRange関数によって作成され、タイプRangeのオブジェクトを返します。 彼はデータやデザインを扱うのに必要なすべてを持っています。 ところで、シートのCellsプロパティもRangeです。

範囲の例

それでは、コードのアルゴリズムを理解しましょう。 したがって、2番目から始まるデータシートの各行には、興味のないデータ（ ID 、 名前 、および価格 ）があり、それが属する2つのネストされたグループ（ typeおよびmanufacturer ）があります。 さらに、これらの行はソートされます。 新しいグループを始める前にギャップを忘れてしまいますが、それは簡単です。 私はこのようなアルゴリズムを提案します：

1. 次の行からグループをカウントしました。
2. すべてのグループを優先度の高い順に並べます（最初の大きなグループ）
   
   1. 現在のグループが一致しない場合、 AddGroup（i、name）プロシージャを呼び出します。ここで、 iはグループ番号（現在の番号から最大まで）、 nameはその名前です。 ヘッダーだけでなく、すべてのヘッダーを作成するには、いくつかの呼び出しが必要です。
3. 必要なヘッダーをすべて描画した後、別の行を作成してデータを入力します。

作業を簡素化するために、次の削減関数を定義することをお勧めします。

Function GetCol(Col As Integer ) As String
GetCol = Chr(Asc( "A" ) + Col)
End Function

Function GetCellS(Sheet As String , Col As Integer , Row As Integer ) As Range
Set GetCellS = Sheets(Sheet).Range(GetCol(Col) + CStr(Row))
End Function

Function GetCell(Col As Integer , Row As Integer ) As Range
Set GetCell = Range(GetCol(Col) + CStr(Row))
End Function

次に、グローバル変数「現在の行」を定義します： Dim CurRow As Integer 。 手順の始めに、それは統一に等しくする必要があります。 また、変数「 データの現在の行」、現在の前の行のグループ名を持つ配列が必要です。 次に、「行の最初のセルが空でない間に」サイクルを書くことができます。

グローバル変数

フォーマット価格

次に、 グループ配列にデータを入力する必要があります 。

省略記号の代わりに

そしてヘッダーを作成します：

前の部分の省略記号の代わりに

AddHeaderプロシージャを忘れないでください。

フォーマット前価格

次に、すべての情報を結果に転送する必要があります

For I2 = 0 To DataCount - 1
GetCellS( "result" , I2, CurRow).Value = GetCell(I2, I)
Next I2

列を幅に合わせ、 結果シートを選択して結果を表示します

FormatPriceの最後のループの後

それだけです 最初のバージョンを楽しむことができます。

glyいですが、それはそうです。 フォーマットを処理しましょう。 まず、 AddHeaderプロシージャを変更します。

Sub AddHeader(Ty As Integer , Name As String )
Sheets( "result" ).Range( "A" + CStr(CurRow) + ":C" + CStr(CurRow)).Merge
'
' With
With GetCellS( "result" , 0, CurRow)
.Value = Name
.Font.Italic = True
.Font.Name = "Cambria"
Select Case Ty
Case 1 '
.Font.Bold = True
.Font.Size = 16
Case 2 '
.Font.Size = 12
End Select
.HorizontalAlignment = xlCenter
End With
CurRow = CurRow + 1
End Sub

すでに良い：

境界を描くためだけに残っています。 ここでは、すでにすべての結合されたセルを操作する必要があります。そうでない場合は、1つだけが境界線を持ちます。

したがって、境界線スタイルを追加してコードをわずかに変更します。

Sub AddHeader(Ty As Integer , Name As String )
With Sheets( "result" ).Range( "A" + CStr(CurRow) + ":C" + CStr(CurRow))
.Merge
.Value = Name
.Font.Italic = True
.Font.Name = "Cambria"
.HorizontalAlignment = xlCenter

Select Case Ty
Case 1 '
.Font.Bold = True
.Font.Size = 16
.Borders(xlTop).Weight = xlThick
Case 2 '
.Font.Size = 12
.Borders(xlTop).Weight = xlMedium
End Select
.Borders(xlBottom).Weight = xlMedium ' : xlThick, xlMedium, xlThin, xlHairline
End With
CurRow = CurRow + 1
End Sub

新しいグループを開始する前にパスを達成するためだけに残ります。 これは簡単です：

FormatPriceの開始時

見出しループで

まさに彼らが望んだもの。

この記事が、VBAのExcelプログラミングに少し慣れるのに役立つことを願っています。 宿題-見出し「 ID、タイトル、価格 」を結果に追加します。 ヒント： CurRow = 0 CurRow = 1

ファイルはここ （min.us）またはここ （Dropbox） からダウンロードできます。 マクロの実行を有効にしてください。 誰かが人間のファイルホスティングを促す場合は、そこにアップロードします。

ご清聴ありがとうございました。

コメントで建設的な批判ができればうれしいです。

UPD： Dropboxとmin.usでサンプルをリロードしました。

UPD2：実際には、 1つのパラメーターを使用してプロシージャを呼び出すときに、括弧を付けることができます。 または、 Call Fooコンストラクト（「bar」、1、2、3）を使用します -ここでは、ブラケットが常に必要です。