Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5304 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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

この状態で一旦名前をつけて保存してください。
後は、このエクセルを開くとフリッカーがシートに現れます。
時間設定は自在に変えられます。(現在１秒間隔で設定しています）
→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では、あまり言わないかなあ・・・。

ご指定いただいたサイト見させていただきました。
ありがとうございました。勉強になりました。
変数に０かそれ以外の数字が入れば・・・
直感的にON/OFFくらいしか頭に無いですが。
CPUによってはもっと異なる処理が出来るようですね。
この辺になるともう分かりませんが・・・。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5304 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free