- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：エクセル）
エクセルで範囲ごとにフォームを表示する方法
このQ&Aのポイント
- エクセルで特定の範囲が選択された際、別のフォームを表示する方法について質問です。
- 現在のコードでは、指定した範囲で奇数番号のフォームを表示することができません。
- 正しくフォームを表示するためには、範囲と条件の組み合わせを再評価する必要があります。
- HAWKS123
- お礼率64% (9/14)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
奇数行 Target.Row Mod 2 <> 0 偶数行 Target.Row Mod 2 = 0 となります。式では「偶数(奇数)でなければ」という条件になっています。 以下のような感じになると思いますが、範囲や奇数偶数行、I列J列に関しては実際のデータをもとに修正してください。 If (Intersect(Target, Range("I8:I68")) Is Nothing And _ Intersect(Target, Range("L9:Q69,S9:U69,W9:W69,Y9:AB69")) Is Nothing) Or _ (Target.Row Mod 2 <> 0 And Target.Column <> Columns("I").Column) Then Else UF現金.Show End If If (Intersect(Target, Range("J8:J68")) Is Nothing And _ Intersect(Target, Range("L8:Q68,S8:U68,W8:W68,Y8:AB68")) Is Nothing) Or _ (Target.Row Mod 2 = 0 And Target.Column <> Columns("J").Column) Then Else UF預金.Show End If
お礼
ありがとうございました MODを理解してませんでした