EXCELエクセルマクロ 作業日の年月が入った関数をセルに作成するマクロの作成

Question

前提・実現したいこと

月ごとのまとめデータを作成する作業におけるデータ加工において、
エクセルのマクロで手作業を自動化したい。
エクセルのセルに作業日の年月を入れた関数をマクロで入力したい。

関数をマクロで入力する機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

エラーメッセージ
```実行時エラー'1004　アプリケーション定義またはオブジェクト定義のエラーです。

### 該当のソースコード
workbooks("○○○○.xlsb").sheets("○○○○").activate
workbooks("○○○○.xlsb").sheets("○○○○").range("AI2").formula="=IFERROER(vlookup(AH2,'￥￥○○￥○○￥○○￥○○￥"&Format(Dateserial(year(now),Month(now),Day(now)),"yymm")&"○○￥○○'!$T:$AC,2,FALSE),"")"

￥は本当は半角です。

さっぱり分かりませんでした。
どうかよろしくお願いいたします。

Comments

[dfmasap]

申し訳ございません。
formulaプロパティを使用し、セルに関数を入力するマクロを作成したいです。
よろしくお願い致します

[mako1972]

取り消します。

Answer 1

workbooks("○○○○.xlsb").sheets("○○○○").activate

workbooks("○○○○.xlsb").sheets("○○○○").range("AI2").formula="=IFERROER(vlookup(AH2,'￥￥○○￥○○￥○○￥○○￥"&Format(Dateserial(year(now),Month(now),Day(now)),"yymm")&"○○￥○○'!$T:$AC,2,FALSE),"")"

解決済みとなっていますが気になったので…。
最初に workbooks("○○○○.xlsb").sheets("○○○○") をアクティベイトしているので、
次は range("AI2") からの記述で大丈夫な気がします。

また、IFERRORの数式の最後に "" を入力したいのは分かりますが、
そもそも数式を""でくくっているのでこの場合ダブルクォートを文字として表示させる場合、
""""とする必要があると思います。

例えばですが…

range("AI2").value = "=IFERROR([何かしらの式], """")"

とすると、出力結果が…

=IFERROR([何かしらの数式], "")

となるはずです。

また、この方法はFomulaがサポートしていないようなので、valueで書けば動くと思います。
（それが最善までは自分も初心者の為何とも言えませんが）

Comments

[dfmasap]

ご回答ありがとうございます。
if errorの部分に関しては、マクロではなく、セルに手入力すると関数としてエラーが出ません。　マクロで入力する際には変更すべき箇所でしょうか。マクロでおっしゃっていた部分を変更した場合、なぜかドキュメントフォルダを開くようになりました。

[phiar_poet]

自分も勉強中の身ですので詳しいことをお伝えはできませんが、

Range("A1").Value = "〇〇〇"

などとなっている場合のダブルクォートは文字ではなく、
ダブルクォート～ダブルクォートで括られたものがひとつの要素であることを意味しています。

なので、

Range("A1") = "=IFERROR([数式], "")"

という書き方ではマクロは、

Range("A1") = "=IFERROR([数式],"

までが入力されるデータだと認識し、そこから後ろの ")" 部分は何か得体のしれない未知のモノとして
そんな形式は定義されてないよ！というエラーを吐き出します。
（あくまでマクロの話なので手入力の場合は普通に動きます）

それとすみません、先ほどFormulaがサポートしていないエラーを吐く、と言いましたが、
スペルミスでした…Formulaでも動きますので訂正します。

また、ドキュメントが開く原因ですが、指定された文字列のシートが存在しない場合、
「え、そんなシートないけどどこ参照したらいいの？選んで！」
という感じになりドキュメントが開きます。

指定ファイルのどこどこのシートのこのセル、みたいな指定をしたい場合は…

'[ファイル名]Sheet1'!a1:b100

のような書き方が必要ではないでしょうか。

[phiar_poet]

ダブルクォートの件についてはいろいろ調べると出てくると思いますが、

http://officetanaka.net/excel/vba/tips/tips90.htm

私が説明するより分かりやすく書かれていると思いますので、
一度ご覧になってみてください。

Answer 2

こんにちは。

FormatやDateserialはワークシート関数ではありませんよ。

Format(Dateserial(year(now),Month(now),Day(now)),"yymm")

部分を
TEXT(NOW(),"yymm")
にしたらどうでしょうか？

Comments

[dfmasap]

ご回答ありがとうございます。
SubまたはFunctionが定義されていません。とtextが選択された状態でエラーが起きてしまいました。

[DreamTheater]

VBAからTEXTが見えちゃってましたね。
"TEXT(NOW(),""yymm"")"

[DreamTheater]

待てよ、これってマクロを実行した時点の年月に固定しなければいけないんですか？
それなら
Format(Now, "yymm"") で良いですね。（全体のクォート不要）

[dfmasap]

再度ご回答ありがとうございます。
おっしゃる通りだと思います。
monthなどで数字を調整する必要がありませんでしたので、そちらに変更するべきでした。しかしまだエラーが発生します。
恐縮ですが他の部分で間違いはありますでしょうか。

[DreamTheater]

1)Formmulaに設定する前に一度変数に代入する。
2)Debug.Printで変数を表示させる。
3)その値をコピペでセルに貼り付ける。
貼り付けた時点でEXCELがエラー表示すると思うので、エラー箇所を修正する。

あと、こういった長文の式をダラダラVBAに書くととっても読みずらいので、一旦変数に入れると良いですよ。
読みやすくするためには
Dim work As String
work = ""
work = work & "=VLOOKUP("
work = work & "A1,"
work = work & "hogehoge"
：
という感じで書くと見やすいし括弧やクォートの対応も追いやすくなります。