Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3675 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

【60756】タイプを変更することは、できるんでしょうか? haru 09/3/13(金) 10:59

【60758】Re:タイプを変更することは、できるんでし... つん 09/3/13(金) 11:29

【60761】Re:タイプを変更することは、できるんでし... haru 09/3/13(金) 13:14

【60762】Re:タイプを変更することは、できるんでし... つん 09/3/13(金) 13:50

【60764】Re:タイプを変更することは、できるんでし... マクロマン 09/3/13(金) 14:43

【60766】Re:タイプを変更することは、できるんでし... haru 09/3/13(金) 15:17

【60770】Re:タイプを変更することは、できるんでし... ichinose@もう仕事に飽きた 09/3/13(金) 16:32

【60771】Re:タイプを変更することは、できるんでし... マクロマン 09/3/13(金) 16:34

【60772】Re:タイプを変更することは、できるんでし... マクロマン 09/3/13(金) 16:42

【60773】Re:タイプを変更することは、できるんでし... マクロマン 09/3/13(金) 16:45

【60774】Re:タイプを変更することは、できるんでし... neptune 09/3/13(金) 16:59

【60769】Re:タイプを変更することは、できるんでし... マクロマン 09/3/13(金) 16:28


	【60756】タイプを変更することは、できるんでしょ...

haru - 09/3/13(金) 10:59 -


	引用なし

	パスワード

　TypeNameで、セルのタイプを調べます。
　このセルのタイプを変更することは、できるんでしょうか?
　よろしくお願いします。


	【60758】Re:タイプを変更することは、できるんで...

つん - 09/3/13(金) 11:29 -


	引用なし

	パスワード

▼haru さん
こんにちは＾＾

>　TypeNameで、セルのタイプを調べます。
>　このセルのタイプを変更することは、できるんでしょうか?
>　よろしくお願いします。

えーと、

TypeName(Range("a1"))

で、調べると、「Range」が返ってくるわけで・・・
これを変更するってのは考えられないので

TypeName(Range("a1").Value)

で、セルに入力された値を調べるんだと思いますが、
そこから、どうされたいのかイマイチわかりづらいです。


	【60761】Re:タイプを変更することは、できるんで...

haru - 09/3/13(金) 13:14 -


	引用なし

	パスワード

　セルA2をダブルクリックすると、その上のセルA1の値（整数）か
ら-0.1^10マイナスさせます。
　もう一度、セルをダブルクリックすると、A1を元の値（整数）に
戻す、というマクロを作っています。
　今、セルA1が、整数かどうかを調べて、マイナスさせるか、決め
ようとしています。
　アドバイスを頂けると、幸いです。


	【60762】Re:タイプを変更することは、できるんで...

つん - 09/3/13(金) 13:50 -


	引用なし

	パスワード

>　セルA2をダブルクリックすると、その上のセルA1の値（整数）か
>ら-0.1^10マイナスさせます。
>　もう一度、セルをダブルクリックすると、A1を元の値（整数）に
>戻す、というマクロを作っています。
>　今、セルA1が、整数かどうかを調べて、マイナスさせるか、決め
>ようとしています。
>　アドバイスを頂けると、幸いです。

「整数」かどうか調べるのは、TypeNameでは不適切のようです。
数値が入っていれば、整数でもそうでもなくて「Double」が返ってきます。
「整数」かどうか判定する関数があるんちゃうかと調べてみたけど、なさそうな感じ。
小数点があるかどうか？で判定するしかないのかなあ・・・

頼りなくてすんません。
達人の方のご出馬を待ちましょう＾＾；

私ももちっと考えてみます。

ところで

＞セルA1の値（整数）から-0.1^10マイナスさせます。

の意味がわからんのですが＾＾；


	【60764】Re:タイプを変更することは、できるんで...

マクロマン - 09/3/13(金) 14:43 -


	引用なし

	パスワード

達人ではないですが・・・。

まず数値か否かを判定してから整数か否かを判定する、ではだめですか？
↓は数値か否かの判定は入れてありません

Dim su As Variant
　su = ActiveCell.Value
　If su <> CInt(su) Then
　　 MsgBox "整数ではない"
　Else
　　 MsgBox "整数である"
　End If


	【60766】Re:タイプを変更することは、できるんで...

haru - 09/3/13(金) 15:17 -


	引用なし

	パスワード

ありがとうございます。
CIntでうまく行きました。


	【60769】Re:タイプを変更することは、できるんで...

マクロマン - 09/3/13(金) 16:28 -


	引用なし

	パスワード

>CInt(su)

単に
Int(su)
でもいけるようです。


	【60770】Re:タイプを変更することは、できるんで...

ichinose@もう仕事に飽きた - 09/3/13(金) 16:32 -


	引用なし

	パスワード

こんにちは。

>単に
>Int(su)
>でもいけるようです。

というかCIntではなく、Intにしたほうが良いと思いますよ。

検査値が32768以上だとエラーになるから・・・、

もっとも-0.1^10こんな小さい値を扱っているところをみると
Integer型の許容範囲の値かもしれませんが・・・・。


	【60771】Re:タイプを変更することは、できるんで...

マクロマン - 09/3/13(金) 16:34 -


	引用なし

	パスワード

ichinoseさん、ありがとうございます。
勉強になります。


	【60772】Re:タイプを変更することは、できるんで...

マクロマン - 09/3/13(金) 16:42 -


	引用なし

	パスワード

↓で成功するのは
Int
と
CInt
だけですね。
何でもやりゃいいってもんじゃないけど。

Sub test()
Dim su As Variant
　su = 1.2
　On Error Resume Next
　MsgBox "WorksheetFunction.Int:" & WorksheetFunction.Int(su)
　MsgBox "Int:" & Int(su)
　MsgBox "CInt:" & CInt(su)
　MsgBox "Application.Int:" & Application.Int(su)
　MsgBox "WorksheetFunction.Quotient:" & WorksheetFunction.Quotient(su)
　MsgBox "Application.Quotient:" & Application.Quotient(su)
　MsgBox "Application.Quotient:" & Application.Quotient(su)
End Sub


	【60773】Re:タイプを変更することは、できるんで...

マクロマン - 09/3/13(金) 16:45 -


	引用なし

	パスワード

ちょんぼがありました。
結果は同じだけど。

Dim su As Variant
　su = 1.2
　On Error Resume Next
　MsgBox "WorksheetFunction.Int:" & WorksheetFunction.Int(su)
　MsgBox "Int:" & Int(su)
　MsgBox "CInt:" & CInt(su)
　MsgBox "Application.Int:" & Application.Int(su)
　MsgBox "WorksheetFunction.Quotient:" & WorksheetFunction.Quotient(su, 1)
　MsgBox "Application.Quotient:" & Application.Quotient(su, 1)


	【60774】Re:タイプを変更することは、できるんで...

neptune - 09/3/13(金) 16:59 -


	引用なし

	パスワード

みなさん
こんにちは
面白そうだったんでお邪魔します。

整数かどうかだけ調べるんですから、
確認はしてませんけど、例えば、
Sub t()
　　Dim a As Double
　　a = 123
　　
　　If a - (a \ 1) <> 0 Then
　　　　Debug.Print "整数じゃないですね。"
　　Else
　　　　Debug.Print "整数ですね。"
　　End If
End Sub
みたいに単純なのではどうなんでしょう？
考え方間違ってますかね？？？


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3675 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free