Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : 指定なし)
UserFormから元のコードに戻る
投稿日時: 20/09/11 16:49:42
投稿者: chocolate33

Excelのバージョン 2019
よろしくお願いします。
 
下記のコードで、UserForm1.Show で作ったフォームが開き、このフォームのOKボタンをクリックすると
3行目の ws1.Range("c1").Interior.Color = RGB(146, 208, 80) ' 背景色
が実行するようにしたいのですが、OKのボタンにどのように記述すればいいのか教えてください。
 
 
Sub test1()
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("sheet1")
 
    ws1.Activate
    UserForm1.Show
    ws1.Range("c1").Interior.Color = RGB(146, 208, 80) ' 背景色
End Sub
 
よろしくお願いします。

回答
投稿日時: 20/09/11 17:31:27
投稿者: mndkyui

パブリックでBoolean型を一つ持つ
 
Public test as Boolean
 
その上でOKボタンをクリックしたときのイベントに上記がTrueになる処理を入れる
 
Sub CommandButton1_Click()
  test = true
    unload me
End Sub

 
その上でtest1のサブの最初の方に
test = false
 
入れて
 
if test = true then
ws1.Range("c1").Interior.Color = RGB(146, 208, 80) ' 背景色
end if

 
で処理をIf文に入れれば可能だと思います

投稿日時: 20/09/11 18:16:49
投稿者: chocolate33

mndkyuiさま
 
ありがとうございます。できました。
Boolean の使い方がまだよくわからなく、調べながら作ってみてこれはできました。
もっと使い方を調べてみます。