[[20081008133020]]　『セルの後ろ3文字を抽出』（さらっち）　ページの最後に飛ぶ

『セルの後ろ3文字を抽出』（さらっち）

エクセルのデータをＣＡＤにテキストとして貼り付ける、という作業をしています。

エクセルで、SHEET1、MAIN、TEMP、という3つのシートのあるBOOKが大量にあり
MAINには以下のようなマクロのボタンが6つ並んでいます。

Sub ボタン1_Click()

    Sheets("TEMP").Select
    Range("A6:A77").Select
    Selection.Copy
    Sheets("MEIN").Select
End Sub

Sub ボタン2_Click()

    Sheets("TEMP").Select
    Range("A78:A365").Select
    Selection.Copy
    Sheets("MEIN").Select
End Sub
・
・
・（以下、パターンによって選択範囲の違うボタンを作成）
・
・

パターンがいくつもあって、毎回それに見合ったボタンを探して
クリックしてＣＡＤに貼り付け、という状態になっています。

エクセルのボタンをクリックしてＣＡＤ上でCtrl+Vで、ＣＡＤ図面に文字が書き込まれる仕組みです。

SHEET1のセル"Ｏ2"に『********R00』や『******R10』などの記号が入っていて
これがパターンになるので（***はバラバラです）
後ろの3文字だけを認識して、上のマクロと合体させて
ひとつのボタンにしたいのです

イメージとしては

Sub ボタン()

SHEET1のセル"O2"の後ろ3文字が『R00』の場合は　←ここ

Sheets("TEMP").Select

    Range("A6:A77").Select
    Selection.Copy
    Sheets("MEIN").Select

SHEET1のセル"O2"の後ろ3文字が『R10』の場合は　←ここ

Sheets("TEMP").Select

    Range("A78:A365").Select
    Selection.Copy
    Sheets("MEIN").Select
　　　・
　　　・
　　　・（以下、同様に残りのパターンで作成）
　　　・
　　　・
　　　・
End Sub

"ここ"の部分マクロをどうしたらよいのか
6つあるパターンをどう組み合わせたらよいのか･･･

初心者のため、説明下手で申し訳ありませんが
どなたか、教えていただけないでしょうか？
よろしくお願い致します。

 こんな塩梅でっか？
　     （弥太郎）
 '-----------------------
 Sub test()
    Dim adrs As String
    Select Case Right(Sheets("sheet1").Range("o2"), 3)
        Case "R00"
            adrs = "A6:A77"
        Case "R02"
            adrs = "A78:A365"
        .
        .
        .
        .

    End Select
    Range(adrs).Select
    .
    .
    .

 End Sub

弥太郎様、ありがとうございます。

すいません。
参照は"SHEET1"のセルＯ2なのですが、選択範囲は"TEMP"になります
そういう場合はどう指定してやればいいのでしょうか？

 Sheets("TEMP").select
 range(adrs).select
 といった塩梅にしてやれば宜しいかと思われます。
    　　　　
        （弥太郎）

弥太郎さん、ありがとうございます。

すいません、本当に超のつく初心者で･･･(:_;)
今日はもう帰らないといけないので、また明日頑張ってみます。

弥太郎様。

おはようございます!

出来ました！！

これで、ボタンの選択ミスや"sheet"で"O2"を確認する手間が省けて
作業効率もぐんと上がります！！（200枚くらいあったので）

おかげ様でスッキリ解消です。
本当にありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20081008133020]] 『セルの後ろ3文字を抽出』（さらっち） ページの最後に飛ぶ

[[20081008133020]]　『セルの後ろ3文字を抽出』（さらっち）　ページの最後に飛ぶ