Excel VBA質問箱 IV

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

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


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

39880 / 76732

←次へ　｜　前へ→


	【41956】Re:エラーの処理対応について

実験太郎 - 06/8/26(土) 23:40 -


	引用なし

	パスワード

▼ぱっせんじゃーさん：
早速の回答ありがとうございます。

>解決に至ってないですが、過去ログです。
>
>金利計算について
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=41666;id=excel

まねて見ました。
ひとつお聞きしたいのですが･･･
Dim R As Range
Dim MyR As Range
Dim Cdata As String

Range("C6", Range("C65536").End(xlUp)).ClearContents
　Do While True
　　Cdata = Application.InputBox("" & Chr(13) & "A列の数字とB列の数字の比較をする" _
　　　　& Chr(13) & "数字を入力してください", "A列数字＞B列数字の比較")

'InputboxのキャンセルでInputboxを消すようにしたいのですが
'(OkもCancelも同じ動きをするのですが）･･･対応を教えてください。

　　If Val(Cdata) = 0 Then
　　　MsgBox "数字を入力してください"
　　Else
　　　 If MsgBox("数字 " & Val(Cdata) & " で間違いないですか", vbYesNo) = vbYes Then
　　　　　 Exit Do
　　　　End If
　　End If
　Loop
　　Set MyR = Range("A6", Range("A65536").End(xlUp))
　　　 For Each R In MyR
　　　　 If R.Value - R.Offset(, 1).Value >= Val(Cdata) Then
　　　　　　R.Offset(, 2).Value = Val(Cdata) & "以上の差があります"
　　　　 End If
　　　 Next

1 hits

▼

【41950】エラーの処理対応について 実験太郎 06/8/26(土) 20:27