Excel VBA質問箱 IV

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

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


24960 / 76737 ←次へ | 前へ→

【57122】Re:数値データの加算方法について教えてください。
発言  Yuki  - 08/7/26(土) 8:05 -

引用なし
パスワード
   ▼さぶちゃん さん:
>▼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

1行目のタイトルと書式設定はしてありません。
該当のシートモジュールに

Private Sub Worksheet_Change(ByVal target As Range)
  If Not Intersect(target, Columns(7).Resize(Rows.Count - 1).Offset(1)) Is Nothing Then
    If target.Count = 1 Then Call DataSet(target.Row)
  End If
  
End Sub

Private Sub DataSet(lR As Long)
  Cells(lR, 1).Resize(, 7).Copy Cells(lR, 9)
  
  Range(Cells(lR, 11), Cells(lR, 15)).Sort _
            Key1:=Range("K" & lR), Order1:=xlDescending, _
            Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlLeftToRight, SortMethod:=xlPinYin
  Cells(lR, 16).Value = Application.Sum(Range(Cells(lR, 12), Cells(lR, 14)))
End Sub

0 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 発言

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