Excel VBA質問箱 IV

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

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


51931 / 76732 ←次へ | 前へ→

【29650】Re:マクロを使ってリアルタイムで更新される情報を動画の様に記録できますか?
回答  Kein  - 05/10/10(月) 14:49 -

引用なし
パスワード
   こんな感じでどうかな ? シートモジュールに入れてみて下さい。

Private MyF As String

Private Sub Worksheet_Activate()
  With ActiveSheet
   If .ProtectContents Then .UnProtect
   .Protect UserInterfaceOnly:=True
  End With
  If MyF = "" Then
   MyF = Application.DefaultFilePath & "\" & _
   Format(Date, "yyyy_mm_dd") & "日中足.txt"
  End If
  If Dir(MyF) = "" Then
   Open MyF For Output Access Write As #1
   Print #1, Format(Date, "yyyy/mm/dd")
   Close #1
  End If 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  Dim St As String

  If Dir(MyF) <> "" Then
   St = ""
   For Each C In Target.EntireRow.SpecialCells(2)
     St = St & C.Text & ","
   Next
   St = St & Format(Time, "hh:mm:ss")
   Open MyF For Append Access Write As #1
   Print #1, St
   Close #1
  End If
End Sub
0 hits

【29646】マクロを使ってリアルタイムで更新される情報を動画の様に記録できますか? miku2000 05/10/10(月) 10:50 質問
【29648】Re:マクロを使ってリアルタイムで更新され... りん 05/10/10(月) 11:36 発言
【29699】りん さん,早速のアドバイスありがとうござ... miku2000 05/10/12(水) 8:29 お礼
【29650】Re:マクロを使ってリアルタイムで更新され... Kein 05/10/10(月) 14:49 回答
【29700】Kein さん、ありがとうございます! miku2000 05/10/12(水) 8:33 お礼

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