Excel VBA質問箱 IV

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

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


39494 / 76737 ←次へ | 前へ→

【42353】Re:変更箇所を記録するには
回答  ハチ  - 06/9/7(木) 17:47 -

引用なし
パスワード
   ▼にしもり さん:
>Logファイルに書くとは、どうすればできるのでしょうか。
>ごめんなさい、まったく知識がありません。
>変更をしたひとの社員IDが判ればそれでいいのですが。。

意味を理解できないマクロを使うとメンテに困りますので
使用する前にマクロの内容を調べてからにしてください。
社員IDをどうやって取得するのかわかりませんので、
とりあえずログイン名で。
マクロを記入した後、一度Bookを閉じてください。
Sheetの情報を変更するとBook同じフォルダに"変更.Log"が出来ます。
エラー処理は入れてません。

'ThisWorkbookモジュールへ
Option Explicit

Private Sub Workbook_Open()
  Dim WSN As Object
  
  Set WSN = CreateObject("WScript.Network")
  myName = WSN.UserName
  Set WSN = Nothing
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim R As Range
  Dim buf As Variant
  
  For Each R In Target.Cells
    buf = Array(myName, Sh.Name, R.Address(0, 0), R.Value) 'Logingする情報
    Add_Log (buf)
  Next R
  Erase buf
End Sub

'標準モジュールへ
Option Explicit

Public myName As String

Sub Add_Log(Str As Variant)
  Dim myPath As String
  myPath = ThisWorkbook.Path '保存先
  Const myFile As String = "\変更.Log"  'ファイル名
  
  Open myPath & myFile For Append As #1
      Write #1, Join(Str, ",")
  Close #1

End Sub

0 hits

【42312】変更箇所を記録するには にしもり 06/9/6(水) 13:49 質問
【42318】Re:変更箇所を記録するには mw 06/9/6(水) 15:46 回答
【42319】Re:変更箇所を記録するには にしもり 06/9/6(水) 16:04 質問
【42353】Re:変更箇所を記録するには ハチ 06/9/7(木) 17:47 回答
【42361】Re:変更箇所を記録するには Kein 06/9/8(金) 2:16 回答
【42370】Re:変更箇所を記録するには にしもり 06/9/8(金) 13:26 質問
【42385】Re:変更箇所を記録するには ponpon 06/9/9(土) 0:24 発言
【42443】Re:変更箇所を記録するには にしもり 06/9/12(火) 10:44 質問
【42445】Re:変更箇所を記録するには ハチ 06/9/12(火) 12:00 発言
【42452】Re:変更箇所を記録するには にしもり 06/9/12(火) 15:02 お礼

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