□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[13]: シート状のテキストボックスを表示非表示

    [195960] Re[13]: シート状のテキストボックスを表示非表示-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ こた -(2023/09/25(14:27))
    □U R L/

      なんとかできました！
      ありがとうございます！



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [195944] Re[11]: シート状のテキストボックスを表示非表示-

    ■記事引用/メール受信=OFF■

    □投稿者/ こた -(2023/09/15(10:32))
    □U R L/

      テキストボックス11をコピーして、削除、貼り付けをしたら問題なくいけるようになりました。
      これでよかったのかは分かりませんが・・



    [195943] Re[10]: シート状のテキストボックスを表示非表示-

    ■記事引用/メール受信=OFF■

    □投稿者/ こた -(2023/09/15(09:22))
    □U R L/

      かなり近づいてきたのですが、
      また、ひとつ問題が出てきました。

      テキストボックス11というのが存在していることに気づいたのですが、関係のないそれが、消えたりします。
      テキストボックス11は、ほかの4つよりも先に作ったもので、テキストボックス1〜4は後から作り、別の数値だったのですが、テキストボックス1〜4に名称変更しました。


      オブジェクトの選択と表示から順番をかえたらいけると思ったのですが、ダメなようで、コードは作られた順で考えられている？
      コード内のテキストボックス1は最初に作られた11を認識している？

      最後の問題だと思いますがよろしくお願いします。



    [195942] Re[9]: シート状のテキストボックスを表示非表示-

    ■記事引用/メール受信=OFF■

    □投稿者/ マナ -(2023/09/15(05:49))
    □U R L/

      では、これで

      Sheets("Sheet1").TextBoxes(k).Visible = k = ComboBox1.ListIndex + 1



    [195941] Re[8]: シート状のテキストボックスを表示非表示-

    ■記事引用/メール受信=OFF■

    □投稿者/ こた -(2023/09/15(02:59))
    □U R L/

      すいません。
      今度は、指定した名前のアイテムが見つかりませんとなってしまいます・・
      よろしくお願いします。



    [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



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [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



    [195937] Re[4]: シート状のテキストボックスを表示非表示-

    ■記事引用/メール受信=OFF■

    □投稿者/ こた -(2023/09/13(20:40))
    □U R L/

      コンボボックスはユーザーフォーム1です。
      テキストボックスは、シート1にあります。
      よろしくお願いします。



    [195934] Re[3]: シート状のテキストボックスを表示非表示-

    ■記事引用/メール受信=OFF■

    □投稿者/ マナ -(2023/09/13(18:51))
    □U R L/

      コンボボックスとテキストボックスは、どこにあるのでしょうか？



    [195932] Re[2]: シート状のテキストボックスを表示非表示-

    ■記事引用/メール受信=OFF■

    □投稿者/ こた -(2023/09/13(09:10))
    □U R L/

      ありがとうございます。

      subまたはfunctionが定義されていませんとなります。
      すいませんが、自分で作ったものではなく保管しなければならないコードを教えていただけませんか？



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