■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#22186-0計算の仕方たま2001-08-05(日) 02:27
     #22187-0RE#22186:計算の仕方Poo2001-08-05(日) 11:23
     #22188-0RE#22186:計算の仕方よねKEN2001-08-05(日) 11:25
#22186-0
計算の仕方
すいませんが、また質問できてしまいました。
今、リストボックスに a1,a2,a3,a4
           a1,a2,a3,a4
           a1,a2,a3,a4
っとデータが並んでいるのですが、この各行のa4の値だけを上から下まで
足し算する方法はないでしょうか?
教えてください。
#22187-0
RE#22186:計算の仕方
リストボックスの値を1列ずつとり、VB6ならSplit関数で","で分割。
4番目の項目を足していく。

Dim i As Integer
Dim sum As Integer
Dim col() As Valiant
For i = 0 To List1.ListCount - 1
    col = Split(List1.List(i), ",")
    sum = sum + col(3)
Next i
MsgBox sum
#22188-0
RE#22186:計算の仕方
> すいませんが、また質問できてしまいました。
> 今、リストボックスに a1,a2,a3,a4
>            a1,a2,a3,a4
>            a1,a2,a3,a4
> っとデータが並んでいるのですが、この各行のa4の値だけを上から下まで
> 足し算する方法はないでしょうか?

ループで各行のデータをSplit関数で分割し、4つ目のデータのみを順に足していきましょう。
このページと関連する記事:
#22247-0計算2001-08-07(火) 17:54
#22299-0まゆきさんへ2001-08-08(水) 16:05
#22365-0データ2001-08-10(金) 17:48
#390-1フィールド値を足すには?2004-03-04(木) 11:40
#36351-0文字カウント&出力2001-01-04(木) 19:10
#2535-3リストボックスについて2002-08-27(火) 04:20
#16357-0「Open [ファイル名] For Input As #1 」で開いたファイルのテーブル列数の認識 2000-11-17(金) 12:35
#24798-0変数の内容をリストボックスに表示したい2001-11-22(木) 16:48
#7547-0時間の足し算について2000-04-20(木) 16:01
#1480-0改行コードの入ったテキストを改行を区切りにリストボックスに表示したい2004-03-27(土) 15:08
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)