VBA
| 順位 | 名前 | スコア | 称号 | 打鍵/秒 | 正誤率 | 時間(秒) | 打鍵数 | ミス | 問題 | 日付 |
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | ku | 5355 | B++ | 5.3 | 99.3% | 90.0 | 485 | 3 | 18 | 2025/01/19 |
| 2 | ku | 5166 | B+ | 5.2 | 98.7% | 90.0 | 471 | 6 | 17 | 2025/03/27 |
| 3 | 名も無きタイパー | 4666 | C++ | 4.7 | 97.9% | 90.0 | 429 | 9 | 16 | 2025/03/30 |
| 4 | あいかわようた | 4511 | C++ | 4.6 | 97.6% | 90.0 | 416 | 10 | 14 | 2025/03/19 |
| 5 | ぱぴぷ | 2311 | F++ | 2.4 | 93.3% | 90.0 | 224 | 16 | 9 | 2025/04/15 |
関連タイピング
-
タイピングをマスターしたい方向けの問題です。
プレイ回数4万302打 -
タイピングをマスターしたい方向けの問題です。
プレイ回数1万長文記号276打 -
タッチタイピングを本当にマスターしたい方向けの問題です。
プレイ回数9913英字344打 -
タイピングをマスターしたい方向けの問題です。
プレイ回数9940英字232打 -
タッチタイピングをマスターしたい方向けの問題です。
プレイ回数6819長文251打 -
タッチタイピングをマスターしたい方向けの問題です。
プレイ回数8530英字342打 -
【苦手克服】符号タイピング練習(5問)
プレイ回数462英語165打 -
全文字タイピング練習(108文字×100問,2分間ランダム)
プレイ回数2863英語長文120秒
問題文
(dim fpath as variant)
dim fpath as variant
(numwide=strconv(i,vbwide))
numwide=strconv(i,vbwide)
(msgbox format(a,"yyyy/mm"))
msgbox format(a,"yyyy/mm")
(set wb=activeworkbook)
set wb=activeworkbook
(for i=1 to sheets.count)
for i=1 to sheets.count
(cells(rows.count,"a").end(xlup).row)
cells(rows.count,"a").end(xlup).row
(for each ws in wb.worksheets)
for each ws in wb.worksheets
(rows("1:1").wraptext=true)
rows("1:1").wraptext=true
(activewindow.freezepanes=true)
activewindow.freezepanes=true
(activesheet.copy)
activesheet.copy
(sheets(1).copy after:=sheets(1))
sheets(1).copy after:=sheets(1)
(if activesheet.autofiltermode=true)
if activesheet.autofiltermode=true
(for each i in thisworkbook.sheets)
for each i in thisworkbook.sheets
(debug.print i.name)
debug.print i.name
(selection.value=selection.value)
selection.value=selection.value
(byval target as range)
byval target as range
(call userform1)
call userform1
(application.displayalerts=false)
application.displayalerts=false
(application.cutcopymode=false)
application.cutcopymode=false
(activeworkbook.close)
activeworkbook.close
(if typename(selection)<>"range")
if typename(selection)<>"range"
(application.dialogs(xldialogsaveas).show)
application.dialogs(xldialogsaveas).show
(range("b2").autofilter 2, "<>")
range("b2").autofilter 2, "<>"
(createobject("scripting.filesystemobject"))
createobject("scripting.filesystemobject")
(activeworkbook.saveas path)
activeworkbook.saveas path
("=datedif(rc[-2],rc[-1],""y"")")
"=datedif(rc[-2],rc[-1],""y"")"
(range("c3:d8").select)
range("c3:d8").select
(specialcells(xlcelltypeconstants,23))
specialcells(xlcelltypeconstants,23)
(workbooks.add)
workbooks.add
(activesheet.printpreview)
activesheet.printpreview
(fittopageswide)
fittopageswide
(fittopagestall)
fittopagestall
(numberformatlocal)
numberformatlocal