Excel (VBA)

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

 
(Windows 10 Home : Excel 2016)
ユーザーフォームの点滅
投稿日時: 18/10/15 14:29:05
投稿者: はじめて

お世話になります。
 
ユーザーフォームを3回点滅させたいのですが、Q&Aを参考にしましたがわかりません。
ご教示いただけませんか。
 
Sub 回転()
  
            UserForm2.Show vbModeless
            秒待ち大
            Unload UserForm2
            秒待ち小
             
            UserForm2.Show vbModeless
            秒待ち大
            Unload UserForm2
            秒待ち小
             
            UserForm2.Show vbModeless
            秒待ち大
            Unload UserForm2

回答
投稿日時: 18/10/15 15:46:20
投稿者: sk

引用:
ユーザーフォームを3回点滅させたい

(標準モジュール)
----------------------------------------------------------
Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub subBlinkForm()
 
    Const BlinkInterval As Integer = 500
    Const BlinkCount As Integer = 3
     
    Dim i As Integer
    Dim sngTop As Single
 
    Load UserForm2
     
    With UserForm2
        .Show vbModeless
        .Repaint
        sngTop = .Top
        Sleep BlinkInterval
        For i = 1 To BlinkCount
            .Top = -(.Height + 10)
            .Repaint
            Sleep BlinkInterval
            .Top = sngTop
            .Repaint
            Sleep BlinkInterval
        Next
        .Hide
    End With
     
    Unload UserForm2
 
End Sub
----------------------------------------------------------

投稿日時: 18/10/15 15:50:46
投稿者: はじめて

sk さん
 
早速ありがとうございます。
いつもお世話になり感謝申し上げます。
添付のマクロで考えていた動作は見事にできました。
私はあまりにも簡単に考えるのがいけないのでしょうか。
WEBでも関連資料を検索しながらやってはいるのですが。

回答
投稿日時: 18/10/15 16:21:48
投稿者: sk

引用:
私はあまりにも簡単に考えるのがいけないのでしょうか。

私が例示したサンプルのどの部分が「簡単」ではないのかが
具体的に明記されていませんので、今のところその問いに対しては
お答えのしようがありません。
 
引用:
WEBでも関連資料を検索しながらやってはいるのですが。

同じく、どの「関連資料」をご覧になったのかが分かりません。

投稿日時: 18/10/15 17:02:20
投稿者: はじめて

sk さん
 
これは私が反省していることです。
sk さんに対して申し上げた訳ではありません。
本当にありがとうございました。
難問がクリアー出来ました。
再度お礼を申し上げ閉じさせていただきます。