Excel VBA質問箱 IV

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

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


12679 / 13645 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   こんにちは
初心者です。

セルに表示されている文字を点滅したいのですが?
C5セルに入力しENTERキーを押したならC10とC12の
セルの文字が点滅したいのですが、C10とC12は結果表示の
関数が入っています。良い方法がありましたら御教えいただけませんか。

過去の投稿を見ましたが、わかりません。
お願い致します。

【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 -

引用なし
パスワード
   ぴかる さん
こんにちは。
ぴかる さん解答有難うございます。
また、お世話になります。
さっそくためしてみました。
良いのですが、1つ又、問題発生です。

下記の部分を訂正し、C3に戻りたい為に(−2,0)した
ところは良いのですが、C3を入力後ENTERを押すと
C1になってしまいます。
ActiveCell.Offset(1, 0).Select

C3を入力後C5に移動しC5入力後ENTERで点滅させ又C3に
戻っていたいのですがよい方法がありましたらお願い致します。

【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 -

引用なし
パスワード
   ぴかる さん
こんにちは
質問です。
Win 98では作動するのですが、Win Xpではシートの
保護をかけてあると実行時エラー’1004’が表示され
FontクラスのColorIndexを設定できません。の表示で実行できません。
Win 98.Win Xpどちらでも作動することは出来ますか、
お願いします。


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 -

引用なし
パスワード
   >保護にパスワードが入っていないと、このままで良いのですが
>パスワードをマクロでかける事は可能ですか。可能であれば、
>お答えをお願いします。

VBEでProtectの文字にカーソルをあわせてF1キーを押してみてください。
ヘルプが起動しProtect メソッドについてみることが出来ると思います。
そのなかに第一引数にPasswordというのがあります。
「Protect メソッドの使用例」 にサンプルコードが載っていますよ。

【9141】Re:文字の点滅
質問  koshimizu E-MAIL  - 03/11/19(水) 13:53 -

引用なし
パスワード
   INA さん
こんにちは。
VBAヘルプPasswordでためしましたが、上手くいきません。
マクロでパスワードをかけても、マクロ作動中にパスワードを
要求されたりです。

シートはパスワード付きで保護したい、一部のセルは入力できるように
(C5,C7)です。
Win98、Winxpどちらでも作動させたいのですが。
良い方法がありますか。
下記のように記述しています。

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 -

引用なし
パスワード
   >VBAヘルプPasswordでためしましたが、上手くいきません。
>マクロでパスワードをかけても、マクロ作動中にパスワードを
>要求されたりです。
掲載されているコードには、パスワードが記述されておりません。
上手く行かないコードを掲載して貰わないと、
どこが原因か分からないです。

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


>シートはパスワード付きで保護したい、一部のセルは入力できるように
>(C5,C7)です。
.Range("C5,C7").Locked = False

【9243】Re:文字の点滅
お礼  koshimizu E-MAIL  - 03/11/25(火) 15:59 -

引用なし
パスワード
   INA さん
こんにちは。
有難うございました。
私の順序間違えでした。
今後ともよろしくお願い致します。

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