□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| シート状のテキストボックスを表示非表示 | |
|---|---|
[195927] シート状のテキストボックスを表示非表示- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ こた -(2023/09/12(14:47)) □U R L/ 以下のように2つのコードがありますが、コンボボックス1の選択肢が2つではなく4つで、imageではなくシート上にあるテキストボックス1〜4を表示非表示にするにはどのように変えたらよいでしょうか？
"あ"のときはテキストボックス1を表示して、それ以外を非表示
"い"のときはテキストボックス2を表示して、それ以外を非表示
"う"のときはテキストボックス3を表示して、それ以外を非表示
"え"のときはテキストボックス4を表示して、それ以外を非表示
よろしくご教授お願いします。
Select Case ComboBox1.Value
Case "あ": Case1 True
Case "い": Case1 False
End Select
Private Sub Case(flg As Boolean)
Sheets("あああ").Range("A13:B16,C11").Font.ColorIndex = 1 - Not flg
Sheets("あああ").Range("C13:D16,A11").Font.ColorIndex = 1 - flg
With Sheets("あああ").Shapes
.Range(Array("Image1", "Image2", "Image9")).Visible = Not flg
.Range(Array("Image4", "Image5", "Image7")).Visible = flg
End With
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195928] Re[1]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2023/09/12(16:17)) □U R L/ 一例
Private Sub ComboBox1_Change()
Dim k As Long
For k = 1 To 4
Shapes("Textbox" & k).Visible = k = ComboBox1.ListIndex + 1
Next
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195932] Re[2]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ こた -(2023/09/13(09:10)) □U R L/ ありがとうございます。 subまたはfunctionが定義されていませんとなります。 すいませんが、自分で作ったものではなく保管しなければならないコードを教えていただけませんか？ | |
[195934] Re[3]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2023/09/13(18:51)) □U R L/ コンボボックスとテキストボックスは、どこにあるのでしょうか？ | |
[195937] Re[4]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ こた -(2023/09/13(20:40)) □U R L/ コンボボックスはユーザーフォーム1です。 テキストボックスは、シート1にあります。 よろしくお願いします。 | |
[195938] Re[5]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2023/09/13(21:17)) □U R L/ ＞Shapes("Textbox" & k).Visible = k = ComboBox1.ListIndex + 1 ↓ Sheets("Sheet1").Shapes("Textbox" & k).Visible = k = ComboBox1.ListIndex + 1 | |
[195939] Re[6]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ こた -(2023/09/14(09:55)) □U R L/ ありがとうございます。
指定した名前のアイテムが見つかりませんとなります。
下記のコードの問題なのか、シート上にあるテキストボックスの名前が英語ではなく日本語でテキストボックス1とかになっているのが原因なのかは分かりません。
分かりますでしょうか？
Private Sub UserForm_Initialize()
With ComboBox6
.AddItem "あ"
.AddItem "い"
.AddItem "う"
.AddItem "え"
.ListIndex = 0
End With
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195940] Re[7]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2023/09/14(13:00)) □U R L/ ＞Sheets("Sheet1").Shapes("Textbox" & k).Visible = k = ComboBox1.ListIndex + 1
↓スペース追加
Sheets("Sheet1").Shapes("Textbox " & k).Visible = k = ComboBox1.ListIndex + 1 | |
[195941] Re[8]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ こた -(2023/09/15(02:59)) □U R L/ すいません。 今度は、指定した名前のアイテムが見つかりませんとなってしまいます・・ よろしくお願いします。 | |
[195942] Re[9]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2023/09/15(05:49)) □U R L/ では、これで Sheets("Sheet1").TextBoxes(k).Visible = k = ComboBox1.ListIndex + 1 | |
[195943] Re[10]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ こた -(2023/09/15(09:22)) □U R L/ かなり近づいてきたのですが、 また、ひとつ問題が出てきました。 テキストボックス11というのが存在していることに気づいたのですが、関係のないそれが、消えたりします。 テキストボックス11は、ほかの4つよりも先に作ったもので、テキストボックス1〜4は後から作り、別の数値だったのですが、テキストボックス1〜4に名称変更しました。 オブジェクトの選択と表示から順番をかえたらいけると思ったのですが、ダメなようで、コードは作られた順で考えられている？ コード内のテキストボックス1は最初に作られた11を認識している？ 最後の問題だと思いますがよろしくお願いします。 | |
[195944] Re[11]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ こた -(2023/09/15(10:32)) □U R L/ テキストボックス11をコピーして、削除、貼り付けをしたら問題なくいけるようになりました。 これでよかったのかは分かりませんが・・ | |
[195945] Re[12]: シート状のテキストボックスを表示非表示- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2023/09/15(12:18)) □U R L/ テキストボックスの名前を"あ"、"い"、"う"、 "え"に変更
Private Sub ComboBox1_Change()
Dim v
Dim k As Long
v = ComboBox1.List
For k = 0 To UBound(v)
Sheets("Sheet1").Shapes(v(k, 0)).Visible = k = ComboBox1.ListIndex
Next
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195960] Re[13]: シート状のテキストボックスを表示非表示- ■  / 記事引用/メール受信=OFF■
□投稿者/ こた -(2023/09/25(14:27)) □U R L/ なんとかできました！ ありがとうございます！ | |