こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

文字入力セルにのみに番号を順に付ける

ExcelでD3:D12に文字が入力されたあとボタン押しで同じ行B列のB1:B12に入力された文字のセル分だけ順番に番号を入力したいのですがVBAコードが解る方ご教授宜しくお願いします。
office2013です。

投稿日時 - 2018-05-09 21:18:57

QNo.9496828

すぐに回答ほしいです

質問者が選んだベストアンサー

Private Sub CommandButton1_Click()
lr = Range("D10000").End(xlUp).Row
n = 1
For i = 2 To lr
If Cells(i, "D") = "" Then
Else
Cells(i, "B") = n
n = n + 1
End If
Next
End Sub
>文字入力セルにのみ
の「文字」に、力点を置いtないが。
力点をおくなら
https://www.google.co.jp/search?source=hp&ei=XvTyWqv_BMuB8wW9-qQI&q=VBA%E3%80%80%E6%96%87%E5%AD%97%E3%81%AB%E9%99%90%E5%AE%9A%E3%80%80%E5%88%A4%E5%88%A5&oq=VBA%E3%80%80%E6%96%87%E5%AD%97%E3%81%AB%E9%99%90%E5%AE%9A%E3%80%80%E5%88%A4%E5%88%A5&gs_l=psy-ab.3...4955.20383.0.21125.29.29.0.0.0.0.730.4023.0j11j1j1j2j1j1.17.0..2..0...1.1j4.64.psy-ab..12.7.2275...0j0i131k1j0i4k1j0i4i37k1j0i23k1j0i4i30i23k1j33i160k1.0.G-mpllF8NZc
VBAで文字列かどうかを判定する-VarType関数
などを使ったらどうか。
とりあえず、初歩的なコードでのForNextでやってみた。

投稿日時 - 2018-05-09 22:19:07

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(5)

ANo.5

D列には必ず、上詰めでデータを埋める
(途中の行に空白行が無い)という条件があるなら
よりシンプルに、

B3セルに

=IF(D3<>"",row()-2)

と埋め、必要数下方向に複写するという解もあると思います。

VBAでということであれば、私なら、

Sub sample()
 Dim wkLCnt As Long
 With ThisWorkbook.Sheets(1)
  wkLCnt = 3
  Do
   If .Cells(wkLCnt, 4).Value = "" Then Exit Do
   .Cells(wkLCnt, 2).Value = wkLCnt - 2
   wkLCnt = wkLCnt + 1
  Loop
 End With
End Sub

といったコードにします。

投稿日時 - 2018-05-09 23:12:49

お礼

ありがとうございます。勉強になりました。

投稿日時 - 2018-05-11 21:06:32

ANo.4

D列に飛び飛びに文字列を入力する場合は、B3を以下の式に変更してB4以降にコピーして下さい。
=IF(ISBLANK(D3),"",MAX(B$2:B2)+1)

投稿日時 - 2018-05-09 22:43:19

お礼

ありがとうございます。

投稿日時 - 2018-05-11 21:08:25

ANo.3

B3セルに
=IF(ISBLANK(D3),"",IF(ISNUMBER(B2),B2+1,1))
という式を入力して、B3セルをB4~B12セルにコピーして下さい。

ボタンやVBAでの記述は不要です。

D列に何か入力すると、入力と同時にB列に数字が表示されます。

投稿日時 - 2018-05-09 22:34:11

お礼

ありがとうございます。

投稿日時 - 2018-05-11 21:10:13

ANo.1

こんな感じ?
Sub aaa()
Set r = Range("D3:D21")
n = 1
For Each x In r
If Not IsEmpty(x) Then
x.Offset(, -2) = n
n = n + 1
End If
Next
End Sub
そして,ボタンにマクロを割り当ててください。
ボタンを作るのは,[開発] タブの [コントロール] グループの[挿入] からどうぞ。
[開発] タブがない場合の出し方は,検索してください。

投稿日時 - 2018-05-09 21:31:43

お礼

ありがとうございます。勉強になりました。

投稿日時 - 2018-05-11 21:12:58

あなたにオススメの質問