HOME > Q&A > Excel （一般機能）

Excel （一般機能）
Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 11 Pro : Microsoft 365)
A列とＣ列は、片方の列に〇を入力したら、片方に自動で〇が付くようにしたい。
投稿日時: 26/04/17 11:28:46
投稿者: ZU-

　よろしくお願いいたします。
 
A列とＣ列は、片方の列に〇を入力したら、片方に自動で〇が付くようにしたい。
各セルは〇か空欄か何回でも修正できるように式が消えないようにしたい。
また、〇以外を入れたらメッセージが出るようにしたい。
 
・A２に〇を入力したら、C２に〇が自動で付き、C２に〇したらA2に自動で付き
・B1に〇を入力したら、D1に〇が自動で付き、D1に〇したらB1に自動で付き
 
A2の式・・これまでの私の式です。
=IF(C2="","",(IF(C2="〇","〇","C列へも〇を入力")))
 
上記の条件を満たす方法を伝授をお願いします
 
 
　A　　B　　C　　D
 
１　　　〇　　　　〇
２　〇　　　　〇
３
４　〇　　　　〇
５　　　　〇　　　〇

回答
投稿日時: 26/04/17 13:14:28
投稿者: んなっと

引用:
○以外を入れたらメッセージ

これはまさに[入力規則]→[リスト]です。調べてみてください。
引用:
片方の列に〇を入力したら、片方に自動で〇が付く

これはVBAを使います。シートモジュールに
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Range
  Dim j As Long
  Application.EnableEvents = False
  Set r = Target.Item(1)
  j = (r.Column + 1) Mod 4
  Me.Cells(r.Row, j + 1).Value = r.Value
  Application.EnableEvents = True
End Sub
投稿日時: 26/04/17 15:33:00
投稿者: ZU-

 んなっと　さま
 
ありがとうございます。感謝です
[入力規則]→[リスト]　でやってみます。
VBAの方もやってみます。
 
速やか回答を無駄にせず・・時間かけてやってみます。
 
取り急ぎ：解決済で投稿します