Excel VBA質問スレ Part6

Excel VBA質問スレ Pa ..

416:デフォルトの名無しさん
08/04/28 14:26:05
Sub 長さ４の配列データの並べ替え( A )

if(A(1)<A(2)AND(A(2)<A(3))AND(A(3)<A(4))then
return
end if
if( (A(2)<A(1))AND(A(1)<A(3))AND(A(3)<A(4))then

A(1)=A(2)
A(2)=A(1)

end if

あと１４個似た構文が続く

End Sub

以前、会社のシートにこれがあった。
バグが出る度に書き直していった苦労の跡がにじんでた。
なんだかんだいって、結構偉大なコードだと思った。

次ページ

続きを表示

1を表示