<入門の2単元目_備忘録>
Sub 成績を求める() 'マクロの題名(必須)
Dim i As Long 'iをデータ型の変数宣言(必須) For i = 4 To Cells(Rows.Count,"A").End(xlUp).Row '1000行でもループする If Cells(i, "B") >= 80 Then 'Thenは(必須)
Cells(i, "C") = "優" '列は " "でくくる
ElseIf Cells(i, "B") >= 70 Then
Cells(i, "C") = "可"
Else
Cells(i, "C") = "不可" End If'IFと対 Next i'Forと対
End Sub
9/8㈰事業者変更実施日(光フレッツ→光 for ドコモ)のあと、すでに到着しているWi Fiの機器をOCNの係員が出張してくる由(無償)。次の日、9日は深夜に台風15号が千葉直撃、停電になってこの件延期。それどころではない、70万戸とも云われている大停電になり、我が家も2日の停電、30度の真っ暗な熱帯夜を過ごすことになった。
11日早朝7時過ぎに停電解除。12日㈭ocn伊東さん来訪、Wi-Fiルーター設置(図)。バッファローの無線LAN異状接続も機器(レンタル)切り替えにより治りました。