No.1ベストアンサー
- 回答日時:
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
No.2
- 回答日時:
>もしA列の文字が入っていて、B列のセルが空白の場合
>メッセージボックスを表示させる
>そうでなければ、B列を基準に昇順に並び変える
・B列に空白セルがあれば入力を促す。
・B列に空白セルがなければ並び替える
と言う受け取り方もありますが、多分既出の回答が合っているのでしょう。
ところで最初からB列に空白セルが存在しないで実行する可能性『入力を促す事はせず、並び替えるだけ』については、手作業で済ませちゃうものなのでしょうか?
この回答へのお礼
お礼日時:2023/02/01 18:50
・B列に空白セルがあれば入力を促す。
・B列に空白セルがなければ並び替える
おっしゃるとおりです!
「b列に空白があれば入力を促しその後並び替えを実行、b列に空白がなければすぐに並び替えを実行」できるコードを望んでおりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) 列の複数ある空白セルを飛ばして、セルに並べて表示したい 3 2023/02/12 16:49
- Excel(エクセル) Excel 関数 数式 について 2 2022/09/02 21:45
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルの関数で質問です。 3 2023/02/24 14:07
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
SUMに含まれる範囲から特定のセ...
-
数式が入ったセルを含めて、数...
-
エクセルで表示されている数字...
-
Excel上でのデータ数字が連番で...
-
列の数字に100をかけたい
-
エクセルのsumifでかけ算してか...
-
エクセルで小数を含む数値の抽出
-
別のセルに値が入力されたら、...
-
エクセル:横長の表を改行して...
-
C列にF列の担当者(A〜)を順番...
-
時間を「昼間」と「夜間」に分...
-
エクセルでセルの値分の個数の...
-
HYPERLINKとADDRESSとMATCHの組...
-
Excel HLOOKUPで...
-
Excelでの検索結果を含む行だけ...
-
エクセルで2行まとめて並び替...
-
アルファベットを含む数をエク...
-
EXCELの特定セルを編集不可・コ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
数式が入ったセルを含めて、数...
-
SUMに含まれる範囲から特定のセ...
-
列の数字に100をかけたい
-
Excel上でのデータ数字が連番で...
-
別のセルに値が入力されたら、...
-
エクセルで表示されている数字...
-
エクセル:横長の表を改行して...
-
エクセルでセルの値分の個数の...
-
スペースとスペースの間の文字...
-
HYPERLINKとADDRESSとMATCHの組...
-
Excelのセル内文字の並び替えに...
-
時間を「昼間」と「夜間」に分...
-
エクセルで曜日に応じた文字を...
-
エクセルで、毎日の走行距離(...
-
入退社日より各月末の在籍者数...
-
エクセルのsumifでかけ算してか...
-
Excelで五十音順に並べ替えたい
-
エクセルで1列全部10倍したい
おすすめ情報