質問: dic(Key) End If Next Next End With MsgBox "登録完了しました。" End Sub ``` ### 発生している問題・エラーメッセージ ``` 実行時エラー'9' インデックスが有効範囲にありません。 エラー箇所 dic.add Key, myVal(r, COL工数) 'ここでエラー発生中 ``` ### デバッグ結果 その他,メール対応,オペレーション,0.5 ### 補足情報 Mac版オフィスを使用しているので連想配列の定義は以下URLを参考にしています http://fccreator.blogspot.jp/2014/03/macmacexcelvbadictionary.html
回答: わざわざ難しいのを使わず 簡単に作ったほうが初心者には良いかもしれません デバックは必須ですが ``` 列=format("dd",日付の入ってるセル)*1+8 for i=9 to 34 select case cells(i,"F").value case is="名刺データ作成" 行=7 case is="企画書作成" 行=10 ... end select select case cells(i,"I").value case is = "リーダー" 行=行+1 case is = "オペレーション" 行=行+2 end select with sheets(2) .cells(行,列).value = .cells(行,列).value + 0.5 end with next i ```