タスクに割り当てられたリソースに実作業時間を入力するマクロを実行するとエラーが表示される

Question

以下の手順でリソースの実作業時間を入力作業をマクロの記録を使って作成し、実行したところ

実行時エラー'1101' 引数の値が正しくありません。

と表示される。

手順は

タスクにリソースを割り当ている状況で”タスク分配状況”を表示させた状態にてマクロの記録開始を実行

割り当てられているリソースの”実作業”行の入力したい日にちの列を選択

実作業時間を入力

マクロの記録終了を実行

作成されたマクロは以下

Sub Macro1()

    SelectTimescaleRange Row:=4, StartTime:="12/03/15 (木)", Width:=1, Height:=1

    ActiveProject.Tasks.UniqueID(1).Assignments.UniqueID(1048578).TimeScaleData(StartDate:="12/03/15 0:00", EndDate:="12/03/16 0:00", Type:=10, TimeScaleUnit:=4, Count:=1).Item(1).Value = "2"

    SelectTimescaleRange Row:=5, StartTime:="12/03/15 (木)", Width:=1, Height:=1

End Sub

このマクロを実行すると前述のとおり 実行時エラー'1101'引数の値が正しくありませんと表示される。

同様のマクロをリソースでなくタスクの実作業時間に対して行うと正常に動作しております。

このエラーの回避方法を教えていただきたくよろしくお願いいたします。

やりたいことはマクロにてタスクに割り当てられているリソースの実作業時間を入力することですのでTimeScaleDataを使わない方法でもかまいません。

リソース分配状況にて割り当てられているタスクに入力する方法も試みましたが同じでした。

よろしくお願いいたします。

Project のバージョンは Professional 2010  14.0.6023.1000(32ビット)です。

Answer 1

解決しましたので報告いたします。

ActiveProject.Tasks.UniqueID(1).Assignments.UniqueID(1048578).

のAssignments UniqueIDが間違いのようでした、今回のケースでは 2097154が正解のUniqueIDでした。

自動生成での誤記はバグと思われます。

実際にマクロを記述する場合にはUniqueIDは扱い難いので以下のようにTask.IDとAssignmentのCount ID?を使うようにしました。

ActiveProject.Tasks(ID_T).Assignments(ID_C).TimeScaleData(StartDate:="12/03/15 0:00", EndDate:="12/03/16 0:00", Type:=10, TimeScaleUnit:=4, Count:=1).Item(1).Value = "2"

ID_T : Task ID

ID_C: assignmentのID

上記回答を得るにあたり (株)テクノプロ・エンジニアリング様に大変お世話になりました、ありがとうございました。

Answer 2

石川様

MSDNフォーラムの方へ投稿もしておりますが、問題としているVBAのコマンドがMS　Project固有のコマンドである為か現時点では回答が得られていない状況です。

一般的なVBAの質問ではないため Projectのフォーラムの方が適切ではないかと思いますので

回答マークは取り下げさせていただきました。

この問題の解決方法をご存じの方はよろしくお願いいたします。

Answer 3

sho1H さん、こんにちは。

こちら、同じような問題の投稿先としてご参考になるよう、私の方で \[回答としてマーク\] をいたしました。

Office の操作や疑問については、ぜひ Answers もご利用ください。

Answer 4

飯塚様

アドバイスありがとうございました。

MSDNフォーラムの方にも質問を投稿してみます。

Answer 5

sho1H さん、こんにちは。

Answers をご利用いただき、ありがとうございます。

こちらでも同じマクロを作成して、試してみたのですが同様のエラー メッセージが表示されました。

ただ、こちらについて回避方法などは調べてみても見つかりませんでした。。

VBA に関しての情報ですと、Answers 上ではなかなか有効な情報が集まりにくいかもしれません。

MSDN フォーラムには VBA フォーラムもありますので、もしよろしければこちらもご活用してみてください。

MSDN フォーラム Visual Basic for Application(VBA)

こちら、どなたか情報をお持ちの方もいましたら、ご投稿お待ちしています。