どのような場合にクラスVBA?

StackOverflow https://stackoverflow.com/questions/118863

  •  02-07-2019
  •  | 
  •  

質問

時で適切な使用クラスVisual Basic for Applications(VBA)?

私として 開発が加速-減のバグの紹介 共通の利益のための多言語支援OOP.がVBAある特定の基準?

役に立ちましたか？

解決

でよいを確保するためのコードです。典型的な"パワーユーザーマクロの作家のハッキング小さなアドホックのアプリは混乱を用います。が深刻な開発、その理由を利用クラスと同様のものその他の言語を学んでいます。また、同様の制限としてVB6-相続ができる多型を用インタフェース

用のクラスを代表する団体が集ます。例えば、よく見かけるようになVBAコードをコピーはエクセル範囲を二次元配列には、その操作の二次元配列のようなコード:

Total = 0
For i = 0 To NumRows-1
    Total = Total + (OrderArray(i,1) * OrderArray(i,3))
Next i

で読みやすくするためにコピーする範囲は、オブジェクトのコレクションには適切な名前の物件のようなもの:

Total = 0
For Each objOrder in colOrders
    Total = Total + objOrder.Quantity * objOrder.Price
Next i

例えば、利用の授業を実施するｒａu-α（デザインパターン(googleめます。例えば、一つのことを私なりに必要なのは、各ワークシート、操作、保護を設定することができます。クラスを利用して確実にワークシートは常に保護される場合でも、再度エラーが発生したコード:

--- WorksheetProtector class module ---

Private m_objWorksheet As Worksheet
Private m_sPassword As String

Public Sub Unprotect(Worksheet As Worksheet, Password As String)
    ' Nothing to do if we didn't define a password for the worksheet
    If Len(Password) = 0 Then Exit Sub

    ' If the worksheet is already unprotected, nothing to do
    If Not Worksheet.ProtectContents Then Exit Sub

    ' Unprotect the worksheet
    Worksheet.Unprotect Password

    ' Remember the worksheet and password so we can protect again
    Set m_objWorksheet = Worksheet
    m_sPassword = Password
End Sub

Public Sub Protect()
    ' Protects the worksheet with the same password used to unprotect it
    If m_objWorksheet Is Nothing Then Exit Sub
    If Len(m_sPassword) = 0 Then Exit Sub

    ' If the worksheet is already protected, nothing to do
    If m_objWorksheet.ProtectContents Then Exit Sub

    m_objWorksheet.Protect m_sPassword
    Set m_objWorksheet = Nothing
    m_sPassword = ""
End Sub

Private Sub Class_Terminate()
    ' Reprotect the worksheet when this object goes out of scope
    On Error Resume Next
    Protect
End Sub

を利用できますことを簡素化しコード:

Public Sub DoSomething()
   Dim objWorksheetProtector as WorksheetProtector
   Set objWorksheetProtector = New WorksheetProtector
   objWorksheetProtector.Unprotect myWorksheet, myPassword

   ... manipulate myWorksheet - may raise an error

End Sub

このサブツobjWorksheetProtectorの範囲のワークシートで保護されます。

他のヒント

私の条件と同じその他の言語

が必要な場合もいくつかのデータといくつかの手法や具体的取り扱う場合、オブジェクトの作成/解除、授業に適

うとした場合の数に関する手続きは火災を開きを形にしているが、その一つに時間がかかっていま-このようにしたい時間が完了するように設定します。.....

することができ、ストップウォッチクラスの明らかな機能の起動、停止、それがすべての機能を取得する時にこれまでに報告するとともにテキストファイルを用いて、引数の名前を表すプロセスのタイム.ますが、"ロジカル（論理的）であるlogの最も遅いの公演のための調査である。

だがそれがすべての進捗バーのオブジェクトの手法の開閉で表示名を現在の行動は、時間ms予想残り時間前納報告書等

別の例がある場合のみアクセスのユーザーグループのゴミは自分で作ることができユーザの方法にlogingとして機能グループレベルのユーザーのアクセス制御/監査/ログインは、ある行為ングを誤りなど

もちろん、このセットを用いて関係のない方法および多変数を渡すもので全に内包されたクラスだった。

いずれをとっているのVBAが非常に強力な言語は、あなたの会社が関係することができ、実際にはいくつかの良い、複雑な解ったことと思います。

授業は極めて有用であり扱う場合がありますのでご注意ください。複雑なAPIの機能、特にこれらのデータ構造です。

例えば、GetOpenFileName()およびGetSaveFileName()機能かOPENFILENAME stucture多くの会員とする。ない場合がございます必要性を活かしながるべき初期化されます。

私はラップの構造(UDT)のAPI関数の宣言へのCfileDialogクラスです。のClass_Initializeイベントをデフォルト値の構成員のように利用の場合、クラスIのみを設定する必要はあり委員を変更したい（産手続へのフラグの定数として実施されEnum.したがって、例えば、選べるスプレッドシートを開き、コードのこのような

Dim strFileName As String
Dim dlgXLS As New CFileDialog

With dlgXLS
  .Title = "Choose a Spreadsheet"
  .Filter = "Excel (*.xls)|*.xls|All Files (*.*)|*.*"
  .Flags = ofnFileMustExist OR ofnExplorer

  If OpenFileDialog() Then
    strFileName = .FileName
  End If
End With
Set dlgXLS = Nothing

のクラストのデフォルトのディレクトリに私の書いてしまうことがありましたかを変更でInitDir物件です。

これは一つの例に過ぎませんがどのようなクラスで絶大な効にVBAます。

んが特定の基準でもそんな感便利な場所での使用の授業VBAコードです。私の心で縛られ、既存のモデルのアプリに追加で抽象化オブジェクト外のモデルをいたずらに混乱させるだけの物です。

している一 な 簡便利な場所のためのクラスVBAるようにするかどうかを完全に役立つものクラスを利用して、そのことがなかったも利用されている環境です。

でも再利用VBAコードを使用せず実習します。例えば、いわゆる、VBACode.アクセスできる他の機能または任意のモジュールの構文は次のとおりです:

VBCode.mysub(param1, param2)

を作成した場合への参照テンプレートインストーラを実行しているdll)のように、参照コードから他のプロジェクトを実装する予定です。

