マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
使用者と契約者の関係性のVBA
If UserForm1.OptionButton1 = True Then
Sheets("車庫証明").Range("p6").Value = "?@"
ElseIf UserForm1.OptionButton2 = True Then
Sheets("車庫証明").Range("p7").Value = "?A"
ElseIf UserForm1.OptionButton3 = True Then
Sheets("車庫証明").Range("p8").Value = "?B"
ElseIf UserForm1.OptionButton4 = True Then
Sheets("車庫証明").Range("p9").Value = "?C"
Sheets("車庫証明").Range("q10").Value = UserForm1.TextBox2
End If
「Unload UserForm1」の前に上記のような記述をしました。
ここも分かると思います。
オプションボタン1が選択されていれば、
「P6」に「?@」を入れなさいという命令ですね。
オプションボタン４までは同じです。
最後にSheets("車庫証明").Range("q10").Value = UserForm1.TextBox2
というところがありますね。
これは関係性をコピーせよという意味合いです。
ここまでで、車庫証明に必要事項は記載できたと思います。
エルセーヌの大幅減量ダイエット
