Excel VBA質問箱 IV

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

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


5306 / 13646 ツリー ←次へ | 前へ→

【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 発言[未読]

【51296】vba
質問  ピスタチオ  - 07/9/10(月) 22:24 -

引用なし
パスワード
   セルを点滅させることはできるんですか?

【51297】Re:vba
発言  maka  - 07/9/10(月) 23:06 -

引用なし
パスワード
   ▼ピスタチオ さん:
>セルを点滅させることはできるんですか?

ここに回答できるほど、力はないのですが・・・。
ただ、セルに網掛けや色を付ける事が出来るのでDO〜LOOPとかFor〜Nextなどで色を付けたりクリアーしたりすれば見た目はなるのかな?

【51298】Re:vba
発言  ponpon  - 07/9/10(月) 23:23 -

引用なし
パスワード
   セル直接ではありませんが、

hTTp://www.excel.studio-kazu.jp/cgi-bin/kazuwiki2.cgi?mycmd=read&mypage=[[20060206174147]]

こんな感じでは?

【51302】Re:vba
回答  Michiko  - 07/9/11(火) 7:44 -

引用なし
パスワード
   ▼ピスタチオ さん:

おはようございます・・・
ミチタチコです。

>セルを点滅させることはできるんですか?

フリッカのようであれば・・・

'ThisWorkBookに

Private Sub Workbook_Open()
  フリッカ
End Sub

'標準モジュールに
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

【51464】Re:vba
発言  ピスタチオ  - 07/9/20(木) 1:54 -

引用なし
パスワード
   遅くなってすいません><
ミチタチコさんFlgとはなんですか?

【51576】Re:vba
発言  かみちゃん  - 07/9/25(火) 22:56 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

> Flgとはなんですか?

変数です。
ということでお答えになっていますでしょうか?
何がわからないのか、具体的に聞きましょう!

【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

【51582】Re:vba
発言  ichinose  - 07/9/26(水) 7:53 -

引用なし
パスワード
   おはようございます。


>ミチタチコさんFlgとはなんですか?
なつかしい話だったので、参加です。

Flg---->Flag---->旗
VBAでは、あまり言わないかなあ・・・。

語源について

www.cc.kyoto-su.ac.jp/~kbys/kiso/cpu/cpu.html

↑このサイトの フラグ(フラグレジスタ) を参照して見てください。

【51598】Re:vba
発言  ミチタチコ  - 07/9/26(水) 21:55 -

引用なし
パスワード
   ▼ichinose さん:
>なつかしい話だったので、参加です。
>
>Flg---->Flag---->旗
>VBAでは、あまり言わないかなあ・・・。

ご指定いただいたサイト見させていただきました。
ありがとうございました。勉強になりました。
変数に0かそれ以外の数字が入れば・・・
直感的にON/OFFくらいしか頭に無いですが。
CPUによってはもっと異なる処理が出来るようですね。
この辺になるともう分かりませんが・・・。

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