記録条件仕様書の内容から試験データを作成するツール(マクロ)を実装中です。
以下のソースの「Public MsgStr As Stng」(Module1の6行目)の部分に対してエラーが出ており、解決方法をご教示いただきたいです。
文字数制限の関係で、エラーが出ている「Public MsgStr As Stng」の部分とその変数が使われている部分のソースのみ掲載します。。
■試験ツール仕様
-機能
csvファイルの入出力
単項目チェック(バイト、)
入力値削除
■出ているエラー
「ユーザ定義型は定義されていません。」
■構成
VBAProject(コピーCSV2.xlsm)
∟Sheet1(Sheet1)
∟ThisWorkbook
標準モジュール
∟Module1
∟Module2
∟Module3
クラスモジュール
∟CsvReader
■ソース
・Module1
Option Explicit Public charSet_str As String Public lineSeparator_int As Integer Public WriteLine As String Public MsgStr As Stng Public ErrRow As Long Public ErrCol As Long Public WriteData As String 'フォルダ内検索 Function FileSearchIN(path As String) Dim objFso As Object Dim Folder As Variant Dim File As Variant (中略) ErrRow = RowPos ErrCol = Col_i RS_CheckOut = False Exit Function End If WriteLine = WriteLine & TmpStr End Select End With RS_CheckOut = True End Function
・Sheet1(Sheet1)
(省略) Sub ErrView() Dim AdStr As String Me.Cells(ErrRow, ErrCol).Select Me.Cells(ErrRow, ErrCol).Interior.ColorIndex = 35 AdStr = Me.Cells(ErrRow, ErrCol).Address AdStr = Replace(AdStr, "$", "") MsgBox "セル" & AdStr & "の内容" & vbCrLf & MsgStr, vbCritical, "確認" End Sub

バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/09/03 15:19