Excel VBA質問箱 IV

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

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


23295 / 76738 ←次へ | 前へ→

【58812】Re:色つきセルの数を数えたい
発言  マクロマン  - 08/11/11(火) 16:55 -

引用なし
パスワード
   選択セル範囲の色番号と各色番号のセルの数を取得しメッセージボックス
に表示します。

配列は一見複雑ですが、慣れれば難しくはないし便利です。

Sub iroitiran()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim c As Range
Dim r As Range
Dim iroary() As Variant
Dim myindx As String
Dim bl As Boolean
Dim msgstr As String
 Set r = Selection
 i = -1
 For Each c In r
  myindx = c.Interior.ColorIndex
  If myindx = xlNone Then myindx = "-"
  If i = -1 Then
   i = 0
   ReDim Preserve iroary(1, 0 To i)
   iroary(0, i) = myindx
   iroary(1, i) = 1
  Else
   bl = False
   For j = 0 To i
    If iroary(0, j) = myindx Then
     iroary(1, j) = iroary(1, j) + 1
     bl = True
     Exit For
    End If
   Next j
    If bl = False Then
     i = i + 1
     ReDim Preserve iroary(1, 0 To i)
     iroary(0, i) = myindx
     iroary(1, i) = 1
    End If
  End If
 Next c
 For k = 0 To i
  If msgstr <> "" Then msgstr = msgstr & vbCrLf
  msgstr = msgstr & iroary(0, k) & ":" & iroary(1, k)
 Next k
 MsgBox msgstr
 Erase iroary
End Sub

0 hits

【58806】色つきセルの数を数えたい okuyotim 08/11/11(火) 15:52 質問
【58807】Re:色つきセルの数を数えたい マクロマン 08/11/11(火) 15:57 発言
【58808】Re:色つきセルの数を数えたい マクロマン 08/11/11(火) 16:00 発言
【58809】Re:色つきセルの数を数えたい okuyotim 08/11/11(火) 16:21 質問
【58810】Re:色つきセルの数を数えたい マクロマン 08/11/11(火) 16:27 発言
【58811】Re:色つきセルの数を数えたい okuyotim 08/11/11(火) 16:45 質問
【58812】Re:色つきセルの数を数えたい マクロマン 08/11/11(火) 16:55 発言

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