advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 1231 for カレンダー (0.001 sec.)
[[20130920103226]]
#score: 6184
@digest: d119441726b388b5511374156aa78ca2
@id: 63473
@mdate: 2013-09-20T03:42:20Z
@size: 1839
@type: text/plain
#keywords: ー") (12487), ak1000 (7107), aj1000 (6955), ド※ (6633), ロ単 (6272), カレ (5443), xlpastevaluesandnumberformats (5138), dataoption (4285), xlsortonvalues (3962), sortfields (3808), レン (3381), 様一 (3276), commandbutton6 (3071), 録マ (3011), ンダ (2984), xlsortnormal (2970), ダー (2766), sorton (2625), xlascending (1789), activeworkbook (1787), worksheets (1336), order (1238), xlguess (1175), 単体 (1158), setrange (1120), xlpinyin (915), sort (871), sortmethod (871), xltoptobottom (857), ー10 (771), pastespecial (768), 行削 (696)
『並び替えの方法について』(あん)
Win7 Excel2013 下記のコード※1に、記録マクロでつくった※2をつけたのですが、実行時エラー1004 RangeクラスのSelectメソッドに失敗しましたとなります 色々試してみましたが無理でした。 記録マクロ単体ですと動作します。 皆様、よろしくお願いいたします。 Private Sub CommandButton6_Click() ※1 Worksheets("カレンダー").Range("A2:N1000").Copy Worksheets("カレンダー").Range("W2:AJ1000").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Worksheets("カレンダー").Range("A1002:N2001").Copy Sheets("カレンダー").Cells(Rows.Count, "W").End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats Application.CutCopyMode = False ※2 ActiveWorkbook.Worksheets("カレンダー").Sort.SortFields.Clear Worksheets("カレンダー").Range("W2:AK1000").Select ActiveWorkbook.Worksheets("カレンダー").Sort.SortFields.Add Key:=Range( _ "AD2:AD1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("カレンダー").Sort.SortFields.Add Key:=Range( _ "AI2:AI1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("カレンダー").Sort.SortFields.Add Key:=Range( _ "AG2:AG1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("カレンダー").Sort .SetRange Range("W2:AJ1000") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ---- ボタンが カレンダーシートにないのだと思いますが、Select できるのは アクティブシートに対するセルだけですので、選択の必要がないのであれば Worksheets("カレンダー").Range("W2:AK1000").Select は削除してはどうでしょうか。 (Mook) ---- MooK様 一行削除したら、うまく動きました また、Selectについても理解できました。 ありがとうございます(あん) ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201309/20130920103226.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 96869 documents and 608041 words.

訪問者:カウンタValid HTML 4.01 Transitional