[[20040527161528]]　『ファイルを開いたとき常に同じ文字を』（なな）　ページの最後に飛ぶ

『ファイルを開いたとき常に同じ文字を』（なな）

 よろしくお願いします。　
 ＳＨＥＥＴ1は入力用　ＳＨＥＥＴ２はデータ用。
 ＳＨＥＥＴ1のセルＢ１に　=IF(A1="","",VLOOKUP(A1,SHEET2!$A:$D,2,0))
 Ｃ１に　=IF(A1="","",VLOOKUP(A1,SHEET2!$A:$D,3,0))
 Ｄ１に　=IF(A1="","",VLOOKUP(A1,SHEET2!$A:$D,4,0))と関数を入れます。

 ＳＨＥＥＴ２は下の様にしてあります。
    Ａ　　　　Ｂ　　　Ｃ　　　Ｄ
 1 品名　　　単価　　数量　　合計
 2りんご　　　50　　　2　　　100　
 3みかん　　　20　　100　　　2000　
 知りたいのは 
 ＳＨＥＥＴ１のセルＡ1に"品名"と入力するとＢ1に"単価" Ｃ1"数量" Ｄ１"合計"
 と文字表示されますがファイルを新たに開いたとき常にこの状態にしたいこと。
 又、Ａ1セルの文字を"品名"ではなく"ここに入力"と表示させたいのです。
 "ここに入力"セルに"りんご"と入力すれば数字が反映されるのでだれでも使いやすいと
 考えています。 説明がわかりにくいですが初心者なのでご勘弁をば。

 A1セルにコメントの挿入をして、それをテンプレート形式で保存してはいかがでしょうか。

 やり方としては、A1セル選択－挿入－コメント－中に"ここに入力"と入れる

 次に表示－コメント　これでコメントが表示されたままになると思いますので邪魔にならないところへ配置してください。

 このままでは設定によってはコメントまで印刷されますので、

 ファイル－ページ設定－シートタブ－印刷の中のコメントのチェックをはずす。

 この書式を名前を付けて保存－ファイルの種類－テンプレート　OKでいかがでしょう・

 （川野鮎太郎）

 ご要望のことはマクロを使えば可能かと思います。
1. Alt＋F11 で、画面左側にある【プロジェクト-VBAProject】の、
　　 該当するブック内の【ThisWorkbook】をダブルクリックします。
2. 出てきた右の白い所に、下のコードをコピーして貼付けます。
3. 右上の 閉じるボタン「×」 でExcelの画面に戻ります。
　
Private Sub Workbook_Open()
  Sheets("sheet1").Select
  Range("a1").Value = "ここに入力"
  Range("a1").Select
End Sub
　
これだけではB1～D1がエラーになりますので、
Sheet2の1行目に
　　　A　　　　　B      C       D
1　ここに入力	単価	数量	合計
を追加しておきます。
一度Bookを保存して終了後、開いてみたら確認できます。
このようなことでしょうか？　(マーヤ)

 川野さん、マーヤさん　参考になります。
 A1にはマーヤさんの"ここに入力"を"↓　下に入力"として頂きました。
 "品名"はどうしても必要なので1行目を2行目にコピーし　Ａ2セルにワイルドカード
 "??"を使うことでＢ2.Ｃ2.Ｄ2に文字表示させることにしました。
 又お世話になると思いますが、ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20040527161528]] 『ファイルを開いたとき常に同じ文字を』（なな） ページの最後に飛ぶ

[[20040527161528]]　『ファイルを開いたとき常に同じ文字を』（なな）　ページの最後に飛ぶ