• ベストアンサー

エクセル2007についてなんですが・・・

エクセル2007についてなんですが・・・ A1~A3を結合し、200と入力するとします。 その後保存し、再びシートを開いたときには、201と数字がカウントされていく方法を知りたいのですが・・・ 初心者なものですみませんが・・・ ご存知の方が居られましたら、ご指導よろしくお願いします。

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

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7941)
回答No.4

#No.1ですが,謎のコードに引っかかって表示されていないようです。 手順: ALT+F11を押す 現れた画面で挿入メニューから標準モジュールを挿入する 現れたシートに下記をコピー貼り付ける Sub Auto_Open() worksheets(1).range("A1") = worksheets(1).range("A1")+1 End Sub ファイルメニューから終了してエクセルに戻る ブックを保存し,閉じて,開き直し,マクロ(コンテンツ)を有効にして開く。 #注意 かならず新しいブックで練習するか,若しくは既出回答で試したマクロを消した状態で行い,マクロがバッティングしないように注意して試してください。

inter193
質問者

お礼

keithin様 ありがとうございます。 新しいブックでするとできました!! ただ・・・行いたいシートだと やはりエラーがかかってしまいます。 このエラーが何なのか、頑張ってみます。 ありがとうございました。

その他の回答 (4)

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.5

さきほど名前を変えて保存ができたのでしたら、あらかじめエクセルを立ち上げてからOfficeボタンの中にある最近使用したドキュメントの中から該当のブックを立ち上げてみてはどうでしょう。

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.3

回答No2です。そのまま上書き保存しようとするとマクロの件で何か表示されるのでしたら、元に戻って、Officeボタンから「名前を付けて保存」で「エクセルマクロ有効ブック」を選択して保存の操作に入ってください。

inter193
質問者

お礼

KURIMITO様 何度もご丁寧にありがとうございます。 教えていただいたように行い、再度ファイルを開きますと 実行時エラー’9’ インデックスが有効範囲にありません。 と表示されます。 初心者過ぎて本当にすみません。 お忙しいと思いますが・・・お時間あられますときで 結構ですので、教えていただけますと幸いです。 宜しくお願い致します。

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.2

マクロを使わない限り同じセルに前のデータに加算したデータを入力するといったことはできません。 次のようなマクロを作ることでよいでしょう。 例えばシート1のA1セルにその回数を次々に加算していくこととします。 はじめに「開発」タブの「コード」グループにある「Visial Basic」をクリックします。 表示される画面の「表示」タブで「プロジェクト エクスプローラ」を選択し、その上で画面左側の表示される例えばVBA Projectの+の部分をクリックして「This Workbook」を選択して右クリックし「コードの表示」を選択します。右の部分に白い画面が出ますのでそこに次のようなコードを入力します。 Private Sub Workbook_Open() Worksheets("Sheet1").Range("A1").Value = Worksheets("Sheet1").Range("A1").Value + 1 End Sub シート1のA1セルに1と入力して保存し、再び開いたときには2になっています。

inter193
質問者

お礼

KURUMITO様 ありがとうございます。 そして・・・もう一つ質問させてください。すみません。 上記で教えていただいたコードを入力後、ファイルボタンをクリックし上書き保存でいいのでしょうか? もしくは、終了してエクセルへ戻るーでいいのでしょうか? そうすると始動してくれますでしょうか? 何度も申し訳ありませんが、よろしくお願い致します。

現在サポートで確認中のため、回答者本人のみ投稿内容をご覧いただけます。ご迷惑おかけいたしますが、しばらくお待ちください。

関連するQ&A