アリーナの座席表を作成したい

Question

実現したいこと

アリーナの座席表を予想したいので、入力してもらったデータをもとに席に色をつけたい

Ａ1~A18ブロック、アルファベットはＡ～Ｆまで
一つのブロックは縦15列横15番まである場合
ＣＳＶのデータ
|ブロック|列|番号|
|A1|4|5|
|C5|6|12|

...
このデータをもとに、該当する場所には色を付けて、データがない席は色をつけないようにしたい

発生している問題・分からないこと

そもそもそういうシステムがありそうだが、見つからなかった。PythonやVBAでやってみようとしたが、そもそもPythonは環境構築が大変そうで、VBAはまったくわからなかった。簡単そうだと思ったが、意外と時間がかかりそうなので、できる人がいたら質問したい

該当のソースコード

特になし

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

結果が得られなかった

補足

特になし

Answer 1

そもそもそういうシステムがありそうだが、見つからなかった。PythonやVBAでやってみようとしたが、そもそもPythonは環境構築が大変そうで、VBAはまったくわからなかった。簡単そうだと思ったが、意外と時間がかかりそうなので、できる人がいたら質問したい

「Pythonは環境構築が大変そう」ということであればクラウドサービスを利用すると環境構築不要で良いかと思います。（GoogleColaboratoryなど）

VBAであればマクロの自動記録機能というものがありますのでこれを利用すると効率よくコードが書けると思います。

Answer 2

ブロック名をセル範囲に名前の定義しておけば、いいかと思います。
ま、今から、一から勉強するとなると、まぁまぁ時間がかかると思います。

この辺をたたき台に。。。

Sub test()
    Dim rngList As Range
    Dim r As Range
    Dim strBlock As String
    Dim lngCol As Long
    Dim lngRow As Long
    
    Set rngList = Workbooks("???.csv").Worksheets(1).Range("A1").CurrentRegion
    For Each r In rngList.Rows
        strBlock = r.Cells(1).Value
        lngCol = r.Cells(2).Value
        lngRow = r.Cells(3).Value

        ThisWorkbook.Worksheets("座席表").Range(strBlock).Cells(lngCol, lngRow).Interior.Color = vbRed
    Next
End Sub