Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
61886 / 76732 ←次へ　｜　前へ→
【19457】Re:フォルダの監視＆ファイルコピー
発言  ちゃっぴ  - 04/11/4(木) 0:03 -
引用なし
パスワード
   >具体的なコードで、実感させてもらえませんか？

たとえば、ExcelのSheetのイベントにChageイベントがありますよね。
それをイベントを使わずにやろうとするとこんな感じになると思います。

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub GetEventChange()
　　Dim vntPrvData As Variant
　　Dim vntNewData As Variant
　　Dim lngRowCount As Long
　　Dim lngColCount As Long
　　Dim i As Long, j As Long
　　
　　vntPrvData = ActiveSheet.UsedRange.Value
　　lngRowCount = UBound(vntPrvData, 1)
　　lngColCount = UBound(vntPrvData, 2)
　　
　　Do
　　　　DoEvents
　　　　Sleep 500
　　　　vntNewData = ActiveSheet.UsedRange.Value
　　　　
　　　　If lngRowCount <> UBound(vntNewData, 1) _
　　　　　　Or lngColCount <> UBound(vntNewData, 2) Then
　　　　　　
　　　　　　MsgBox "Change"
　　　　　　vntPrvData = ActiveSheet.UsedRange.Value
　　　　End If
　　　　
　　　　For i = 1 To lngRowCount
　　　　　　For j = 1 To lngColCount
　　　　　　　　If vntPrvData(i, j) <> vntNewData(i, j) Then
　　　　　　　　　　MsgBox "Change"
　　　　　　　　　　vntPrvData = ActiveSheet.UsedRange.Value
　　　　　　　　End If
　　　　　　Next j
　　　　Next i
　　Loop
End Sub

面倒なので、値が変わったということだけをチェックしていますが
イベントを使用するよりもはるかに重たいです。

もっとも、データがびっしり埋まっているシートに対して
行なうと地獄をみます。

これでお分かりになりましたか？

なお、前にも言いましたが、この手の処理はExcelで行なわないほうがよいです。

Excel VBAだと別Processで動作させることができないので、
あるマクロが走っている間、他のマクロを起動させることができません。

素直に、VBなりCなりJavaなりちゃんとしたProgram言語で
開発することをお勧めします。
2 hits
▼ 【19435】フォルダの監視＆ファイルコピー ackkn 04/11/2(火) 18:43 質問
【19436】Re:フォルダの監視＆ファイルコピー ちゃっぴ 04/11/2(火) 22:52 回答
【19439】Re:フォルダの監視＆ファイルコピー ackkn 04/11/3(水) 8:07 質問
【19447】Re:フォルダの監視＆ファイルコピー Kein 04/11/3(水) 15:42 発言
【19448】Re:フォルダの監視＆ファイルコピー ackkn 04/11/3(水) 18:12 質問
【19449】Re:フォルダの監視＆ファイルコピー [名前なし] 04/11/3(水) 20:20 発言
【19450】Re:フォルダの監視＆ファイルコピー ackkn 04/11/3(水) 21:19 発言
【19451】Re:フォルダの監視＆ファイルコピー ちゃっぴ 04/11/3(水) 21:59 発言
【19452】Re:フォルダの監視＆ファイルコピー ackkn 04/11/3(水) 22:07 質問
【19457】Re:フォルダの監視＆ファイルコピー ちゃっぴ 04/11/4(木) 0:03 発言≪
【19461】Re:フォルダの監視＆ファイルコピー ackkn 04/11/4(木) 8:07 発言
【19462】Re:フォルダの監視＆ファイルコピー IROC 04/11/4(木) 8:45 回答
【19463】Re:みなさんのご意見を下さい ackkn 04/11/4(木) 9:19 質問
【19464】Re:みなさんのご意見を下さい IROC 04/11/4(木) 9:24 回答
【19465】Re:みなさんのご意見を下さい ichinose 04/11/4(木) 9:48 発言
【19467】Re:みなさんのご意見を下さい ackkn 04/11/4(木) 10:31 発言
【19468】Re:みなさんのご意見を下さい ackkn 04/11/4(木) 11:31 質問
【19469】Re:みなさんのご意見を下さい ichinose 04/11/4(木) 11:44 発言
【19470】Re:みなさんのご意見を下さい Kein 04/11/4(木) 13:49 発言
【19471】Re:みなさんのご意見を下さい ackkn 04/11/4(木) 15:47 発言
【19472】Re:みなさんのご意見を下さい IROC 04/11/4(木) 16:27 回答
【19473】Re:みなさんのご意見を下さい Kein 04/11/4(木) 16:40 回答
【19474】Re:みなさんのご意見を下さい ackkn 04/11/4(木) 17:08 発言
【19480】Re:みなさんのご意見を下さい Kein 04/11/4(木) 20:55 発言
【19478】Re:みなさんのご意見を下さい ackkn 04/11/4(木) 20:19 質問
【19481】Re:みなさんのご意見を下さい Kein 04/11/4(木) 21:00 発言
【19476】Re:みなさんのご意見を下さい ackkn 04/11/4(木) 19:51 質問
【19477】Re:みなさんのご意見を下さい ちゃっぴ 04/11/4(木) 20:09 発言
【19479】Re:みなさんのご意見を下さい ackkn 04/11/4(木) 20:37 お礼
【19482】Re:みなさんのご意見を下さい ちゃっぴ 04/11/4(木) 21:17 回答
【19484】Re:みなさんのご意見を下さい ichinose 04/11/4(木) 22:29 発言
【19492】Re:みなさんのご意見を下さい ackkn 04/11/5(金) 9:20 回答
【19489】Re:みなさんのご意見を下さい [名前なし] 04/11/5(金) 0:19 発言
【19490】Re:みなさんのご意見を下さい Kein 04/11/5(金) 0:45 発言
【19494】Re:みなさんのご意見を下さい ackkn 04/11/5(金) 10:20 発言
【19497】Re:みなさんのご意見を下さい Kein 04/11/5(金) 13:23 回答
【19500】Re:みなさんのご意見を下さい ackkn 04/11/5(金) 14:01 発言
【19502】Re:みなさんのご意見を下さい vba97_pass 04/11/5(金) 14:55 発言
【19503】Re:みなさんのご意見を下さい vba97_pass 04/11/5(金) 15:07 発言
【19504】Re:みなさんのご意見を下さい ackkn 04/11/5(金) 19:48 質問
【19506】Re:みなさんのご意見を下さい Kein 04/11/5(金) 21:22 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
61886 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free