VBA 初心者練習用です
| 順位 | 名前 | スコア | 称号 | 打鍵/秒 | 正誤率 | 時間(秒) | 打鍵数 | ミス | 問題 | 日付 |
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | ku | 4988 | B | 5.0 | 99.0% | 270.6 | 1363 | 13 | 50 | 2024/12/01 |
| 2 | なな | 1346 | G+ | 1.4 | 92.3% | 908.0 | 1334 | 111 | 50 | 2024/12/02 |
問題文
(ｃｏｌｕｍｎｓ（”ａ：ｂ”）)
columns("A:B")
(ｒａｎｇｅ（”ｄ２”）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｓｅｌｅｃｔ)
Range("D2").CurrentRegion.Select
(ｒａｎｇｅ（”ｄ２”）．ｃｕｔ ｒａｎｇｅ（”ａ１０”）)
Range("D2").Cut Range("A10")
(ａｐｐｌｉｃａｔｉｏｎ．ｃｕｔｃｏｐｙｍｏｄｅ ＝ ｆａｌｓｅ)
Application.CutCopyMode = false
(ｒａｎｇｅ（”ａ１０：ｂ１２，ｄ１０：ｅ１２”）．ｃｌｅａｒ)
Range("A10:B12,D10:E12").Clear
(ｍｓｇｂｏｘ ｒａｎｇｅ（”ａ２：ａ１０”）．ｒｏｗｓ．ｃｏｕｎｔ)
MsgBox Range("A2:A10").Rows.count
(ｒａｎｇｅ（）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｃｏｐｙ ｒａｎｇｅ（）)
Range().CurrentRegion.Copy Range()
(ａｃｔｉｖｅｓｈｅｅｔ．ｐａｓｔｅ ｒａｎｇｅ（”ｄ２，ａ７，ｄ７”）)
ActiveSheet.Paste Range("D2,A7,D7")
(．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｒｏｗｓ．ｃｏｕｎｔ)
.CurrentRegion.Rows.Count
(．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｃｏｌｕｍｎｓ．ｃｏｕｎｔ)
.CurrentRegion.Columns.Count
(ｃｏｌｕｍｎｓ（”ａ，ｂ”）)
columns("A,B")
(ｃｏｌｕｍｎｓ（”ｄ：ｅ”）．ｈｉｄｄｅｎ ＝ ｔｒｕｅ)
Columns("D:E").Hidden = True
(ｃｏｌｕｍｎｓ（”ｄ：ｅ”）．ｈｉｄｄｅｎ ＝ ｆａｌｓｅ)
Columns("D:E").Hidden = False
(ｃｏｌｕｍｎｓ（”ｄ：ｅ”）．ｄｅｌｅｔｅ)
Columns("D:E").Delete
(ｒｏｗｓ（”６：８”）．ｄｅｌｅｔｅ)
Rows("6:8").Delete
(ｃｏｌｕｍｎｓ（””）．ｉｎｓｅｒｔ ｘｌｓｈｉｆｔｔｏｒｉｇｈｔ)
Columns("").Insert xlShiftToRight
(ｒｏｗｓ（””）．ｉｎｓｅｒｔ ｘｌｓｈｉｆｔｄｏｗｎ)
rows("").Insert xlShiftDown
(ｓｅｌｅｃｔｉｏｎ．ｅｎｔｉｒｅｒｏｗ．ｓｅｌｅｃｔ)
Selection.EntireRow.Select
(ｓｅｌｅｃｔｉｏｎ．ｅｎｔｉｒｅｃｏｌｕｍｎ．ｓｅｌｅｃｔ)
Selection.EntireColumn.Select