千葉港

このエントリーをはてなブックマークに追加
1まちこさん
Sub Macro31()

Dim a As Integer, b As Integer, c As Integer, s As Integer, rowpos As Integer, sum As Integer, z As Integer, n As String
Dim name As String, d As String, title As String



title = "バド部の人数"
rowpos = 3
sum = 0
Do
name = Cells(rowpos, 2)
a = Cells(rowpos, 4).Value
b = Cells(rowpos, 7).Value
c = Cells(rowpos, 10).Value
s = a + b
If name = "" Then rowpos = rowpos + 1
name = Cells(rowpos, 2)
a = Cells(rowpos, 4).Value
b = Cells(rowpos, 7).Value
c = Cells(rowpos, 10).Value
s = a + b

If s < c Then
d = name
Debug.Print d
z = 1
sum = sum + z


End If
rowpos = rowpos + 1
Loop While name <> ""


If sum = 0 Then
Debug.Print "該当校なし"
Else
n = CStr(sum)
Debug.Print "合計" + n + "校"
End If
End Sub
2まちこさん:2008/06/05(木) 11:49:13 ID:RbRtCrTk [ fw.chiba-c.ed.jp ]
間違えました 削除お願いします
3まちこさん:2008/06/05(木) 17:14:05 ID:inAc1DQE [ 58x81x137x194.ap58.ftth.ucom.ne.jp ]
★関東の港について語ろう★
http://kanto.machi.to/bbs/read.cgi/kanto/1204317463
4まちこさん:2008/06/05(木) 22:53:35 ID:wgP00/VM [ 116-64-206-108.rev.home.ne.jp ]
↓???

【千葉みなと】の駅前に何ができるの?? その2
http://kanto.machi.to/bbs/read.pl?BBS=kanto&KEY=1193614263