エクセルVBAについて

エクセルVBAに詳しい方に質問です。

もしA列の文字が入っていて、B列のセルが空白の場合
メッセージボックスを表示させる
そうでなければ、B列を基準に昇順に並び変える

というコードを組んでいただきたいです。

ちなみに、B列が空白の場合、文字が入力できるメッセージボックスを表示させ、
そこに入力した文字がセルに入力されるということは可能でしょうか？
（B列の複数セルが空白の場合、順番に全ての空白に入力できるようにしたいです）

よろしくお願いします。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2023/01/31 21:52

VBAに詳しくはないけど、参考程度にはなるかも。

Private Sub 入力ボックスと並べ替えl()

　Dim IB As String
　Dim i, num As Integer
' A列の文字の入ったセルをカウント
　num = WorksheetFunction.CountA(Range("A:A"))
' 空白セルを強調表示して入力ボックス
　For i = 1 To num
　　If Range("B" & i).Value = "" Then
　　　With Range("B" & i)
　　　　.Interior.ColorIndex = 3
　　　　　IB = InputBox("カナ入力してください", "赤色セルに入力", "")
　　　　.Value = IB
　　　　.Interior.ColorIndex = 0
　　　End With
　　End If
　Next i
' 処理後に並べ替え　
　Range("B1:B" & i).Sort Key1:=Range("B1"), _
　Order1:=xlAscending, Header:=xlNo

End Sub

この回答へのお礼

おおお！！！
すごいです、まさにこれです！
助かりました、ありがとうございました！

お礼日時：2023/02/01 18:52

No.2 回答者： めぐみん_ 回答日時： 2023/02/01 10:02

＞もしA列の文字が入っていて、B列のセルが空白の場合

＞メッセージボックスを表示させる
＞そうでなければ、B列を基準に昇順に並び変える

・Ｂ列に空白セルがあれば入力を促す。
・Ｂ列に空白セルがなければ並び替える

と言う受け取り方もありますが、多分既出の回答が合っているのでしょう。
ところで最初からＢ列に空白セルが存在しないで実行する可能性『入力を促す事はせず、並び替えるだけ』については、手作業で済ませちゃうものなのでしょうか？

この回答へのお礼

・Ｂ列に空白セルがあれば入力を促す。
・Ｂ列に空白セルがなければ並び替える

おっしゃるとおりです！
「b列に空白があれば入力を促しその後並び替えを実行、b列に空白がなければすぐに並び替えを実行」できるコードを望んでおりました。

お礼日時：2023/02/01 18:50