すいません、VB４しかやってないんです、VBAはやったけど（ぼそ）　チラシの裏だって立派な書き込み空間なんだからねっ！資源の有効活用なんだからねっ！とか偉そうに言ってるけど、実は色々と書き残したいだけ だからなに？　どうしろと？　くるみサイズの脳みそしかないあやしいジャンガリアンベムスターがさすらう贖罪蹂躙（ゴシックペナルティ）

msg = ""
For Each PenPen In From Pen In Penguins Group Penguins By Key = Pen.Item("Nestle") Into Count()
  msg += PenPen.Key & ":" & PenPen.Count & Chr(13)
Next
MsgBox(msg, , "営巣場所ごとのペンギン種類数")

msg = ""
For Each PenPen In From Pen In Penguins Group Penguins By Key = Pen.Item("Nestle") Into Count() _
                   Where Key = "岩場"
  msg += PenPen.Key & ":" & PenPen.Count & Chr(13)
Next
MsgBox(msg, , "岩場に営巣するペンギン種類数")

msg = ""
For Each PenPen In From Pen In Penguins Group Penguins By Key = Pen.Item("Nestle") Into Count() _
                   Where Count = 1
  msg += PenPen.Key & ":" & PenPen.Count & Chr(13)
Next
MsgBox(msg, , "営巣するペンギンが一種類")

コメント