Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12680 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8999】文字の点滅 koshimizu 03/11/14(金) 12:00 質問
【9007】Re:文字の点滅 ぴかる 03/11/14(金) 14:11 回答
【9014】Re:文字の点滅 koshimizu 03/11/14(金) 15:10 質問
【9017】Re:文字の点滅 ぴかる 03/11/14(金) 15:52 回答
【9023】Re:文字の点滅 koshimizu 03/11/14(金) 16:43 お礼
【9040】Re:文字の点滅 koshimizu 03/11/15(土) 9:01 質問
【9052】Re:文字の点滅 kein 03/11/16(日) 3:03 回答
【9067】Re:文字の点滅 koshimizu 03/11/17(月) 9:28 質問
【9068】Re:文字の点滅 INA 03/11/17(月) 9:42 回答
【9141】Re:文字の点滅 koshimizu 03/11/19(水) 13:53 質問
【9143】Re:文字の点滅 INA 03/11/19(水) 14:20 回答
【9243】Re:文字の点滅 koshimizu 03/11/25(火) 15:59 お礼
【8999】文字の点滅
質問  koshimizu E-MAIL  - 03/11/14(金) 12:00 -
引用なし
パスワード
   こんにちは
初心者です。

セルに表示されている文字を点滅したいのですが？
Ｃ５セルに入力しＥＮＴＥＲキーを押したならＣ１０とＣ１２の
セルの文字が点滅したいのですが、Ｃ１０とＣ１２は結果表示の
関数が入っています。良い方法がありましたら御教えいただけませんか。

過去の投稿を見ましたが、わかりません。
お願い致します。
【9007】Re:文字の点滅
回答  ぴかる  - 03/11/14(金) 14:11 -
引用なし
パスワード
   koshimizuさん、こんにちは。

標準モジュールに↓を入れて頂いて、保存終了後、再度開いて実行してみて下さい。

Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim I As Integer
Sub AUTO_OPEN()

　　Application.OnKey "{ENTER}", "点滅" 'ENTERを押したらマクロを実行
　　Application.OnKey "~", "点滅"　'テンキーのENTERを押したら
　
End Sub
Sub AUTO_CLOSE()

　　Application.OnKey "{ENTER}"
　　Application.OnKey "~"

End Sub
Sub 点滅()

Dim I As Integer
　
　　If (ActiveCell.Value <> "") And (ActiveCell.Address = "$C$5") Then
　　　　For I = 1 To 5
　　　　　　With Range("C10,C12").Font
　　　　　　　　.ColorIndex = 2
　　　　　　　　Sleep 300
　　　　　　　　.ColorIndex = 0
　　　　　　　　Sleep 300
　　　　　　End With
　　　　Next
　　End If
　　
　　ActiveCell.Offset(1, 0).Select

End Sub
【9014】Re:文字の点滅
質問  koshimizu E-MAIL  - 03/11/14(金) 15:10 -
引用なし
パスワード
   ぴかる さん
こんにちは。
ぴかる さん解答有難うございます。
また、お世話になります。
さっそくためしてみました。
良いのですが、１つ又、問題発生です。

下記の部分を訂正し、Ｃ３に戻りたい為に（−２，０）した
ところは良いのですが、Ｃ３を入力後ＥＮＴＥＲを押すと
Ｃ１になってしまいます。
ActiveCell.Offset(1, 0).Select

Ｃ３を入力後Ｃ５に移動しＣ５入力後ＥＮＴＥＲで点滅させ又Ｃ３に
戻っていたいのですがよい方法がありましたらお願い致します。
【9017】Re:文字の点滅
回答  ぴかる  - 03/11/14(金) 15:52 -
引用なし
パスワード
   こんなんでどうです？。

Sub 点滅()

Dim I As Integer
　
　　If (ActiveCell.Value <> "") And (ActiveCell.Address = "$C$5") Then
　　　　For I = 1 To 5
　　　　　　With Range("C10,C12").Font
　　　　　　　　.ColorIndex = 2
　　　　　　　　Sleep 300
　　　　　　　　.ColorIndex = 0
　　　　　　　　Sleep 300
　　　　　　End With
　　　　Next
　　　　ActiveCell.Offset(-2, 0).Select
　　ElseIf ActiveCell.Address <> "$C$5" Then
　　　　ActiveCell.Offset(1, 0).Select
　　End If
　　
End Sub
【9023】Re:文字の点滅
お礼  koshimizu E-MAIL  - 03/11/14(金) 16:43 -
引用なし
パスワード
   ぴかる さん
有難うございます。

このように訂正しました。
作動しています。
　　　　ActiveCell.Offset(-4, 0).Select
　　ElseIf ActiveCell.Address <> "$C$3" Then
　　　　ActiveCell.Offset(1, 0).Select
　End If
　　
　　　ActiveCell.Offset(2, 0).Select

End Sub

有難うございます。今後ともよろしくお願い致します。
【9040】Re:文字の点滅
質問  koshimizu E-MAIL  - 03/11/15(土) 9:01 -
引用なし
パスワード
   ぴかる さん
