FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2018/12«│ 2019/01| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/02
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
23:42:37
無題

職歴の並び替えを考えていたら、出来ました。
①会社②氏名③I列(数字の羅列)で並べ替えると簡単にできました。

きちんとしておくと出来ますね。


Sub 職歴の並び替え()
ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Clear
With ActiveWorkbook.Worksheets("職歴").UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With


ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Add Key:=Range(ActiveWorkbook.Worksheets("資格証").Range("A2"), ActiveWorkbook.Worksheets("資格証").Cells(MaxRow, 1)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Add Key:=Range(ActiveWorkbook.Worksheets("資格証").Range("B2"), ActiveWorkbook.Worksheets("資格証").Cells(MaxRow, 2)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("職歴").Sort.SortFields.Add Key:=Range(ActiveWorkbook.Worksheets("資格証").Range("I2"), ActiveWorkbook.Worksheets("資格証").Cells(MaxRow, 9)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("職歴").Sort
.SetRange Range(Range("A1"), Cells(MaxRow, MaxCol))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

これで配列大量に作らなくても大丈夫になりました。。。




最近またREBORN!見てます。
やっぱり山本武が好き。。。

img_1.jpg

コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/477-0348ab43
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト