![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
>先にA1セルに入力し、次にB1セルにコード番号を入力したいのです・・・
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$B$1" Then
If WorksheetFunction.CountBlank(Range("A1:B1")) = 0 Then
Cells(Range("A1") + 1, "B") = .Value
End If
End If
End With
End Sub
※ B1セルの消去はしていません。
今度はどうでしょうか?m(_ _)m
No.3
- 回答日時:
たびたびごめんなさい。
前回のコードではA列数値行より1行ずれていました。
↓のコードに変更してください。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$A$1" And .Count = 1 Then
If IsNumeric(.Value) Then
Cells(.Value + 1, "B") = Range("B1") '//★//
Range("B1").ClearContents '//①//
End If
End If
End With
End Sub
※ 「★」の行に手を加えました。
今回はB1セルの値を表示後、B1セルを消去しています。
そのままで良いのであれば、「①」の行を消してください。m(_ _)m
No.2
- 回答日時:
No.1です。
B列に表示済みのデータはそのままの状態にして置かなければならないのですね。
となるとやはりVBAになってしまいます。
シートモジュールにしてください。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$A$1" And .Count = 1 Then
If IsNumeric(.Value) Then
Cells(.Value, "B") = Range("B1")
End If
End If
End With
End Sub
※ A1セルの数値変更時のみマクロが実行されます。
こんな感じで良いのでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) EXCELでリターンキーが押されたらそのセルに特定の文字を表示したいのですが。 2 2022/08/07 12:58
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) エクセル VBA セルの結合 2 2022/09/07 11:48
- Excel(エクセル) Excelで小数表記をそのまま角度表記にしたい 5 2022/04/04 12:34
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルの数式バーのフォント...
-
エクセルで「ページレイアウト...
-
エクセルでセルに標準で入力さ...
-
【マクロ】毎回、ファイル名が...
-
2列に入っているデータを1列...
-
文字列になっている時間をVBAで...
-
VBA Private Sub Worksheet_Cha...
-
Excel VBAで全ての矢印を赤色に...
-
エクセルの関数について教えて...
-
Excelの数式について教えてくだ...
-
シフト表をエクセルで作るとき...
-
Excel VBについての質問です。
-
excel2013 MonthDays 関数が使...
-
REGEXREPLACE関数について、
-
ユーザー定義関数をアドイン登...
-
エクセル日付 文字列の関数がエ...
-
【マクロ】 IFERROR関数をマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報
tom04様
早速のご回答有難うございます。数式をB2に入力し、以下にコピーしました。固定セルのA1とB1に数値を入力するとA2の番号1のB2セルB1と同じ数値が入りました。しかし、A3の番号2を入れると前の番号1のB2の数値が消えます。A2の番号1から順にB2の数値を保存(記録)したいです。マクロでもかまいません。よろしくお願いします。
tom04様
遅くなりました。ご回答いただいたとおりのコードで①を消してうまく動いています。しかしBIセルに前の数値を残したまま次のA1セルに番号を入力してB1セルに上書(又は消去して入力)すると前の数字が残って下表に反映されてしまいます。そこでB1セルを先に入力してA1を入力すると下表にうまく表示されます。入力手順としてどうしても連番号を先にA1セルに入力し、次にB1セルにコード番号を入力したいのです(コード番号は数値により名称をきめています。)。ご教授をよろしくお願いします。