Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


24956 / 76732 ←次へ | 前へ→

【57121】Re:数値データの加算方法について教えてください。
質問  さぶちゃん  - 08/7/26(土) 0:02 -

引用なし
パスワード
   ▼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

1 hits

【57070】数値データの加算方法について教えてください。 さぶちゃん 08/7/22(火) 2:11 質問
【57072】Re:数値データの加算方法について教えてく... ハチ 08/7/22(火) 9:13 発言
【57081】Re:数値データの加算方法について教えてく... さぶちゃん 08/7/23(水) 1:18 質問
【57083】Re:数値データの加算方法について教えてく... ハチ 08/7/23(水) 9:20 発言
【57097】Re:数値データの加算方法について教えてく... さぶちゃん 08/7/24(木) 1:12 回答
【57099】Re:数値データの加算方法について教えてく... ハチ 08/7/24(木) 11:40 発言
【57111】Re:数値データの加算方法について教えてく... さぶちゃん 08/7/25(金) 0:15 回答
【57073】Re:数値データの加算方法について教えてく... ponpon 08/7/22(火) 9:24 発言
【57082】Re:数値データの加算方法について教えてく... さぶちゃん 08/7/23(水) 1:19 質問
【57084】Re:数値データの加算方法について教えてく... ponpon 08/7/23(水) 9:43 発言
【57098】Re:数値データの加算方法について教えてく... さぶちゃん 08/7/24(木) 1:23 回答
【57106】Re:数値データの加算方法について教えてく... Yuki 08/7/24(木) 17:15 発言
【57109】Re:数値データの加算方法について教えてく... さぶちゃん 08/7/24(木) 21:30 回答
【57112】Re:数値データの加算方法について教えてく... Yuki 08/7/25(金) 7:20 発言
【57121】Re:数値データの加算方法について教えてく... さぶちゃん 08/7/26(土) 0:02 質問
【57122】Re:数値データの加算方法について教えてく... Yuki 08/7/26(土) 8:05 発言
【57117】Re:数値データの加算方法について教えてく... ponpon 08/7/25(金) 13:17 発言

24956 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free