【VBA】穴埋め

48問 • 2年前

問題一覧

次のコードは、セルA1を含む表に対して「1列目が"ダージリン"と等しい」で絞り込み、その結果が何件あるかを画面に表示するマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() Range("A1").AutoFilter 1, "ダージリン" MsgBox WorksheetFunction.空欄(3, Range("A:A")) - 1 End Sub

Subtotal

次のコードは、セル範囲A3:C10だけを、C列を基準として降順に並べ替えるマクロである。空欄に入る定数を記述しなさい。 Sub Macro1() Range("A3:C10").Sort Key1:=Range("C3"), Order1:=xlDescending, Header:=空欄 End Sub

xlNo

次のコードは、セル範囲A2:A11の各セルに対して、フリガナが設定されていればそのフリガナを、フリガナが設定されていなければ"×"を、B列のセルに代入するマクロである。空欄に入る適切な語句を入力しなさい。ただし、2つの空欄には同じ語句が入ります。 Sub Macro1() Dim i As Long For i = 2 To 11 If Cells(i, 1).空欄.Text = Cells(i, 1) Then Cells(i, 2) = "×" Else Cells(i, 2) = Cells(i, 1).空欄.Text End If Next i End Sub

Phonetic

次のコードは、1列目が"リンゴ"であるデータのうち、タイトル行を除いたデータだけSheet2のセルA1へコピーするマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() With Range("A1").ListObject.空欄 .AutoFilter 1, "リンゴ" .Copy Sheets("Sheet2").Range("A1") .AutoFilter 1 End With End Sub

DataBodyRange

次のコードは、テーブルに新しい列を追加するマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro3() Range("A1").ListObject.空欄.Add End Sub

ListColumns

次のコードは、1列目が"みかん"であるデータをタイトル行ごとSheet2のセルA1へコピーするマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() Range("テーブル1").AutoFilter 1, "みかん" Range("テーブル1空欄").Copy Sheets("Sheet2").Range("A1") Range("テーブル1").AutoFilter 1 End Sub

