Excel のマクロを改良したい

Question

現在仕事で使用しているエクセルのマクロにおいて、問題が生じたため質問致します。

当方はマクロ等の知識が皆無なため、理解力が低いですが、お助けいただきますと幸いです。

エクセルで自動採番のマクロを使用しており、既に振り分けられている番号を参照して採番してるマクロだと思います。

例：

1 001

002

003

2 001

002

3 001

4

　・

　・

　・

マクロを起動したら上記のように番号が振り分けられていきます。

こちらの2列目の部分の11番目以降を1列目の親番の次の番号にする場合どのように改良すればよいでしょうか

例：

1 001

002

　・

　・

　・

1 011　　→　　2 001

以下プログラムコードを記載致します。

Sub proc_A()

Dim strDairiten As String

Dim i As Integer

Dim intCount, intCount2 As Integer

intCount = 1

intCount2 = 1

strDairiten = Range("C2").Value

Range("A2").Value = intCount

Range("B2").Value = intCount & Format(intCount2, "00")

For i = 2 To 289

If strDairiten <> Range("C" & i).Value Then 

    intCount = intCount + 1 

    intCount2 = 1 

    Range("A" & i).Value = intCount 

    strDairiten = Range("C" & i).Value 

End If 

Range("B" & i).Value = intCount & Format(intCount2, "00") 

intCount2 = intCount2 + 1 

If intCount2 = 10 Then MsgBox "Count10:" & i & "行目" 
``` Next 

End Sub

説明下手で申し訳ございませんが、ご回答を頂けますと幸いです。

Answer 1

こんにちは。横合いから失礼します。

他の方のアドバイスに返信が無いようですが、ご自身で何らかの解決策を見つけられたのでしょうか？。

既に他の方が書かれているように、質問文と提示されている VBAコードには多数の不明点や疑問点があります。

気になりましたので、ご希望の動作をある程度推測で補った上で、提示されているコードを以下のコード１のように書き換えてみました。

・コード１

Sub proc_A_1()

Dim strDairiten As String

Dim i As Integer, intCount As Integer, intCount2 As Integer

intCount = 1

intCount2 = 1

Application.ScreenUpdating = False

Range("A:B").ClearContents

strDairiten = Range("C2").Value

Range("A2").Value = intCount

For i = 2 To 289

  If strDairiten <> Range("C" & i).Value Or intCount2 = 11 Then

    intCount = intCount + 1

    intCount2 = 1

    Range("A" & i).Value = intCount

    strDairiten = Range("C" & i).Value

  End If

  Range("B" & i).Value = intCount & Format(intCount2, "00")

  intCount2 = intCount2 + 1

Next

Application.ScreenUpdating = True

End Sub

このコード１を実行した結果は、下記の図１のような表示になります。

・図１

※ C列には適当な「店名」を入れています。

※ご希望の表示になっていると思われるセル範囲の背景を黄色で色付けしています。

※ B列の連番の振り方は質問文とは異なっていますが、元のコードの通りにするとこうなります。

ご希望の表示と違っている部分がありましたら、どのセル（またはセル範囲）の表示が違っているのか出来るだけ詳しく教えてください。

また、これまで表示されていた「 Count10:12行目 」といった表示は削除していますので、これが必要な場合も教えてください。

ご希望の表示状態を教えていただく際には、提示されているコードを実行させている「シート名」も併せてお知らせください。

提示されているコードには「シート名」が指定されていないので、上記のコード１でも「シート名」を指定していません。

シートが複数ある場合には、「シート名」を指定しないと誤動作の原因になる場合があります。

尚、図１のような表示で良い場合も、必ずテスト環境（これまで使っていたファイルをコピーして使用）で十分にテストした上で、本来のファイルでお試しになってみてください。（ VBAコードの実行結果は、簡単に元に戻すことが出来ないため。）

Windows11 と Excel2021 の組み合わせで動作確認しています。

ご参考になれば幸いです。

※「返信」がある場合は、必ずこのコミュニティにサインインした上で行ってください。

Answer 2

わざわざここまで考えてくださって大変申し訳ないですが、翌日に自分でコードを解読して、if文にOrをつけ複数条件にすることによって自力で解決いたしました・・・。

マクロを作ったものが既に退職済みで社内にマクロのコードをわかるものがいなかったため、こちらのコミュニティに投稿しました。

他の方も回答してくださり、ありがとうございました。

何もわからない状態で投げやりな質問をしてしまったこと、お詫びいたします。

Answer 3

VBA(マクロ)の公式サポート場所は、海外コミュニティとなっています。

有識者が集まっている所の方が、適切なアドバイスを受けやすいでしょう。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。

　 所謂、くれくれ君には対応してくれないと思います。

Answer 4

> こちらの2列目の部分の11番目以降を1列目の親番の次の番号にする

「次の番号にする」具体的な条件と根拠が不明瞭ですので、
現時点では回答のしようがありません。

> strDairiten = Range("C2").Value> If strDairiten <> Range("C" & i).Value Then > strDairiten = Range("C" & i).Value

掲載されたソースコードから読み解けるのは、それぞれの番号の
リセットとインクリメントを制御するために C 列（ 3 列目）の
各行のセルの値を比較する処理を実行している、ということだけです。

しかし、挙げられた 2 つの実行例はいずれも C 列の値が不明です。
また、そのマクロを実行すれば B2 セルの値は必ず 101 となるはずであり、
例示されている値（ 001 ）とは合致していません。

1 つめの実行例については C 列の各行のセルにどのような値が
格納されているかをある程度推定することが出来ますが、
2 つめの実行例（今回ご質問されている処理）に関しては
何を根拠として「11番目以降」とされているのかが分かりません。