Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7693 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【37429】ダブルクリックで選択 DIO 06/5/5(金) 19:58 質問[未読]
【37430】Re:ダブルクリックで選択 かみちゃん 06/5/5(金) 20:03 発言[未読]
【37431】Re:ダブルクリックで選択 かみちゃん 06/5/5(金) 20:08 発言[未読]
【37432】Re:ダブルクリックで選択 DIO 06/5/5(金) 20:25 質問[未読]
【37433】Re:ダブルクリックで選択 かみちゃん 06/5/5(金) 20:30 発言[未読]
【37444】Re:ダブルクリックで選択 HiroHiro 06/5/6(土) 22:48 発言[未読]
【37446】Re:ダブルクリックで選択 Kein 06/5/6(土) 23:24 回答[未読]
【37448】Re:ダブルクリックで選択 ゆみ 06/5/7(日) 12:55 発言[未読]
【37452】Re:ダブルクリックで選択 DIO 06/5/7(日) 18:49 お礼[未読]
【37429】ダブルクリックで選択
質問  DIO  - 06/5/5(金) 19:58 -
引用なし
パスワード
   任意のセルをダブルクリックしたときに
そのセルの「*2:*5」までを選択したいのですが

どのようにするかわかりません。
よろしくお願いいたします。
【37430】Re:ダブルクリックで選択
発言  かみちゃん  - 06/5/5(金) 20:03 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>任意のセルをダブルクリックしたときに
>そのセルの「*2:*5」までを選択したい

意味がわかりません。
そのセルの「*2:*5」とは何ですか？
たとえば、そのセルがA列のセルだったら、A2:A5を選択させたいということですか？
【37431】Re:ダブルクリックで選択
発言  かみちゃん  - 06/5/5(金) 20:08 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>そのセルがA列のセルだったら、A2:A5を選択させたい

一応、以下のような感じでできると思います。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Range(Cells(2, Target.Column), Cells(5, Target.Column)).Select
　Cancel = True
End Sub
【37432】Re:ダブルクリックで選択
質問  DIO  - 06/5/5(金) 20:25 -
引用なし
パスワード
   ▼かみちゃん さん：

DIOです。
かみちゃんさん早速の返信
ありがとうございます。

すみませんわかりにくくて。
実はやりたいことは
ダブルクリックしたセルがC5だったら、
B5:E5を選択させたい

ということです。
すいません。
【37433】Re:ダブルクリックで選択
発言  かみちゃん  - 06/5/5(金) 20:30 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>ダブルクリックしたセルがC5だったら、
>B5:E5を選択させたい

最初のご質問と全然違うように思えるのは、気のせいですか？

[#37431]で提示したコードは最初のご質問を推測したもので、
セルをダブルクリックすると、その列の2行目〜5行目を選択するものです。
これを応用できませんか？

応用できて、解決できたら、どのように解決されたかを載せてください。
【37444】Re:ダブルクリックで選択
発言  HiroHiro  - 06/5/6(土) 22:48 -
引用なし
パスワード
   DIO さん

>すみませんわかりにくくて。
>実はやりたいことは
>ダブルクリックしたセルがC5だったら、
>B5:E5を選択させたい
>ということです。

このようなことでしょか

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
With ActiveCell
　　 Range(Cells(.Row, 2), Cells(.Row, 5)).Select
　End With
End If

End Sub
【37446】Re:ダブルクリックで選択
回答  Kein  - 06/5/6(土) 23:24 -
引用なし
パスワード
   よそのスレッドも見ていれば、すぐにやり方が分かったはずなんですが・・

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
　 Cancel = True
　 Intersect(Target.EntireRow, Range("B:E"))Select
End Sub
【37448】Re:ダブルクリックで選択
発言  ゆみ  - 06/5/7(日) 12:55 -
引用なし
パスワード
   ▼DIO さん：

>実はやりたいことは
>ダブルクリックしたセルがC5だったら、
>B5:E5を選択させたい

機械は人間の頭の中で考えていることを察して動くようなことはないですよね。
人間が頭の中で考えていることをコードという命令に基づいて動くんですよね。
だから、機械に命令するために条件とか動き方を明確に表さないとダメなんです。

もし、DIOさんのやりたいことが、C5をダブルクリックするだけなら構いませんが、C5以外のセルをダブルクリックしたときにもマクロで実行したいという考えがあるのであれば、誰にでも分かるように条件を書く必要があると思いますよ。

回答されている方が推測するということは、質問の仕方があいまいだということです。
あいまいな質問→推測に基づいた回答→自分の求めている回答でないことがある。
このような形になりますので、自分のやりたいことをしっかりと考える。
他人に伝えられないようでは、機械に伝える（コード化する）ことも難しいと思いますよ。

回答でなくて申し訳ありませんが、スレッドをみて感じたことを書かせていただきました。気分を害されたらゴメンなさい。
【37452】Re:ダブルクリックで選択
お礼  DIO  - 06/5/7(日) 18:49 -
引用なし
パスワード
   　Range(Cells(Target.Row,2), Cells(Target.Row,5)).Select
　Cancel = True

でどうでしょう？
Cancel　=True

のいみは？ですけど、
何とかできました。

つたない質問に付き合っていただき
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7693 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free