はじめまして。
VBAはそんなに詳しくないです。
エクセルで、例えば、A1:A5が全てOKになったら、表示している図形を消す。
という事をやりたいです。
セルの値によって表示させる、参照でINDIRECTを使用するものは使いたくないです。
A6に、「{=IF(and(A1:A5="OK"),TRUE,FALSE)}」という式を入れて全てOKになったら、TRUEとなるようにしています。
TRUEになった時に、表示している図形を非表示にする。
FALSEになったら、図形を表示する。
というVBAを作りたいですがうまく行きませんでした。
マウスでチェックボックスをクリックする事で図形のオンオフは出来ましたが、セルの値を変えてチェックボックスをオンオフさせても図形のオンオフができませんでした。
※本来チェックボックスは使用したくないです。
チェックボックスでオンオフ出来るのは知っていたので、計算式でオンオフさせても連動するかと思い試してみましたがダメでした。
使用したVBAは
Private Sub CheckBox1_Click()
.Shapes("myshape").Visible = range("A6").value
End Sub
です。
チェックボックス無しでオンオフするVBAを教えていただけないでしょうか。
No.4ベストアンサー
- 回答日時:
No.1の回答者です。
途中から話が変わってくるとやりにくいですね。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$BE$14" Then ←これでは、コールしないです。イベントが発生していません。
Select Case Range("BE14").Value
Target (該当するセル)そのものからイベントが発生するわけではないからです。
もちろん、どんなイベントでも、自作イベントなら、イベントは可能にしますが、既存のイベントを利用したいというのが、こちらの本音です。No.2さんのCalculate イベントは、Now関数など、揮発性関数を使い自分で値が変わる関数をおいてあげないと、イベントが発生しなかったと思います。
イベントはどこであろうが、Range("BE14")の値を取れば済むことですが、それでは頻繁にイベントが発生してしまうので、除外項目が必要です。
Worksheet_Change は、[Enter] によって起動しますから、
[BE14] ここに、数式があって、OK/NGの文字が入るというのでしょうか。
{=IF(and(A1:A5="OK"),"OK","NG")}
むろん、TRUE/FALSE なら、=COUNTIF($A$1:$A$5,"OK")=5 これで済むわけですが。
今回は、=IF(COUNTIF($A$1:$A$5,"OK")=5,"OK","NG")
に入れ替えました。
>例えば、A1:A5が全てOKになったら、
どういうイベントで、OK/NGの値が変わるか、質問では肝心な所は書かれていませんので、これでうまくいくとは限りません。
例えば、1.ワークシートへの手動による入力、2.OLEコントロールでの自動変更、3.DDEからの自動変更、これらの条件によってイベントは変わる可能性が強いです。だから、以下が有効なのは、1に限ります。
'//シートモジュール
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("BE14").Precedents) Is Nothing Then Exit Sub
If Range("BE14").Value = "OK" Then
Shapes("MyShape").Visible = msoTrue
Else
Shapes("MyShape").Visible = msoFalse
End If
End Sub
ただ、このイベントは、シートをまたいで別のシートからイベントが取れないと思います。その場合は、途中の中継点が必要だったような気がします。
最初のTRUE/FALSEでうまくいかなかったので途中で仕様を変えてしまいました。
大変申し訳ありません。
WindFallerさんのおっしゃる通り、Worksheet_ChangeではEnterを押したときしか反応しませんでしたので、fujillinさん(No.2さん)のヒントと、WindFallerさんから頂いた回答を元に、再度組みなおしてみたところ成功することが出来ました。
A1:A5についてですが、それぞれ計算式が入っています。
***A3~A5に入っている計算式
=IF(B1="","NG","OK")
※A2には「B2=””」が入っています
B1~B2に入っている計算式は
=IF(P7="","",1)
B1はP7、B2はR7とリンクしていて、P7,R7に何か入力されたらA1:A2がOKとなるようにしています。
***A3~A5に入っている計算式
=IF(B3=0,"NG","OK")
※A4には「B4=0」、A5「B5=0」が入っています。
B3~B5はオプションボタンとリンクしていて、それぞれどれかにチェックが入ったら1~5の数字が出るようになっています。
リンクさせているオプションボタンそれぞれにチェックが入ればOKとなるようにしています。
そして、これらのA1~A5がすべてOKになればBE14がOKの文字が出るようにしました。
詳しい説明を省いてしまい大変お手数おかけしました。
本来でしたら、お二人から頂いたご回答どちらも参考にさせていただいて成功することが出来たので、どちらの回答にもベストアンサーを付けたいのですが、いろんな可能性を考えて頂いたWindFallerさんをベストアンサーとさせていただきました。
最終的に以下でうまくいきました。
Private Sub Worksheet_Calculate()
Select Case Range("BE14").Value
Case "NG"
ActiveSheet.Shapes("myshape").Visible = True
Case "OK"
ActiveSheet.Shapes("myshape").Visible = False
End Select
End Sub
本当にありがとうございました。
No.3
- 回答日時:
No2です
>指定したコレクションに対するインデックスが境界を超えています
図形をうまく指定できていない雰囲気ですね。
Shapesオブジェクトはブック全体で共通のようですが、別シート上の図形になっているとかはないですよね?
あるいは、図形を名前ではなくインデックス(=番号)で指定しても取得できませんか?
または、Shapesを .Shapesとしてみるとか・・・
エディタのウォッチ式でShapes等を調べてみると、なぜ取得できないのかに関するヒントが得られるかも知れません。
返答が遅れてしまい申し訳ありませんでした。
やはり、shapesの値が取得できていませんでした。
fujillinさんに頂いたアイデアを参考にCalculateを用いて再度考え直して成功する事が出来ました。
ありがとうございました!
Private Sub Worksheet_Calculate()
Select Case Range("BE14").Value
Case "NG"
ActiveSheet.Shapes("myshape").Visible = True
Case "OK"
ActiveSheet.Shapes("myshape").Visible = False
End Select
End Sub
No.2
- 回答日時:
こんにちは
A6セルには、ご提示の関数式が設定されているものとして…
アイデアのみですが、シートモジュールに以下を設定しておくのではいかが?
Dim B As Boolean
Const spName = "myshape"
Private Sub Worksheet_Activate()
B = Shapes(spName).Visible
End Sub
Private Sub Worksheet_Calculate()
If Range("A6").Value <> B Then
B = Range("A6").Value
Shapes(spName).Visible = B
End If
End Sub
ご回答ありがとうございます。
モジュールに記述したところ、
下から3行目の
〉shapes(spNane).Visible =B
で、指定したコレクションに対するインデックスが境界を超えています。とエラーが起きてしまいました。
自分なりにアレンジしてみたのですが結局はダメでした…。
もう少し勉強します。。
No.1
- 回答日時:
>計算式でオンオフさせても連動するかと思い試してみましたがダメでした。
'//シートモジュール
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A6") Then
Shapes("MyShape").Visible = msoTrue
Else
Shapes("MyShape").Visible = msoFalse
End If
End Sub
しかし、数式自体が他から変更を受ける場合は、別のイベントがが必要になります。
お返事ありがとうございます。
その後試行錯誤した結果、下記にたどり着いたのですが、WindFallerさんが仰る通り、数式は他から変更を受けるため反応しませんでした。
何か方法を教えていただけますでしょうか。
下記は、BE14に指定した範囲のセルが全てOKになったらOK、そうじゃなければNGかを表示する計算式が入っています。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$BE$14" Then
Select Case Range("BE14").Value
Case "NG"
ActiveSheet.Shapes("myshape").Visible = True
Case "OK"
ActiveSheet.Shapes("myshape").Visible = False
End Select
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Excel(エクセル) エクセルVBAでチェックボックスにチェックを入れる 1 2022/09/14 00:52
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
セルの内容の条件に応じて図形の表示をしたりしなかったりする
Excel(エクセル)
-
エクセルで条件をつけて図形を表示する方法を教えてください。例えば、セルA1に入力された数値が100以
Excel(エクセル)
-
-
4
Excelでオートシェイプを条件によって貼り付けることは可能でしょうか?
Excel(エクセル)
-
5
エクセルVBAでセル番地を指定してオブジェクト名取得
Excel(エクセル)
-
6
オートシェイプの削除時のエラー回避法
Visual Basic(VBA)
-
7
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
8
Excelで重複データの件数ではなく、何番目かを求める方法
Excel(エクセル)
-
9
エクセルで図形を連動させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プログラミング
-
エクセルVBAコードで教えて下さ...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
VBAコードについて教えてくださ...
-
vba アクティブシートの名前変...
-
Excelのマクロについて教えてく...
-
Outlookの「受信日時」「件名」...
-
ユーザーフォームに別シートか...
-
Excelのマクロについて教えてく...
-
VBAで各列の"+"と"o"の合計数を...
-
Excelのマクロについて教えてく...
-
久しぶりのプログラミング
-
エクセルVBA
-
Excelのマクロについて教えてく...
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
VBAの計算で@が出てしまう件
-
ExcelVBA シート名を複数セルか...
-
VBA UserFormからの転記で
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
VBA レジストリの値の読み方に...
-
Excelのマクロについて教えてく...
-
ユーザーフォームに別シートか...
-
VBAの計算で@が出てしまう件
-
エクセルVBAについて
-
Vba 実数および実数タイプの変...
-
【ExcelVBA】値を変更しながら...
-
VBA一覧取得 再投稿
-
VBA指定行削除
-
エクセルVBAについて
-
VBA ユーザーフォーム ボタンク...
-
VBA 何かしら文字が入っていたら
-
エクセルについて
-
2つのマクロでチェックボックス...
-
【マクロ】1つのマクロの中に...
-
ExcelのVBAコードについて教え...
-
VB.net(VB)で、フォームにExcel...
-
Vba SelStart、SelLen教えてく...
-
Excel-VBAのmsgBox()の不思議
おすすめ情報