Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12639 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9442】セル範囲の選択 まゆみ 03/12/4(木) 12:00 質問
【9448】Re:セル範囲の選択 Jaka 03/12/4(木) 12:38 回答
【9460】Re:セル範囲の選択 まゆみ 03/12/4(木) 15:41 お礼
【9442】セル範囲の選択
質問  まゆみ  - 03/12/4(木) 12:00 -
引用なし
パスワード
   セル範囲の選択の仕方がわからないので教えて下さい。
ワークシート（時間帯）のセル（Ｂ２）にはスタッフの名前が任意で入力されます。
ワークシート（月間合計）のセル（Ａ２〜Ａ２５）に、登録スタッフの名前を順番に
入力し、表を作成しました。

ワークシート名（時間）のセル（Ｂ２）に、「山田」が入ったときには、
ワークシート名（合計）の「山田」が入力されている行のＣ〜Ｅ列をアクティブに
して、「鈴木」が入ったときには、「鈴木」が入力されている行のＣ〜Ｅ列をアクティブ
にして、ということをしたいのですがよくわかりません。
（時間）シートの数字を、（合計）シートの対応セル範囲に数字だけコピー
したいのですが...

とりあえず、ワークシート名（時間）のセル（Ｂ２）を変数に指定したのですが
その後、なにをしたら良いのかわかりません。
すみませんがわかる方教えて下さい。
【9448】Re:セル範囲の選択
回答  Jaka  - 03/12/4(木) 12:38 -
引用なし
パスワード
   こんちは。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　If Target.Address(0, 0) = "B2" Then
　　　 STna = Application.Match(Target.Value, Sheets("月間合計").Range("A1:A25"), 0)
　　　 If IsError(STna) = False Then
　　　　　Sheets("月間合計").Activate
　　　　　Sheets("月間合計").Range("C" & STna & ":E" & STna).Select
　　　 End If
　　End If
End Sub
【9460】Re:セル範囲の選択
お礼  まゆみ  - 03/12/4(木) 15:41 -
引用なし
パスワード
   Jakaさん、早速のお返事ありがとうございました。
そのままコピーして使わせていただきました。
考えてもよくわからなかったのでとても助かりました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12639 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free