VBAでセルに変更があったらユーザアカウントを取得
- VBA初心者の方が、セルに変更があった場合にその変更内容とユーザアカウント名を取得したいと考えています。イベントプロシージャを使用して実現しようとしましたが、無限ループに陥ってしまう問題が発生しています。解決方法や代替手段についてアドバイスをいただきたいです。
- VBAを使用して、セルの変更があった際にその変更内容と変更したユーザアカウント名を取得する方法について教えてください。イベントプロシージャを使用しようとしましたが、無限ループに陥ってしまうため、他の方法があれば教えてください。
- VBAのイベントプロシージャを使用して、セルの変更を監視し、変更内容とユーザアカウント名を取得したいと考えています。しかし、現在のコードでは、書き込まれたユーザアカウントも「変更」とみなされて無限ループに陥ってしまいます。この問題を解決する方法や、代替手段があれば教えてください。
- ベストアンサー
VBAでセルに変更があったらユーザアカウントを取得
こんにちは。VBA初心者です。 イベントプロシージャを使って、セルに変更があったら、その右隣のセルにWindowsのユーザアカウント名と変更時刻を取得したいと思い、以下のようなコードを書いたのですが、書き込まれたユーザアカウントも「変更」とみなされて無限ループに陥ってしまいます。 どうしたら、この問題が解決できるでしょうか。 あるいは、イベントプロシージャを使用せずに同じことが実現できるでしょうか。 どうか皆さんのお知恵をお貸しください。 よろしくお願いします。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Target.Offset(0, 1).Value = Application.UserName Target.Offset(0, 2).Value = Now End Sub
- Kazu_creator
- お礼率54% (65/120)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents=False Target.Offset(0, 1).Value = Application.UserName Target.Offset(0, 2).Value = Now Application.EnableEvents=True End Sub Eventを受けた時、続くEventを無効にします。1つのEvent処理をしたら、Event処理を有効にします。
その他の回答 (1)
- nicotinism
- ベストアンサー率70% (1019/1452)
たまに見かけますね。無限ループもどきに陥る回答をされて 解決しましたぁ！・・・ての。 回避策は＃１さんので十分かと思いますが Application.UserName だとインストール時の名前が返ってくるだけなのでは？ 環境が違うと変わるかもしれません。確認してください。 Windowsのユーザアカウント名なら environ("username") が良さそうににも思えますけど？
お礼
なるほど、確かにユーザアカウントを取得するなら environ("username") の方がよさそうです。 ・ユーザアカウントの取得⇒environ("username") ・複数のユーザアカウント持っていて誰だか判らなくなって困る場合⇒Application.UserName で、使い分けようかと思います。ありがとうございました。
関連するQ&A
- 【Excell VBA】ユーザーフォーム上のスプレッドシートのセルを選択したときのイベント
Excell VBA にて、 ユーザーフォーム(userForm1)に、スプレッドシートを 1)その他のコントロール 2)Microsoft Spreadsheetを追加 によって追加して、 そのspreadSheet1上のsheet1の任意のセル(D:＊)をクリックしたとき、その行のD1:D5ｋ一連の値を変数に代入したいのですが、 まず手始めとして、そのセルを選択したときにイベントを発生させたい。 該当のセルを選択してプロシージャを追加すると Private Sub Spreadsheet1_BeforeContextMenu( _ ByVal x As Long, _ ByVal y As Long, _ ByVal Menu As OWC11.ByRef, _ ByVal Cancel As OWC11.ByRef _ ) となります。 比較のため Private Sub Spreadsheet1_SelectionChange(ByVal Target As Range) If Target.Address() = "$A$1" Then MsgBox "このセルはA1です。" End If End Sub だと、 Error・・・「コンパイル エラー: プロシージャの宣言が、イベントまたはプロシージャの定義と一致していません。」 ・・・どうすればよいのでしょう。 最終的には、「その行のいくつかの値を変数に代入したい」のですが
- ベストアンサー
- オフィス系ソフト
- マクロでシート名を変更を変更したい
A1セルの値をシート名にするマクロは以下のとおりだと思います。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub では、E6セルの値をシート名にすることは可能でしょうか？ よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- セルの値を変更した時に日付けが入るマクロ
エクセル2010を使っている者です。 １９行以内、１９列以内の範囲において変更があった場合は、変更のあった行の ２０列目に日付けが入るようしたくて、以下のVBAを書いたつもりなんですが、 うまく動きません。 セルの値を変えたり、セルをダブルクリックして編集可能な状態にすると、 日付けは入るのですが、そのセルより右の１９列目までのセルが全て 「41602」といった数字に変わってしまいます。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = Target.Row > 19 Then Exit Sub If Target.Column > 19 Then Exit Sub Target.Offset(0, 1).Value = Date End Sub なお、上記のVBAは以下のサイトを見て作ったものです。 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html どなたか、どこがおかしいのかお教えください。
- ベストアンサー
- Excel（エクセル）
- エクセルVBA イベントプロシージャに引数を渡せま
お世話になります。 エクセル２００３／XP 使用です。 イベントプロシージャに引数を渡せまるかどうか教えていただけますでしょうか？ 下記のコード中の変数mysheetnameを ユーザーフォーム、→ CommandButton１のプロシージャに 引数として渡して行きたいのですが、 実行すると、一番最初のWorkbook_SheetBeforeRightClickの時点で、 コンパイルエラー： プロシージャの宣言が、イベントまたはプロシージャの定義と一致していません。 とエラー表示されます。 イベントプロシージャに引数を渡すことはできますでしょうか？ ---------- ThisWorkBook内 ---------- Public mysheetname As String Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) mysheetname = ActiveSheet.Name UserForm1.Show (mysheetname) '←変数mysheetnameの値をユーザーフォームに渡したい。 End Sub ---------- ユーザーフォーム ---------- Private Sub UserForm_Initialize(ByVal mysheetname As String ) 処理 End Sub Private Sub CommandButton1_Click(ByVal mysheetname As String ) 処理 End Sub ’--------- ここまで 引数について少し理解し始めたばかりの者です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルｖｂａ (ByVal Target As Range)について
シートのイベントプロシージャーが Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub となりますが (ByVal Target As Range)部分は何なのでしょうか？ 何のためにあるのかわかりません。 Private Sub Worksheet_SelectionChange() End Sub としたらエラーが返ってきました。 理由を教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA イベントプロシージャを２つ記述する（基本です）
基本的な事なのですが、Excelのイベントプロシージャで２つプログラムを作るにはどうやって記述すればよいのでしょうか？ 具体的には、worksheetのchangeイベントで、セルC5の値を変えた時と、セルG7の値を変えた時の２通りのマクロを作成したいのです。 Private Sub Worksheet_Change(ByVal Target As Range) C5を変えた時の処理 End Sub Private Sub Worksheet_Change(ByVal Target As Range) G7を変えた時の処理 End Sub このように書けばよいのでしょうか？そうするとTargetがかぶっておかしくなる気がします。。 お願いします。
- ベストアンサー
- オフィス系ソフト
- 変化するセルが変更されたら実行、というVBAを組みたい
たとえば、このセルが変更されたら実行、というのは Private Sub WorkSheet_change (Byval Target As Range) If(Target.Address = "$D$3") Then call *** End If End Sub のようにしますよね？ この場合、指定したセルは「D3」ですが、たとえば、 A列、B列、C列、D列のアクティブの行のセルが変更されたらコード実行、 というようにするにはどうしたらいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excel VBAについて
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, cancel As Boolean) If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub Application.Goto Worksheets("人件費").Range("A1") Worksheets("人件費").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Target.Offset(, -5).Value cancel = True End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, cancel As Boolean) If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub Application.Goto Worksheets("外注費").Range("A1") Worksheets("外注費").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Target.Offset(, -5).Value cancel = True End Sub 上の指令はFの列をダブルクリックすると人件費のシートが開いてAある値を人件費の新しいセルのAに代入する指令ですが それをG列ダブルクリックで外注費シートに同じようにやろうと思いましたが出来ません。 たぶん根本的に書き方が間違っているのかと思われますが、ご指導のほどお願いします。
- ベストアンサー
- Excel（エクセル）
- VBA：Callステートメントでいつでもイベント発生可能な準備をしたい。
タイトルどおり、Callステートメントでいつでもイベント発生可能な準備ができるようにしたいと考えています。しかし、Sub 実行準備SUBでエラーが出ています。どこをどう直せばよいのか教えて頂きたいです。 Private Sub Auto_Open() MsgBox "Ctrl + t でイベント実行準備を行います。" Application.OnKey "^{t}", "実行準備SUB" End Sub '--------------------------------------------------- Sub 実行準備SUB() Dim Target As Range Target = Range(Cells(1, 1), Cells(100, 100)) Call Worksheet_Change(ByVal Target) End Sub '--------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim r As Range For Each r In Target If r.Column = 2 Then r.Offset(0, -1).Value = Now End If Next r End Sub イベントは、シートの2列目のセルに変更があれば、1列目に日付時刻を記入するというものです。宜しくお願い致します。
- ベストアンサー
- Visual Basic
- 値を変更後にセルがアクティブ状態に
セルをダブルクリックして値を変えるマクロを作ったのですが 値を変更後にセルがアクティブ状態になってしまいます。 エンターを押したり他のセルをクリックすれば通常通りになるのですが、 ＶＢＡでも通常通りに戻すにはどうすればいいでしょうか？ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim mystr As String mystr = Target.Value If mystr = "Yes" Then Target.Value = "No" ElseIf mystr = "No" Then Target.Value = "Yes" End If End Sub を実行すると、 セルをクリックしてＦ２を押した時のような状態になってしまいます。 コードの最後に Target.Cells.Select を入れてみましたが、変わりませんでした。 スクショを撮ってみたのですが、カーソル？棒？が映りませんでした。
- 締切済み
- Excel（エクセル）
お礼
お礼が遅くなり申し訳ありません。 教えていただいた方法でできました。 いくつかVBAの参考書を持っているのですが、意外とこういう基本的な事が書いてないんですね。 VBEのヘルプも、「Application.EnableEvents」から検索すればヒットしますけど、そもそも、そういうものがあることを知らないとなかなか探せないです。 非常に助かりました。