Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7131 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【41105】別のシートへジャンプする方法について 八幡 06/7/30(日) 8:37 質問[未読]
【41106】Re:別のシートへジャンプする方法について だるま 06/7/30(日) 8:54 回答[未読]
【41107】Re:別のシートへジャンプする方法について Pan 06/7/30(日) 9:22 発言[未読]
【41112】Re:別のシートへジャンプする方法について Kein 06/7/30(日) 14:53 回答[未読]
【41105】別のシートへジャンプする方法について
質問  八幡 E-MAIL  - 06/7/30(日) 8:37 -
引用なし
パスワード
   シート１のA1に１月と入ってれば１月シートへジャンプするのを作りたかったのですが、インデックスがないとのエラーでした。是非そのプログラムを教えてください。
私がくんだ内容は
Sub test1()
　Dim tu As Integer
　　 tu = 1
　　　If Range("a1").Value = tu & "月" Then
　　　　 Sheets(tu & "月").Selet　 'ここがエラーになっていました
　　　　　 Range("C1").Select
　　END IF
END SUB
よろしくお願いします
　　　
【41106】Re:別のシートへジャンプする方法について
回答  だるま WEB  - 06/7/30(日) 8:54 -
引用なし
パスワード
   シート名が違っているのではありませんか。^d^

たとえば、空白ありなし、１が全角か半角かなど。
【41107】Re:別のシートへジャンプする方法について
発言  Pan  - 06/7/30(日) 9:22 -
引用なし
パスワード
   ▼八幡 さん：
>シート１のA1に１月と入ってれば１月シートへジャンプするのを作りたかったのですが、インデックスがないとのエラーでした。是非そのプログラムを教えてください。
>私がくんだ内容は
>Sub test1()
>　Dim tu As Integer
>　　 tu = 1
>　　　If Range("a1").Value = tu & "月" Then
>　　　　 Sheets(tu & "月").Selet　 'ここがエラーになっていました
SelectがSeletに成っていますこれを直せばOKです。

>　　　　　 Range("C1").Select
>　　END IF
>END SUB
>よろしくお願いします
>
【41112】Re:別のシートへジャンプする方法について
回答  Kein  - 06/7/30(日) 14:53 -
引用なし
パスワード
   >シート１のA1に１月と入ってれば１月シートへジャンプする
ならば・・

Sub S_Select()
　 Dim MyS As String

　 With Sheets("Sheet1").Range("A1")
　　　If Right$(.Value, 1) <> "月" Then Exit Sub
　　　MyS = .Value
　 End With
　 On Error Resume Next
　 Application.GoTo Sheets(MyS).Range("C1")
　 If Err.Number <> 0 Then
　　　MsgBox MyS & " というシートは存在しません", 48
　　　Err.Clear
　 End If
End Sub

というようなコードにします。　　　
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7131 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free