Private Sub WorkSheet Change(ByVal Target As Range)
Select Case ActiveSheet.Range(“B1”).Value
Case 1To 10:
TextBox1.BackColor = vbYellow
Case 11To 20:
TextBox1.BackColor = vbBlue
Case Else:
TextBox1.BackColor = vbRed
End Select
End Sub
このマクロでB1のセルの値に応じて
テキストボックス1の背景色を変えるところまでは
素人ながら作れたのですが
このselect case の分岐を保ったまま
変数を使って
B(変数)の値でテキストボックス(変数)の背景色を変えられるようにしたいのですが
どうしたら良いでしょうか?
ユーザーフォームを使わずに
ワークシート上で変数を適用させるのは無理なのでしょうか?
Dim i As integer
For i = 1 To 3
Select case ActiveSheet.Range(“B”& i).Value
Case 1 To 10:
ActiveSheet.Controls(“TextBox”& i).Backcolor = vbYellow
(省略)
End Select
Next I
と入力してみたのですがうまくいきませんでした…
どうかよろしくお願いします
No.2ベストアンサー
- 回答日時:
>Meを使うのに何かしらの設定が必要なのでしょうか…?
必要はありません。
Me つまり、自分のこと。自分で誰かというと、Sheet(親)
[親].[子].[プロパティ]
No.1で、「シートモジュールのみ」と書かれていますが、Sheet1, Sheet2 ... など特定のオブジェクトモジュールに使われるキーワードです。
今回の場合は、シートの上に、ActiveX コントロールを使っていますので、同じシートのTextBox1と、同じところでコードを使うことになります。
これで、ワンパッケージ
----------TextBox1 -(Active X = OLE Object)---------
===== Sheet1 ===================
Me.TextBox1
VBA Code ---Event Driven //
「--------------VBA Pane-------」
ありがとうございます!
多分モジュールのアレコレを勘違いしていたようで
Meがちゃんと動きました!!
大変勉強になりました!
ありがとうございます!
No.1
- 回答日時:
こういうことでしょうか。
'//シートモジュールのみ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 1 To 3
Select Case Me.Range("B" & i).Value
Case 1 To 10
Me.OLEObjects("TextBox" & i).Object.BackColor = vbYellow
Case 11 To 20
Me.OLEObjects("TextBox" & i).Object.BackColor = vbBlue
Case Else
Me.OLEObjects("TextBox" & i).Object.BackColor = vbRed
End Select
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Visual Basic(VBA) Worksheet_Change 4 2023/03/12 21:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
尿検査の前日は自慰控えたほう...
-
首吊りどこ締めるの
-
尿検査前日に自慰行為した時の...
-
1日前の検尿
-
今朝、毎朝の習慣でオナニーし...
-
射精をして1週間以内に尿検査を...
-
変な話しになります。尿検査で...
-
男です。昨日の午後3時くらいに...
-
検便についてです。 便は取れた...
-
EXCELで条件付き書式で空白セル...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
口の中に黒い血の塊
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
2つの数値のうち、数値が小さい...
-
エクセルでエラーが出て困って...
-
舌の裏の痛みのないプツプツの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報
回答ありがとうございます
Meを使う方法も試してみたのですが
どうしてもコンパイルエラーになってしまいます。
このコードをそのまま実行してもエラーになります
Meを使うのに何かしらの設定が必要なのでしょうか…?