Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
646 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【79257】オートシェイプ AS 17/6/21(水) 12:28 質問[未読]
【79260】Re:オートシェイプ マナ 17/6/21(水) 19:10 発言[未読]
【79261】Re:オートシェイプ AS 17/6/23(金) 7:25 発言[未読]
【79265】Re:オートシェイプ マナ 17/6/23(金) 18:58 発言[未読]
【79266】Re:オートシェイプ AS 17/6/23(金) 20:02 発言[未読]
【79267】Re:オートシェイプ マナ 17/6/23(金) 20:41 発言[未読]
【79268】Re:オートシェイプ AS 17/6/24(土) 7:21 発言[未読]
【79269】Re:オートシェイプ マナ 17/6/24(土) 8:04 発言[未読]
【79273】Re:オートシェイプ AS 17/6/24(土) 18:53 発言[未読]
【79274】Re:オートシェイプ マナ 17/6/24(土) 19:15 発言[未読]
【79257】オートシェイプ
質問  AS  - 17/6/21(水) 12:28 -
引用なし
パスワード
   はじめまして
オートシェイプのオンオフで質問させて頂きます。

A1セルに普通、異常のデータリストがあります
普通を選択するとB10セルにオートシェイプで丸をするようにしました。

異常の場合でもオートシェイプで丸をつけたいのですが
どのように記述すれば良いのでしょうか？
また、選択セルを別シートにしたいのですが
その場合も合わせて教えてくださいませ。

サンプルは、下記です。

fast-uploader.com/file/7053571193354/

パスワードは、ASASASです。

宜しくお願い致します。
【79260】Re:オートシェイプ
発言  マナ  - 17/6/21(水) 19:10 -
引用なし
パスワード
   ▼AS さん：

>サンプルは、下記です。
>
>fast-uploader.com/file/7053571193354/
>

ダウンロードするのはためらいます。
できれば、文章で説明できませんか。
現在のコードもここに貼り付けてください。
【79261】Re:オートシェイプ
発言  AS  - 17/6/23(金) 7:25 -
引用なし
パスワード
   マナ様
返信ありがとうございます。

コードは以下です。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$1" Then Exit Sub

If Target.Value = "普通" Then
　 On Error GoTo SHAPEMAKE
　 ActiveSheet.Shapes("普通").Visible = True
Else
　 ActiveSheet.Shapes("普通").Visible = False
End If
Exit Sub

SHAPEMAKE:
With ActiveSheet.Range("B1")
　 ActiveSheet.Shapes.AddShape(Type:=msoShapeHeart, _
　　 Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height).Name = "普通"
End With
End Sub


宜しくお願い致します。
【79265】Re:オートシェイプ
発言  マナ  - 17/6/23(金) 18:58 -
引用なし
パスワード
   ▼AS さん：

>A1セルに普通、異常のデータリストがあります
>普通を選択するとB10セルにオートシェイプで丸をするようにしました。

>異常の場合でもオートシェイプで丸をつけたいのですが
>どのように記述すれば良いのでしょうか？

データリストとは何でしょうか？
普通と異常しかないのであれば、常にオートシェイプは表示状態ではないのですか
どうなったら非表示にしたいのでしょうか？
【79266】Re:オートシェイプ
発言  AS  - 17/6/23(金) 20:02 -
引用なし
パスワード
   >データリストとは何でしょうか？

データの入力規則のリストです。

A1に"普通"と"異常"の入力規則のリストがあり、

"普通"を選択すれば、B10にある"普通"のオートシェイプが表示され、
"異常"のオートシェイプは、非表示。

"異常"を選択すれば、D10にある"異常"のオートシェイプが表示され、
"普通"のオートシェイプが非表示にしたいのです。

又、空白の場合は両方非表示です。

データの入力規則のリストは、別シートのA1にしたいです。

説明が下手ですいません。

宜しくお願い致します。
【79267】Re:オートシェイプ
発言  マナ  - 17/6/23(金) 20:41 -
引用なし
パスワード
   ▼AS さん：

こんな感じです。
ht　tp://excelvba.pc-users.net/fol6/6_1.html　

１）"普通"ならば
"普通"のオートシェイプを表示
"異常"のオートシェイプを非表示
２）"異常"ならば
"普通"のオートシェイプを非表示
"異常"のオートシェイプを表示
３）それ以外は、
"普通"のオートシェイプを非表示
"異常"のオートシェイプを非表示


別シートの件は、これができてからでよいですか。
【79268】Re:オートシェイプ
発言  AS  - 17/6/24(土) 7:21 -
引用なし
パスワード
   ▼マナ さん：
>▼AS さん：
>
>こんな感じです。
>ht　tp://excelvba.pc-users.net/fol6/6_1.html　
>
>１）"普通"ならば
>"普通"のオートシェイプを表示
>"異常"のオートシェイプを非表示
>２）"異常"ならば
>"普通"のオートシェイプを非表示
>"異常"のオートシェイプを表示
>３）それ以外は、
>"普通"のオートシェイプを非表示
>"異常"のオートシェイプを非表示
>
>
>別シートの件は、これができてからでよいですか。


上記の条件で問題ありません。
宜しくお願い致します。
【79269】Re:オートシェイプ
発言  マナ  - 17/6/24(土) 8:04 -
引用なし
パスワード
   ▼AS さん：

>>ht　tp://excelvba.pc-users.net/fol6/6_1.html　
>>

if "普通" then
　…
elseif "異常" then
　…
else
　…
end if

こんな感じで考えてみてください
【79273】Re:オートシェイプ
発言  AS  - 17/6/24(土) 18:53 -
引用なし
パスワード
   ▼マナ さん：

全然わからなくなってしまいました。

参考にコードを教えて頂けないでしょうか？
【79274】Re:オートシェイプ
発言  マナ  - 17/6/24(土) 19:15 -
引用なし
パスワード
   ▼AS さん：

>全然わからなくなってしまいました。

何がわからないのでしょうか。
とりあえず試してみたことを教えてください。

現在の「普通」だけのコードは理解できているのですか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
646 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free