エクセルマクロについて教えて下さい。

Question

エクセルマクロVBAについて教えてください。
まるっきりの初心者なので困っています。
シート1にあるA列の部番でJ111AH、J111A、J111Bといった先頭の数字が同じでその後のアルファベットが違う3種類の部品があります。
このうちＪ111ＡＨとＪ111Ａは納品時にユニットとして入って来るものでＪ111Ｂは組付け時に
Ｊ111ＡＨに取り付ける部品になります。
この3種類の部番を納品チェック時に単品で納入されないＪ111Ａを”-”で対象外としてＢ列に表示させたいです。
以上のマクロプログラムはどのようにすればいいか教えてください。
自分でいろいろ試してみましたが、うまくいかず詳しい方に聞くのが一番かと思い質問しています。
どうか、詳しい方の回答をよろしくお願いいたします。

tatsumaru77 · Accepted Answer

>末尾のアルファベットが違う、部番が数字のみ
>部品名で書かれているが追加されるので
>A、B、AH、BHのみを対象にして
>ーを出力したいです。

申し訳ありません。そうなると、私の手に負えません。
どなたか、ほかの回答者が回答してくださるのを待ってください。

tatsumaru77 · Answer

>部番列の番号で今回対象にしているA、B、AH、BH意外の番号が出てきた際はどうなりますでしょうか？
>可能性が有るものとして
>末尾のアルファベットが違う、部番が数字のみ
部品名で書かれている
この様なときに判定には影響は無いのでしょうか？

エラーを検知した行で、エラーメッセージを表示し、止まります。
継続する場合は、一旦、エラーのデータを正しく訂正し、再度、マクロを実行しなおしてください。そうすると、最初からやり直します。

kanta2006 · Answer

＞このサイトは質問サイトであってExcelVBAの作成を 請け負うサイトではありませんので。

ホントそうです。

本来、ここはExcelVBAの作成を 請け負うサイトではないのに、親切な人は全部作ってしまうから、誰か親切な人がタダで作ってくれるサイトだと勘違いしてる質問者が後を絶たない。

「いろいろ試してみましたが」と書くんじゃなくて、どういう事を試してみたのかソースコードを示して、どのようにうまく行かなかったのか、エラーが出るのか、エラーは出ないけど意図したように動作しないのか、そういうのを提示した上で、元のソースのどこに問題があるのかを質問するのが、本来の質問でしょう。

まるまる作ってもらうのは質問と回答というここの趣旨から逸脱してますよ。
この質問者さんだけの問題じゃありませんけど。

tatsumaru77 · Answer

下記へアップしました。
https://ideone.com/28qSiK

使用時の注意事項
１．部番列はE列にしてあります。変える場合は3行目の
Const BubanCol As String = "E"      '部番列
を適切な列に変えてください。
２．データの開始行は、６行にしてあります。変える場合は２行目の
Const StartRow As Long = 6          'データ開始行(1以上を指定)
を適切な数値に変えてください。
３．ーの出力対象列は、４行目の
Const OutColTbl As String = "L,O,R,U,X,AA,AD,AG,AJ,AM,AP,AS,AV,AY,BB,BE"       '-出力対象列
を適切な列に変えてください。

４．ーの出力対象列（L,O・・・BE列）は、マクロ実行時、最初に全てクリアされます。もし、クリアしたくなければ、２３行目の
    Call clear_out_cols(ws, StartRow, lastRow, outcols)   '全ての出力対象列をクリア
の行を削除するか、コメントアウトするかしてください。

tatsumaru77 · Answer

>最初に指定しておいた列にーを出力したいです。
>指定した列は固定で変わりません。

それは、B列ですか、それともF列でしょうか。
これから外出します。返信は夕方以降になります。

tatsumaru77 · Answer

>F列以降でH列、L列と言った感じで選んだ列にーを出力したいです。

すみません。意味がよくわかりません。
マクロ実行時に、あなたが、どの列に出力するかを選ぶということでしょうか。例えば、H列を選んだらH列に出力し、Z列を選んだらZ列に出力したいということですか？

tatsumaru77 · Answer

>ーを出力したいところは、F列以降で指定した複数列につける場合でお願いします。

「F列以降で指定した複数列」は
「F列以降で指定した複数行」の間違いでしょうか？

「F列以降で指定した複数列」をそのまま解釈すると、F列、G列、H列、・・・
等に－を出力するように読み取れます。

tatsumaru77 · Answer

No3です。
>現在、部番列はAですがこれをE列に変更してさらに、2行目を6行目からに変更するには何処を変えれば良いか教えてください。

ーを出力するのはB列で良いのですか。それともF列でしょうか。

tatsumaru77 · Answer

下記URLにアップしました。
標準モジュールに登録してください。
https://ideone.com/9KNOvf

fujillin · Answer

こんにちは

ご質問の文章が漠としすぎていてよくわからないので勝手に解釈しました。

＞先頭の数字が同じでその後のアルファベットが違う3種類の部品があります。
例示されている番号の先頭は「Ｊ」なので数字ではないですが・・
数字は3文字の決め打ちで良いのかも不明です。

＞Ｊ111Ａを”-”で対象外としてＢ列に表示させたいです。
Ａ列の表示を「-」としたいのか、Ｂ列に「-」とするのかもはっきりしませんね。

勝手に以下として解釈しました。
『A列の値の最後の1文字が「A」の場合に、Ａ列は「-」の表示とし、B列にA列の値を転記する』

※ 以下のコードは上記内容で動作しますので、解釈が違っている場合は、適宜修正してください。
（マクロを使おうというのですから、修正ぐらいはできるでしょう）

Sub Sample()
Dim c
With Worksheets("シート1") ' ←シート名が違う場合は修正すること
For Each c In Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
　If Right(c.text, 1) = "A" Then
　　c.Offset(, 1).Value = c.Value
　　c.Value = "-"
　End If
Next c
End With
End Sub

エクセルマクロについて教えて下さい。

>末尾のアルファベットが違う、部番が数字のみ

>部番列の番号で今回対象にしているA、B、AH、BH意外の番号が出てきた際はどうなりますでしょうか？

＞このサイトは質問サイトであってExcelVBAの作成を 請け負うサイトではありませんので。

下記へアップしました。

>最初に指定しておいた列にーを出力したいです。

>F列以降でH列、L列と言った感じで選んだ列にーを出力したいです。

>ーを出力したいところは、F列以降で指定した複数列につける場合でお願いします。

No3です。

下記URLにアップしました。

こんにちは

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

＞このサイトは質問サイトであってExcelVBAの作成を請け負うサイトではありませんので。