VBA

背景
投稿者投稿者cum  いいね2  お気に入り登録
プレイ回数164  順位1671位  難易度(3.5) 90秒 英語 英字
タグプログラミング
順位 名前 スコア 称号 打鍵/秒 正誤率 時間(秒) 打鍵数 ミス 問題 日付
1 ku 5355 B++ 5.3 99.3% 90.0 485 3 18 2025/01/19
2 ku 5044 B+ 5.0 99.7% 90.0 455 1 17 2024/12/19
3 oga 2888 E+ 3.0 95.4% 90.0 273 13 11 2025/01/04
4 ai 2622 E 2.7 94.6% 90.0 250 14 9 2024/12/27
5 か 1333 G+ 1.3 97.6% 60.0 82 2 3 2024/12/15

関連タイピング

関連タイピング一覧

問題文

ふりがな非表示 ふりがな表示

(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

問題文を全て表示 一部のみ表示 誤字・脱字等の報告