Excel VBA質問箱 IV

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

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


14775 / 76734 ←次へ | 前へ→

【67447】Re:SUMPRODUCT関数の活用について
回答  SK63  - 10/12/5(日) 8:10 -

引用なし
パスワード
   他にも方法はありますが、、、、
理解しやすそうに困難でいかがですか。
私もエクセルsumproductがあるとは、、、、、

dO~lOOPでまわしてありますが、"受注合計"が変更されると
無限ループになりますので、do unTIL Cells(1, c) = "" 
のほうが安全ですね。多分列の終わりのに"=SUM(~)"で横計も
出したいはずですね。

Sub t()

Dim c As Integer, r As Integer
Dim ads As String, ade As String
r = Cells(65536, 1).End(xlUp).Row
c = 3

Do

If Cells(1, c) = "受注合計" Then
  Exit Do
Else
ade = ActiveSheet.Cells(r, c).Address
ads = ActiveSheet.Cells(4, c).Address
Cells(r + 1, c) = "=SUMPRODUCT(VALUE($B4:$B" & r & _
       "),VALUE(" & ads & ":" & ade & "))"
 c = c + 1
End If

Loop

End Sub
1 hits

【67431】SUMPRODUCT関数の活用について Yaesu 10/12/2(木) 21:58 質問
【67432】Re:SUMPRODUCT関数の活用について SK63 10/12/2(木) 22:28 発言
【67433】Re:SUMPRODUCT関数の活用について SK63 10/12/2(木) 22:46 発言
【67445】Re:SUMPRODUCT関数の活用について Yaesu 10/12/4(土) 12:15 質問
【67447】Re:SUMPRODUCT関数の活用について SK63 10/12/5(日) 8:10 回答
【67461】Re:SUMPRODUCT関数の活用について Yaesu 10/12/6(月) 21:50 質問
【67463】Re:SUMPRODUCT関数の活用について Yaesu 10/12/6(月) 22:25 質問
【67480】Re:SUMPRODUCT関数の活用について SK63 10/12/8(水) 18:28 回答
【67530】Re:SUMPRODUCT関数の活用について Yaesu 10/12/10(金) 23:03 質問
【67531】Re:SUMPRODUCT関数の活用について SK63 10/12/11(土) 1:10 発言
【67532】Re:SUMPRODUCT関数の活用について SK63 10/12/11(土) 1:47 発言
【67639】Re:SUMPRODUCT関数の活用について Yaesu 10/12/20(月) 19:16 お礼

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