[[20211122231759]]　『VBA　IF文と繰り返し』（マンモス）　ページの最後に飛ぶ

『VBA　IF文と繰り返し』（マンモス）

Private Sub Worksheet_Activate2()

If Range("E30") = "CF" Then
Range("E32:G36").Merge

ElseIf Range("E30") = "畳" Then
Range("E32:G36").UnMerge

End If

End Sub

E列からG列の3列を使っています。
行数は変わらずH列からJ列、K列からM列と
続けて同じ処理を繰り返したいのですが分かりません。

ぜひお力を貸して頂けないでしょうか？

あと、書いてるコードにおかしな点がありましたら
ご教授ください。

宜しくお願い致します。

＜使用 Excel：unknown、使用 OS：unknown ＞

    Dim c As Range
    For Each c In Range("E30,H30,K30")
        If c.Value = "CF" Then
            c.Offset(2).Resize(5, 3).Merge
        ElseIf c.Value = "畳" Then
            c.Offset(2).Resize(5, 3).UnMerge
        End If
    Next

 >書いてるコードにおかしな点がありましたら
 Private Sub Worksheet_Activate2()
 "2" が解らない

（ピンク） 2021/11/22(月) 23:44

既に回答があるところですが別案。

    Sub 別案()
        Dim i As Long

        For i = 0 To 2
            Select Case ActiveSheet.Range("E30").Offset(, i).Value
                Case "CF"
                    ActiveSheet.Range("E32:G36").Offset(, i * 3).Merge

                Case "畳"
                    ActiveSheet.Range("E32:G36").Offset(, i * 3).UnMerge
            End Select
    End Sub

＞書いてるコードにおかしな点がありましたら
おかしくはないが、インデントを付けたほうがご自身のデバッグ作業に役立つとおもいます。

（もこな２） 2021/11/23(火) 01:32

ところで、
使っているイベントプロシージャ（これは珍しい）、OS、ExcelVersionの未記載からして、
[[20211119050902]]
で質問された方ですね。
あちらは放置なんでしょうか？

（γ） 2021/11/23(火) 10:26

ありがとうございました。

それと、もう一つだけお願い致します。

現在、30列目をCFに選択した場合にセルが解除されるのですが、
その時にE32×F32＝G32、E33×F33＝G33・・・36列目までを
E列F列G列と同じように設定するのはどうしたらいいですか？

色々と調べてはいるのですが分からないのでお願い致します。

また、もう少し理解を深めるのにどこら辺に焦点をおいて勉強したらいいでしょうか？

ご教授ください。

（マンモス） 2021/11/25(木) 00:14

＞もう少し理解を深めるのにどこら辺に焦点をおいて勉強したらいいでしょうか？
まずは、現在のコードが何をやっているのか研究して理解を進めてみてはどうでしょうか？

研究するには、ステップ実行という方法を使うと、１行ずつ動きを確認しながら実行できますのでオススメです。

 【ステップ実行】
https://www.239-programing.com/excel-vba/basic/basic023.html
http://plus1excel.web.fc2.com/learning/l301/t405.html

 【ブレークポイント】
https://www.239-programing.com/excel-vba/basic/basic022.html
https://www.tipsfound.com/vba/01010

また、以下も知っておいて損は無いと思います。

 【イミディエイトウィンドウ】
https://www.239-programing.com/excel-vba/basic/basic024.html
https://excel-ubara.com/excelvba1/EXCELVBA486.html

 【ローカルウィンドウ】
https://excel-ubara.com/excelvba4/EXCEL266.html
http://excelvba.pc-users.net/fol8/8_2.html

なお、既に指摘がある方と同一人物であれば、ニックネームは統一されることを強くお勧めします、
（別人を装ってもいいこと一つもないと思いますので）

（もこな２） 2021/11/25(木) 00:28

コメント返信：

[ 一覧(最新更新順) ]

[[20211122231759]] 『VBA IF文と繰り返し』（マンモス） ページの最後に飛ぶ

[[20211122231759]]　『VBA　IF文と繰り返し』（マンモス）　ページの最後に飛ぶ