違うシートで作成した表を読み込むマクロ

質問

はじめまして。掲示板に投稿させていただくのは初めての者ですがどうぞご教授をおねがいいたします。

この掲示板に載っていたマクロを参考にさせて頂き以下のようなマクロを作成してみました。
概要を説明しますと、シート１にマクロを起動するコマンドボタンと答えを記載する場所を作成し、シート２（名称：値）にデータ表を作成しています。
参考にさせていただいたマクロは同じシート内に表がある状態だったので上手く起動しましたが表をシート２（名称：値）にしたらエラーが発生するようになってしまいました。
どうしたらシート２に表があっても起動するのでしょうか？

あまりマクロ自体についても詳しくないのでどうしたらよいかわからない状態になっております。もしよろしければご教授の程をよろしくお願いいたします。
【以下作成したマクロ】
Sub Test()
Dim fs, myDay As Integer
fs = Application.InputBox("CD+日", "指定")
If fs = False Then Exit Sub
If Len(fs) < 6 Then Exit Sub
myDay = CInt(Mid(fs, 6, Len(fs)))
fs = (Left(fs, 5))
Set r = Columns(1).Find(what:=fs, after:=Range("A22"), LookAt:=xlWhole)
If r Is Nothing Then Exit Sub
Sheets("値").Select
r.Offset(0, myDay).Select
Cells(10, 10) = r.Offset(0, myDay)
Cells(10, 9) = r
End Sub

回答No.6

o_chi_chi · ベストアンサー

これでどうでしょう。

fs = (Left(fs, 5))
Set r = Sheets("値").Columns(1).Find(what:=fs, after:=Range("A22"), LookAt:=xlWhole)
If r Is Nothing Then Exit Sub
'Sheets("値").Select '必要なし
'r.Offset(0, myDay).Select '必要なし
Cells(10, 10) = r.Offset(0, myDay).Value
Cells(10, 9) = r.Value

お礼

回答のほどありがとうございました。

記載して頂いたマクロで別Sheetに表があっても稼働するようになりました。
今後、もっとマクロについて勉強したいと思います。
本当にありがとうございました。

回答No.5

hige_082

おっと間違い
＃４です
自分の環境でテストしたまま回答しちゃいました

If r Is Nothing Then Exit Sub
r = r.Address　　　'←この位置に、追加してください
Sheets("値").Select

に訂正です

お礼

回答のほどありがとうございます。
どうやらこのマクロでは数値以外を’日’のところに入力できないみたいですので入力するデータを限定して対処したいとおもいます。

回答No.4

hige_082

何をしたいのか、よく分かりませんが
InputBoxで適切な値を入れて走るようにするには
次の一行を追加してください

If r Is Nothing Then Exit Sub
r = r.Address　　　'←この位置に、追加してください
Sheets("Sheet2").Select

参考までに

回答No.3

lul

えっと、とりあえず質問です。
＞上記表であれば、列1111111で行4であれば「k」を表示のようにです。
ソースを見る限りでは入力された文字列の頭5桁を検索に使用し、6桁目以降をオフセットに使用していますね、さらに検索する際には完全一致で検索をかけに行きますのでA列が5桁でないと正常な検索結果は取得出来ないかと思われます、"11111111"と言う値が入っているセルでは検索結果に引っかかってきません。
まずこの辺りの矛盾を回避出来るよう説明頂ければ回答できると思います。
因みに「実行時エラー'13'型が一致しません」は数値型の変数 "myDay"に対して数値以外のものが入力された事によって起こるエラーです。
以下の1文をmyDayに値を代入する前に入れてください
If Not IsNumeric(Mid(fs, 6, Len(fs))) Then MsgBox "数値以外が入力されました": Exit Sub

お礼

回答のほどありがとうございます。
御指摘の通りどうやらこのマクロですと数値以外は入力できないみたいでした。
頭5桁の件ですが、申し訳ありません。最初に作成したものが５桁のものでしたのでそれを質問に載せてしまいました。
最終的には７桁か８桁に伸ばそうと思っているのです。

入力する数値は数字以外入力しないようルールを考えたいと思います。
別シートに表がある場合の対処方法もお分かりになればご教授の程お願いいたします。

回答No.2

o_chi_chi

myDayが正しく取得できていますか。
ほかにも
Cells(10, 10) = r.Offset(0, myDay)
Cells(10, 9) = r
このあたりも変更していますか。

"型が一致しません"
はfsがInteger型だからでは。

まず同一シートでソースの意味を理解して完璧に動作してから
徐々に改良していったほうがよいと思います。

お礼

回答のほどありがとうございます。
同一シートでは数値でやった場合はきちんと動作はしたのですがもう少し検証してから改良していきたいと思います。

Cells(10, 10) = r.Offset(0, myDay)
Cells(10, 9) = r
については、参考にさせていただいた物にはなかったのですが自分で作成してみたのです。
そのあたりも関係してそうですのでもう少し検証してみたいと思います。

回答No.1

o_chi_chi

どの質問を参考にどう変更したのか情報があると回答しやすいとおもうのですが。

fs = (Left(fs, 5))
Sheets("値").Select '←ここへ移動
Set r = Columns(1).Find(what:=fs, after:=Range("A22"), LookAt:=xlWhole)

でどうでしょう。

お礼

御回答ありがとうございます。
参考にしました質問番号等を記載したほうがよかったと反省しております。
参考にさせて頂いた質問は「No2164579」です。

回答いただきました場所に
Sheets("値").Select
を入力して試したところ、「実行時エラー'1004'　RangeクラスのSelectメソッドに失敗しました」というエラーがでてしましました。
該当箇所は
r.Offset(0, myDay).Select
の様なのですが。。。。

補足

補足としまして、実行したいことはA列に数字＋アルファベットの７か８桁のコードが並んでおり、２２行目にアルファベットか数字もしくは日本語で表代並んでる表があり、縦と横の指定した文字の交差したセルに記載されているデータを特定のセルに表示、ということをしたいのです。
　　 　1 2 3 4 s b f 白 黒
11111111 d k
1111112 l b
11111113 g x

上記表であれば、列1111111で行4であれば「k」を表示のようにです。

あと、これはもう一つ質問を立てた方がいいのかもしれないのですが上記表で行に記入されているデータが数字の場合はうまくマクロが起動するのですが、アルファベットや日本語の場合、「実行時エラー'13'型が一致しません」というエラーが出てしまします。
もし、マナー・規約違反ではなければ上記の回避方法もご教授していただければ幸いです。