No.4ベストアンサー
- 回答日時:
またまた登場、onlyromです。
>duble型と宣言しているのに、また#付きとは。
>この場合は#なくても同じということに・・・?
そうです、#はなくてもいいです。
先の回答の
Const K As Double = 5000# '#はあっても無くてもいい
と同じことです。
要するに
■値を代入するだけ■なら、#はあってもなくてもいいわけですが、
先の回答の例のように計算に使ってる場合は、
#があるないかが重要になってくるわけです。
また、定数をそのまま使う場合は、
定数に#を付けることで宣言部分を見なくても
左辺の変数の型がDouble型というのが分かるというメリットはあるわけですが。。
ただ、これも変数の付け方を定石どおりやれば
変数の型もその変数名を見れば一目で分かります。
先の回答のように、
整数だったら、integerの頭3桁を取り、intData
倍精度だったら、doubleですから、dblData
とすれば変数名を見ただけで変数の型は分かりますよね。
ちょとだらだらとした回答になりました。(^^;;;
少し時間が開いてしまいました。
なるほどです。。
私が見ているソースはまさに計算で使用されていますので、
また少し考えます。
それにしても質問の本文に書きましたが、
'_____________________________________
if kakudo < 0 then
if kakudo <= 1# then
kai = 180 + kakudo
else
kai = 180
end if
else
kai = 0
end if
'_____________________________________
これの式はメチャメチャですが、if文の条件はそのままなのです。
一つ目のif文だけで2つ目のif文はいらないような気がしてしまいます・・・
#が付く事で何かif文の条件が変わるのかと思っていましたが・・・
難しいですね・・・
No.5
- 回答日時:
またまたまた登場、onlyromです。
当方の回答は、そのコードが正しい云々とは関係なく、
質問のタイトルにある、「条件文にある#の意味」その一点についてです。
コードの正誤は質問者の担当?ということで敢えてそこには言及しませんでした。。。(^^;;;
では質問のコードについて。
仰るように間違ったコードですね。
実際は次のようなことだと推測されます。
一行目の
if kakudo ■< 0■ then
この、<0 は、 >0 のタイプミス(よく言えば)でしょう。
'--------------------------------------------------
If kakudo > 0 then
If kakudo <= 1 then
kai = 180 + kakudo
Else
kai = 180
End If
Else
kai = 0
End if
'----------------------------------------------
kakudoが
■0より大きくて1以下■0<kakudo<=1
・・・・kaiに、kakudo+180を代入
■1より大■1<kakudo
・・・・kaiに、180を代入
■0以下■kakudo<=0
・・・・kaiに、0を代入
尚、IF文でも、#はあってもなくても可です。
それにしても
>#が付く事で何かif文の条件が変わるのかと思っていましたが
ここが質問の要点だとは想像もしませんでした。
道理でどうも論点がずれているような、
しっくりこないような気がしてたのですが、
それが原因だったのですねぃ。(^^;;;
最後の方は私の仕事も絡んでしまいました・・
申し訳ないです。
それにしてもこれだけ親切にご教示いただいたので、
だんだんと解明できそうな気がしてきました。
長々とお付き合い頂きありがとうございました。
またすぐに壁に当たるかもですが・・・
No.3
- 回答日時:
回答2、onlyromです。
回答1さんがお忙しいようなので。。。
>ここで使用している1はdouble型ですよという意味?
そうです。
なぜ、定数に#などつけるかというと
次の例を試してみればはっきり理解できるはずです。
'-------------------------------------
Private Sub Command1_Click()
Dim intData As Integer
Dim dblData As Double
intData = 30000
dblData = intData + 5000
MsgBox dblData
End Sub
'-------------------------------------
上記では定数5000に、#が付いてないので
dblData = intData + 5000
ここで、オーバーフローのエラーになります。
なぜなら、intDataも5000も整数ですから
計算結果35000は整数の上限32767を超えるからです
で、それを避けるために5000に#を付けDoubleにすると
計算結果はDobuleの範囲内ということで上手くいくわけです。
ただ、コード内に定数を直接使うことはあまりないと思われます。
上記のようなことに常に注意しないといけないからです。
で、どうするかというと
'-------------------------------------------
Private Sub Command1_Click()
Dim intData As Integer
Dim dblData As Double
Const K As Double = 5000# '#はあっても無くてもいい
intData = 30000
dblData = intData + K
MsgBox dblData
End Sub
'-------------------------------------------
と定数5000を予めDoubleの変数に入れておき、
計算などのときはその変数を使うのが普通です。
この回答への補足
早速の回答感謝です。
しかも例があって分かりやすいこと!
理解できてきました。
その後ソースを読み進んでいくと、更に謎な部分が出てきました。
'_______________________________________________
Dim Data As Double
Data = 0#
'________________________________________________
duble型と宣言しているのに、また#付きとは。
この場合は#なくても同じということに・・・?
No.2
- 回答日時:
No.1
- 回答日時:
ここで使用されている「#」は、型宣言文字です
サフィックスと称されます
なので、
1# は、 Double型の1です
VB6の型宣言文字には、他にも「!(Single)」「$(String)」等があります
ぐぐってみるのもいいでしょう
コードのほうは・・・
この回答への補足
早速の回答ありがとうございます。
すみませんもう少し御教示ください。
1というdouble型の変数を宣言したということでしょうか?
それともここで使用している1はdouble型ですよという意味・・・ 同じこと?
混乱してきました。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Excel(エクセル) R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす 2 2022/07/02 10:18
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- PostgreSQL DBFluteについて質問です。 環境:PostgreSQL java8 前提:webアプリケーショ 1 2022/07/07 00:49
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでダブルコーテーション入り...
-
テキストボックスの値を変数に...
-
jsp~jspにhiddenを使って変数...
-
[VBS]変数を定数に変換する方法...
-
エラーの意味は? Lvalue req...
-
processing エラーで、 "cannot...
-
だれがとけるの?
-
Variant型で宣言してるのにEmpt...
-
C言語 列挙型(enum型)変数について
-
整数xxxが大き過ぎますというエ...
-
EXCEL/VBA 変数の値をクリップ...
-
Visual Basic 2008 変数をDBへ...
-
複数の演算子を選択する場合の処理
-
C言語 exitで終了した関数の戻...
-
連立一次方程式の
-
条件演算子 ? :
-
プログラミングの問題です
-
切り上げ
-
【VBA】複合代入演算子
-
ExcelのVBAでをA列に第0〜19項...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エラーの意味は? Lvalue req...
-
VBAでダブルコーテーション入り...
-
EXCEL/VBA 変数の値をクリップ...
-
だれがとけるの?
-
C言語 列挙型(enum型)変数について
-
[VBS]変数を定数に変換する方法...
-
jsp~jspにhiddenを使って変数...
-
Variant型で宣言してるのにEmpt...
-
processing エラーで、 "cannot...
-
テキストボックスの値を変数に...
-
整数xxxが大き過ぎますというエ...
-
C言語 アロー演算子について質...
-
i++と++i ってどう違うのですか?
-
数値計算??
-
python の 連鎖代入の文法
-
インクリメント演算子の前置(+...
-
「%」を使って、偶数か奇数かを...
-
【VBA】複合代入演算子
-
VBA 1行で複数の代入を行った...
-
datagridviewに行...
おすすめ情報