Excel VBA質問箱 IV

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

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


37731 / 76732 ←次へ | 前へ→

【44163】Re:複数のシートからデータを抽出したい
発言  Mariko  - 06/11/6(月) 22:44 -

引用なし
パスワード
   ▼初心者K さん:

こんな感じでしょうか。また識者からのアドバイスがあるかも知れませんが
万が一シート数より大きな数字の場合はエラー処理しておきましたが。


'*****************標準モジュールに
Sub Usr_FShow()
 UserForm1.Show 0
End Sub
'*****************ユーザフォームに
'テキストボックスとコマンドボタンを各一つ作成して

Private Sub CommandButton1_Click()
   For i = 1 To Sheets.Count
     If Val(TextBox1.Value) > Worksheets.Count Then
       MsgBox "そのシートはありません" 'シート数より大きい数字
        Exit Sub
     End If
     If Val(TextBox1.Value) = i Then
       Sheets(i).Activate
     End If
   Next i
End Sub

0 hits

【44148】複数のシートからデータを抽出したい 初心者K 06/11/6(月) 13:56 質問
【44151】Re:複数のシートからデータを抽出したい ハチ 06/11/6(月) 14:13 発言
【44152】Re:複数のシートからデータを抽出したい 初心者K 06/11/6(月) 14:41 質問
【44154】Re:複数のシートからデータを抽出したい ハチ 06/11/6(月) 15:24 発言
【44163】Re:複数のシートからデータを抽出したい Mariko 06/11/6(月) 22:44 発言
【44207】Re:複数のシートからデータを抽出したい 初心者K 06/11/9(木) 12:36 お礼

37731 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free