Excel VBA質問箱 IV

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

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


7280 / 13644 ツリー ←次へ | 前へ→

【39939】月単位推移データの識別 キュウ 06/7/4(火) 15:35 質問[未読]
【39945】Re:月単位推移データの識別 Statis 06/7/4(火) 15:50 発言[未読]
【39947】Re:月単位推移データの識別 バカボン 06/7/4(火) 15:52 発言[未読]
【39949】Re:月単位推移データの識別 Statis 06/7/4(火) 15:56 発言[未読]
【39951】Re:月単位推移データの識別 キュウ 06/7/4(火) 16:01 発言[未読]
【39954】Re:月単位推移データの識別 Statis 06/7/4(火) 16:20 回答[未読]
【39970】Re:月単位推移データの識別 キュウ 06/7/4(火) 17:46 発言[未読]
【39972】Re:月単位推移データの識別 Statis 06/7/4(火) 18:07 発言[未読]
【40121】Re:月単位推移データの識別 キュウ 06/7/7(金) 10:34 発言[未読]

【39939】月単位推移データの識別
質問  キュウ  - 06/7/4(火) 15:35 -

引用なし
パスワード
   エクセルのファイルを複数人で共有し、月単位に推移するデータの管理を行っていますが、月毎にそれぞれのデータ入力が終了し、最終入力者若しくは管理者等が確認ボタンを押下したら、それ以降の入力データ(追加変更など)は全てフォントの色が変わるとか、セルの色が変わるとか...何か変更点が一目で判るような仕組みを作る事は出来ませんかね?....

【39945】Re:月単位推移データの識別
発言  Statis  - 06/7/4(火) 15:50 -

引用なし
パスワード
   ▼キュウ さん:
こんにちは
>エクセルのファイルを複数人で共有し、月単位に推移するデータの管理を行っていますが、月毎にそれぞれのデータ入力が終了し、最終入力者若しくは管理者等が確認ボタンを押下したら、それ以降の入力データ(追加変更など)は全てフォントの色が変わるとか、セルの色が変わるとか...何か変更点が一目で判るような仕組みを作る事は出来ませんかね?....

出来ますよ。

月ごとにシートを区分した方が良いかもしれまでんが?

1シートに何か月分データが入力されるのでしょうか?

【39947】Re:月単位推移データの識別
発言  バカボン  - 06/7/4(火) 15:52 -

引用なし
パスワード
   早速のレスポンスありがとうございます。
1シートに1ヶ月分のデータです。

【39949】Re:月単位推移データの識別
発言  Statis  - 06/7/4(火) 15:56 -

引用なし
パスワード
   ▼バカボン さん:
こんにちは
>早速のレスポンスありがとうございます。
>1シートに1ヶ月分のデータです。

なのになぜ最終データ入力後フォント色を変更する
必要があるのでしょうか?
別シートに移るだけではないですか?

Ps,投稿者名を変えないで下さいね。

【39951】Re:月単位推移データの識別
発言  キュウ  - 06/7/4(火) 16:01 -

引用なし
パスワード
   すみません...説明不足ですねぇ....

>なのになぜ最終データ入力後フォント色を変更する
>必要があるのでしょうか?
>別シートに移るだけではないですか?
        ↓
次の月のデータを入力する場合、前月のシートを利用し
追加変更する為です。(締め切り日設定)


>Ps,投稿者名を変えないで下さいね。
      ↓
    すみません

【39954】Re:月単位推移データの識別
回答  Statis  - 06/7/4(火) 16:20 -

引用なし
パスワード
   ▼キュウ さん:
こんにちは   ↓
>次の月のデータを入力する場合、前月のシートを利用し
>追加変更する為です。(締め切り日設定)

前月のシート上で変更があった場合と考えて。

月締めにボタンを押したとき該当シート(アクティブシート)のセルIV1に
「" "」を入力します。その後はフォント色は青に変わります。

標準モジュールにて
Sub Test_Font()
  Range("IV1").Value = " "
End Sub

下記のコードは「ThisWorkbook」のモジュールにて。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim C As Range
If IsEmpty(Range("IV1").Value) Then Exit Sub
For Each C In Target
  C.Font.ColorIndex = 5
Next C
End Sub

【39970】Re:月単位推移データの識別
発言  キュウ  - 06/7/4(火) 17:46 -

引用なし
パスワード
   ▼Statis さん:
早速試してみたのですが、「ThisWorkbook」のモジュールにてエラーが発生しました。ご指示の通り設定し、シートに戻ってセルIV1に""を入力しましたが『コンパイルエラー〜SubまたはFunctionが定義されていません』の表示が出ました。なぜでしょう????

【39972】Re:月単位推移データの識別
発言  Statis  - 06/7/4(火) 18:07 -

引用なし
パスワード
   こんにちは

下記のコードは「標準モジュール」
Sub Test_Font()
  Range("IV1").Value = " "
End Sub

下記のコードは「ThisWorkbook」のモジュール

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim C As Range
If IsEmpty(Range("IV1").Value) Then Exit Sub
For Each C In Target
  C.Font.ColorIndex = 5
Next C
End Sub

としていますか?


【40121】Re:月単位推移データの識別
発言  キュウ  - 06/7/7(金) 10:34 -

引用なし
パスワード
   ▼Statis さん:
こんにちは
昨日、一昨日と出張しておりまして返答が遅れてしまいました。
リモートアクセスも出来ない状態で....
質問していますのはこちらからなのに大変失礼致しました。


下記のコードは「General」いわゆるSheet1
    ↓
Sub Test_Font()
  Range("IV1").Value = " "
End Sub

下記のコードは「Workbook」いわゆるThisWorkbook
    ↓
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim C As Range
If IsEmpty(Range("IV1").Value) Then Exit Sub
For Each C In Target
  C.Font.ColorIndex = 5
Next C
End Sub

のモジュールに記述しています。

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