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