Excel VBA質問箱 IV

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

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


33445 / 76734 ←次へ | 前へ→

【48507】Re:セル(複数)の変化の読み上げ(実行エラー)
質問  hozmin E-MAIL  - 07/4/19(木) 20:20 -

引用なし
パスワード
   keinさんのマクロを使わせて頂いたところ安定して希望通りの動きをしてくれました。対象となるセルを増やした所、実行エラー13 型が一致しません

のエラーが起動時発せします。keinさんのそのままのマクロでは問題がございません。が、対象セルを増やしたら起動時にエラーが発生いたします。その後は問題なく動作はするのですが、起動時気になります。どこを間違っているかお解かりになりますでしょうか?excelは2003です。

Private Data1 As Variant, Data2 As Variant, Data3 As Variant, Data4 As Variant, Data5 As Variant, Data6 As Variant, Data7 As Variant, Data8 As Variant, Data9 As Variant


Private Sub Worksheet_Activate()
  Data1 = Range("A1").Value
  Data2 = Range("A2").Value
  Data3 = Range("A3").Value
  Data4 = Range("A4").Value
  Data5 = Range("A5").Value
  Data6 = Range("A6").Value
  Data7 = Range("A7").Value
  Data8 = Range("A8").Value
  Data9 = Range("A9").Value

End Sub

Private Sub Worksheet_Calculate()
  With Range("A1")
   If .Value <> Data1 Then
     .Speak: Data1 = .Value
   End If
  End With
  With Range("A2")
   If .Value <> Data2 Then
     .Speak: Data2 = .Value
   End If
  End With
   With Range("A3")
   If .Value <> Data3 Then
     .Speak: Data3 = .Value
   End If
  End With
  With Range("A4")
   If .Value <> Data4 Then
     .Speak: Data4 = .Value
   End If
  End With
   With Range("A5")
   If .Value <> Data5 Then
     .Speak: Data5 = .Value
   End If
  End With
  With Range("A6")
   If .Value <> Data6 Then
     .Speak: Data6 = .Value
   End If
  End With
  With Range("A7")
   If .Value <> Data7 Then
     .Speak: Data7 = .Value
   End If
  End With
  With Range("A8")
   If .Value <> Data8 Then
     .Speak: Data8 = .Value
   End If
  End With
  With Range("A9")
   If .Value <> Data9 Then
     .Speak: Data9 = .Value
   End If
  End With


End Sub

3 hits

【48385】セル(複数)の変化の読み上げ hozmin 07/4/15(日) 19:07 質問
【48386】Re:セル(複数)の変化の読み上げ Kein 07/4/15(日) 21:31 回答
【48390】Re:セル(複数)の変化の読み上げ hozmin 07/4/16(月) 0:02 お礼
【48507】Re:セル(複数)の変化の読み上げ(実行エ... hozmin 07/4/19(木) 20:20 質問
【48387】Re:セル(複数)の変化の読み上げ ponpon 07/4/15(日) 21:46 発言
【48391】Re:セル(複数)の変化の読み上げ hozmin 07/4/16(月) 0:20 お礼

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