Excel

Excelのリスト化でファイルが壊れる件

投稿日:2020年4月7日 更新日:

訳あってVBAでセルをリスト化する機会があり、今回はその時躓いたことを記事にしました。

[目次]

1.起こったバグ

セルをリスト化するものとして、今回は以下のソースコードを用意します。


Sub リスト化()

    '文字列で指定

        Dim list_choice_chars As String                             'リスト化するための選択肢文字列
    
        list_choice_chars = ThisWorkbook.Worksheets("Sheet1").Cells(1, 5).Value

        With ThisWorkbook.Worksheets("Sheet1")
            With .Cells(1, 4).Validation                        'D1をリストにする
    
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=list_choice_chars
            
            End With
            
        End With
End Sub

E1セルに256文字の文字列を入力した状態で実行します。(B列には1~100まで記載してありますが、最後の方で触れます。)

実行するとD1セルがリストで入力できるようになります。

ところが、ファイルを保存して再び開こうとするとファイルが壊れました。

2.原因

そして今度はE1に255文字入力した状態にします。

実行するとD1セルがリストで入力できるようになります。

こちらは問題なく保存できました。どうやらリスト化には文字数制限があるかもしれません。

そこでデータの入力規則で何文字入るか確認してみると255文字まで入力できますが、256文字目以降は入力ができませんでした。

エクセルの入力ルール上ではこれ以上入力ができないため、バグが起こらないです。

一方、VBAだと変数に文字列を代入する際、文字数制限が無いため、マクロ実行では通ってしまい、その結果、ファイル保存の際に壊れてしまうみたいです。

3.対処法

リスト化をする際、座標指定にすればVBAでも問題はなくなります。
というわけで以下がソースです。


Sub リスト化()

    '座標で指定
        With ThisWorkbook.Worksheets("Sheet1")
            With .Cells(1, 1).Validation                        'A1をリストにする
    
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$B$1:$B$100"
            
            End With
            
        End With

End Sub

B列に1~100まで記載し、A1セルをリスト化しましたが、保存して閉じても、問題なくファイルを開き直すことができました。

-Excel

執筆者:


comment

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

関連記事

ActiveCellを使うと想定外の動きをする件【Excel】【VBA】

VBAでActiveCellを使ったコードを書いた際に、少し躓いたため今回記事にします。 まずは、シート上を以下のように準備します。A1セルはリスト化し、「1」「2」「3」が選択できる状態にします。 …

セルに値を設定する【Excel】【VBA】

今回はExcelのセルに値を設定する方法をご紹介します。 以下のようにソースコードを記述します。 Sub 値設定() Dim a1 As String a1 = “あいうえお“ …

【SAS】SASで良く使うテクニック。その7 「条件付き書式」~差分があるセルに色を付けたい時~【Excel】

今回はSASで良く使うテクニックということで、データセットのコンペアにおいて、差分があるセルに色を付けたい時ときは「条件付き書式」が役に立つ理由を解説していきます。 (参考:【SAS】SASで良く使う …

【SAS】SASで良く使うテクニック。その6 「名前ボックス」~指定したセルに飛びたい時~【Excel】

今回はSASで良く使うテクニックということで、指定したセルに飛びたい時は「名前ボックス」が役に立つ理由を解説していきます。 以前の記事で「Ctrl+R」や「Ctrl+D」を用いた例を紹介してきました。 …

CSVファイルを取り込んで並び替える

VBAでCSVファイルを取り込んで並び替える処理を記事にします。 CSVファイルとマクロ有効ファイルを一つずつ準備します。 in00.csvの中身は以下の内容で準備します。 [ボタンシート]にマクロを …