質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
CSV

CSV(Comma-Separated Values)はコンマで区切られた明白なテキスト値のリストです。もしくは、そのフォーマットでひとつ以上のリストを含むファイルを指します。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

2回答

2484閲覧

マクロにおける「ユーザ定義型は定義されていません。」の解消方法

Tannnnnnnnnnn

総合スコア24

CSV

CSV(Comma-Separated Values)はコンマで区切られた明白なテキスト値のリストです。もしくは、そのフォーマットでひとつ以上のリストを含むファイルを指します。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2019/09/03 09:29

記録条件仕様書の内容から試験データを作成するツール(マクロ)を実装中です。
以下のソースの「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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

Public MsgStr As Stng
これは
Public MsgStr As String
の間違いかと。

投稿2019/09/03 09:32

tatsu99

総合スコア5438

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Taka_takatak

2019/09/03 15:19

ありがとうございます。こんな初歩的なミスですみません。
guest

0

Stngという標準型はありませんので、ユーザ定義型とみなされ、かつその定義がないというエラーメッセージです。
このエラーがでるのが不当だというのならばどこに型定義をしていますか?ソースを示してください。

投稿2019/09/03 14:56

sage

総合スコア1216

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Taka_takatak

2019/09/03 15:20

綴りミスを見逃していました。ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問