![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3
- 回答日時:
こんばんは!
A1セルは手入力ですね?
一例です。
シートモジュールにしてください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, Range("A1,C:C")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Column = 1 Then
If .Value <> "" Then
Set c = Range("B:B").Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 1).Select
Else
MsgBox "該当なし"
.Select
End If
End If
Else
Range("A1").Select
Range("A1").ClearContents '//★//
End If
End With
End Sub
※ C列入力後、A1セルを選択するようにしていますが、
その時点でA1セルに入っていたデータは消去するようにしています。
そのまま残したい場合はコード内の「★」の行を消してください。m(_ _)m
ありがとうございます。
シートモジュール、Private Subのところでつまづいていますが、頑張ってみます。
sub call()
call Worksheet_Change(ByVal Target As Range)
End sub
を同じモジュールに書いて、callマクロから実行しようとしたのですが.....
No.2
- 回答日時:
>A1にバーコードリーダでJANコードを入力します。
これがA1である必然性はなんですか?
検索ダイアログに入れればそのまま
検索してもらえそうに思いますが。
作業のしやすさなのですが、検索ダイヤログを使用した場合、目的のJANセルに移動し、そこから入力するための隣のセルに移動し、入力後、次の作業のために検索ダイアログをクリックします。その時、検索ダイアログに残った前のデータを消してから、次のJANを入力します(上書きできないので)。
何百回とこの操作を繰り返すので、キータッチ回数を少しでも減らしたいのです。
そこで、任意のセルに(例えばA1)にリーダーで入力し、目的のセルにデータを入力した後、A1に戻る(戻るボタンなどで)ことができれば、気にすることなく次のバーコードリーダー入力(上書き)できるのではないかと考えました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) 一つのセルに複数の関数を入力する方法 4 2022/09/30 13:42
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) B列に、A列の数字が偶数の場合は1減算した数字、奇数の場合はそのまま数字を自動表示したい 4 2022/04/16 12:01
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) エクセルのことで教えてください。 A1セルに、 別シートのA1セルが1のときは「A」、2のときは「B 4 2023/02/24 23:08
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
VBA 検索して一致したセルへジャンプさせたい
その他(プログラミング・Web制作)
-
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
-
4
EXCELである列を上から順にチェックし、重複値がある場合に一方のデータを移動する方法
Excel(エクセル)
-
5
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
6
数値入力で簡単に該当のセルへ移動できませんか?
その他(Microsoft Office)
-
7
EXCELのVBAで、重複データを隣のセルへ移動したい
Access(アクセス)
-
8
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
9
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
10
日付を入力したセルをファイル名にして保存するには
Excel(エクセル)
-
11
EXCELで2列を参照し、重複するものを横に並べたい
Excel(エクセル)
-
12
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
13
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
14
エクセルで検索して移動???
Excel(エクセル)
-
15
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
16
エクセル 同じ値を探して隣の数値をコピーする
Excel(エクセル)
-
17
OFFSET,MAX関数併用で値を求める
その他(コンピューター・テクノロジー)
-
18
HYPERLINKとADDRESSとMATCHの組み合わせ技
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
A1に入力された文字列と同じ文...
-
[EXCEL]ボタン押す→時刻が表に...
-
Excel グラフのプロットからデ...
-
VBAで色の付いているセルの行削除
-
エクセル 上下で列幅を変えるには
-
Excel 時刻の並び替え
-
AのセルとB行を比較して、一致...
-
罫線の斜線を自動で引くマクロ
-
エクセルのマクロで意図しない...
-
エクセルマクロで偶数行(又は...
-
セルの色によって条件文をつけ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルVBAのEntireRow.Hidden...
-
エクセル マクロで数値が変っ...
-
excelのデータで色つき行の抽出...
-
直近の5個の平均を求めたい
-
EXCELマクロを使い、空白行では...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル マクロ オートフィ...
-
エクセルで特定の文字列が入っ...
-
[EXCEL]ボタン押す→時刻が表に...
-
特定の文字がある行以外を削除...
-
【Excel関数】UNIQUE関数で"0"...
-
VBAで色の付いているセルの行削除
-
エクセル 上下で列幅を変えるには
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
AのセルとB行を比較して、一致...
-
エクセル マクロで数値が変っ...
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセル2016で時間を入力して...
-
アクティブになっている行をマ...
-
罫線の斜線を自動で引くマクロ
-
excel 小さすぎて見えないセル...
-
Excelでカタカナ・ひらがな・英...
-
EXCELマクロを使い、空白行では...
-
エクセルマクロで偶数行(又は...
おすすめ情報