セルに計算結果を順番に表示するIF文

最近の書き込み件数: 今日 0件、昨日 0件
未読分:2件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2016年6月9日(木)21時20分
From: ジャッカル
返事 削除 変更
DST0 や oRGX とかの変数に何も設定されていないけど、0.1づつ増やしていくならif分よりは、for nextまたは、Do Loopで対応したほうがいいんじゃないか?



> どなたかご教示をお願いします。
> 計算結果をA列11行目、C列11行目以降に順番に表示させるマクロを考えています。
> rPrnt as Integer
> STP0 as Double
>
> で定義しています。
> STP0を0から0.1づつ増加させてDST0より小さかったらある計算をして、
> STP0がDST0をこえたらSTP0の数値をDST0にかえて計算し表示する
> なんだかElse If以降があやしい・・・
>
> rPrnt = 11
> STP0 = 0
>
> If DST0 > STP0 Then
> PoS1X = oRGX + (STP0 * Sin(FRN0 * PI / 180)) / 10
> Cells(rPrnt, "A") = PoS1X
> PoS1Y = oRGY + (STP0 * Cos(FRN0 * PI / 180)) / 10
> Cells(rPrnt, "C") = PoS1Y
> STP0 = STP0 + 0.1
> rPrnt = rPrnt + 1
> Else
> If DST0 <= STP0 Then
> PoS1X = oRGX + (DST0 * Sin(FRN0 * PI / 180)) / 10
> Cells(rPrnt, "A") = PoS1X
> PoS1Y = oRGY + (DST0 * Cos(FRN0 * PI / 180)) / 10
> Cells(rPrnt, "C") = PoS1Y
> End If
> End If

Message#1 2016年6月6日(月)15時51分
From: とうしろう
返事 削除 変更
どなたかご教示をお願いします。
計算結果をA列11行目、C列11行目以降に順番に表示させるマクロを考えています。
rPrnt as Integer
STP0 as Double

で定義しています。
STP0を0から0.1づつ増加させてDST0より小さかったらある計算をして、
STP0がDST0をこえたらSTP0の数値をDST0にかえて計算し表示する
なんだかElse If以降があやしい・・・

rPrnt = 11
STP0 = 0

If DST0 > STP0 Then
PoS1X = oRGX + (STP0 * Sin(FRN0 * PI / 180)) / 10
Cells(rPrnt, "A") = PoS1X
PoS1Y = oRGY + (STP0 * Cos(FRN0 * PI / 180)) / 10
Cells(rPrnt, "C") = PoS1Y
STP0 = STP0 + 0.1
rPrnt = rPrnt + 1
Else
If DST0 <= STP0 Then
PoS1X = oRGX + (DST0 * Sin(FRN0 * PI / 180)) / 10
Cells(rPrnt, "A") = PoS1X
PoS1Y = oRGY + (DST0 * Cos(FRN0 * PI / 180)) / 10
Cells(rPrnt, "C") = PoS1Y
End If
End If

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください^^

VBAのInternetExplorer操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE(InternetExplorer)操作にも挑戦してみてください^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

エクセルVBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

スポンサー リンク

エクセルVBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

エクセルVBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com