No.12
- 回答日時:
No.3・5・6です。
>全体を文字列としてEXCELに取り込むのも難があります。
一案ですが、どこか使っていない列全体のセルの表示形式をユーザー定義から
00000000000000
のように必要桁数だけ「0」を並べ、B列すべてをコピー → 先ほどの列の1行目を選択 → 右クリック → 形式を選択して貼り付け → 「値」を選択しOK
次にその列全体を選択 → コピー → そのままB列に貼り付け
これでおそらくそのままの桁表示になりますので、前回のコードでお望みの動きにならないでしょうか?
※ A1セルの表示形式もユーザー定義から必要桁数分だけ「0」を並べておいてください。m(_ _)m
CSV取込の所まで教授いただき、ありがとうございました。
望みの動きが出来ました。
丁寧に対応していただき、感謝します。
ありがとうございました。
No.11
- 回答日時:
No.9・10 の補足
No.10 のようにしておくと
No.9 の「If Format(Cells(1, 1).Value, "@") = Format(Cells(行, 2).Value, "@") Then」は
「If Cells(1, 1).Value = Cells(行, 2).Value Then」でも済むようになります。
No.10
- 回答日時:
セルの表示も14桁の数字の方が良いですよね
--------------------------------------------------------
Private Sub Worksheet_Activate()
Range("A1,B:B").NumberFormatLocal = "0"
End Sub
--------------------------------------------------------
これを組み込むと対象のシートがアクティブになると勝手に書式を変えてくれるので使いやすいと思います。
No.9
- 回答日時:
それでは以下のようなものではダメですか?
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim 行 As Long
Select Case Target.Column
Case 1
If Target.Row = 1 Then
For 行 = 7 To Cells(Rows.Count, 2).End(xlUp).Row
If Format(Cells(1, 1).Value, "@") = Format(Cells(行, 2).Value, "@") Then
Cells(行, 3).Select
Exit Sub
End If
Next
End If
MsgBox ("該当が有りませんでした")
Application.EnableEvents = False
Cells(1, 1).Select
Selection.ClearContents
Application.EnableEvents = True
Case 3
Application.EnableEvents = False
Cells(1, 1).Select
Selection.ClearContents
Application.EnableEvents = True
End Select
End Sub
--------------------------------------------------------
No.8
- 回答日時:
A1セルとB列の書式設定は次のどれでしょうか?
①「@」(文字列)
②「00000000000000」(「0」を14個)
③ その他(具体的に提示してください)
CSVファイルをEXCELにそのまま取り込んだため、A列、B列ともE表示の数値です。表示形式を文字列に変えてみましたがE表示されます。
検索ボックスにてバーコードスキャナーでGS1コード入力すると、E表示のままのセルを検索することはできました。
A1はバーコードスキャナーでGS1コード入力するのでセル内は”1.49874E+13”のように表示されます(右寄りなので数値だと思います)
B列はやはり1.49871E+13で右寄りに表示されます
いずれも上部の表示は14桁の数字で表示されます。
No.6
- 回答日時:
No.3・5です。
セルの表示はどのようになっていますか?
仮に実データが「14987233008665」だと「1.49872E+13」のようになっていませんか?
数式バーではちゃんと表示されていてもExcel的には別物とみなしてしまうと思います。
試しにセルの表示形式を「文字列」にし、
「E」なしのすべての桁数表示にしてみたらどうなりますか?m(_ _)m
表示形式を文字列にしましたがE表示になります。
仮に実データを123と入力し、A1に123と入れたら うまくいきました。
B列のみE表示されないように考えます。
実際のデータシートかCSVからEXCELに取り込んだもので、他の列には価格などもあるため、全体を文字列としてEXCELに取り込むのも難があります。
本題からずれてしまいましたが、データ形式を解決すればお示しのVBAは機能することが確認できました。
No.5
- 回答日時:
No.3です。
単純にシートモジュールだけで大丈夫だと思います。
画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
前回のコードをコピー&ペースト(Private Sub・・・~End Subまで)
Excel画面に戻り(VBE画面を閉じて)A1セルにデータを入力してみてください。
C列に飛びますので、C列に何らかのデータを入力するとA1セルに戻ります。m(_ _)m
ありがとうございます。
A1にB列にあるJANコードを入力しても”該当なし”となります。
私の質問の仕方がよくなっかったのかもしれません。
具体的には
B6にタイトル”商品コード”
B7~下にB2559まで、JANコードがあります。
それぞれのJANコードの横(C列)に在庫数を入力することが目的です。
例えば
A1にJANコード”14987233008665”を入力した場合
”14987233008665”がB10にあった場合はC10のセルが選択され、入力待ちになり、
C10に在庫数の3を入力したら、A1にアクティブセルがもどり、次の入力まちになる
教えていただいたVBAを理解しようと頑張っていますが、時間がかかりそうで、先ずはお礼まで。
No.4
- 回答日時:
念の為に確認ですが
① B列には重複は無いと考えて良いのでしょうか?
② B列の最後は2000の固定の方が良いのでしょうか?
③ B列にタイトル行は無いと考えて良いのでしょうか?
④ A1セルに戻った時はA1セルを自動クリアした方が良いのでしょうか?
⑤ C列に書き込んだら未確認でA1セルを選択するで良いでしょうか?(毎回確認だと作業化されてしまって習慣で結局確認ボタンを押してしまう事になってしまって手間なだけになる事が多いので…)
①重複はありません
②現在B7からB2559までにデータがあります。今後増えますが最大4000までです
③B6に”商品コード”というタイトルがあります。(B1~B5は空白)
④A1は自動クリアした方がよいです
⑤未確認でA1を選択することでよいです
よろしくお願いします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
VBA 検索して一致したセルへジャンプさせたい
その他(プログラミング・Web制作)
-
-
4
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
5
あるセルに特定の文字列を打つと、他のセルに決められた文字が自動入力するように
Excel(エクセル)
-
6
HYPERLINKとADDRESSとMATCHの組み合わせ技
Excel(エクセル)
-
7
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
8
EXCELのVBAで、重複データを隣のセルへ移動したい
Access(アクセス)
-
9
EXCELである列を上から順にチェックし、重複値がある場合に一方のデータを移動する方法
Excel(エクセル)
-
10
数値入力で簡単に該当のセルへ移動できませんか?
その他(Microsoft Office)
-
11
Excelで教えてください。 バーコードリーダーで読み込みしたあと セルを自動で次のセルに行くように
Excel(エクセル)
-
12
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
13
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
14
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
15
EXCEL:特定の文字が入力された日付を表示する方法
Excel(エクセル)
-
16
エクセルで昨日までの日付データ行を非表示するVBAについて!
Excel(エクセル)
-
17
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
18
エクセル 同じ値を探して隣の数値をコピーする
Excel(エクセル)
-
19
Excelで特定の日付以降の非表示
Excel(エクセル)
-
20
TODAY()で設定したセルの日付が変わったらマクロを実施させたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字がある行以外を削除...
-
エクセルで特定の文字列が入っ...
-
VBAで色の付いているセルの行削除
-
エクセル 上下で列幅を変えるには
-
Excel グラフのプロットからデ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
エクセル マクロ オートフィ...
-
罫線の斜線を自動で引くマクロ
-
A1に入力された文字列と同じ文...
-
エクセルVBAのEntireRow.Hidden...
-
エクセルのセルに指定画像(.jpg...
-
EXCEL VBA 正しく入力されてい...
-
エクセル 時間の表示形式AM/PM...
-
Excel2007で、指定範囲の行高さ...
-
エクセルでセルの大きさを一律...
-
エクセルVBA:データ端に画...
-
完全一致したら代入するマクロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報