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:シート上で選択されているセルを選択し... Jカーター 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:シート上で選択されているセルを選択し... Jカーター 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
 '図形の処理1
else
 '図形の処理2
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:シート上で選択されているセルを選択し...
回答  Jカーター  - 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 -

引用なし
パスワード
   これで如何でしょうか?


シートモジュールのWクリックイベントです。
(標準モジュールではないです)

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:シート上で選択されているセルを選択し...
回答  Jカーター  - 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