vba_code
| 順位 | 名前 | スコア | 称号 | 打鍵/秒 | 正誤率 | 時間(秒) | 打鍵数 | ミス | 問題 | 日付 |
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | ku | 5217 | B+ | 5.2 | 99.5% | 87.2 | 457 | 2 | 30 | 2025/03/02 |
問題文
(’＊）)
'*)
(ｗｏｒｋｓｈｅｅｔｓ（””）)
worksheets("")
(ｌｉｓｔｏｂｊｅｃｔｓ（１）)
listobjects(1)
(’＊１）)
'*1)
(ｔａｋａｔｓｕｋａｐｌａｎ＠ｇｍａｉｌ．ｃｏｍ)
takatsukaplan@gmail.com
(たかつか)
高塚
(ｗｏｒｋｓｈｅｅｔｆｕｎｃｔｉｏｎ)
worksheetfunction
(ｄｅｂｕｇ．ｐｒｉｎｔ)
debug.print
(ｄｉｍ ｃ ａｓ ｃｌａｓｓ：ｓｅｔ ｃ ＝ ｎｅｗ ｃｌａｓｓ)
dim c as class:set c = new class
(ｃｏｌｕｍｎｓ)
columns
(ｒｏｗｈｅｉｇｈｔ)
rowheight
(ｏｎ ｅｒｒｏｒ ｒｅｓｕｍｅ ｎｅｘｔ)
On Error Resume Next
(ｏｎ ｅｒｒｏｒ ｇｏｔｏ ０)
On Error GoTo 0
(ｉｆ ｅｒｒ．ｎｕｍｂｅｒ ＜＞ ０ ｔｈｅｎ)
If Err.Number <> 0 Then
(ｍｓｇｂｏｘ ｅｒｒ．ｄｅｓｃｒｉｐｔｉｏｎ)
MsgBox Err.Description
(ｅｒｒ．ｃｌｅａｒ)
Err.Clear
(ｄｅｂｕｇ．ａｓｓｅｒｔ)
debug.assert
(ｗｏｒｋｓｈｅｅｔｆｕｎｃｔｉｏｎ．ｔｒａｎｓｐｏｓｅ（ａｒｒ）)
WorksheetFunction.Transpose(arr)
(ｄａｔａｂｏｄｙｒａｎｇｅ)
DataBodyRange
(ｌｉｓｔｃｏｌｕｍｎｓ（ｃ）)
ListColumns(c)
(ｄｉｍ ｒｃ ａｓ ｖｂｍｓｇｂｏｘｒｅｓｕｌｔ)
Dim rc As VbMsgBoxResult
(ｖｂｍｏｄｅｌｅｓｓ)
vbModeless
(ａｃｔｉｖｅｓｈｅｅｔ)
ActiveSheet
(ａｐｐｌｉｃａｔｉｏｎ．ｄｉｓｐｌａｙａｌｅｒｔｓ)
Application.DisplayAlerts