|
スイートポテト さん:
おはようございます。
Sub sample_proc()
Const 水色 As Long = 8
Const 明るい緑 As Long = 4
Dim idx As Long
With Range("e1")
For idx = 0 To 4
.Offset(idx, idx).Value = idx
.Offset(idx, -idx).Value = idx
If idx Mod 2 = 0 Then
.Offset(idx, idx).Interior.ColorIndex = 水色
.Offset(idx, -idx).Interior.ColorIndex = 水色
Else
.Offset(idx, idx).Interior.ColorIndex = 明るい緑
.Offset(idx, -idx).Interior.ColorIndex = 明るい緑
End If
Next
End With
End Sub
>学校の課題で・・・・
私がスイートポテト さんにお尋ねしたいのは
このような課題を出題する学校って、
高校生? 専門学校生? それとも大学生?
答えられるのなら、教えてください。
|
|