Excel VBA質問箱 IV

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

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


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

37971 / 76738

←次へ　｜　前へ→


	【43913】Re:結果報告

yata - 06/10/29(日) 16:55 -


	引用なし

	パスワード

Hirofumi さん
うまく行きました。
Private Function LineSelected(lngP As Long, _
　　　　　　　　　　　　　　　　lngQ As Long, _
　　　　　　　　　　　　　　　　lngS As Long, _
　　　　　　　　　　　　　　　　lngR As Long, _
　　　　　　　　　　　　　　　　Right1 As Long, _
　　　　　　　　　　　　　　　　Left1 As Long, _
　　　　　　　　　　　　　　　　Top1 As Long, _
　　　　　　　　　　　　　　　　Under1 As Long, _
　　　　　　　　　　　　　　　　Right2 As Long, _
　　　　　　　　　　　　　　　　Left2 As Long, _
　　　　　　　　　　　　　　　　Top2 As Long, _
　　　　　　　　　　　　　　　　Under2 As Long) As String
ここを
Private Function LineSelected(ByVal lngP As Long, _
　　　　　　　　　　　　　　　　ByVal lngQ As Long, _
　　　　　　　　　　　　　　　　ByVal lngS As Long, _
　　　　　　　　　　　　　　　　ByVal lngR As Long, _
　　　　　　　　　　　　　　　　ByVal Right1 As Long, _
　　　　　　　　　　　　　　　　ByVal Left1 As Long, _
　　　　　　　　　　　　　　　　ByVal Top1 As Long, _
　　　　　　　　　　　　　　　　ByVal Under1 As Long, _
　　　　　　　　　　　　　　　　ByVal Right2 As Long, _
　　　　　　　　　　　　　　　　ByVal Left2 As Long, _
　　　　　　　　　　　　　　　　ByVal Top2 As Long, _
　　　　　　　　　　　　　　　　ByVal Under2 As Long) As String
に変更してばっちりです。コードが100行も短縮されてすっきりしました。
展開図作成マクロを作ったのですが、選択されている直線の傾きを調べるのに四苦八苦しました。
結局、3つの辺がどの様にくっついているか全て調べ上げ、こんな分岐の多いコードになってしまいました。
またお世話になるかもしれませんが今後ともよろしくお願いします。
有難うございました。

0 hits

▼

【43896】変数の値を循環させて使用するには yata 06/10/28(土) 20:30