VBプログラマ質問スレ（6.0以前） Part52 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
100:デフォルトの名無しさん 07/06/05 09:38:09 リストの選択要素の合計を求めるのだったらこんな感じかな？ 横槍だけど。 Private Sub Command2_Click() Dim a As Integer　 Dim b() As Integer　'配列 Dim c As Integer　　'要素数 Dim sum As Integer　 For a = 0 To List1.ListCount - 1 　If List1.Selected(a) = True Then 　ReDim Preserve b(c) 　b(c) = List1.List(a) 　c = c + 1 　End If Next sum = SumCalc(b)　’配列を渡して要素数の合計を返す End Sub Private Function SumCalc(ByRef b() As Integer) As Integer Dim f As Integer Dim sum As Integer For f = 0 To UBound(b) 　sum = sum + b(f) Next SumCalc = sum End Function 101:デフォルトの名無しさん 07/06/05 09:55:08 グリッドについての質問です。 グリッドのセルをクリックした時にその行がすべて選択状態（色が変わる状態）に するにはどうしたらよいでしょうか？ 102:デフォルトの名無しさん 07/06/05 10:27:33 グリッドにも色々種類がある訳だが。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5001日前に更新/85 KB
担当:undef