Excel VBA質問箱 IV

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

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


42805 / 76735 ←次へ | 前へ→

【38992】Re:シートを選択するVBAを教えてください。
発言  Blue  - 06/6/15(木) 17:26 -

引用なし
パスワード
   試してみてください。
メッセージボックスがでる場合、最初に提示した
>   シート名『1』のセルA5に数字「1」を入力するとシート名『A』のセルB20の
>  値をシート名『1』のセルA6に貼り付ける。
>  シート名『1』のセルA5に数字「2」を入力するとシート名『B』のセルB20の
>  値をシート名『1』のセルA6に貼り付ける。
が間違っています。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Sh As String
  With Target
     ' A5以外の変更は何もしない
     If .Address(0, 0) <> "A5" Then Exit Sub
     ' セルの数が1で無い場合も何もしない
     If .Cells.Count > 1 Then Exit Sub
     ' セルの値で切り分け
     Select Case .Value
      Case 1: Sh = "A"
      Case 2: Sh = "B"
      ' 1, 2ではない
      Case Else
        MsgBox "1か2じゃねぇよ。"
        Exit Sub
    End Select
    
    Application.EnableEvents = False

    On Error Resume Next

    ' 指定のシートのB20の値をA6に入れる
    .Offset(1).Value = Worksheets(Sh).Range("B20").Value

    If Err.Number <> 0 Then
      MsgBox "'" & Sh & "'ってシートないじゃん。"
    End If    

    On Error GoTo 0

    Application.EnableEvents = True
  End With
End Sub


ついでに、類似スレ
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=38974;id=excel
も参考にしてください。

0 hits

【38967】シートを選択するVBAを教えてください。 kaoru 06/6/15(木) 14:43 質問
【38968】Re:シートを選択するVBAを教えてください。 Statis 06/6/15(木) 15:06 発言
【38970】Re:シートを選択するVBAを教えてください。 kaoru 06/6/15(木) 15:15 質問
【38971】Re:シートを選択するVBAを教えてください。 Statis 06/6/15(木) 15:38 回答
【38973】Re:シートを選択するVBAを教えてください。 kaoru 06/6/15(木) 15:41 お礼
【38975】Re:シートを選択するVBAを教えてください。 kaoru 06/6/15(木) 16:09 質問
【38992】Re:シートを選択するVBAを教えてください。 Blue 06/6/15(木) 17:26 発言
【39001】Re:シートを選択するVBAを教えてください。 kaoru 06/6/15(木) 18:29 質問
【39004】Re:シートを選択するVBAを教えてください。 Blue 06/6/15(木) 19:30 発言
【39015】Re:シートを選択するVBAを教えてください。 kaoru 06/6/16(金) 8:41 お礼
【38993】Re:シートを選択するVBAを教えてください。 Statis 06/6/15(木) 17:33 発言
【39000】Re:シートを選択するVBAを教えてください。 kaoru 06/6/15(木) 18:26 質問
【39005】Re:シートを選択するVBAを教えてください。 Statis 06/6/15(木) 19:32 発言
【39014】Re:シートを選択するVBAを教えてください。 kaoru 06/6/16(金) 8:39 お礼

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