文字を0と認識し、一つ下のセルから「n+1」で連番をつけたい

Question

IF分で一覧表の項目を内容（例えば、ID/入社日/氏名など・・・）を0とみなし、その下のセルから入力されたセルに連番で番号を振りたい場合、どのようにしたらよろしいでしょうか？ご教示願います。

 Dim c, nextcell, num As Integer
 Dim ID, name, stday, belo, etc As String
 
 c = Cells(Rows.Count, 1).End(xlUp).row
 nextcell = c + 1
 num = Cells(c, 1).Value
 
 
 ID = Range("C4")
 name = Range("C6")
 stday = Range("C8")
 belo = Range("C10")
 etc = Range("C12")
 
 Cells(nextcell, 1).Value = num + 1
 Cells(nextcell, 2).Value = ID
 Cells(nextcell, 3).Value = name
 Cells(nextcell, 4).Value = stday
 Cells(nextcell, 5).Value = belo
 Cells(nextcell, 6).Value = etc
 Range(Cells(16, 1), Cells(nextcell, 6)).Borders.LineStyle = xlContinuous
  
 MsgBox ("登録処理を行いました。")
End Sub
コード

Comments

[fj68]

「文字を0と認識し」というのは対象となるセルに入っている「0」という文字列を数字の「0」として扱いたいということでしょうか。
もしそうであれば以下が参考になるかと存じます。

VBA 文字列を変換する
https://www.tipsfound.com/vba/04004

また、実際に書いてみたコードを質問に掲載するとより詳しい方から具体的な回答が得られるかもしれません。
なおその際、コードはコードブロックで囲うことをお忘れなく（コードブロックについては以下参照）。

質問する際にMarkdownは必ず使って欲しい - Qiita
https://qiita.com/kai0310/items/d6ad23d7e60eeb103c9d

ご参考まで。

[hatena19]

VBAでということでしょうか。
セルに関数式を設定するということでしょうか。

[jinoji]

=IF(B2<>"",0,A1+1) みたいなこと？

[Shou1142]

@fj68 さん
質問名用の記載を修正させて頂きました。
誤解を招く記載、大変失礼致しました・・・
また、コードブロックの件をご教示頂きありがとうございます。

[Shou1142]

@hatena19 さん
VBAおいて、でございます。

[Shou1142]

@jinoji さん
ひとまずやってみます。ありがとうございます。

Answer 1

VBAでするなら、Val関数という便利なものがあります。
数値、または数値と解釈できる文字列なら数値に変換。
数値でない文字列は0に変換してくれます。

    c = Cells(Rows.Count, 1).End(xlUp).Row
    nextcell = c + 1
    num = Val(Cells(c, 1).Value)

Comments

[Shou1142]

ありがとうございます・・・
解決しました！