[[20171001152120]] 『マクロで作成したシート名から値を入力するセルを』(ろこ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロで作成したシート名から値を入力するセルを指定したい』(ろこ)

自宅でExcelを使って家計簿のような物をつくってみようとしているのですが、

月間表示しているシートからボタンでマクロを呼び出し、インプットボックスに入力した数値から〇日という名前のシートを作成(テンプレートをコピー)、月間表示しているシートの対応するセルに作成した〇日の支出を入力

という処理をしたくてマクロを組んだのですが、エラーでうごきません。どう修正すればよいのでしょうか?

エラーの箇所は
ActiveCell.Formula = "='" & NewSheetName & "日'!$C$1"
です。
よろしくお願いします。

Sub 新規()
'
' 新規 Macro
'

'

    Dim NewSheetName As String
    NewSheetName = InputBox("日付を入力してください。")
    Sheets("temp").Copy After:=Sheets(2)
    Sheets("temp (2)").Name = NewSheetName & "日"
    Sheets("月合計").Select
    Cells(6 + NewSheetName, 2).Select
    ActiveCell.Formula = "='" & NewSheetName & "日'!$C$1"
    Sheets(NewSheetName & "日").Select
    Cells(3, 1).Select
End Sub

< 使用 Excel:Excel2013、使用 OS:Windows10 >


試してみましたがエラーにならないのですが?

(マナ) 2017/10/01(日) 16:40


申し訳ありません。私も一度新規で別ファイルを作成して試したところ正常に動きました。

(ろこ) 2017/10/01(日) 17:03


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.