VBA コンパイルエラーの解消方法について

質問

VBAにおいてコンパイルエラーが発生しました。
内容はユーザー定義型は定義されていませんとのメツセージです。
ネットで調べてツールの参照設定内容についてはチエックしました。
それでも解消できません。
助けてください。

回答No.4

Nouble · ベストアンサー

要するに、こうしたい
の、ですよね？

綴りミスが、多すぎ
ですよ？

Option　Explicit
Option　Base　0

Const　列　As　Long　=　5

Sub　判定()
Dim　行　As　Long,　セル値　As　Long

　For　行　=　3　To　10
　　With　Cells(行,　列)
　　　Let　セル値　=　.Value
　　　With　.Interior
　　　　If　セル値　<=　70　_
　　　　Then
　　　　　.ColorIndex　=　36
　　　　　.Pattern　=　xlSolid
　　　　ElseIf　セル値　>=　90　_
　　　　Then
　　　　　.ColorIndex　=　34
　　　　　.Pattern　=　xlSolid
　　　　End　If
　　　End　With
　　End　With
　Next　行
End　Sub

Sub　判定蛇足()
Dim　行　As　Long,　色　As　Long,　セル値　As　Long

　Let　色　=　34
　For　行　=　3　To　10
　　With　Cells(行,　列)
　　　Let　セル値　=　.Value
　　　With　.Interior
　　　　If　Abs(セル値　-　80)　>=　10　_
　　　　Then
　　　　　.ColorIndex　=　色　-　(セル値　<=　70)　*　2
　　　　　.Pattern　=　xlSolid
　　　　End　If
　　　End　With
　　End　With
　Next　行
End　Sub

此等は、どちらも
同じ、表示を
残します

コーデングを、する上で
冗長さは、敵
位までに
思った、方が
良い
ですよ

所で、
宣言の、型
ですが
integerに、指定しても
使用メモリー量は、減りません

最近の、マシンは
確か
最小、でも
ハーフワード単位で、しか
扱われません

ハーフワード=32bit
なので
32bitも、16bitも、8bitも、
(long=32bit、integer=16bit、Byte=8bit、)

メモリー使用量は、変わりません
(を
配列を、
integerに、しても、
longに、しても、
メモリー、使用量は
然程、変わりません)

また、
Longは、
場合に、より
2値を、抱き合わせられ
64bit=1ワードに、組まれます

integerは
そうした、話を
聞きません

ので
実行速度は、落ちます
(墜ちると、言われています)

と、言う事で
integerは
もはや、死語

と、
思って、頂いて
構いません

因みに
http://officetanaka.net/excel/vba/variable/03.htm

回答No.5

Nouble

おっと、言い忘れました

"e"を、使いたい
なら
.cells(
では、なく
.Range(
を、使いましょぅ

.cells(
には
補完作用が、無かった
かと
(其の分、.cells( が
若干、早い
らしい)

Excelの
あの、格子は
ゲル、(gells)
では、なく
セル、(cells)
ですょ

そう、考えると
覚え易い
で、しょ？

あと、
Worksheets中の
どの、Worksheetを
対象に
動作、するか
は
常に、明記
しましょぅ

バクの、元凶ですょ

回答No.3

imogasi

このコードは質問者が作ったものか？
貼り付け画像から
Interor
Golorindex
interor
など綴りが間違っているのでは？
これなど、ここに質問するレベルではない（初歩的注意不十分、見直し不十分）と思う。
VBAのコンパイラーのチェク指摘は、必ずしも正面切って指摘されるとは限らない。スペルミスというエラー指摘はあまり出ないものだ。
質問者はＶＢＡ経験不足で普通はすぐ気づくものだ。
また
「インテリセンス」のことなど
http://www.relief.jp/docs/018264.html
インテリセンスが効いて自動メンバー表示されるものと、されないものの違い
など勉強したほうが良い。

回答No.2

maiko0333

interorという型は存在しませんから
自分で定義しなければならない。
その定義がないよと言っているのです。

回答No.1

maiko0333

integerの誤りでは？