ソフトウェアを開発でも、マイクロソフトアクセス用オブジェクト指向プログラミングは一般的に良いです。することによりケーラビリティの未来を可能にするオブジェクト疎結合し、様々な利点があります。これは、基本的にはこのオブジェクトに自システムの依存度が低下するにつれ、お互いのリファクタリングが多いです。きのこはアクセス用のクラスのモジュールです。の下振れであることはできませんを行うクラスの継承は多VBA.最終的にあまり言えませてクラスを使用して、ベストプラクティスに関するが意としてお申込が容易で維持を用います。

データの再帰します。a.k.a.BOMの取扱い）は、カスタムクラスの危機にあると思い時には必要不可欠です。き再帰関数のないクラスのモジュールがたくさんのデータの問題です。

(なぜだかよくわかりませんな売り出BOM図書館セットVBA.（粉を山にして真ん中をXMLツール。)

複数の形インスタンスは、アプリケーションが一般的クラス(多くのオートメーションの問題では解決不可能な)いので質問して カスタム ます。

私の授業時に必要なのか、クラスからの最)のためのインスタンスが必要な場合への対応（遮)イベント、それが必要になります。一部のが嫌いな人もいるUDTs（ユーザ定義型)もう、私は利用したい場合は普通の英語で自己記録します。薬学部薬学科の学生を示します。NCPDP多いけれども読みやすくなり次strPhrmNum:)がUDTは限られているので、と言うこういうことができるように設定いたします。NCPDPており、すべてのその他の特性の移植.てくださっている皆さまとともにできない誤って変更をデータです。それかが必要なクラスなどを読み取り専用物件にUDT。

別の考慮だけの簡単な読む行っているのだとか複雑なデータ構造、それは多くの場合、有用いただけ呼び出す必要はあります。所在します。ます。AreaCodeしているが構成にしています。特に人々を維持するために、コードベース2年後に左)

自分の二つのセントは、"コード。んで使用しない理由です。またそうする)

私の授業にしたい場合は作成する自己封入パッケージのコードを使って多くVBA事業に遭トいたしました。

を定義しておくことができまsqlラッパークラスのアクセスでありますのrecordsetsとquerydefs.たとえば、更新したいテーブルに基づく基準他の関連するテーブルは使用できませんが仲間入り。き築vba recorsetとquerydefいるかを見たいので、クラスです。また、お申し込み可能なもの概念を有するようになりますので、この2つのテーブルすると良いのかimoの使用教室です。E.g.お申込みトラック事件入射して複数の属性を保持した複数のテーブル{ユーザーとユーザーの連絡先またはプロファイルに対して説明;状況を追跡;チェックリストの支援に役員に返信tonthe事故;答...}.るすべてのお問い合わせの関係、oopでご提供いただきました。ができない事故になります。Update(xxx)の代わりにすべてのコーディング...

と思いますかの基準VBAきるようになっているその他の言語に合されているのかを明記してVB.NET.

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top