[[20051014173847]]　『未入力時に文字列を表示』（ぽに）　ページの最後に飛ぶ

『未入力時に文字列を表示』（ぽに）

A1のセルへ年齢を入力させたいのですが、
そのセルへ数値が未入力時に『年齢』という文字列を表示させ、
数値が入力されるとその入力した値が表示され、
入力した値を消すとまた『年齢』という文字列が表示される。
という事をセル単位で実現したいと思っています。

背景だと年齢という文字列が残ってしまうし
計算式だと数値を入力した時点で計算式が上書きされてしまう
と考えると無理なのかなぁと思うのですが。。。

Excel2003/Win2000です

 運用方法としてはあまりお勧めしませんが、
 下記マクロをシートモジュールにコピペして下さい。
（純丸）(o^-')b

 Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
   If .Count <> 1 Then Exit Sub
   If .Address(0, 0) <> "A1" Then Exit Sub
   If .Value = "" Then .Value = "年齢"
  End With
 End Sub

 B列に入力するものですが、どうでしょう？
 A列の列幅を狭め、セルの書式設定、配置で、横位置を左詰（インデント）インデントを１とします。
 A1に年齢と入力し、表示がB1になるようにA列の列幅を調整し、これを下に複写します。
 B1に数値を入力すると、年齢の表示が消え、消去すると元に戻ります。　　　　　　　　　(LOOKUP)

おおおっ、お二方の即レスありがとうございます

年齢以外も性別や住所なども表示したいので、それぞれにマクロが必要なのは厳しいですね

列幅の調整は、こいつは目からうろこが！！！気が付きませんでした！！！
(ぽに)

 衝突☆!しましたがそのままＵＰ。
 なぁるほど。文字列の表示が右隣りのセルにはみ出すのを
 利用する訳ですね。さすが LOOKUPさん。
 B列の列幅によっては、横位置「範囲内中央」も見た目がいいです。
（純丸）(o^-')b

コメント返信：

[ 一覧(最新更新順) ]

[[20051014173847]] 『未入力時に文字列を表示』（ぽに） ページの最後に飛ぶ

[[20051014173847]]　『未入力時に文字列を表示』（ぽに）　ページの最後に飛ぶ