EXCELのマクロについて

質問

以下のプロシージャの内容が理解出来ません。

Public Sub test()
test.show
End Sub

Public Function te2(ByVal Val1 As Single, Typ As String) As list
シート1の名前.Activate
draht=test.suchtest(Val1,Typ)
End Function

不明点は以下の通りです。
・「show」は何の操作か？（関数でしょうか？）
・また、「test」とは何を指すものか？
　プロジェクト中には上記ステートメント以外で「test」の記載は
　有りません。また、シート名ではなく、セル範囲の名前でも無い
　ようです。何か他のものでしょうか？
・As list のlistとは何か？
　関数のデータ型を記載する場所にユーザが付けたと思われる名前を記　載して何故マクロが動くのか？
・draht=test.suchtest(Val1,Typ）は何が異なるのか？

回答No.1

Wendy02 · ベストアンサー

こんにちは。

ドイツ語圏のもののようです。コードの一部を出されて、後は想像してください、というようなものですから、ちょっと不可能に近いですね。

>・「show」は何の操作か？（関数でしょうか？）
>・また、「test」とは何を指すものか？

通常は、UserForm などのダイアログ型のオブジェクトに Show をつけますが、この場合は、Classで、testに show というプロパティを加えたのではないかと思います。しかし、もし、そうなら、あまりうまくありませんね。メソッドのShowと名称がぶつかるので、たとえ、支障がなくても、かなり読みにくいです。

>　関数のデータ型を記載する場所にユーザが付けたと思われる名前を記載して何故マクロが動くのか？

構造体にすればよいのではいいと思います。ただ、実際は、Cで動かすにしても、VBAでは、こういう書き方は趣味に近いというか、Public Function にして、戻り値を構造体にしたところで、あまり意味がないような気がします。(全体が見えていないので分かりませんが、VBAの場合は、この呼び出しにPublic ステートメントの必要性がわからないです。）

draht　が、list というユーザー定義型ということですが、その変数のスコープが、モジュールレベルなのか、グローバルレベルかの変数を置いているわけです。

だからどうなんだ、ということになるのですが、肝心なコードが抜けているので、それは分かりません。Declare で呼び出すのか、それとも、参照設定で呼び出すのか、それとも、Class に登録してあるのか、いずれかにプログラムが別に存在しています。

お礼

御回答ありがとうございます。drahtの部分でドイツ語圏のモノと考えられたのでしょうか？日本とドイツでは関数の名前などVBAに違いがあるのでしょうか？（非常に初歩的な質問ですみません…)

お手数ですが、別プログラムの探し方を少しだけ具体的に教えていただけないでしょうか？
　・declareで探す方法
・参照設定で探す方法
　・Class登録で探す方法

回答No.7

Wendy02

こんにちは。

>最後に確認なのですが（不安なので…）、
>te2 = test.suchtest(Val1, Typ)の意味は
>「testフォーム中のsuchtest（構造体）をte2（構造体）へ代入する」という構造体の受渡>しという理解で良いでしょうか？

そうなのですね。普通は、参照渡しされることもあるようです。
両方が受け入れる要素を持っているので、受け渡しが可能です。

>構造体は内部に複数の要素を持つ、１つのデータの集まりなのですね。
それぞれが独立しているわけですが、ひとつの処理をするときに、失っては困る場合です。

最近、典型的な構造体のサンプルをお見せします。2番目のが本当の意味の構造体(C言語の用語）です。VBA/VBでは、正式には、データ型(Long,Integer,String)の中の「ユーザー定義型」と呼んでいます。この定義型の有効性、必ず、まとまって使われる変数の場合に、一旦定義しておけば、インテリセンスが働き、変数の後に、「.（カンマ）」を入れると」項目が出てきますので、入れ忘れるという心配がありません。

VBAのユーザー定義型
'標準モジュール

Type Profile
　名前 As String
　住所 As String
　年齢 As Integer
　性別 As Boolean
　電話番号 As Long
End Type
Sub Test()
　Dim Person As Profile
End Sub

のように使います。

C言語から、Win32 APIで使用する場合

http://oshiete1.goo.ne.jp/kotaeru.php3?qid=3972323
QNo.3972323　WORDのマクロについて質問です

#3
で書かれている
Type OPENFILENAME
　　|
　　|
End Type

ここに書かれているのをごらんになると分かるのですが、実は、「省略」出来ないような仕組みになっているので、コードが大げさになってしまっています。

それが、旧VB/VBAで、一般的に目にする構造体の使い方です。後になって失敗に気がついたのは、Word には、Dialogs オブジェクトで同様のものがあるのを、書いたときには思いつきませんでした。

なお、今回、最初、クラスのプロパティ設定かと思いましたが、UserForm 上でしたので、違いましたが、コードとしては、そっくり同じにようになります。最初、それで作ってみたのですが、途中で、違うということが分かりました。

お礼

丁寧な回答ありがとうございました。VBAのコードを解読しはじめた時は、VBAを全く知らないにも関わらず、英語と一緒で辞書を引いて順に読んでいけば簡単に理解出来ると考えていました。それが、読み始めてみると、どれが予約語で、どれがユーザが付けた名前なのか分からず、辞書を引く＝検索するという事がなかなか難しかったです。今は、コードを選択してF2キーというのを覚えて少しはましになりましたが…。wendy02さんのおかげで助かりました。ありがとうございました。

回答No.6

Wendy02

こんにちは。

通常、VBAでは、変数を構造体にして代入ということをしません。VBAとしては奇妙なコードかもしれませんね。説明は、ちょっと絵を書かないと理解しにくいです。VBAだけなら、絶対に出会わないコードかもしれません。私個人のVBAのレベルでは、こういう変数の扱いはしたことがありません。通常、列挙型の定数までは作りますが、それ以上の規模になるものを作りません。

構造体は多次元配列に似ていますが、多次元配列では、その変数全体のデータ型に影響されますので、データ型が統一しない場合は、Variant 型しか指定しません。したがって、個別の要素を設定することが出来ません。

>構造体要素のVal1とtypへ値を代入していると考えるべきなのでしょうか？

構造体になった変数、ret に対して、それぞれの要素の Val1, type に代入しています。

ret.Val1 = TextBox1.Value　　'←個別のretのVal1 に入れる
ret.Typ = TextBox2.Value　　'←個別のret のTyp に入れる

'●ここで、
ret2 = te2(ret.Val1, ret.Typ)　

'ここに渡しています。
'Public Function te2(ByVal Val1 As Single, Typ As String) As list
'
そして、出てきた戻り値を、構造体になっている　ret2 に出しています。その戻り値は、やはり、構造体の内容になっています。だから、要素が取れます。

>TextBox1.Value = ret2.Val1
>TextBox2.Value = ret2.Typ

また、以下コードのsuchtest=retでは、retに要素名が付属してないのは何故でしょうか？

>Dim ret As list　'←構造体

>suchtest = ret
>End Function

Function suchtest(ByVal Val1 As Single, ByVal Typ As String) As list
suchtest も、As list と構造体にしてあります。(＝ユーザー定義変数）

だから、

同じ、構造体の形式ですから、suchtest = ret　と、そのまま渡せます。

うまく説明できているでしょうか。分からないようでしたら、私の説明がうまくないのだと思います。

お礼

おはようございます。

構造体が「構造体」と呼ばれる理由がやっと分かった気がします。
構造体は内部に複数の要素を持つ、１つのデータの集まりなのですね。

構造体が分かるとWendy02さんのサンプルコードも理解出来ました。

最後に確認なのですが（不安なので…）、
te2 = test.suchtest(Val1, Typ)の意味は
「testフォーム中のsuchtest（構造体）をte2（構造体）へ代入する」という構造体の受渡しという理解で良いでしょうか？

回答No.5

Wendy02

こんばんは。

とりあえず、この返事から。
>不特定多数の人に出す場合は、プログラム内容を隠す為に、わざと分かりにくい構造にするという事でしょうか？

らしいですね。（^^;　

たかが、VBAというか、コンパイルそのものはあっても、ビルドがないVBAで、そんな必要性があるのだろうかなって思いましたね。VBAで、そこまでする理由が、私にも良く分からないのです。ただ、VBA上級(エキスパート試験のプロフェッショナル・レベル）には、そういう項目が出てきます。今回よりも、もうちょっと複雑ですが。

>If TextBox1.Value = "" Or TextBox2.Value = "" Then
>→""を2個連続しているのは？

クォーテーション「""」のことでしょうか？
TextBox の値が、「""」何もないという意味なのですが、これを、VBAでは、「長さ0の文字列」と呼びます。

以下は、専門的ですが、別に、「値0の文字列」というものもありますが、VBAではあまり使われません。他にも「Null」というものがありますが、これは、「Null値」(ヌルチ）と呼んで、これは別の値です。「Null文字」というのが、「値0の文字列」のことです。

Excelユーザーの方は、ほとんど混乱しているか、誤解している方が多いのは、ワークシートには、Null という意味が違う意味で使われているからです。

>MsgBox "both TextBoxes have to be filled", 48
>→48の役割は？

48は、

vbCritical　 16
vbQuestion　 32
vbExclamation　　48　　←ここ
vbInformation　　64

>If IsNumeric(TextBox1.Value) Then
>→「TextBox1の値が数字ならば」という事でしょうか？
>If Not IsNumeric(TextBox2.Value) Then
>→「TextBox1の値が数字でないならば」という事でしょうか？

そのとおりです。IsNumeric を使う理由は、TextBox 自体は、元々、Textベースだから、数字でも、数値でも同じことだということです。厳密な数値を求める場合には、この方法は使いません。

>ret.Typ = String(Int(Len(Typ) * 1.5), Left(StrConv(Typ, vbUpperCase), 1))
>→どういう内容でしょうか？

list の構造体のひとつに、アルファベットを大文字にして、その文字の数を1.5 倍して、小数点を切り捨てた数だけ出せという意味です。あまり深い意味はありません。

>te2 = test.suchtest(Val1, Typ)
>→最終的に本コードはどのような操作を意味してるのでしょうか？

TextBox1　の数値は、10倍に、TextBox2 の文字列は、大文字にして、1.5倍した、端数切捨ての数を表示するのですが、これは、関数の解の戻り値を構造体にして、そのまま構造体のまま受け渡しできるように作ったのです。

本来の操作とは違うでしょうけれども、値の受け渡しのテクニックとしては、こういうものを使っているというだけです。VBAでは、このようなワザは、あまり使われません。

お礼

返事が遅くなり、すみませんでした。サンプルコードでさえ読むのに苦労しています（苦笑）。どうも渡しは構造体の使い方がいまいち分かっていないようです。

以下のコードは、各々変数retへtextboxの値を代入していると考えるべきなのでしょうか？それとも構造体要素のVal1とtypへ値を代入していると考えるべきなのでしょうか？私は構造体は前者の働き方をすると考えていたのですが、それだとTextbox1とTextbox2の値が両方ともretの中へ代入されてしまい、つじつまが合いません。これはどのように考えるべきなのでしょうか？

　If IsNumeric(TextBox1.Value) Then
ret.Val1 = TextBox1.Value
Else
MsgBox "Textbox1 should be put in numbers"
　End If

　If Not IsNumeric(TextBox2.Value) Then
ret.Typ = TextBox2.Value
Else
MsgBox "Textbox2 should be put in text(alphabetical)"
　End If

また、上記の内容が理解出来ていないため、下記コードも良く分かりません。

　ret2 = te2(ret.Val1, ret.Typ)

TextBox1.Value = ret2.Val1
TextBox2.Value = ret2.Typ

また、以下コードのsuchtest=retでは、retに要素名が付属してないのは何故でしょうか？

Dim ret As list
ret.Val1 = Val1 * 10
ret.Typ = String(Int(Len(Typ) * 1.5), Left(StrConv(Typ, vbUpperCase), 1))
suchtest = ret
End Function

御教授お願い致します。

回答No.4

Wendy02

こんばんは。

>１．te2がシートのオブジェクトモジュールにそのまま記載されず、
>　　標準モジュールにわざわざ記載されている理由。

しばらく考えて、サンプル・コード化してみました。実際のコードとは違うものの、この仕組みは、一種のカプセル化だと思います。

カプセル化というのは、「オブジェクトにして、オブジェクト内の細かい仕様や構造を外部から隠蔽すること」で、今回は、オブジェクトになっているのかは分かりませんが、少なくとも、一旦、標準モジュールに送り、再び、UserForm モジュールによって、その仕組みを見えなくしているのではないか、と思います。

>te2=test.suchtest(Val1,Typ)は、ユーザ関数=フォーム.ユーザ関数の形だがどういう内容か？

コードを見たわけではないので、それ自体の内容はわかりませんが、例えば、以下のようにすれば、そのようなコードとして現れます。

以下は、簡易型です。もしかしたら、もう一段、組み込みされているかもしれません。私は、こういう作り方は、めったにしないのは、不特定多数の人に出すことがないからです。

以下は、TextBox1 には、数字を入れ、TextBox2 には、文字(アルファベット）を入れると、それが変化します。

'----------------------------------
'test Module(UserForm モジュールへ)
'----------------------------------
Private Sub CommandButton1_Click()
　　Dim ret As list
　　Dim ret2 As list
　　If TextBox1.Value = "" Or TextBox2.Value = "" Then
　　　　MsgBox "both TextBoxes have to be filled", 48
　　　　Exit Sub
　　End If
　　If IsNumeric(TextBox1.Value) Then
　　　　ret.Val1 = TextBox1.Value
　　Else
　　　　MsgBox "Textbox1 should be put in numbers"
　　End If
　　If Not IsNumeric(TextBox2.Value) Then
　　　　ret.Typ = TextBox2.Value
　　Else
　　　　MsgBox "Textbox2 should be put in text(alphabetical)"
　　End If
　　ret2 = te2(ret.Val1, ret.Typ)
　　TextBox1.Value = ret2.Val1
　　TextBox2.Value = ret2.Typ
End Sub

Function suchtest(ByVal Val1 As Single, ByVal Typ As String) As list
'これをClass に入れることも可能
Dim ret As list
　 ret.Val1 = Val1 * 10
　 ret.Typ = String(Int(Len(Typ) * 1.5), Left(StrConv(Typ, vbUpperCase), 1))
　 suchtest = ret
End Function

'----------------------------------
General module(標準モジュールへ)
'----------------------------------
Public Type list
　Val1 As Single
　Typ As String
End Type
Public Function te2(ByVal Val1 As Single, Typ As String) As list
　Sheets(1).Activate
　te2 = test.suchtest(Val1, Typ)
End Function

お礼

返事が遅くなってすみません。サンプルコードまで作成して下さって本当にありがとうございます。ただ、サンプルコードもまだ理解出来ていませんので、これから頑張って読ませて頂きます（苦笑）。

また「私は、こういう作り方は、めったにしないのは、不特定多数の人に出すことがないからです」とはどういう事でしょうか？不特定多数の人に出す場合は、プログラム内容を隠す為に、わざと分かりにくい構造にするという事でしょうか？

以下はコードで良く分からなかった点です。よろしければご教授下さい。

If TextBox1.Value = "" Or TextBox2.Value = "" Then
→""を2個連続しているのは？
MsgBox "both TextBoxes have to be filled", 48
→48の役割は？
If IsNumeric(TextBox1.Value) Then
→「TextBox1の値が数字ならば」という事でしょうか？
If Not IsNumeric(TextBox2.Value) Then
→「TextBox1の値が数字でないならば」という事でしょうか？
ret.Typ = String(Int(Len(Typ) * 1.5), Left(StrConv(Typ, vbUpperCase), 1))
→どういう内容でしょうか？（自分でも調べてみます）。
te2 = test.suchtest(Val1, Typ)
→最終的に本コードはどのような操作を意味してるのでしょうか？

もしかすると質問し過ぎているかも知れません。気が向くところだけでもお答え頂ければと思います。

回答No.3

Wendy02

補足です。

早い話、それを再現したほうが早いでしょうね。
ただ、
te2
test.suchtest
は、どのような働きをしているのでしょうか？
可能なら、こちらで、Class -Instanceで、同じようなものを作ってみたいと思います。複雑な動きをしているとしたら、おそらくは、VBAではないと思います。理由は、VBAでは、Cに比べて、100倍以上遅いからです。それでも、1秒以内には答えは出るはずですが。

お礼

御回答ありがとう御座います。また、同様の動作をするコード作成の提案本当にありがとう御座います。自分なりに調べてみて以下のような事がわかりました。

１．testはユーザフォームの名前であり、test.showは最初のご回答の中で触れられていた通り、ユーザフォームの表示を行うコードでした。
　　＊「フォーム」の存在を知らず、フォーム名を確認していませんでした。
２．te2はシートのオブジェクトモジュールから呼び出しを受けているユーザ関数。
３．suchtestはフォームのオブジェクトモジュール中で定義されているユーザ関数。

残りの不明点として以下の内容が残っていますので引き続き調べます。

１．te2がシートのオブジェクトモジュールにそのまま記載されず、
　　標準モジュールにわざわざ記載されている理由。
２．te2=test.suchtest(Val1,Typ)は、ユーザ関数=フォーム.ユーザ関数の形だがどういう内容か？（*draht=test.suchtest(Val1,Typ)は記載誤りでした。すみません）

ご助言/ご指摘等有れば、お願い致します。２番目はsuchtestの中身を記載していないので答えようがないと思いますが、もし構文の形etcで気になる点有ればお願いします。

マクロ/VBAは全く経験がないので、ちょっとした一言でもヒントになります。

また、質問投稿後もうしわけありませんが、5/4まで所用があり返事が出来ないと思います。ご了承下さい。

回答No.2

Wendy02

こんばんは。
　独　　　　　英
suchtest > search
draht > code

ですね。
>日本とドイツでは関数の名前などVBAに違いがある違いがあるのでしょうか？

VBA自体の仕様にはないはずですが、ユーザー設定で付けるプロパティ名の設定では、私たちは概ね、英語を使いますが、ドイツ人でしたら、ドイツ語にしてもよいでしょうね。

ところで、もしも、アドインでプロテクトを掛けられていたら、中身を見ることは出来ませんが、VB Editor 内のプロジェクトウィンドウから、探してもらうしかありません。

　・declareで探す方法
は、編集－検索－検索する文字列　で、declare
カレントプロジェクト
それで、呼び出されているか？

・参照設定で探す方法
参照設定で、チェックの入ったもので、らしい名称を探します。
当然、.dll という名称になっているとは思います。

以上の二つは、コンパイルしていますから、中身が見れません。

　・Class登録で探す方法
プロジェクトウィンドウから、Class モジュールの中を探します。
ただ、アドインの場合は、プロテクトが掛かっていたら見れませんね。

おそらく、そこには、標準モジュール(General Module) 内に以下のようなコードがあるはずです。

Public Type list
　Val1 As Single
　Typ As String
End Type

Public suchtest As list

なお、あまり、際立って特別な方法をしているわけではないのですが、VBAでは、あまり、こういうような作り方をしないだけです。