![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
こんばんは!
VBAになってしまいますが、一例です。
>複数列(8列で隣接していません。)
とありますので、とりあえず
A・C・E・G・I・K・M・O列に表示するとします。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストして
上記列に「○」を入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim i As Long, j As Long, k As Long, M As Long, myArray
'仮に A・C・E・G・I・K・M・O 列を指定する場合
myArray = Array(1, 3, 5, 7, 9, 11, 13, 15) '←ここで列番号を指定する。
i = Target.Row
j = Target.Column
For k = 0 To UBound(myArray)
If j = myArray(k) Then
M = M + 1
End If
Next k
If Selection.Count = 1 And M > 0 Then
For k = 0 To UBound(myArray)
If Cells(i, j) = "○" Then
If j <> myArray(k) Then
Cells(i, myArray(k)) = "×"
End If
End If
Next k
End If
End Sub 'この行まで
※ 「○」が入力されたセル以外は「×」が表示されるだけで、入力は可能です。
外していたらごめんなさいね。m(_ _)m
早速回答ありがとうございます。
確認するとまったく意図するところで感謝します。ありがとうございました。
実際には次の通りですが、他の列があるので次のように記述しましたがうまくいきません。何分VBAに詳しくないのでご面倒をおかけしますがよろしくお願いします。
I M Q U Y AC AG AK
myArray = Array( 9, 13, 17, 21, 25, 29, 33, 37)
myArray = Array(10, 14, 18, 22, 26, 30, 34, 38)
myArray = Array(11, 15, 19, 23, 27, 31, 35, 39)
myArray = Array(12, 16, 20, 24, 28, 32, 36, 40)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) OFFSET関数を使用した印刷範囲の自動変更について 2 2022/06/02 12:11
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
シート保護の状態で行の追加を...
-
EXCELにて複数列を同条件(色)...
-
[Excel VBA]空白セル以外に連番...
-
エクセルで空白以外のセルの値...
-
Excelの非表示列も含めてコピー
-
エクセルの関数について(日付で...
-
エクセル VBA 指定の範囲内をコ...
-
Excel VBAで日にちを入力して線...
-
エクセルで表示された値だけ行...
-
特定の桁数を抽出
-
エクセルで行挿入した際、自動...
-
エクセルで図形を挿入するマク...
-
任意の最終行番号を取得し他列...
-
同一列内の複数条件 カウント
-
エクセルのマクロ、AVERAGEIFを...
-
エクセルで縦に長い表を印刷
-
エクセルVBA 並び替え セルの...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
エクセルの複数のセルを一括で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
特定の桁数を抽出
-
エクセル マクロ 行や列を削除...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロ初心者です、小数点6桁で...
-
Excel 条件に従いセル移動するには
-
VBAで同じブック内の別シー...
おすすめ情報