こんにちは
質問です。
Ｗｉｎ　９８では作動するのですが、Ｗｉｎ　Ｘｐではシートの
保護をかけてあると実行時エラー’１００４’が表示され
FontクラスのColorIndexを設定できません。の表示で実行できません。
Ｗｉｎ　９８．Ｗｉｎ　Ｘｐどちらでも作動することは出来ますか、
お願いします。


Sub 点滅()

Dim I As Integer

　　If (ActiveCell.Value <> "") And (ActiveCell.Address = "$C$5") Then
　　　　For I = 1 To 5
　　　　　With Range("C10,C12").Font
　　　　　　　　.ColorIndex = 2
　　　　　　　　Sleep 300
　　　　　　　　.ColorIndex = 0
　　　　　　　　Sleep 300
　　　　　　End With
　　　　Next
　　　　ActiveCell.Offset(-2, 0).Select
　　ElseIf ActiveCell.Address <> "$C$5" Then
　　　　ActiveCell.Offset(1, 0).Select
　　End If
　　
End Sub
【9052】Re:文字の点滅
回答  kein  - 03/11/16(日) 3:03 -
引用なし
パスワード
   マクロの冒頭で

Dim Ck As Boolean

With ActiveSheet
　 If .ProtectContents Then
　　　Ck = True: .Unprotect
　 End If
End With

として解除する。End Sub の直前に

If Ck = True Then ActiveSheet.Protect

と追加する。
【9067】Re:文字の点滅
質問  koshimizu E-MAIL  - 03/11/17(月) 9:28 -
引用なし
パスワード
   kein さん

こんにちは。
解答有難うございます。

保護にパスワードが入っていないと、このままで良いのですが
パスワードをマクロでかける事は可能ですか。可能であれば、
お答えをお願いします。
【9068】Re:文字の点滅
回答  INA  - 03/11/17(月) 9:42 -
引用なし
パスワード
   >保護にパスワードが入っていないと、このままで良いのですが
>パスワードをマクロでかける事は可能ですか。可能であれば、
>お答えをお願いします。

ＶＢＥでProtectの文字にカーソルをあわせてＦ１キーを押してみてください。
ヘルプが起動しProtect メソッドについてみることが出来ると思います。
そのなかに第一引数にPasswordというのがあります。
「Protect メソッドの使用例」 にサンプルコードが載っていますよ。
【9141】Re:文字の点滅
質問  koshimizu E-MAIL  - 03/11/19(水) 13:53 -
引用なし
パスワード
   INA さん
こんにちは。
ＶＢＡヘルプPasswordでためしましたが、上手くいきません。
マクロでパスワードをかけても、マクロ作動中にパスワードを
要求されたりです。

シートはパスワード付きで保護したい、一部のセルは入力できるように
（Ｃ５，Ｃ７）です。
Ｗｉｎ９８、Ｗｉｎｘｐどちらでも作動させたいのですが。
良い方法がありますか。
下記のように記述しています。

Sub 点滅()
Dim I As Integer
Dim Ck As Boolean　　　　　　
With ActiveSheet　　　　　
　If .ProtectContents Then
　　Ck = True: .Unprotect　
End If
End With

　　If (ActiveCell.Value <> "") And (ActiveCell.Address = "$C$7") Then
　　　　For I = 1 To 2
　　　　　　With Range("C9,C18").Font
　　　　　　　　.ColorIndex = 2
　　　　　　　　Sleep 300
　　　　　　　　.ColorIndex = 0
　　　　　　　　Sleep 300
　　　　　　　　　　　　　　　
　　　　　　End With
　　　　Next
　　　　ActiveCell.Offset(-4, 0).Select
　　ElseIf ActiveCell.Address <> "$C$5" Then
　　　　ActiveCell.Offset(1, 0).Select
　　
　　End If
　
　　ActiveCell.Offset(2, 0).Select
If Ck = True Then ActiveSheet.Protect　　　　　
End Sub
【9143】Re:文字の点滅
回答  INA  - 03/11/19(水) 14:20 -
引用なし
パスワード
   >ＶＢＡヘルプPasswordでためしましたが、上手くいきません。
>マクロでパスワードをかけても、マクロ作動中にパスワードを
>要求されたりです。
掲載されているコードには、パスワードが記述されておりません。
上手く行かないコードを掲載して貰わないと、
どこが原因か分からないです。

Protect メソッドの使用例
次の使用例は作業中のブックを保護します。
.Protect Password := "drowssap"
　　↑　　　　
　　↓　
.Unprotect Password := "drowssap"


>シートはパスワード付きで保護したい、一部のセルは入力できるように
>（Ｃ５，Ｃ７）です。
.Range("C5,C7").Locked = False
【9243】Re:文字の点滅
お礼  koshimizu E-MAIL  - 03/11/25(火) 15:59 -
引用なし
パスワード
   INA さん
こんにちは。
有難うございました。
私の順序間違えでした。
今後ともよろしくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12680 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free