文字列のプロパティ名でオブジェクトを操作する方法
ツイッターで拝見したお題で、プロパティ名を引数の文字列で指定する方法についての参考VBAです。
例えば条件付き書式は、
Range → FormatConditions → FormatConditions(1) → Interior → Color
オブジェクトをこのように辿りますが、
"FormatConditions"、"Interior"、"Color"
これらを文字列で指定できるようにします。
CallByName関数
引数 | 内容 | |||||||||||||||
object | 必ず指定します。 バリアント型およびオブジェクト型のいずれかを指定できます。 この関数の実行対象となるオブジェクトの名前を指定します。 |
|||||||||||||||
procname | 必ず指定します。 バリアント型および文字列型のいずれかを指定できます。 オブジェクトのプロパティ名およびメソッド名を含む文字列式を指定します。 |
|||||||||||||||
calltype | 必ず指定します。 定数値を指定します。 呼び出されるプロシージャの種類を表すvbCallTypeのメンバを指定します。
|
|||||||||||||||
args() | 省略可能です。 バリアント型および配列を指定できます。 |
戻り値は、実行したメソッドまたはプロパティの取得値になります。
第1引数はobjectなので、標準モジュールのプロシージャーをCallByName関数で実行することはできません。
使用例
Propertyについて
第140回.Property {Get|Let|Set} ステートメント|VBA入門
文字列のプロパティ名でオブジェクトを操作するVBAサンプル
'CallByNameを使って文字列のプロパティ名でオブジェクトを取得
Property Get CustomProperty(aObj, aProperty)
On Error Resume Next
Set CustomProperty = CallByName(aObj, aProperty, VbGet)
If Err.Number = 0 Then Exit Property
CustomProperty = CallByName(aObj, aProperty, VbGet)
End Property
'Let Propertyの最後の引数が設定する値になります
Property Let CustomProperty(aObj, aProperty, aValue)
CallByName aObj, aProperty, VbLet, aValue
End Property
用意するものはこの2つのプロパテイです。
置き場所は何処でも良いですが、標準モジュールで良いでしょう。
これはオブジェクトと単一値(スカラー値)の両方に対応しています。
単一値のプロパテイへの値の設定と取得です。
Sub sample1()
Dim rng: Set rng = Range("A1")
CustomProperty(rng, "Value") = 99
MsgBox CustomProperty(rng, "Value")
End Sub
次は、オブジェクトの階層が少し複雑になっているプロパティを扱うサンプルになります。
条件付き書式のオブジェクトを順に辿ります。
Range → FormatConditions → FormatConditions(1) → Interior → Color
Sub sample()
Dim rng: Set rng = Range("A1")
'サンプルとして条件付き書式を設定
With rng.FormatConditions
.Delete
With .Add(Type:=xlExpression, Formula1:="=A1=1")
.Interior.Color = 255
End With
End With
'FormatConditionsコレクションを取得
Dim obj1: Set obj1 = CustomProperty(rng, "FormatConditions")
'コレクションのIndexを指定してFormatConditionを特定
Dim obj2: Set obj2 = obj1(1)
'FormatConditionのInteriorオブジェクトを取得
Dim obj3: Set obj3 = CustomProperty(obj2, "Interior")
'Interiorオブジェクトの"Color"にvbBlueを設定
CustomProperty(obj3, "Color") = vbBlue
End Sub
あまり実用性があるとも思えませんが、
CallByName
Property
これらを理解する学習素材として取り組んでみてもよいかもしれません。
同じテーマ「マクロVBA技術解説」の記事
Select Caseでの短絡評価(ショートサーキット)の使い方
OneDrive使用時のThisWorkbook.Pathの扱い方
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数(セル範囲をトリム:端の空白セルを除外)|エクセル入門(2024-08-30)
正規表現関数(REGEXTEST,REGEXREPLACE,REGEXEXTRACT)|エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない|エクセル雑感(2024-04-11)
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.繰り返し処理(For Next)|VBA入門
4.変数宣言のDimとデータ型|VBA入門
5.RangeとCellsの使い方|VBA入門
6.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
7.メッセージボックス(MsgBox関数)|VBA入門
8.セルのクリア(Clear,ClearContents)|VBA入門
9.ブック・シートの選択(Select,Activate)|VBA入門
10.条件分岐(Select Case)|VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- 文字列のプロパティ名でオブジェクトを操作する方法
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。