Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12313 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11148】シート上で選択されているｾﾙを選択して・・ よっしー 04/3/1(月) 13:11 質問
【11150】Re:シート上で選択されているｾﾙを選択して... IROC 04/3/1(月) 13:54 回答
【11154】Re:シート上で選択されているｾﾙを選択し... よっしー 04/3/1(月) 15:31 お礼
【11157】Re:シート上で選択されているｾﾙを選択し... IROC 04/3/1(月) 16:20 回答
【11158】Re:シート上で選択されているｾﾙを選択し... よっしー 04/3/1(月) 16:30 お礼
【11168】Re:シート上で選択されているｾﾙを選択し... アイエネス 04/3/2(火) 0:25 回答
【11171】Re:シート上で選択されているｾﾙを選択し... よっしー 04/3/2(火) 10:42 発言
【11170】Re:シート上で選択されているｾﾙを選択し... Ｊカーター 04/3/2(火) 9:50 回答
【11173】Re:シート上で選択されているｾﾙを選択し... よっしー 04/3/2(火) 10:50 発言
【11174】Re:シート上で選択されているｾﾙを選択し... IROC 04/3/2(火) 11:28 回答
【11180】Re:シート上で選択されているｾﾙを選択し... よっしー 04/3/2(火) 12:12 お礼
【11176】Re:シート上で選択されているｾﾙを選択し... Ｊカーター 04/3/2(火) 11:38 回答
【11181】Re:シート上で選択されているｾﾙを選択し... よっしー 04/3/2(火) 12:14 お礼
【11148】シート上で選択されているｾﾙを選択して・...
質問  よっしー  - 04/3/1(月) 13:11 -
引用なし
パスワード
   はじめまして。よっしーです。
"有"、"無"というのが別々のｾﾙに記入されていて、例えば、ｼｰﾄ上で"有"を
選択してｺﾏﾝﾄﾞﾎﾞﾀﾝを押したらオートシェイプの円が"有"の上に表示させるよ
うにしたいのですがどうか教えてください。
【11150】Re:シート上で選択されているｾﾙを選択し...
回答  IROC  - 04/3/1(月) 13:54 -
引用なし
パスワード
   If ActiveCell.Value = "有" Then
　'図形の処理１
else
　'図形の処理２
end if

です。

図形はあらかじめ配置して置いて、
Visible プロパティで 表示・非表示を切り替えるのが
簡単かと思います。
【11154】Re:シート上で選択されているｾﾙを選択し...
お礼  よっしー  - 04/3/1(月) 15:31 -
引用なし
パスワード
   IROCさん有り難うございます。
オートシェイプを表示、非表示にするのは
どうしたらいいでしょうか？お願いします。
【11157】Re:シート上で選択されているｾﾙを選択し...
回答  IROC  - 04/3/1(月) 16:20 -
引用なし
パスワード
   Visibleプロパティです。

ActiveSheet.Shapes("Oval 1").Visible = False

ActiveSheet.Shapes("Oval 1").Visible = True
【11158】Re:シート上で選択されているｾﾙを選択し...
お礼  よっしー  - 04/3/1(月) 16:30 -
引用なし
パスワード
   ありがとうございました。できました。
もう一つ教えていただきたいのですが、
非表示になってる図形を表示、
表示されているのを非表示にしたいのですが
これをﾀﾞﾌﾞﾙｸﾘｯｸｲﾍﾞﾝﾄを使って"有"をﾀﾞﾌﾞﾙｸﾘｯｸ
したら図形が表示され、また図形が表示されている
”有”をﾀﾞﾌﾞﾙｸﾘｯｸしたら非表示になるようにしたい
のですがどうもうまくいきません。ちなみに
有・無
有・無
有・無
有・無
有・無
という風に同じ名称が5つほど並んでいます。
どうか教えてください。よろしくお願いします。
【11168】Re:シート上で選択されているｾﾙを選択し...
回答  アイエネス  - 04/3/2(火) 0:25 -
引用なし
パスワード
   こんにちは

セルC6に"有"と入力されているとした場合、こんなです

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

If Target = Range("C6") Then
　　If ActiveSheet.Shapes("Oval 1").Visible = False Then
　　
　　　　ActiveSheet.Shapes("Oval 1").Visible = True
　　Else
　　　　ActiveSheet.Shapes("Oval 1").Visible = False
　　End If

Else

End If

End Sub
【11170】Re:シート上で選択されているｾﾙを選択し...
回答  Ｊカーター  - 04/3/2(火) 9:50 -
引用なし
パスワード
   ▼よっしー さん：
単純にこんな感じで
------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Target.Value = "有" Then
　　　　With Me.Shapes("Oval 1")
　　　　　　.Visible = Not .Visible
　　　　　　Cancel = True
　　　　End With
　　End If
End Sub
【11171】Re:シート上で選択されているｾﾙを選択し...
発言  よっしー  - 04/3/2(火) 10:42 -
引用なし
パスワード
   アイエネスさんありがとうございます。
教えていただいた方法でやってみたのですが
「型が一致しません」のエラーメッセージが
でました。どうしましょう？また別の方法が
あれば教えてください。よろしくお願いしま
す。
【11173】Re:シート上で選択されているｾﾙを選択し...
発言  よっしー  - 04/3/2(火) 10:50 -
引用なし
パスワード
   Jｶｰﾀｰさんありがとうございます。
教えていただいたとおりやってみたのですが
If Target.Value = "有" Then　のところで
「型が一致しません」とエラーがでました。
何か原因があるのでしょうか？よろしくお願
いします。
【11174】Re:シート上で選択されているｾﾙを選択し...
回答  IROC  - 04/3/2(火) 11:28 -
引用なし
パスワード
   これで如何でしょうか？


シートモジュールのＷクリックイベントです。
（標準モジュールではないです）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'C5 有
'F5 無

　　If Target.Address = Range("C5").Address Then
　　　　Cancel = True
　　　　If ActiveSheet.Shapes("Oval 1").Visible = False Then
　　　　　　ActiveSheet.Shapes("Oval 1").Visible = True
　　　　Else
　　　　　　ActiveSheet.Shapes("Oval 1").Visible = False
　　　　End If
　　ElseIf Target.Address = Range("F5").Address Then
　　　　Cancel = True
　　　　If ActiveSheet.Shapes("Oval 2").Visible = False Then
　　　　　　ActiveSheet.Shapes("Oval 2").Visible = True
　　　　Else
　　　　　　ActiveSheet.Shapes("Oval 2").Visible = False
　　　　End If
　　End If

End Sub
【11176】Re:シート上で選択されているｾﾙを選択し...
回答  Ｊカーター  - 04/3/2(火) 11:38 -
引用なし
パスワード
   ▼よっしー さん：
>If Target.Value = "有" Then　のところで
>「型が一致しません」とエラーがでました。
では

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　If Target(1).Value = "有" Then
　　　　With Me.Shapes("Oval 1")
　　　　　　.Visible = Not .Visible
　　　　　　Cancel = True
　　　　End With
　　End If
End Sub
【11180】Re:シート上で選択されているｾﾙを選択し...
お礼  よっしー  - 04/3/2(火) 12:12 -
引用なし
パスワード
   IROCさんありがとうございました。
ようやくできました。ほんとに感謝です。
【11181】Re:シート上で選択されているｾﾙを選択し...
お礼  よっしー  - 04/3/2(火) 12:14 -
引用なし
パスワード
   Jｶｰﾀｰさんありがとうございました。
正常に動きました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12313 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free