| |
いつも大変お世話になっております。
質問箱を拝見し非常に参考になっております。
早速ですが、下記に内容について先輩諸氏のご指導をいただきたくて投稿いたしました。
エクセル2007でワークシート上(シート名は１０ｍ)に『並べ替え』コマンドボタンでユーザーフォームを出し、ユーザーフォームの「成績順」「氏名順」コマンドボタンでソート出来るようにいたしました。１０ｍのシートをコピーし８ｍ、６ｍのワークシートを作り同様にソートしようといたしましたが、ソートしないため８ｍ、６ｍのＶＢＡコードのシート名を確認したところ１０ｍとなっておりました。（シートコピーが原因か？）８ｍのＶＢＡコードのシート名を８ｍに変更すると、今度は１０ｍのワークシートがソート出来ずＶＢＡコードを見たら８ｍに変わっておりました。どなたかリンク変わらない方法をご教授願います。ご多忙中のところと存じますが宜しくお願いいたします。
Macro1 Macro
'
Range("C2").Select
ActiveWorkbook.Worksheets("10ｍ").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("10ｍ").Sort.SortFields.Add Key:=Range("C2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("10ｍ").Sort
.SetRange Range("B3:C12")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub Macro2()
'
' Macro2 Macro
'
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 14/2/12(水) 17:55 -
