●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

320:>314
07/07/07 14:28:49
Sub CHEATFROM2CH()

For c = 2 To 5
val1 = 0
val2 = ""
For r = 2 To 5

If Cells(r, c) > val1 Then
val1 = Cells(r, c)
val2 = Cells(r, 1)
ElseIf Cells(r, c) = val1 Then
val1 = val1
val2 = val2 & "と" & Cells(r, 1)
ElseIf Cells(r, c) < val1 Then
val1 = val1
val2 = val2
End If

Next r
Cells(12, c) = val1 & "円の" & val2
Next c

End Sub

もっと削れるけど、このままの方がわかり易くていいだろ…

次ページ

続きを表示

1を表示