Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7282 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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」のモジュールにてエラーが発生しました。ご指示の通り設定し、シートに戻ってセルＩＶ１に""を入力しましたが『コンパイルエラー〜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

のモジュールに記述しています。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7282 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free