Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46119 / 76732 ←次へ | 前へ→

【35592】数式セルを残し数値セルだけクリアー
質問  下働き  - 06/3/8(水) 11:50 -

引用なし
パスワード
   度々質問させて頂きます下働きです。

ある範囲(E8:AS62)中の数値入力セルの数値だけを消去したいのですが、どうすればよろしいでしょうか?
範囲内には、数式セルが散在しています。これを消さないように数値入力セルだけを選択して消去するマクロを以下のように作成しましたが、動作がもっさりとしています。頻繁に行う操作ではないので我慢できなくもないのですが、もっと巧いやり方がありましたらお教えください。よろしくお願い致します。

Sub 全面クリアー()
'
  With Range("E8:AS62")
    .Borders(xlEdgeLeft).LineStyle = xlNone
    .Borders(xlEdgeTop).LineStyle = xlNone
    .Borders(xlEdgeBottom).LineStyle = xlNone
    .Borders(xlEdgeRight).LineStyle = xlNone
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone
    .UnMerge
  End With
  Dim i, j As Integer
      i = 0
  While i < 7
      j = 0
    While j < 11
      Range("F11").Offset(j * 5, i * 6).Range("A1:D2").ClearContents
      j = j + 1
    Wend
      i = i + 1
  Wend
End Sub
8 hits

【35592】数式セルを残し数値セルだけクリアー 下働き 06/3/8(水) 11:50 質問
【35595】Re:数式セルを残し数値セルだけクリアー inoue 06/3/8(水) 12:55 発言
【35600】Re:数式セルを残し数値セルだけクリアー 下働き 06/3/8(水) 13:31 発言
【35602】Re:数式セルを残し数値セルだけクリアー Jaka 06/3/8(水) 13:40 発言
【35606】Re:数式セルを残し数値セルだけクリアー 下働き 06/3/8(水) 14:20 お礼

46119 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free