ここから本文です

エクセルの質問です。 ひとつのシートに4つの表があります。 それぞれ、デー...

アバター

ID非公開さん

2018/10/1720:16:20

エクセルの質問です。

ひとつのシートに4つの表があります。

それぞれ、データを入力したら、以下余白と自動で入るように設定したいと思います。

計算式だと、データをそのセルに入力

すると消えてしまうので、条件付き書式とか、マクロとかで対応できたらと考えています。

どなたかやり方を教えていただけないでしょうか。
宜しくお願い致します。

閲覧数:
28
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

chi********さん

2018/10/1721:10:09

こんな感じでしょうか?

B3,E3,H3,K3に各表のタイトル行先頭(表のタイトル行の最も左列の列)がある場合、
一番最後のデータ(表の最も右列の列)の下に”以上”を入れます。

Dim rngArry(3) As Range
With ActiveSheet
Set rngArry(0) = .Range("B3") '//1つ目の表のヘッダー
Set rngArry(1) = .Range("E3") '//2つ目の表のヘッダー
Set rngArry(2) = .Range("H3") '//3つ目の表のヘッダー
Set rngArry(3) = .Range("K3") '//4つ目の表のヘッダー
End With

Dim rng As Range, i As Long
For i = 0 To UBound(rngArry)
With rngArry(i)
.CurrentRegion(.CurrentRegion.Count).Offset(1, 0).Value = "以上"
End With
Next i

こんな感じでしょうか?...

  • アバター

    質問者

    ID非公開さん

    2018/10/1721:21:47

    早速ありがとうございます。
    こちらの事例を使わせて頂くと、以下余白は名前の行の下に入れたいのですが。
    そうすると、マクロはどう変わりますか?

  • その他の返信(2件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる