Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68069 / 76734

←次へ　｜　前へ→


	【13209】Re:合計の算出法について

Hirofumi

- 04/4/27(火) 19:38 -


	引用なし

	パスワード

>以下の部分（２つです）について、その内容の意図と言いますか、
>意味を教えていただ　けますでしょうか？

　　　　'もし、先頭行B列が""なら
　　　　If .Cells(lngListTop, "B").Value = "" Then
　　　　　　'先頭行を取得
　　　　　　lngListTop = .Cells(lngListTop, "B").End(xlDown).Row
　　　　End If

これは、
>日付がB列に表示され､これもエクセルの表を取得する日によって表示されるセルの場所は異なります｡
との事なので、Listの先頭、要は最初にに日付が出てくる行位置を探しています
ただし、日付かどうかは判断していませんB列のセルが""かどうかで判断しています

　　　　　　'もし、B列が""でD列が""なら（日付の終り）
　　　　　　If vntData(1, 1) = "" And vntData(1, 3) = "" Then
　　　　　　　　'小計を出力
　　　　　　　　.Cells(i, "C").Resize(, 2).Value = vntSubSum
　　　　　　　　'小計を計に加算
　　　　　　　　For j = 0 To 1
　　　　　　　　　　vntSum(j) = vntSum(j) + vntSubSum(j)
　　　　　　　　Next j

の意味は、セルを直接参照すると遅く成るので、
このコードでは一度セルの値を１行づつ配列に読みこんでいます
其の時、vntData(1, 1)がB列の値で、vntData(1, 3)がD列の値と成ります
同一行で、B列が""で、D列が""の位置は、1日付のデータの終りを表しています
よって、そこが出てきたら、小計を出力しています

1 hits

▼

【13168】合計の算出法について ハルコ 04/4/25(日) 17:07