Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2228 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【69250】Changeについて 今担当者 11/6/14(火) 22:32 質問[未読]
【69251】Re:Changeについて syacho 11/6/14(火) 22:48 発言[未読]
【69252】Re:Changeについて 今担当者 11/6/14(火) 23:05 発言[未読]
【69253】Re:Changeについて 今担当者 11/6/14(火) 23:23 発言[未読]
【69254】Re:Changeについて syacho 11/6/14(火) 23:32 発言[未読]
【69255】Re:Changeについて syacho 11/6/14(火) 23:39 発言[未読]
【69260】Re:Changeについて 今担当者 11/6/15(水) 15:23 お礼[未読]
【69250】Changeについて
質問  今担当者  - 11/6/14(火) 22:32 -
引用なし
パスワード
   いつもお世話になっております。

以前の担当者が、下記のようなマクロを作っているのですが、
このマクロでＸ列にDateが表示されます。
あたしには、Ｅ列に表示されるようなマクロにしか見えないのですが、
どうしてＸ列なのでしょうか？
教えてください。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim 範囲左 As Integer
　　Dim 範囲右 As Integer
　　Dim 範囲上 As Integer
　　
　　範囲左 = 1
　　範囲右 = 4
　　範囲上 = 2
　　
　　With Target
　　　　If .Column >= 範囲左 And .Column <= 範囲右 _
　　　　　And .Row >= 範囲上 Then
　　　　　　Cells(.Row, 範囲右 + 1).Value = Date
　　　　End If
　　End With
End Sub
【69251】Re:Changeについて
発言  syacho  - 11/6/14(火) 22:48 -
引用なし
パスワード
   E列の表示で正しいと思います。

Xの列にE列を参照する数式が入っていませんか？

= E2　とかで、

E列のフォントカラーが白に設定されているとか。
【69252】Re:Changeについて
発言  今担当者  - 11/6/14(火) 23:05 -
引用なし
パスワード
   ▼syacho さん：
>E列の表示で正しいと思います。
>
>Xの列にE列を参照する数式が入っていませんか？
>
>= E2　とかで、
>
>E列のフォントカラーが白に設定されているとか。

＝Ｅ2は入ってないんですよね・・・。

なぜＸ列なのか不思議でなりません・・・。

Ｅ列には関係ないデータが入っている状態です。
【69253】Re:Changeについて
発言  今担当者  - 11/6/14(火) 23:23 -
引用なし
パスワード
   ちなみに、シートがたくさんある中、
標準モジュールにこのマクロがあるのですが、
それも何か関係有るでしょうか？
【69254】Re:Changeについて
発言  syacho  - 11/6/14(火) 23:32 -
引用なし
パスワード
   なるほど、標準モジュールにこのコードが書かれているのですね。

そうなると、ご提示のソースは全く作動していませんので関係ありません。

関係があるのは、その対象シートに書かれているWorkSheet_Change部です。

ご確認下さい。
【69255】Re:Changeについて
発言  syacho  - 11/6/14(火) 23:39 -
引用なし
パスワード
   チェックする部分がもう一箇所あります。

ThisWoekBook モジュールの
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

このイベントは、Book内のシートの値が変更された時に発生します。
【69260】Re:Changeについて
お礼  今担当者  - 11/6/15(水) 15:23 -
引用なし
パスワード
   ▼syacho さん：
>チェックする部分がもう一箇所あります。
>
>ThisWoekBook モジュールの
>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
>
>End Sub
>
>このイベントは、Book内のシートの値が変更された時に発生します。

他にＸ列にDateが表示されるようなマクロが組まれてました。

このマクロは作動していないのですね。

教えていただき、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2228 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free