ソート番号.状況:ワークシートにコマンドボタンを配置し、次のコード行を追加します。Integer型とRangeオブジェクトの3つの変数を宣言します。列Aの数値でRangeオブジェクトrngを初期化します。これにはCurrentRegionプロパティを使用します。CurrentRegionは、あらかじめ範囲の正確な境界を知ることができないときに便利です(このプログラムは9つの数値だけでなく90の数値に対しても機能します)。Nextループを2つ起動します。1〜9に縮小されます。2,3、...、8,9チェックされます。4.数字を適切にソートするには、最初の数字と次の数字を比較します。次の数字が小さい場合は、数字を入れ替えます。Thenステートメントを追加します。If上記のステートメントが真であれば、番号を入れ替えます。2の場合、数字2および10が比較されている。上記の陳述は真実ではありません。したがって、番号を交換する必要はありません。3のコード行を繰り返します.5が2より大きいので、数字を入れ替える必要はありません。7に到達すると、1は2より小さいので上記の文は真です。5.番号を交換します。VBAは数値を適切にスワップできます。Ifステートメントに次のコード行を追加します。Nextループ(Ifステートメントの外側)を閉じます。これは、最初の位置に1を、位置7に2を取得することを意味します。9の場合)と比較します。スワップする必要はありません(1が最小です)。2の場合と全く同じ手順を繰り返します。3などと全く同じ手順を繰り返します。Nextループ(Ifステートメントの外側)を閉じます。i8.プログラムをテストします。サイトの素材の使用は、素材のソースに直接リンクしている場合にのみ許可されます!。