Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


482 / 13645 ツリー ←次へ | 前へ→

【80120】型宣言の場所 そば 18/8/26(日) 16:20 質問[未読]
【80121】Re:型宣言の場所 よろずや 18/8/26(日) 19:43 発言[未読]
【80123】Re:型宣言の場所 そば 18/8/28(火) 5:33 質問[未読]
【80122】Re:型宣言の場所 亀マスター 18/8/26(日) 21:42 発言[未読]
【80124】Re:型宣言の場所 そば 18/8/28(火) 5:34 お礼[未読]

【80120】型宣言の場所
質問  そば  - 18/8/26(日) 16:20 -

引用なし
パスワード
   こんにちは。
VBA素人です。

以下のような簡単なコードを書いてみたところ、
"コンパイルエラー
ユーザ定義型は定義されてません"
というエラーメッセージが出てしまいました。

////////////////////////

Private Type POINTAPI
   x As Long
   y As Long
End Type

Function AAA()
  Dim p As POINTAPI
  
  p.x = 1
  p.y = 2
  
  Range("F1").Value = p.x
  Range("G1").Value = p.y
End Function

//////////////////////

なにか文法上の問題があるのでしょうか。
それとも型宣言の場所に問題があるのでしょうか。
また、
End Type

Function AAA()
の間に、細長い横線が入ってますが、
何か関係ありますでしょうか。


分かる方いらっしゃったら、よろしくお願いします。

【80121】Re:型宣言の場所
発言  よろずや  - 18/8/26(日) 19:43 -

引用なし
パスワード
   >Private Type POINTAPI

>  Dim p As POINTAPI
のスペルは同じですか?
質問箱の方ではなく、実際にエラーになったコードを確認してください。

【80122】Re:型宣言の場所
発言  亀マスター  - 18/8/26(日) 21:42 -

引用なし
パスワード
   >また、
>End Type
>
>Function AAA()
>の間に、細長い横線が入ってますが、
>何か関係ありますでしょうか。

横線はプロシージャ(SubやFunctionのひとかたまり)ごとの間に目印として入るもので、今回の件には関係ないでしょう。邪魔ならオプションから消すことも出来ます。

【80123】Re:型宣言の場所
質問  そば  - 18/8/28(火) 5:33 -

引用なし
パスワード
   よろずやさん、ご回答ありがとうございます。

>のスペルは同じですか?

質問箱のコードは、
実際のコードをコピペしてきたものです。
そしてこれが全てです。

それとも、これだけでは足りなくて
エラーになっているのでしょうか?

【80124】Re:型宣言の場所
お礼  そば  - 18/8/28(火) 5:34 -

引用なし
パスワード
   亀マスターさん、ご回答ありがとうございます。

そうなのですね。理解しました。

482 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free