【Day53】文系オタクのエンジニア道～問題演習⑦～

こんにちは
安田です

今日はなにか冒頭に
ネタをもってこようと思いましたが
特に何も思いつかず・・・

粛々と勉強していきます

セルA1～A5に「VBAベーシック」と入力したい。このとき、【　1　】【　2　】に入る適切な内容を答えなさい。

Sub Test1()
Dim i As Long
【　1　】 i = 1 To 5
　Cells(i, 1) = "VBAベーシック"
【　2　】 i
End Sub

https://vba-workbook.com/excel-vba-basic/6001-2

For～Nextステートメント

For 変数名 ＝ 初期値 To 終了値
　処理
Next 変数名
カウンタ変数と呼ぶ

「Next 変数名」
は変数名を省略することも可能です

---

Sub Test1()
Dim i As Long, A As Long, B As Long
 A = 100
 B = Cells(Rows.Count, 1).【　1　】.【　2　】
 For i = 2 To B
　Cells(i, 3) = A
 Next i
End Sub

https://vba-workbook.com/excel-vba-basic/6002-2

【1】End(xlUp) 【2】 Row

「Rows.Count」は、最大行数を取得する

「Rowプロパティ」は、行番号を取得するプロパティ

↓

A列の一番下のセルで「Ctrl」+「↑」を押した場合と同じく
この問題は「A6」を指定し
「Cells(Rows.Count, 1).End(xlUp).Row」
そして「A6」の「6」を取得する

---

正答率　75％
8問中6問正解

勉強後に
YouTubeで
東京エンカウントを見ることにハマっています

中村悠一さん、杉田智和さんの
掛け合いが最高すぎます

参考文献

「VBAマスターに俺はなる」

最後まで読んでいただき
ありがとうございます
安田

マガジンにまとめてありますので
よかったらそちらも御覧ください

VBA学習｜安田亙(Wataru Yasuda)アニメ愛と人間力で未来を創造するエンジニア｜note