[[20040528113859]]　『最後の行に”以下余白”と自動表示させたい』（hiro）　ページの最後に飛ぶ

『最後の行に”以下余白”と自動表示させたい』（hiro）

　Ａ　　　Ｂ　　　Ｃ

　１　　名前

　２　　木村

　３　　田中

　４　　以下余白

　５

どなたか教えてください。

上の様な表を作りました。

例えば、名前をＢ３まで入力したら、Ｂ４のセルに自動的に

「以下余白」と表示させたいのです。

もし、Ｂ４に中村と入力したら、Ｂ５のセルに「以下余白」と表示するように。

こんなことできるんでしょうか？

どなたか教えてください。(>_<)

 B2に

 =IF(B1="","",IF(B1="以下余白","","以下余白"))

 適当に下へフィル。

 あとはB2から 木村 と入力してみてください。

 （ramrun）

ramrunさん

ありがとうございました(^O^)さっそくやってみます。(hiro)

 横から失礼します。
 入力ミスがあってもいい様に...
 シートの見出しを右クリックしてコードを表示させ、そこに貼り付けてください。
 Private Sub Worksheet_Change(ByVal Target As Range)
 If (Target.Count > 1) + (Target.Column <> Range("b:b").Column) Then Exit Sub
 Application.EnableEvents = False
 Range("b65536").End(xlUp).Offset(1, 0).Value = "以下余白"
 Application.EnableEvents = True
 End Sub
 (koko)

kokoさん
ありがとうございます。こちらもさっそくやってみます。

本当にありがとうです。(hiro)

 あっあ～～～～～いつもあわてんぼうですんません。どうせならこっちに差し替えて
 ください。常に最終行が"以下余白"の方がいいでしょ？
 本当にすみません。m(__)m(koko)
 Private Sub Worksheet_Change(ByVal Target As Range)
 If (Target.Count > 1) + (Target.Column <> Range("b:b").Column) Then Exit Sub
 With Range("b65536").End(xlUp)
 If .Value = "以下余白" Then Exit Sub
 .Offset(1, 0).Value = "以下余白"
 End With
 End Sub

kokoさんホントにありがとうございます。

最初の方のコードを試しましたが、

感激しましたよ。

本当に本当にありがとうです。<(_ _)>　（hiro)

コメント返信：

[ 一覧(最新更新順) ]

[[20040528113859]] 『最後の行に”以下余白”と自動表示させたい』（hiro） ページの最後に飛ぶ

[[20040528113859]]　『最後の行に”以下余白”と自動表示させたい』（hiro）　ページの最後に飛ぶ