Excel VBA質問箱 IV

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

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


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

40853 / 76732

←次へ　｜　前へ→


	【40968】Re:線のトリムって出来ないでしょうか？...

わいわい - 06/7/27(木) 9:12 -


	引用なし

	パスワード

前回の投稿では、垂直の線についての計算分岐を忘れていました。気になるので修正しておきます。
分岐条件を見直す際に、垂直線状態取得時にβを負符号で取る必要が無いので以下のように修正しました。
　　　　　　　　　　α1 = 10 ^ 10: β1 = x_01
　　　　　　　　　　α2 = 10 ^ 10: β2 = x_11

>　　　　　　　　'交点の取得
>　　　　　　　　If α1 = α2 Then MsgBox "２直線が平行で交わりません。終了します。": T_step = 0: Exit Sub
>>　　　　　　　　x_03 = (β2 - β1) / (α1 - α2)
>>　　　　　　　　y_03 = α1 * x_03 + β1
　　　　　　　　If α1 = 10 ^ 10 Then
　　　　　　　　　　x_03 = β1
　　　　　　　　　　y_03 = α2 * x_03 + β2
　　　　　　　　ElseIf α2 = 10 ^ 10 Then
　　　　　　　　　　x_03 = β2
　　　　　　　　　　y_03 = α1 * x_03 + β1
　　　　　　　　Else
　　　　　　　　　　x_03 = (β2 - β1) / (α1 - α2)
　　　　　　　　　　y_03 = α1 * x_03 + β1
　　　　　　　　End If
>　　　　　　　　
>　　　　　　　　Cells(2, 1).Value = x_11: Cells(2, 2).Value = y_11
>　　　　　　　　Cells(2, 3).Value = x_12: Cells(2, 4).Value = y_12
>　　　　　　　　Cells(2, 5).Value = α2:　Cells(2, 6).Value = β2
>　　　　　　　　Cells(3, 1).Value = x_03: Cells(3, 2).Value = y_03
>

1 hits

▼

【39378】線のトリムって出来ないでしょうか？ カド 06/6/23(金) 8:24