|
▼Yuki さん:
該当するシート名に変えて実行する事ができました。
基本的なところを理解しておらず、すみませんでした。
もう一つお聞きしたいのですが、以下の様な元データがあったとして、点数Cから点数Gまでを手入力していき、最後のGに数値データが入力されたら、自動的に実行されて処理後の形になるコードにしたいのですが、以下にあるコードをどの様に変えたらよいかご教授願えますか。
宜しくお願いいたします。
(元データ)
A B C D E F G
No 氏名 点数 点数 点数 点数 点数
1 A 7.4 7.5 7.0 7.2 7.9
(処理後)
I J K L M N O P
No A 最高点 中間点1 中間点2 中間点3 最小点 合計
1 A 7.9 7.5 7.4 7.2 7.0 22.1
Sub Macro1()
With Range("I1:P2").Borders
.Weight = xlThin
.ColorIndex = 1
End With
Range("I1") = "No"
Range("J1") = "氏名"
Range("K1") = "最高点"
Range("L1") = "中間点1"
Range("M1") = "中間点2"
Range("N1") = "中間点3"
Range("O1") = "最小点"
Range("P1") = "合計点"
Range("A2:G2").Copy Range("I2:O2")
Range("K2:O2").Sort _
Key1:=Range("K2:O2"), Order1:=xlDescending, Orientation:=xlSortRows
Range("K1:K2").Interior.ColorIndex = 8
Range("O1:O2").Interior.ColorIndex = 6
Range("P2").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-2])"
End Sub
|
|