Excel VBA質問箱 IV

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

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


42793 / 76732 ←次へ | 前へ→

【39001】Re:シートを選択するVBAを教えてください。
質問  kaoru  - 06/6/15(木) 18:29 -

引用なし
パスワード
   ▼Blue さん:
 ご回答ありがとうございます。
 試してみましたが動作しません。
 ひとつきになるのですが
>     ' セルの数が1で無い場合も何もしない
>     If .Cells.Count > 1 Then Exit Sub
 はどういう意味ですか?セルの数がシート上に1以上でない場合
 という意味ですか?
 お忙しいところすみません。
>試してみてください。
>メッセージボックスがでる場合、最初に提示した
>>   シート名『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
>も参考にしてください。

2 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 お礼

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