エクセルマクロ作成方法

シート１からシート１３まで、シート１を基準に作成した表を、シート１で表の並べ替え（５行から８６行）のマクロを作成し、実行（ボタン）を行う。その際、シート２～シート１３も同時に表の並べ替え（５行から８６行）が行われるマクロ文（基本的な文や例題などあれば・・・）を教えて頂けないでしょうか。

質問者からの補足コメント

• 早速ご回答ありがとうございます。シート２以降の並替えがうまくいきませんでした。私の説明不足です。再度アドバイスを頂ければ幸いです。
  １）シート１にＥからＪ列で番号、名称、分類、工法①、工法②、内容を文で記入しＫ列以降で数値を入力。項目は４行目で並替えは５行から８６行目です。並替えの項目の基準はＧ列の場合とＨ列の場合とＪ列の場合です。Ａ列にＧ列項目名をＢ列にＨ列項目名をＣ列にＪ列項目名を各々数値番号で入力し、Ａ列Ｂ列Ｃ列の各々に実行ボタンを設けています。Ｄ列は並替えが完了して物件数が常に１から順になるようにABC各々のマクロでＫＥＹ２で並替えするようにしています。
  ２）シート２以降は工法②の分は考慮せず、ＡからＩ列までは、シート１と同じとしシート１が並替えとなると通常のエクセル式”＝シート１名Ｅ５”で変更してます。シート２以降で並替えしたいのは、Ｊ列以降の５行から８６行目となります。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/10/18 10:21

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/10/17 16:47

こんにちは！

＞実行（ボタン）を行う
シート1にコマンドボタンを配置しているとします。

＞表の並べ替え（５行から８６行）
とありますので、
5行目は項目行で5行目項目はA列から最終列まで入っているという前提です。

まず↓のコードを標準モジュールにしてください。

Sub Sample1()
Dim k As Long, lastCol As Long, myRng As Range
For k = 1 To Worksheets.Count
With Worksheets(k)
lastCol = .Cells(5, Columns.Count).End(xlToLeft).Column
Set myRng = Range(.Cells(5, "A"), .Cells(86, lastCol))
myRng.Sort key1:=.Range("A5"), order1:=xlAscending, Header:=xlYes
End With
Next k
MsgBox "完了"
End Sub

次にコマンドボタンのコードを

Private Sub CommandButton1_Click()
Call Sample1
End Sub

としてみてください。

※　全シートが対象ですので、
シート数が14以上ある場合は
＞For k = 1 To Worksheets.Count
を
＞For k = 1 To 13
にしてください。m(_ _)m

この回答へのお礼

ありがとうございました。
本文を参考に解決しました。

お礼日時：2017/10/20 15:46