No.3ベストアンサー
- 回答日時:
こんばんは。
#2です。貼り付け手順は、間違いありませんが、
×→立ち上ったVBAの画面右ウインドウに貼付け→実行(R)
×→Sub/ユーザーフォームの実行
右クリックすると、「コードの表示(V)」というメニュークリックしてたら、
開いた画面に、コードを貼り付けて、Alt + Q で一旦閉じてください。
Private Sub Worksheet_Change(ByVal Target As Range)
↑
このようになったものは、イベント・ドリブン型プロシージャと言って、ちがった種類のマクロです。この起動は、ワークシートのセルを変化させたときに、起動されるものです。
Target というものは、Excelから送られてくる命令ですから、実行する必要がありません。
□コントロールツールのCheckBox
は、今は、デザインモード(青い三角定規のアイコン)がオフになった状態だとすると、.
CheckBox1.Value = (Range("A1").Value = "○○○")
CheckBox2.Value = (Range("A1").Value = "△△△")
「A1」 に対して、入力を行うと、CheckBox1 に命令が送られることになります。
とりあえず、マクロを動かすためのシートの「A1」に、○○○と入れてみましょう!
出来ました!!
丁寧ですばやい回答をしていただき本当にありがとうございました。
VBAはすごく奥が深くて難しいですね。
私も徐々に勉強して出来るようにがんばります。
No.2
- 回答日時:
こんばんは。
コントロールツールのCheckBox だと思いますので、こうなるのではないでしょうか?
'シートモジュール
Private Sub Worksheet_Change(ByVal Target As Range)
CheckBox1.Value = (Range("A1").Value = "○○○")
CheckBox2.Value = (Range("A1").Value = "△△△")
End Sub
別に、VBAでは、括弧はいらないのですが、見易さのために入れました。
回答ありがとうございます。
連絡が遅くなり申し訳ありません。
早速教えてもらったように貼り付けてみましたが上手くいきません。
コードを貼り付けるsheetのタグを右クリック→立ち上ったVBAの画面右ウインドウに貼付け→実行(R)
→Sub/ユーザーフォームの実行
をするとマクロ名を登録する画面?が出ます。
キャンセル以外はグレーアウトして選択できません。
貼り付ける手順が違うのでしょうか?
初心者の質問で申し訳ないのですが、教えて下さい。
No.1
- 回答日時:
自動的とは○○○や△△△の入力時ということですね?
セルAってなんだかわかりませんのでA1セルとしました。
CheckBoxはそのシート上にあるんですね?
以下のコードを対象シートのモジュールに貼り付けてください。
シートのモジュールは、対象シートのタブを右クリックし、「コードの表示」で出来ます。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Select Case Target.Value
Case "○○○"
CheckBox1.Value = True
CheckBox2.Value = False
Case "△△△"
CheckBox2.Value = True
CheckBox1.Value = False
Case Else
CheckBox1.Value = False
CheckBox2.Value = False
End Select
End Sub
回答ありがとうございます。
連絡が遅くなり申し訳ありません。
早速教えてもらったように貼り付けてみましたが上手くいきません。
コードを貼り付けるsheetのタグを右クリック→立ち上ったVBAの画面右ウインドウに貼付け→実行(R)
→Sub/ユーザーフォームの実行
をするとマクロ名を登録する画面?が出ます。
キャンセル以外はグレーアウトして選択できません。
貼り付ける手順が違うのでしょうか?
初心者の質問で申し訳ないのですが、教えて下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Excelでセルの値によりチェックボックスを操作
Excel(エクセル)
-
エクセルVBAでチェックボックスにチェックを入れる
Excel(エクセル)
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
-
4
Excel VBA シート名変更時、重複していたら連番を付けたい
その他(Microsoft Office)
-
5
VBA 値と一致した行の一部の列のデータを転記について教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
タイムスタンプとテキストから...
-
シートの情報を別のシートへま...
-
マクロの処理が遅くなった
-
Excelでの文字色
-
ワークシートに出現したこの画...
-
EXCELの散布図で日付が1900年に...
-
OFFSET関数を使用したいのです...
-
エクセルでファイルの最終更新...
-
エクセルの文字が途中から消える
-
エクセルデーターから必要な項...
-
Excel 大小比較演算子による「...
-
SUBTOTALは、参照された数字で...
-
エクセルの数式バーのフォント...
-
エクセルの「条件付き書式」を...
-
Excelについて教えてください。...
-
エクセルVBA 月の中で、月~土...
-
Excelの数字の前に入っている空...
-
Excelの関数について このよう...
-
セルの数を求めたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報