[[20190310193754]]　『CSV出力をするマクロを書いたが、関数の箇所が「#』（さくま）　ページの最後に飛ぶ

『CSV出力をするマクロを書いたが、関数の箇所が「#N/A」で出力される』（さくま）

下記、ご教授いただけないでしょうか。

ボタンを押したらCSVの書き出しができるマクロを作成しています。

開始日　|　期間　|　終了日
2019/03/10 ｜ 3　|　2019/06/09

上記のように開始日と期間(○ヶ月)を記入すると、終了日が自動で出るように終了日のセルに関数を入れています。

これをマクロを利用したボタンを使ってCSVで書き出すと

2019/3/10,3,#N/A,

となってしまい、関数で出した終了日が「#N/A」で書き出されてしまいます。

Sub CSV出力()

    Dim myRng As Range, myFileName As String
    Dim i As Long

    Set myRng = Range("A1:B3")
    myFileName = Application.GetSaveAsFilename(FileFilter:="CSVファイル (*.csv,*.csv")
  If myFileName = "False" Then Exit Sub
  Application.ScreenUpdating = False
  With Worksheets.Add
  myRng.Copy .Cells(1, 1)
  .Move
  End With
  With ActiveWorkbook
  .SaveAs fileName:=myFileName, FileFormat:=xlCSV, Local:=True
  .Close False
  End With
  Application.ScreenUpdating = True

End Sub

どのように対応したらいいのでしょうか。
よろしくお願い致します。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

本題とは関係ありませんが
なぜ、C列が含まれないのでしょうか

＞Set myRng = Range("A1:B3")

（マナ） 2019/03/10(日) 20:11

 > With Worksheets.Add
 > myRng.Copy .Cells(1, 1)
 > .Move
 > End With　　←ここにブレークポイントを置いて自分で確認して見るといい。

（BJ） 2019/03/10(日) 22:38

マナ様

すみません、こちら記述ミスです。
正しくは、

Set myRng = Range("A1:C3")

になります。
よろしくお願いいたします。
（むらい） 2019/03/11(月) 09:33

BJ様

ブレークポイントを置き確認したところ、関数が入力された状態のExcelが立ち上がります。
関数ではなく、関数で算出された結果を出すことができず止まっております。
よろしくお願いいたします。
（むらい） 2019/03/11(月) 09:42

 >関数で算出された結果を出すことができず止まっております。

 で、その関数の結果がどうなっているのか自分で確認したのでしょうか？
（BJ） 2019/03/11(月) 13:36

コメント返信：

[ 一覧(最新更新順) ]

[[20190310193754]] 『CSV出力をするマクロを書いたが、関数の箇所が「#』（さくま） ページの最後に飛ぶ

[[20190310193754]]　『CSV出力をするマクロを書いたが、関数の箇所が「#』（さくま）　ページの最後に飛ぶ