エクセルで、○について連番を自動で振るには？

Question

エクセルで、○と入力したら、○の数の連番を振ることはできますか？
エクセル初心者です。

＿ A列 
1 ○1 
2 ○2
3
4 ○3
5
6 ○４

出来ればつけた連番は○より小さくなるとありがたいです。 
Ｂ列ではなく、Ａ列の○の右横に反映させたいです。
マクロなら可能でしょうか？

keithin · Accepted Answer

ご紹介したマクロは，主に３つの部分（３つの仕事）で出来ています。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Dim h As Range
　Dim o As String

’Ｗクリックされたセルが目的の範囲内なのかどうか調べる部分
　if application.intersect(target, range("A1:A10")) is nothing then exit sub　’★

’Ｗクリックされたセルに○を記入したり消去する部分
　If Target = "" Then
　　Target = "○"
　Else
　　Target.ClearContents
　End If

’連番を振り直す部分
　Set h = Range(Target, Range("A10")).Find(what:="○", LookIn:=xlFormulas, lookat:=xlPart)　’★
　If Not h Is Nothing Then
　　o = h.Address
　　Do
　　　h = "○" & Application.CountIf(Range("A1:A" & h.Row), "○*")　’★
　　　h.Characters(2, 9).Font.Size = 9
　　　Set h = Range(Target, Range("A10")).FindNext(after:=h)　’★
　　Loop Until h.Address = o
　End If
　Cancel = True
End Sub

ご覧になって判るようにA1からA10までの範囲で，という文言が各所（★を打った行）に出てきますから，そこを漏れなく直してください。

okormazd · Answer

下記のようなマクロならできるが。
基本的なことだけで、エラー処理なんかはしてない。

SheetのWorkSheetモジュールに下記VBAを貼り付ける。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

c = 1
    If Target.Column <> c Then Exit Sub
    ri = 1
    re = Rows(ActiveSheet.Rows.Count).End(xlUp).Row
    i = 1
    
    For r = ri To re
        If Left(Cells(r, c), 1) = "○" Then
            Cells(r, c) = "○" & i
            i = i + 1
            Cells(r, c).Characters(Start:=2, Length:=Len(i)).Font.Size = 8
        End If
    Next

Application.EnableEvents = True     
End Sub

keithin · Answer

できますかと言われれば，そりゃまぁ，やれば出来ます。

【手順】
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim h As Range
Dim o As String
Dim n As Long
　If Target.Column <> 1 Then Exit Sub
　If Target = "" Then
　　Target = "○" & (1 + Application.CountIf(Range("A1:A" & Target.Row), "○*"))
　　Target.Characters(2, 9).Font.Size = 9
　Else
　　Target.ClearContents
　End If

Set h = Range(Target.Offset(1), Range("A65536")).Find(what:="○", LookIn:=xlFormulas, 　lookat:=xlPart)
　If Not h Is Nothing Then
　　o = h.Address
　　Do
　　　h = "○" & Application.CountIf(Range("A1:A" & h.Row), "○*")
　　　h.Characters(2, 9).Font.Size = 9
　　　Set h = Range(Target.Offset(1), Range("A65536")).FindNext(after:=h)
　　Loop Until h.Address = o
　End If
　Cancel = True
End Sub

ファイルメニューから終了してエクセルに戻り，Ａ列のセルでＷクリックする。

でもまぁこんなマクロをただ作ってもらって，最初は物珍しくておもしろいかも？しれませんが，実際の仕事の場面で活用できるモノなのかはとても疑問に思われます。

【推奨】
素直にＢ列に
B2:
=IF(A2="○",COUNTIF($A$1:A2,A2),"")
以下コピー

などのような数式を並べて連番を計算させるなどしてご利用いただく事を考えた方が，何をやっているのかどうすればイイノカもご自分できちんと理解できて，実際の仕事は進むと思いますよ。

frown_knight · Answer

○1 と入力したセルをアクティブにすると右下に小さい■がでるからそれをドラッグすれば可能です

muchon · Answer

簡単な方法でしたら関数でCOUNTを使うと、シートにある数をカウントしてくれますそれを上から下に反映させて使えばいけますね

エクセルで、○について連番を自動で振るには？

ご紹介したマクロは，主に３つの部分（３つの仕事）で出来ています。

下記のようなマクロならできるが。

できますかと言われれば，そりゃまぁ，やれば出来ます。

この回答への補足

○1 と入力したセルをアクティブにすると右下に小さい■がでるからそれをドラッグすれば可能です

簡単な方法でしたら関数でCOUNTを使うと、シートにある数をカウントしてくれますそれを上から下に反映させて使えばいけますね

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング