降順 | 独学エクセル塾 https://dokugakuexcel.com 初心者から中級者までシステム・関数・VBAを伝授します Thu, 13 Jul 2023 07:14:19 +0000 ja hourly 1 https://wordpress.org/?v=6.9.4 https://dokugakuexcel.com/wp-content/uploads/2021/06/cropped-cropped-image-66-1-32x32.jpg 降順 | 独学エクセル塾 https://dokugakuexcel.com 32 32 194648711 【マクロVBA】昇順・降順に並び替え!指定範囲をSortメソッドで単一・複数範囲で並び替える https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e6%98%87%e9%a0%86%e3%83%bb%e9%99%8d%e9%a0%86%e3%81%ab%e4%b8%a6%e3%81%b3%e6%9b%bf%e3%81%88%e6%8c%87%e5%ae%9a%e7%af%84%e5%9b%b2%e3%82%92sort%e3%83%a1/?utm_source=rss&utm_medium=rss&utm_campaign=%25e3%2580%2590%25e3%2583%259e%25e3%2582%25af%25e3%2583%25advba%25e3%2580%2591%25e6%2598%2587%25e9%25a0%2586%25e3%2583%25bb%25e9%2599%258d%25e9%25a0%2586%25e3%2581%25ab%25e4%25b8%25a6%25e3%2581%25b3%25e6%259b%25bf%25e3%2581%2588%25e6%258c%2587%25e5%25ae%259a%25e7%25af%2584%25e5%259b%25b2%25e3%2582%2592sort%25e3%2583%25a1 https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e6%98%87%e9%a0%86%e3%83%bb%e9%99%8d%e9%a0%86%e3%81%ab%e4%b8%a6%e3%81%b3%e6%9b%bf%e3%81%88%e6%8c%87%e5%ae%9a%e7%af%84%e5%9b%b2%e3%82%92sort%e3%83%a1/?noamp=mobile#respond Thu, 06 Jul 2023 14:36:46 +0000 https://dokugakuexcel.com/?p=4431 VBAを使用すると、Excelのセル内のデータを効率的に整理することができます。
今回は、セルの並び替え（sort）について詳しく紹介します。

本記事では、Sortメソッドの使い方や注意点、実際の活用例について詳しく解説します。

ぜひ参考にしてください。
それでは見ていきましょう！

⬛︎こんな事ができるようになる！

・Excelのセル内のデータを昇順や降順に並び替えることができる
・特定の範囲や複数範囲のデータを正確に整理できる

⬛︎忙しい人向けのコピペ用ソースコード

Sub Sortsample()
'xlAscending:昇順　lDescending：降順
Range("並び替えたい範囲").Sort Key1:=Range("A1"), Order1:=xlDescending
End Sub

並び替えたい範囲はカスタムして使用してください。
Order1には「xlAscending:昇順」または「xlDescending：降順」を当てはめてください。

⬛︎構文の説明

まず、使用するメソッドについてです。使用するのは「Sortメソッド」になります。
Sortメソッドの基本的な構文は以下の通りです。

範囲.Sort Key1:=キー範囲, Order1:=昇順/降順, Key2:=キー範囲, Order2:=昇順/降順, …

・範囲: 並び替えたいセルの範囲を指定します。
・キー範囲 :並び替えの基準となるセルの範囲を指定します。
・昇順/降順: キー範囲での並び順を指定します。

この構文を使用して、セルの並び替えを行うことができます。

昇順・降順で並び替え

・昇順で並び替え

まず、昇順で並び替えをしてみましょう。
下図の見本をご覧ください。

A1からA10のセルに文数値が入力されてあります。
こちらを昇順に並び替えてみたいと思います。

では再度構文を見てみましょう。

範囲.Sort Key1:=キー範囲, Order1:=昇順/降順
見本では範囲はA1からA10になります。
キー範囲は並び替えの基準となるセルなので先頭のA1になります。
昇順/降順は今回は昇順なのでxlAscendingとなります。

では見本を並び替えてみましょう。
ソースコードはこちらです。

Sub AscendingSort()
Range(“A1:A10“).Sort Key1:=Range(“A1“), Order1:=xlAscending
End Sub

それでは実行してみましょう。

狙い通り、昇順に並び替えすることが出来ました。

・降順で並び替え

今度は降順で並び替えをしてみましょう。
下図の見本をご覧ください。

では再度構文を見てみましょう。

範囲.Sort Key1:=キー範囲, Order1:=昇順/降順

今回、昇順/降順は降順なのでxlDescendingとなります。

では見本を並び替えてみましょう。
ソースコードはこちらです。

Sub DescendingSort()
Range(“A1:A10“).Sort Key1:=Range(“A1“), Order1:=xlDescending
End Sub

それでは実行してみましょう。

狙い通り、昇順に並び替えすることが出来ました。

⬛︎単一範囲と複数範囲の並び替え

以下では、単一範囲と複数範囲の並び替えの方法を説明します。

・単一範囲の並び替え

まずは単一範囲の並び替えの方法です。先ほど紹介してきたソースコードと同じですね。
以下のソースコードをご覧ください。

Sub セルの並び替え()
Range(“A1:A10”).Sort Key1:=Range(“A1”), Order1:=xlAscending
End Sub

このソースコードでは、A1からA10の範囲をA1を基準に昇順で並び替えています。

必要に応じて、範囲や基準セル、並び順を変更してください。

・複数範囲の並び替え

次に、複数範囲の並び替えの方法です。以下のソースコードをご覧ください。

Sub セルの並び替え()
With Range(“A1:B10”)
.Sort Key1:=.Columns(1), Order1:=xlAscending, Key2:=.Columns(2), Order2:=xlDescending
End With
End Sub


このソースコードでは、A1からB10の範囲を、A列を基準に昇順、B列を基準に降順で並び替えています。

必要に応じて、範囲や基準セル、並び順を変更してください。

⬛︎よくあるエラーと対処法

VBAのソートに関連するよくあるエラーのいくつかとその対処法を説明します。

1. “実行時エラー ‘1004’:ソートする範囲が正しくありません

このエラーは、ソート範囲が正しく指定されていない場合に発生することがあります。
ソートする範囲がデータが含まれているセル範囲でなければなりません。

対処法
 ソートするデータが正しく指定されていることを確認します。
 ソートする範囲が正しく指定されているか、データが含まれているセルを選択しているかを確認します。

2. “実行時エラー ‘438’:オブジェクトはこのプロパティまたはメソッドをサポートしていません

このエラーは、ソートを実行しようとするオブジェクトがソートメソッドをサポートしていない場合に発生することがあります。
たとえば、ソートしようとするオブジェクトがWorksheetオブジェクトではない場合にこのエラーが発生することがあります。

対処法
ソートメソッドを使用する前に、正しいオブジェクトを参照していることを確認してください。
ソート対象のデータが含まれているWorksheetオブジェクトを適切に指定していることを確認します。

3. “実行時エラー ’91’:オブジェクト変数または With ブロック変数が設定されていません

このエラーは、オブジェクト変数が設定されていない状態でソートを実行しようとした場合に発生することがあります。
ソートするデータを含むオブジェクトが正しく設定されていない可能性があります。

対処法
ソートを実行する前に、ソート対象のデータを含むオブジェクトを正しく設定していることを確認します。
必要に応じてオブジェクトを初期化し、適切に設定してからソートメソッドを呼び出します。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

【マクロVBA練習問題14】数値を昇順・降順に並び替える！Sortで並び替えを実行 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Range.Sort メソッド (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか？

以上がマクロVBAでのセルの並び替え（sort）についての紹介でした。

Sortメソッドを使用することで、Excelのデータを効率的に整理することができます。

セルの並び替えは、範囲や基準セル、並び順を適切に指定することで正確な結果を得ることができます。

ソースコードの見本を参考にしながら、自身のデータに応じた並び替えを行ってみてください。

それでは次回の記事でお会いしましょう。

 

]]> https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e3%80%91%e6%98%87%e9%a0%86%e3%83%bb%e9%99%8d%e9%a0%86%e3%81%ab%e4%b8%a6%e3%81%b3%e6%9b%bf%e3%81%88%e6%8c%87%e5%ae%9a%e7%af%84%e5%9b%b2%e3%82%92sort%e3%83%a1/feed/ 0 4431 【マクロVBA練習問題14】数値を昇順・降順に並び替える！Sortで並び替えを実行 https://dokugakuexcel.com/%e3%80%90%e3%83%9e%e3%82%af%e3%83%advba%e7%b7%b4%e7%bf%92%e5%95%8f%e9%a1%8c14%e3%80%91%e6%95%b0%e5%80%a4%e3%82%92%e6%98%87%e9%a0%86%e3%83%bb%e9%99%8d%e9%a0%86%e3%81%ab%e4%b8%a6%e3%81%b3%e6%9b%bf/?utm_source=rss&utm_medium=rss&utm_campaign=%25e3%2580%2590%25e3%2583%259e%25e3%2582%25af%25e3%2583%25advba%25e7%25b7%25b4%25e7%25bf%2592%25e5%2595%258f%25e9%25a1%258c14%25e3%2580%2591%25e6%2595%25b0%25e5%2580%25a4%25e3%2582%2592%25e6%2598%2587%25e9%25a0%2586%25e3%2583%25bb%25e9%2599%258d%25e9%25a0%2586%25e3%2581%25ab%25e4%25b8%25a6%25e3%2581%25b3%25e6%259b%25bf Mon, 03 Jul 2023 14:48:50 +0000 https://dokugakuexcel.com/?p=4378
  1. 練習問題と内容について
    1. ・練習問題の狙い
    2. ・練習問題14について
  2. 練習問題の内容と動作説明
    1. 問題内容
    2. 動作説明
  3. ヒント
    1. ・ヒントその1
    2. ・ヒントその2
    3. ・ヒントその3
  4. 解答コード
    1. ・回答その①
    2. ・回答その②
  5. 必要な知識
    1. ソートの方法
  6. まとめ

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題14について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルの数値を元に、数値を昇順に並び替える練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までの数値を昇順に並び替える

動作説明

VBAを使用して、セル番地A1からA10までの数値を昇順に並び替えます。

この問題では、セルA1からA10までの数値を取得し、その値を昇順に並び替えて元のセルに格納する必要があります。

ヒント


以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

数値の並び替えには、セル範囲の取得とソートが必要です。

セル範囲を取得するには、Rangeオブジェクトを使用します。
例えば、セルA1からA10までの範囲を取得するには、Range(“A1:A10“)というように範囲を指定します。

・ヒントその2

セル範囲を並び替え・ソートするためには、Sortメソッドを使用します。

Sortメソッドは、Rangeオブジェクトに対して呼び出すことができます。
例えば、Range(“A1:A10”).Sortというように呼び出します。

・ヒントその3

ソートする際の基準を指定する必要があります。

昇順に並び替える場合は、Sortメソッドの引数でOrder1パラメータにxlAscendingを指定します。
例えば、Range(“A1:A10”).Sort Order1:=xlAscendingというように指定します。

 

以上のヒントを参考に課題に取り組んでみてください！

 

最新・便利な機能を搭載したExcel・officeを試しませんか？
Excel 2013以下を使用している方はサポートが終了しているので注意が必要です！
【最新2023年】Excel・Officeの価格比較！あなたに合ったオススメの製品の選定方法から購入 ► 独学エクセル塾 (dokugakuexcel.com)
 

 

解答コード

では回答を見ていきましょう！

・回答その①

Sub Exercise14to1()
Range(“A1:A10”).Sort Key1:=Range(“A1”), Order1:=xlAscending
End Sub

 

上記のコードは、セル範囲A1からA10までの数値を昇順に並び替えるVBAのマクロです。

それでは実行してみましょう。
結果はこのようになります。

昇順に並び替えることができていますね。

Range(“A1:A10”)でセル範囲を指定し、.Sortメソッドを呼び出してソートを行っています。

Key1パラメータにはソートの基準となるセルを指定しており、ここではA1を指定しています。
Order1パラメータにはソートの順序を指定し、xlAscendingを指定することで昇順に並び替えています。

・回答その②

Sub Exercise14to2()
Dim rng As Range
Set rng = Range(“A1:A10”)
rng.Sort Key1:=rng , Order1:=xlAscending
End Sub

 

上記のコードでは、Rangeオブジェクトを変数として使用し、ソート操作を行っています。

まず、Setキーワードを使用して変数rng にセル範囲A1からA10を設定しています。
そして、rng .Sortメソッドを呼び出してセル範囲を昇順に並び替えています。
Key1パラメータにはソートの基準となるセル範囲自体を指定しています。

この回答例でも、セル範囲の取得やソートの方法が確認できます。どちらの回答例を選択しても問題を解くことができます。

 

 

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ソートの方法

セル範囲のソートには、Sortメソッドを使用します。

Sortメソッドは、Rangeオブジェクトに対して呼び出すことができます。
ソートの基準となるセル範囲やソートの順序を指定することができます。

【マクロVBA】昇順・降順に並び替え!指定範囲をSortメソッドで単一・複数範囲で並び替える ► 独学エクセル塾 (dokugakuexcel.com)

まとめ

この練習問題では、VBAを使用してセル範囲の数値を昇順に並び替える方法について学びました。

具体的には、セル番地A1からA10までの数値を昇順に並び替える問題を解きました。

この問題を解くためには、Rangeオブジェクトとそのメソッドを使ってセル範囲を取得し、Sortメソッドを使用して数値をソートしました。

VBAを使うことで、Excelの操作を自動化したり、複雑な処理を行ったりすることができます。
練習問題を通じて、VBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

 

以上で練習問題14となります。お疲れ様でした！

]]> 4378