[#All]

次のコードは、1列目が"梨"であるデータのうちタイトル行を除いたデータだけSheet2のセルA1へコピーするマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() Range("テーブル1").AutoFilter 1, "梨" Range("テーブル1空欄").Copy Sheets("Sheet2").Range("A1") Range("テーブル1").AutoFilter 1 End Sub

[#Data]

次のコードは、テーブル内の"単価"列を削除するマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() Range("テーブル1空欄").Delete End Sub

[単価]、[[#Data],[単価]]、[[#All],[単価]]

次のコードは、セル範囲A2:A11の各セルに入力されている半角のカタカナを、すべて全角のカタカナに変換するマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() Dim i As Long For i = 2 To 11 Cells(i, 1) = 空欄(Cells(i, 1), vbWide) Next i End Sub

StrConv

次のコードは、A列からC列に入力されている数値から日付を生成してD列に代入するマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() Dim i As Long For i = 2 To 11 Cells(i, 4) = 空欄(Cells(i, 1), Cells(i, 2), Cells(i, 3)) Next i End Sub

DateSerial

図1の状態で、マクロ「Test1」を実行した結果、図2の状態になった。このとき、【　1　】に入る適切な内容を答えなさい。 Sub Test1() With Worksheets("Sheet1").【1】 .SortFields.Add2 Key:=Range("C1") .SetRange Range("A1:C7") .Header = xlYes .Apply End With End Sub

Sort

C列を基準にデータの並び替えをおこないたい。このとき、【　1　】【　2　】【　3　】に入る適切な内容を答えなさい。 Sub Test1() With Worksheets("Sheet1").Sort .【　1　】.【　2　】【　3　】:=Range("C1") .SetRange Range("A1:C7") .Apply End With End Sub

SortFields,Add2,Key

次の図のように、文字列も数値として並び替えたい。このとき、【　1　】【　2　】に入る適切な内容を答えなさい。 Sub Test1() With Worksheets("Sheet1").Sort .SortFields.Clear .SortFields.Add2 Key:=Range("A1"),【　1　】:=【　2　】 .SetRange Range("A1:A5") .Apply End With End Sub

DataOption,xlSortTextAsNumbers

マクロ「Test1」を実行した結果、次の図のようにC列の数値が上から大きい順に並び替わった。このとき、【　1　】【　2　】【　3　】に入る適切な内容を答えなさい。 Sub Test1() Range("A1").【　1　】【　2　】:=Range("C2"),【　3　】:=xlDescending, Header:=xlYes End Sub

Sort,Key1,Order1

次の図のように、B列を値で並び替えたい。このとき、【　1　】に入る適切な内容を答えなさい。 Sub Test1() With Worksheets("Sheet1").Sort .SortFields.Clear .SortFields.Add2 Key:=Range("B2"), _ SortOn:=【　1　】, _ Order:=xlDescending .SetRange Range("A2:B8") .Header = xlNo .Apply End With End Sub

xlSortOnValues

次の図の状態で、マクロ「Test1」を実行した結果、テーブルが「Sheet2」にコピーされた。このとき、【　1　】に入る適切な内容を答えなさい。 Sub Test1() Range("A1").【　1　】.Range.Copy Sheets("Sheet2").Range("A1") End Sub

ListObject

テーブルの見出し行を「Sheet2」にコピーしたい。このとき、【　1　】に入る適切な内容を答えなさい。 Sub Test1() Range("A1").ListObject.【　1　】.Copy Sheets("Sheet2").Range("A1") End Sub

HeaderRowRange

次の図の状態のとき、見出し行に「売上」が入力された列（C列）のみを抜粋し、見出し行を含めたテーブルを「Sheet2」にコピーしたい。このとき、【　1　】に入る適切な内容を答えなさい。 Sub Test1() Range("テーブル1【　1　】").Copy Sheets("Sheet2").Range("A1") End Sub

[[#All],[売上]]

次の図の状態のとき、カテゴリ「ホビー」の売上数値のみを「Sheet2」にコピーしたい。このとき、【　1　】に入る適切な内容を答えなさい。 Sub Test1() With Range("A1").ListObject .Range.【　1　】 1, "ホビー" .ListColumns(3).DataBodyRange.Copy Sheets("Sheet2").Range("A1") End With End Sub

AutoFilter

次の図の状態のとき、A列の文字列から「円」を取り除きたい。このとき、【　1　】に入る適切な内容を答えなさい。 Sub Test() Dim i As Long i = 1 Do While Cells(i, 1) <> "" Cells(i, 1) = 【　1　】(Cells(i, 1), "円", "") i = i + 1 Loop End Sub

Replace

次の文章は、VBAの変数について説明したものである。空欄【1】に当てはまる語句として正しいものはどれか。次の中から1つ選択しなさい。モジュールの宣言セクションに【　1　】ステートメントを使って宣言した変数は、そのモジュール内のすべてのプロシージャで使用可能になる。

Dim

SubプロシージャとFunctionプロシージャの説明として正しいものはどれか。次の中から2つ選択しなさい。

Functionプロシージャをcallステートメントで呼び出してもエラーにならない。, Functionプロシージャは値を返すが、Subプロシージャは返さない。

マクロ「Lesson」を実行したところ、メッセージボックスに「1080」と表示された。空欄【1】に当てはまる記述として正しいものはどれか。次の中から1つ選択しなさい。 Sub Lesson() MsgBox Func(1000) End Sub Function Func(num As Long) As Long 【　1　】 End Function

Func = num * 1.08

マクロ「Lesson1」を実行したところメッセージボックスに文字列が表示された。その文字列を解答欄に入力しなさい。 Sub Lesson1() Dim x As Long, y As Long x = 10 y = 20 Call Lesson2(x, y) MsgBox x & y End Sub Sub Lesson2(num1 As Long, ByRef num2 As Long) num1 = num1 * num1 num2 = num2 * num2 End Sub

100400

標準モジュールに下記の内容を記述して、マクロ「Lesson1」を実行した。イミディエイトウィンドウに表示される数値を解答欄に入力しなさい。 Option Explicit Dim Number1 As Integer Sub Lesson1() Number1 = 100 Call Lesson2 Debug.Print Number1 End Sub Sub Lesson2() Dim Number2 As Integer Number2 = 200 Number1 = Number1 + Number2 End Sub

300

次の文は、Sortオブジェクトによる並べ替え機能について述べたものである。内容が間違っているものはどれか。次の中から1つ選択しなさい。

どの列を基準に並べ替えるかを省略すると、シートの1列目が基準になる。

Excel2007から、Sortオブジェクトによる並べ替え機能が追加された。次の文は、この並べ替えで使用するAdd2メソッドの引数について述べたものである。空欄【1】に当てはまる語句として正しいものはどれか。次の中から1つ選択しなさい。セルの背景色で並べ替えるには、Add2メソッドの引数SortOnに、定数【　1　】を指定する。

xlSortOnCellColor

Excel2007から、Sortオブジェクトによる並べ替え機能が追加された。次の表は、この並べ替えで使用するAdd2メソッドの引数について述べたものである。空欄【1】【2】に当てはまる語句として正しいものはどれか。次の中から1つ選択しなさい。引数SortOnに設定できる定数定数意味【　1　】セル内のデータで並べ替える xlSortOnCellColor セルの背景色で並べ替える xlSortOnFontColor セルの文字色で並べ替える【　2　】条件付き書式のアイコンで並べ替える

【1】xlSortOnValues 【2】xlSortOnIcon

Excel2007から、Sortオブジェクトによる並べ替え機能が追加された。次の表は、この並べ替えで使用するAdd2メソッドの引数について述べたものである。空欄【1】【2】に当てはまる語句として正しいものはどれか。次の中から1つ選択しなさい。引数DataOptionに設定できる定数定数意味【　1　】数値と文字列を別々に並べ替える【　2　】文字列を数値とみなして並べ替える

【1】xlSortNormal 【2】xlSortTextAsNumbers

次のコードは、"C:\Work\Data.xlsx"を開くマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() 【空欄】Open "C:\Work\Data.xlsx" End Sub

Workbooks.

次のコードは、アクティブブックに「報告書2019.xlsx」のような名前をつけて保存するマクロである。ファイル名の"2019"は、現在の西暦年とする。空欄に入る適切な語句を入力しなさい。 Sub Macro1() 【空欄】SaveAs "報告書" & Year(Now) & ".xlsx" End Sub

ActiveWorkbook.

次のコードは、A列に入力されている数値のうち「3番目に小さい数値」をメッセージボックスに表示するマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() MsgBox 【空欄】Small(Range("A2:A10"), 3) End Sub

WorksheetFunction.

次のコードは、セル範囲A1:A13を、C列を基準として降順に並べ替えるマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() With ActiveSheet.Sort 【空欄】.Clear .SortFields.Add Key:=Range("C2"), Order:=xlDescending .SetRange Range("A1:C13") .Header = xlYes .Apply End With End Sub

.SortFields

次のコードは、セル範囲A1:A13を、C列を基準として降順に並べ替えるマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() With ActiveSheet.Sort .SortFields.Clear .SortFields.【空欄】:=Range("C2"), Order:=xlDescending .SetRange Range("A1:C13") .Header = xlYes .Apply End With End Sub

Add Key

次のコードは、セル範囲A1:A13を、C列を基準として降順に並べ替えるマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=Range("C2"), Order:=xlDescending 【空欄】 Range("A1:C13") .Header = xlYes .Apply End With End Sub

.SetRange

次のコードは、セル範囲A1:A13を、C列を基準として降順に並べ替えるマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=Range("C2"), Order:=xlDescending .SetRange Range("A1:C13") 【空欄】 = xlYes .Apply End With End Sub

.Header

次のコードは、セルA1を含む表に対して「1列目が"東京"と等しい」で絞り込み、その結果全体をSheet2のセルA1にコピーするマクロである。空欄に入る適切な語句を入力しなさい。 Sub Macro1() Range("A1").AutoFilter 1, "東京" Range("A1").【空欄】.Copy Sheets("Sheet2").Range("A1") End Sub

CurrentRegion

SubTotal

次のコードは、セル範囲A3:C10だけを、C列を基準として降順に並べ替えるマクロである。空欄に入る定数を記述しなさい。 Sub Macro1() Range("A3:C10").【空欄】:=Range("C3"), Order1:=xlDescending, Header:=空欄 End Sub

Sort Key1

HeaderRowRange

文字列も数値として並び替えたい。このとき、【　1　】【　2　】に入る適切な内容を答えなさい。 Sub Test1() With Worksheets("Sheet1").Sort .SortFields.Clear .SortFields.Add2 Key:=Range("A1"),【　1　】:=【　2　】 .SetRange Range("A1:A5") .Apply End With End Sub

DataOption,xlSortTextAsNumbers

SortFields,Add2,Key

「日用品」の右隣のセルに「0」を代入した後、次の図のような状態でマクロを終了したい。このとき、【　1　】に入る適切な内容を答えなさい。 Sub Test1() Range("A1").AutoFilter 1, "日用品" Range(Range("B2"), Cells(Rows.Count, 2).End(xlUp)) = 0 Range("A1").【　1　】 End Sub

AutoFilter 1

指定した範囲から対象データの合計を集計 ❓(指定した範囲,検索データ,合計する範囲)

Sumif

コピー先のフォルダに既に同名のファイルが存在する場合は〇〇 Sub Sample() FileCopy "C:\Work\売上.xlsx" , "C:\Work\Sub\売上.xlsx" End Sub

上書きされる

セルD2から下に向かってジャンプ Range("D2").❓

End(xlDown)

ブックのパス

Thisworkbook.Path

ブックの名前

Thisworkbook.Name

【VBA】文系

l l · 15問 · 2年前

【VBA】文系