Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30418 / 76732 ←次へ | 前へ→

【51581】Re:vba
回答  ミチタチコ  - 07/9/26(水) 7:25 -

引用なし
パスワード
   ▼ピスタチオ さん:
>遅くなってすいません
久しぶりですね。忘れられたのかなぁ…と思っていました

>ミチタチコさんFlgとはなんですか?
ごめんなさい・・・変数なんですが、記入が出来ていませんでした。
再度コードを書きました。変数も書いています

標準モジュールに下のコードを貼り付けて

’***************

Dim Flg As Boolean  ’これが抜けていました。ご免なさい m( )m 。
Sub フリッカ()

  If Flg Then
    Range("A5").Interior.ColorIndex = 3
    Range("C5").Interior.ColorIndex = 7
    Range("B6").Value = "I Love You!!"
    Flg = False
  Else
    Range("A5").Interior.ColorIndex = xlNone
    Range("C5").Interior.ColorIndex = xlNone
    Range("B6").Value = ""
    Flg = True
  End If
  
  Application.OnTime Now + TimeValue("00:00:01"), "フリッカ"

End Sub

ThisWorkBookに下のコードを貼り付けてください

’***************

Private Sub Workbook_Open()
  フリッカ
End Sub

この状態で一旦名前をつけて保存してください。
後は、このエクセルを開くとフリッカーがシートに現れます。
時間設定は自在に変えられます。(現在1秒間隔で設定しています)
→00:00:01
1 hits

【51296】vba ピスタチオ 07/9/10(月) 22:24 質問
【51297】Re:vba maka 07/9/10(月) 23:06 発言
【51298】Re:vba ponpon 07/9/10(月) 23:23 発言
【51302】Re:vba Michiko 07/9/11(火) 7:44 回答
【51464】Re:vba ピスタチオ 07/9/20(木) 1:54 発言
【51576】Re:vba かみちゃん 07/9/25(火) 22:56 発言
【51581】Re:vba ミチタチコ 07/9/26(水) 7:25 回答
【51582】Re:vba ichinose 07/9/26(水) 7:53 発言
【51598】Re:vba ミチタチコ 07/9/26(水) 21:55 発言

30418 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free