[[20201026170956]]　『テーブル全体のデータを消そうとするとテーブルも』（QWE）　ページの最後に飛ぶ

『テーブル全体のデータを消そうとするとテーブルも消えてしまう』（QWE）

お世話になります。

見出しなしのテーブルを使用しており、内容のみをすべて削除しようとすると、テーブルが消えてしまいます。
これはどのように対処すればよいでしょうか。

マクロで全体のClearcontentsしようにもテーブルが消えてしまいます。

ご教示よろしくお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 ＞マクロで全体のClearcontentsしようにもテーブルが消えてしまいます。

 こんな感じではないですか？
 　↓
 Worksheets(1).ListObjects("テーブル1").DataBodyRange.ClearContents

（半平太） 2020/10/26(月) 18:48

回答ありがとうございます。

見出しなしテーブルの場合、テーブル範囲を選択してDeleteまたは同値入力（Ctrl+Enter）しても消えてしまいます。
.DataBodyRange.ClearContents　も同様です。
これは対処しようがないのでしょうか。
よろしくお願いいたします。

（QWE） 2020/10/27(火) 09:22

 すみません。見出しなしのテーブルと言うのが存在するのを知らなかったです。　m(__)m

 立場が逆になりますが、どうやって作るのか教えていただけませんか？

（半平太） 2020/10/27(火) 09:37

すみません、お返事が遅くなってしましました。

テーブル作成後、テーブルツールデザインタブのスタイルのオプションで
見出し行のチェックを外せば作ることができます。

（QWE） 2020/11/12(木) 11:40

 こんにちは　＾＾
横入りすみません。有るのですが。。。＾＾？
非表示になっているだけですよ。。。　←　多分
vbaなら、ショーヘッダーズの真、偽で切替出来るみたいです
（隠居じーさん） 2020/11/12(木) 12:59

 あれ～ほんとうだ。。。
ヘッダ～を非表示にして、データー消すと、全て消えますね
テーブルと認めなくてエクセル様が気をきかせてかたずけて
しまうようですね。。。←　多分。。。いやだな～　＾＾；
（隠居じーさん） 2020/11/12(木) 15:18

 ご返信、ありがとうございました。
 成程です。

 では、こんなのでどうでしょうか？（こっちでは旨くいきましたけど）

 Sub Macro1()
     Application.ScreenUpdating = False

     With Worksheets(1).ListObjects("テーブル1")
         .ShowHeaders = True
         .DataBodyRange.ClearContents
         .ShowHeaders = False
     End With

     Application.ScreenUpdating = True
 End Sub

（半平太） 2020/11/12(木) 16:16

 こんばんは　＾＾
なるほど！！。。。とても勉強になりました。
見出しを表示して、データーをクリアコンテンツ、後
見出しを非表示にするとＯＫですね。こちらでも旨くいきました。
＾＾；。。。m(_ _)m
（隠居じーさん） 2020/11/12(木) 18:38

コメント返信：

[ 一覧(最新更新順) ]

[[20201026170956]] 『テーブル全体のデータを消そうとするとテーブルも』（QWE） ページの最後に飛ぶ

[[20201026170956]]　『テーブル全体のデータを消そうとするとテーブルも』（QWE）　ページの最後に飛ぶ