こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

テキストボックスの日付を他ブックのセルに挿入したい

Windows10,マイクロソフト365使用の超初心者です。
テキストボックスに日付を入れると、同じフォルダの他ブックのシート1のセルA1に
挿入したいです。この日付は毎月1回だけ変更しています。
次のコードで同じシート内で、やると出来ましたが他ブックにする方法がわかりません。それと西暦でなく、元号で表示したいです。よろしくお願いします。
Private Sub CommandButton95_Click()
ActiveSheet.Unprotect
Range("$A$1").Value = Format(TextBox2.Text, "00""/""00""/""00")
ActiveSheet.Protect
End Sub

投稿日時 - 2020-07-03 13:18:21

QNo.9767984

すぐに回答ほしいです

質問者が選んだベストアンサー

okフォルダにあるbook2.xlsxのシート1のA1に

Workbooks.Open "c:\ok\book2.xlsx"
ActiveWorkbook.Sheets("シート1").Range("$A$1").Value = Format(TextBox2.Text, "gggee年mm月dd日")
ActiveWorkbook.Save
ActiveWorkbook.Close

投稿日時 - 2020-07-03 14:34:43

お礼

完璧にできました。ありがとうございます。

投稿日時 - 2020-07-03 15:17:37

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問