- ベストアンサー
excelのオートNo作成
tom04の回答
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは！ （1）行削除の場合 → 常にA10000セル（9998）までは連番を表示させる。 （2）行挿入の場合 → 最終行は増えるが挿入行のA列（空白セル）に連番を表示する。 という考え方でのVBAの一例です。 画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので ↓のコードをコピー＆ペーストして、行挿入・行削除を行ってみてください。 Private Sub Worksheet_Change(ByVal Target As Range) 'この行から Dim i, j As Long j = Cells(Rows.Count, 1).End(xlUp).Row If j > 10000 Then Application.ScreenUpdating = False For i = 2 To j If Cells(i, 1) = "" Then Cells(i, 1).Formula = "=row()-2" End If Next i Else For i = Cells(Rows.Count, 1).End(xlUp).Row + 1 To 10000 Cells(i, 1).Formula = "=row()-2" Next i End If Application.ScreenUpdating = True End Sub 'この行まで ※ For～Next を使っていますので、若干時間がかかるかもしれません。 参考にならなかったらごめんなさいね。m(_ _)m
- noname#204879
noname#145976
関連するQ&A
- エクセルの質問
いつもお世話になっております。 エクセルの関数について質問させていただきます。 使用しているバージョンは2007です。 セルに連番をを入力し、途中で行の削除を行った場合でも連番が自動で修正されるようにしたいため、ROW関数を使用して表を作成しました。 具体的には、 A3セルから連番をふりたいので、A3セルに「=ROW()-2」と入力しましたが、A3、A4のセルを結合しているため、1、3、5、・・・と番号がふられてしまいます。 結合したセルにも連番を振るにはどうすれば良いでしょうか？ ちなみに結合は2つのセルの結合のみです。 どうぞよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセル２００３で可能でしょうか？
エクセル２００３で、行を削除しても自動で連番をふりなおせる関数ＲＯＷは解るんですが、行ごと削除するときはＲＯＷは有効ですが、たとえばこんなときはどうすればよいでしょうか？ Ａ列に連番がふってある表があったとして、Ａ１～Ａ５セルに１～５の連番をふったときに、Ａ３セルの連番を消し、”削除”という文字列を入力した場合、Ａ１セル＝１、Ａ２セル＝２、Ａ３セル＝”削除”、Ａ４セル＝３、Ａ５セル＝４ というように、”削除”と文字列を記入したセルを飛ばし連番が自動的にふれるという関数ｏｒマクロはないでしょうか？今は、いちいち手打ちで修正しているのですが・・。ＲＯＷとＩＦを使ってできないか？と考えましたがどうしても解りません。みなさんのお知恵をかしてください！！
- ベストアンサー
- Windows XP
- Ｅｘｃｅｌ オートフィルタ
こんばんわ。 教えていただきたいのですが、excelのオートフィルタの各項目のフィルタをクリックすると登録してあるものが自動的に表示されるようにしたいのです。 A1のセルにABC A2のセルにDEF A3のセルにGHIと入力をします。 このA１～A3までの行をすべて非表示にします。 A４以降のセルはすでに何かが入力されています。 A4以降にオートフィルタを設定してA4のセルをクリックするとABC、DEF,GHIとクリックすると入力できるようにしたいのですが・・。 説明がうまくない本当に申し訳ありませんが、アドバイスをお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excelのグラフ作成
セルA1に自動で更新される値（データ）があり、 この値が更新される度にA2、A3へとシフトされ値（データ）が溜まっていきます。 （新しいデータが常にA1に表示されます） このリアルタイムで更新される値のグラフを作成したいのですが上手くいきません。 セルが挿入されデータが溜まっていきますので、A1からA10までデータが溜まった時点で グラフを作成してもグラフの範囲も一緒にシフトされ新しいデータが取り込まれません。 いい方法はないでしょうか？ 宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- EXCELマクロのデータの最終行の取得
EXCELマクロでRange("A1").End(xldown).Rowで、正しい値が取得できません。 A1からA6697まで、連続して入力しているので、途中に空白セルはありません。 それよりうしろにも、データはありません。 しかし、帰ってくる値はなぜかそれより遥か下の空白セルの「78889」です。 下からxlUpで検索しても同じ値が返ってきます。 A78889には、何も入力してありません。 rangeで範囲指定ではなく、usedrangeやcolumnsでみると正しく認識します。 どなたか分かる方いらっしゃいましたら、よろしくお願いします。 ※A1からA6697まではマクロで自動作成して埋めているセルなので、問題のセルを含めそれ以外の場所はなにも触っていません。
- 締切済み
- オフィス系ソフト
- エクセルの計算式でオートフィルを利用したいのですが・・・
エクセルでsheet1のA1のセルにsheet2のA1～A5の足し算を入力し、 sheet1のA2のセルにsheet2のA6～A10の足し算を入力し…という風に、sheet2の5行ずつの足し算を順にsheet1へ合計で足していきたいのですが、膨大な数なのでオートフィルを使って一気にしたいのです。 3行目まで手打ちで入力して4行目からオートフィルでしようとしても、5行毎に足してくれません。 どのようにしたらいいでしょうか？ どなたかお分かりになる方、すみませんが教えてください。 よろしくお願いします。
- 締切済み
- その他([技術者向] コンピューター)
- エクセル オートフィルの制御について
初めまして、エクセルの行で、例えばa2セルが未入力の時に、隣のb2セルの 日付のオートフィル機能をとばすことは出来ますか？ a２セルが未入力の時は、b1のセルが1/1だったら、b2はとばして、b3に、1/2と入れたいのですが、 何か、初心者にも判る方法で、出来ませんでしょうか。 どうぞよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルについて教えていただきたいです。
エクセルについて教えていただきたいです。 こんにちは エクセルでマスターデータを作成していますがどうしてもわからないところがあるのでご教授願います。 セルに入れた値（変更可能）に応じてその入れた値の列数分他のセルに連続で入力されるというなんともわかりづらい悩みです。 A1に“１０”と入力 B2から“１０”列分のK2まで同じ値が（１００と）入る →ここの自動ではいる値（１００）はC1で自動計算された値 A1を“２０”としたらB2からU2まで１００が入る この説明でわかるでしょうか。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルでオートシェイプをデータによって移動できますか？
エクセルでオートシェイプをデータによって自動で移動させる事は可能でしょうか？ 例えば、 『血液型 ： Ａ・Ｂ・Ｏ・ＡＢ』 という項目があって、血液型によって○で囲む書式の場合に（血液型がＡ型ならば、Ａを○で囲む）他のセルで血液型を入力して、その値が変更する事によって、囲む○（オートシェイプを使用）の位置を自動で移動させたい。 ＶＢＡはほとんどわからないので、マクロ使用程度でできたら、と思っています。 エクセルのバージョンは2003です。
- ベストアンサー
- Windows XP