質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

3回答

413閲覧

タスク管理のスケジューラのクラス定義

yuujiMotoki

総合スコア90

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2018/08/30 23:20

My知恵袋との重複質問になり申し訳ありません(やや急ぎの回答を求めています)

既存のスケジューラの改良のために、骨格のソースに書き換えて質問しています

開発言語はEXCEL vbaです

アイテムクラスを定義しており、ワークシートからアイテムをリスト化する関数を
定義しようとしています

lang

1(Clsアイテム) 2Public id as int 3Public todo as string

VBA

1Sub Main 2Dim Items as collection 3Set items = new clsアイテム 4Dim tbl as object 5Set Tbl = sheet1.usedrange 6 7Items.WsRead tbl 8 9以下省略

#質問内容
シート丸ごとを読み込んで、itemsコレクションを生成したいのですが

現状はクラス外の関数定義を行い、その中で1アイテムずつループを回しています。

クラスメソッドに記載したいのですが、出力を単体のオブジェクトではなく、
リストとして複数に入れたいのですが、この点がよくわからず困っています。

Public function WsRead(ByVal tbl as object ) as collection 以下省略

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ExcelVBAer

2018/08/31 00:08

何がしたいのでしょうか? 急いでるのかもしれませんが、ちゃんと聞かないと、ちゃんとした回答は得られませんよ。
ExcelVBAer

2018/08/31 00:10

「1アイテムずつループを回す」の「ループを回す」は回して何をしてるんですか?
ExcelVBAer

2018/08/31 00:11

「リストとして複数」の「リスト」って何のことですか? Collectionオブジェクトの事ですか?
ExcelVBAer

2018/08/31 00:12 編集

「リストとして複数」の「複数」ってどういう状態ですか? 配列? Dictionary?
ExcelVBAer

2018/08/31 00:13

「Dim Items as collection」と宣言して、「Set items = new clsアイテム」としてますが、型宣言を理解してますか?
guest

回答3

0

ベストアンサー

質問のコード例は単純なものですが、これを雛形にしてもっと複雑な処理をクラスを使って実装したいということかな?

提示のClsアイテムは1データですので、これだけでは、リストにはできません。
クラスにリストを読み込むメソッドを実装したいなら、
Clsアイテムをリスト(collection とか 配列 など)にするクラスが別に必要になります。

コードのイメージを出しておきます。

VBA

1'クラスモジュール Clssアイテム 2Public id as int 3Public todo as string

VBA

1'クラスモジュール Cllsアイテムリスト 2Option Explicit 3 4Dim Items As Collection 5 6Private Sub Class_Initialize() 7 Set Items = New Collection 8End Sub 9 10Private Sub Class_Terminate() 11 12 'ループでCollection内のClssアイテムを破棄する 13 14End Sub 15 16Public Sub WsRead(ByVal tbl As Object) 17 Dim アイテム As Clssアイテム 18 19 Dim i As Long 20 For i = 1 To tbl.rows.count 21 Set アイテム = New Clssアイテム 22 アイテム.id = ***** 23 アイテム.todo = ***** 24 Items.Add アイテム 25 Next 26End Sub

つまりアイテムのクラスと、アイテムのリストのクラスが必要ということです。
Excelのオブジェクトで言えば、
Worksheetオブジェクトと、WorkSheetsオブジェクトの関係をイメージすればいいでしょう。

投稿2018/09/01 04:16

編集2018/09/01 04:18
hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

yuujiMotoki

2018/09/03 03:51

ありがとうございます。ようやくイメージが出来ました。 このイメージができていませんでした。 アイテムリストのクラスの中で、複数の集合を、コレクションとして宣言すればいいんですね。 この考えは、オブジェクト指向でいえば、汎化なのか継承なのか、よく分かりません。 GOFのパターンとして、このモデルは定義されているのでしょうか? (一般的なソフトウェアパターンに当てはまるのか、今後のために知りたいです)
guest

0

クラスモジュールで定義したアイテムをDictionaryに
格納する方法で実現できないでしょうか。

Set items = New Cls items.id=1 items.todo="明日" Dim myDic As Object Set myDic = CreateObject("Scripting.Dictionary") myDic.Add "Project1", items

投稿2018/09/01 02:19

編集2018/09/01 02:23
TanakaHiroaki

総合スコア1063

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

yuujiMotoki

2018/09/03 03:40

ディクショナリーは使ったことがなかったです。VBAでPYTHONと同じようなことが出来ること自体、おどろきでした。ちょっと使い方の研究をしてみます。
guest

0

おそらく、配列的なものをイメージしているのでしょうか?
クラスのプロパティが、idとtodoしかなければ、クラスに定義するメリットはほぼなく、配列で定義した方が良いと思います。
クラスで定義するメリットは多くありますが、一番のメリットは、データと関数がひとまとめにできて、プロパティを設定すると、他のプロパティに値を設定できたりと、扱う項目が複雑な時にVBAでは有効であると、考えています。

しかし、クラスで宣言された変数も配列のように扱えます。

VBA

1 Dim a(100) As Class_A 2 For i = 0 To 100 3 Set a(i) = New Class_A 4 Next i

VBAのクラスは万能ではありませんが、その対処法は力業で何とかなる場合が多いです。
でも、無理に作り込んだファイルは後々メンテが難しくなるだけです。
ワークシートも上手に使いこんで、各機能を上手に利用してはどうでしょうか?

投稿2018/08/31 12:31

kai_keitai

総合スコア344

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問