-- create a table
CREATE TABLE students (
id INTEGER PRIMARY KEY,
name TEXT NOT NULL,
gender TEXT NOT NULL
);
-- insert some values
INSERT INTO students VALUES (1, 'Ryan', 'M');
INSERT INTO students VALUES (2, 'Joanna', 'F');
-- fetch some values
SELECT * FROM students WHERE gender = 'F';
-- create a table
CREATE TABLE sazaefamily (
id INTEGER PRIMARY KEY,
name TEXT NOT NULL,
gender TEXT NOT NULL
);
2行目の「テーブル名のみ」を変えました。
次にデータの入力部分ですが、
-- insert some values
INSERT INTO sazaefamily VALUES (1, '磯野波平', '男性');
INSERT INTO sazaefamily VALUES (2, 'フグ田サザエ', '女性');
と、INSERT INTO の後の表の名前の所を「sazaefamily」に、人物名を波平さんとサザエさんに書き換え、性別も日本語にしました。
ここまでで、この様なイメージの表が出来ています。
最後に表の条件を指定して抽出するWHEREの所を書き換えます。 SELECT * FROM の後のテーブル名を 「sazaefamily 」に、性別も「F」から「女性」に書き換えました。
-- fetch some values
SELECT * FROM sazaefamily WHERE gender = '女性';
これで実行をすると、画面右側にサザエさんの行だけが抽出されます。 表イメージと実行結果です。
では、緑色の「コードを実行」を押してみます。
無事に実行出来ました。
ここまでのコードをまとめます。
-- create a table
CREATE TABLE sazaefamily (
id INTEGER PRIMARY KEY,
name TEXT NOT NULL,
gender TEXT NOT NULL
);
-- insert some values
INSERT INTO sazaefamily VALUES (1, '磯野波平', '男性');
INSERT INTO sazaefamily VALUES (2, 'フグ田サザエ', '女性');
-- fetch some values
SELECT * FROM sazaefamily WHERE gender = '女性';
Sub ループ1()
'カウンタ変数iを整数型で宣言
Dim i As Integer
'Excelのワークシート「はじめてのループ」のセルA1をアクティブセルにする
Worksheets("はじめてのループ").Range("A1").Select
'Forループで1から10まで1ずつ増やす
For i = 1 To 10
'アクティブセルに「Threadsのフォローワーさんが i 人増えた!!」と出力
ActiveCell.Value = "Threadsのフォローワーさんが " & i & " 人増えた!!"
'アクティブセルを1つ下に移動する
ActiveCell.Offset(1, 0).Select
'iの繰り返し処理
Next i
End Sub
for i=1 to 10の後に、Step 2と記述します。 先ほどのコードの下に１行開けて書きますので、セルA12をアクティブセルにします。
Sub ループ2()
'カウンタ変数iを整数型で宣言
Dim i As Integer
'Excelのワークシート「はじめてのループ」のセルA12をアクティブセルにする
Worksheets("はじめてのループ").Range("A12").Select
'Forループで1から10まで2ずつ増やす
For i = 1 To 10 Step 2
'アクティブセルに「Threadsのフォローワーさんが i 人増えた!!」と出力
ActiveCell.Value = "Threadsのフォローワーさんが " & i & " 人増えた!!"
'アクティブセルを1つ下に移動する
ActiveCell.Offset(1, 0).Select
'iの繰り返し処理
Next i
End Sub
Sub ループ3()
'カウンタ変数iを整数型で宣言
Dim i As Integer
'Excelのワークシート「はじめてのループ」のセルA18をアクティブセルにする
Worksheets("はじめてのループ").Range("A18").Select
'＜＜ここからループ＞＞
'Forループで10から1まで1ずつ減らす
For i = 10 To 1 Step -1
'アクティブセルに「あと i分 で 鎌倉行きの電車が到着します。」と出力
ActiveCell.Value = "あと " & i & " 分で 鎌倉行きの電車が到着します。"
'アクティブセルを1つ下に移動する
ActiveCell.Offset(1, 0).Select
'iの繰り返し処理
Next i
'＜＜ここから、ループを抜けた後の処理＞＞
'「電車が到着しました!!」と出力
ActiveCell.Value="電車が到着しました!!”
'セルを1つ下に移動する
ActiveCell.Offset(1,0).Select
End Sub
Sub IF文1()
'文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
Dim 敵の名前 As String, 攻撃レベル As Integer
'変数「敵の名前」に「メタルスライム」を代入
敵の名前 = "メタルスライム"
'攻撃レベルを入力
攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
'IF文による分岐 100以上かどうか
If 攻撃レベル >= 100 Then
MsgBox 敵の名前 & "を倒した！！ "
End If
End Sub
Sub IF文2()
'文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
Dim 敵の名前 As String, 攻撃レベル As Integer
'変数に代入
敵の名前 = "メタルスライム"
'攻撃レベルを入力
攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
'IF文による分岐 100 以上かどうか
If 攻撃レベル >= 100 Then
MsgBox 敵の名前 & "を倒した！！ "
Else '←ここを修正
MsgBox 敵の名前 & "は、少しくたばった。"
End If
End Sub
Sub IF文3()
'文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
Dim 敵の名前 As String, 攻撃レベル As Integer
'変数に代入
敵の名前 = "メタルスライム"
'攻撃レベルを入力
攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
'IF文による分岐 100 以上かどうか
If 攻撃レベル >= 100 Then
MsgBox 敵の名前 & "を倒した！！ "
ElseIf 攻撃レベル>=80 Then '←ここを修正
MsgBox "勇者頑張れ！！もう一息！！"
Else
MsgBox "YOU LOSE...."
End If
End Sub
Sub IF文4()
'文字列型変数「ターゲット」と「登場キャラ」を宣言
Dim ターゲット As String, 登場キャラ As String
'変数ターゲットに「メタルスライム」を代入
ターゲット = "メタルスライム"
'登場キャラを入力
登場キャラ = InputBox("登場キャラを入力して下さい。")
'IF文による分岐 メタルスライムかどうか
If 登場キャラ = ターゲット Then
MsgBox "勇者は" & ターゲット & "を攻撃した！！ "
Else
MsgBox 登場キャラ & "さん、こんにちは。"
End If
End Sub
Sub 変数2()
'文字列型の変数「敵の名前」と数値型の「回数」を宣言
Dim 敵の名前 As String, 回数 As Integer
敵の名前 = InputBox("敵の名前を入力して下さい。")
回数 = InputBox("攻撃する回数を入力して下さい。")
Debug.Print "マリオは" & 敵の名前 & "を" & 回数 & " 回攻撃した！！"
End Sub
Sub 変数7()
'通過型Currencyの変数チケット代と、文字列型映画タイトルを宣言
Dim 映画タイトル As String, チケット代 As Currency
映画タイトル = InputBox("見たい映画のタイトル名を入力して下さい。")
チケット代 = InputBox("チケット代を入力して下さい。")
MsgBox 映画タイトル & "の一般料金は、" & チケット代 & "円です。"
End Sub
