エクセルの学校：全文検索：Hyper Estraier

Results of 0 - 1 of about 0 (0.000 sec.)

[[20020606223602]]: @digest: 323b60c6bc06b9f1a6404164c46577ce; @id: 142; @mdate: 2003-04-29T06:42:21Z; @size: 2936; @type: text/plain; #keywords: tenpoint (14010), softplaza (7815), 表: (3394), xlcelltypelastcell (3183), ・消 (3116), biglobe (2690), すセ (2073), 月入 (1836), てde (1498), 消す (1436), 問ボ (1403), 一気 (940), に多 (888), integer (864), 計表 (853), specialcells (692), キー (664), 月末 (509), 囲選 (495), 名前 (488), 記録 (481), クシ (476), cells (476), テン (466), セル (445), 入力 (422), クリ (420), 毎月 (413), デー (410), 集計 (409), 存知 (384), selection (381); 『日々の集計表:消すセルがあまりに多い』（yachan）
yachan 日々の集計表（1日〜31日）を作りました。データ入力セルと関数が入り組んでます。月末に集計して、翌月はシートをコピーして頭から入力します。その時に入力されたセルを一つ一つ消していきますが、消すセルがあまりに多く面倒です。関数のところはセルのロックをかけているので消される心配はありませんがデータを入力した所だけ一気に消すようにはできませんか。 ---- セルを範囲選択してDelキーで消せばよいのでは? そんな単純なことではないのかな... ツール＞マクロ＞新しいマクロの記録で、値の入ったセルを選択して削除するマクロを記録したらどうでしょう。マクロの記録方法は↓のHPを参考にしてください。 http://softplaza.biglobe.ne.jp/text/1999sp/vba/vba1_2.htm （ramrun）質問の意味を取り違えてるかも知れませんが、次の2つが考えられます。 @入力用ワークシートをコピーして使う（私はいつもこの方法でやってます）・まず、見出し,コメント,色設定,罫線,関数等だけを入力/設定したワークシートを作り、月毎にコピーしてデータを入力する。つまり、「データを消す」作業はありません。 A消すセルに名前を付けて一気に消す（「データを消す」作業をしたい場合）・消すセル（毎月入力するセル）に名前を付けます。 (ご存知かも知れませんが方法は下記の通りです) (1)Ctrlキーを押したまま、全ての消すセルを選択及びドラッグする (2)Ctrlキーを押したまま、F3キーを押す (3)「名前の定義」画面で適当な名前を入力してOKをクリック・Excelの表のA列のすぐ上の▼(名称は知らないんです)を押すと、(3)で付けた名前が出るので、クリックしてDeleteキーを押す。これで消えます。 (tenpoint) ---- マクロ（VBA）でよければ、下記のようなものを作り、実行する度、設定したセルは空になります。 Sub test() '指定セルのデータをクリアする。 Cells(1, 1) = "" 'Cells(行番号,列番号) cells(2, 5) = "" ' 後延々にクリアするセルを記載 ' End Sub （なお:久ぶりに覗いたら掲示板の代わりに質問ボードが出来ていまいたので早速。kazuさん、お久しぶりです。） ---- 私はデータの入っていないテンプレートを作る[tenpoint]案をお勧めしますが、ことばのとおり、データだけ消したい場合、下のように、数値を選び出して、その中から式が入っていないものを選択すれば技術的には可能です。 [なお]さんは『複数ブック一括印刷』を作ったときの方でしたっけ? （kazu） Option Explicit Sub DataAllClear() Dim r As Integer, c As Integer, rx As Integer, cx As Integer rx = Selection.SpecialCells(xlCellTypeLastCell).Row cx = Selection.SpecialCells(xlCellTypeLastCell).Column For r = 1 To rx For c = 1 To cx If Len(Cells(r, c)) > 0 Then If IsNumeric(Cells(r, c).Value) Then If InStr(Cells(r, c).Formula, "=") > 0 Then Else 'MsgBox r & " " & c & " " & Cells(r, c).Value Cells(r, c) = "" End If End If End If Next c Next r End Sub ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200206/20020606223602.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