2017年11月24日
ExcelVBAで車庫証明発行アプリ
エステ・脱毛・フェイシャルのエルセーヌ
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
使用者と契約者の関係性の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」に「@」を入れなさいという命令ですね。
オプションボタン4までは同じです。
最後にSheets("車庫証明").Range("q10").Value = UserForm1.TextBox2
というところがありますね。
これは関係性をコピーせよという意味合いです。
ここまでで、車庫証明に必要事項は記載できたと思います。
エルセーヌの大幅減量ダイエット
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
使用者と契約者の関係性の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」に「@」を入れなさいという命令ですね。
オプションボタン4までは同じです。
最後にSheets("車庫証明").Range("q10").Value = UserForm1.TextBox2
というところがありますね。
これは関係性をコピーせよという意味合いです。
ここまでで、車庫証明に必要事項は記載できたと思います。
エルセーヌの大幅減量ダイエット
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/7002553
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック