LANの環境下で、エクセルを用い個人実績管理表(日ごと)を作ろうと思います。但し、次の要件をクリアしたいのです。

(1) 各端末からデータ入力できる。
(2) 各端末同時に作業できる。
(3) 各セクションは他のデータを見ることができない。
(4) 入力されたデータは一つの表に個人ごとに集計される。
(5) 年に数回各セクション間で人の入れ替えがあり、データの入れ替えを簡単に。

【 例 】
 ● シート別(各セクションをシート別に管理)に実績管理表を作ると(2)、(3)がクリアできず、(5)については、シート間の入れ替え作業が繁雑になります。
 ● ブック別(各セクションをブック別に管理)にすると、やはり(2)がクリアできず(5)の作業が繁雑です。
 ● 一つのシートで管理すれば、(1)、(4)それに(5)がクリアできますが、それ以外はできませんです。(以上できないとしたのは、あくまでも小生の場合の話です)

 何かいい知恵はないでしょうか。関数、マクロ総動員(但し小生素人)でもかまいません。よろしくお願いします。
 ちなみに、セクションは10以上、人は500名くらいになります。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

(1) 各端末からデータ入力できる。


 ブックが分かれている為に各端末から出来る
(2) 各端末同時に作業できる。
 ブックが分かれている為に各端末から同時に出来る
(3) 各セクションは他のデータを見ることができない。
 名前を知らない、パスワードを付ける
(4) 入力されたデータは一つの表に個人ごとに集計される。
 リンクしているので可能
(5) 年に数回各セクション間で人の入れ替えがあり、データの入れ替えを簡単に。
 ブックが分かれているから簡単(チョットキツイカ?)

以上です。かんばって下さい
    • good
    • 0
この回答へのお礼

k ebaさんこんばんわ。解説までしていただきありがとうございました。

<(5) 年に数回各セクション間で人の入れ替えがあり、データの入れ替えを簡単 に。ブックが分かれているから簡単(チョットキツイカ?)

チョットネ…。でも、がんばってみます。

お礼日時:2001/10/12 19:26

セクション毎にブックを作り、統合ブックにセクションシートを作れば


セクションブックが更新されていれば
統合ブックを開いた時に自動的にセクションシートは更新されますが
いかがなものでしょうか?

方法
 統合ブックのシート1のA1に
 =[セクションブック名]SHEET1!$A$1

ではお気に召しませんか?

がんばって下さい。

この回答への補足

k ebaさん、お答えありがとうございました。
早速試してみたいと思います。光が射し込んだ気分です。

ところで、(1)~(5)をクリアできる理由についても教えていただければ大変参考になりますが、お願いしてもよろしいでしょうか。

補足日時:2001/10/11 17:40
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q二枚のシートから各シートへの抽出

すみません、日を改めての再投稿です。

会計処理する上で下記のような方法が出来るかどうか教えて下さい。

「普通預金」シートと「現金」シートがあり明細を記入していきます。

項目には「日付」「摘要」「収入」「支出」「残高」があります。

そこで項目に「番号」を追加し、下記の通りに置き換えます。

会議費=1

「会議費」シートを作成し、「普通預金」と「現金」シートに記入した分は会議費シートに
追加されていくという方法は可能でしょうか?

わかりづらい説明で大変申し訳ありません。
現在の方法だと、例えば「現金」で「会議費」を支払ったとすると、

「普通預金」と「会議費」

2枚に記入しなくてはならないため間違いも起こりやすくなっています。

「普通預金」か「現金」シートに記入すれば自動的に「会議費」に反映されるようにしたいということです。

一応画像も作成してみたのでご参考になれば幸いです。

よろしくお願いいたします。

Aベストアンサー

No.2です!
続けてお邪魔します。

前回の続きです。

「現金」Sheet見出し上で右クリック → コードの表示 → VBE画面に↓のコードをコピー&ペースト

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
Dim k As Long
k = Cells(Rows.Count, 2).End(xlUp).Row
If Cells(k, 7) = 1 Then
Call ThisWorkbook.会議費マクロ
End If
End Sub 'この行まで

同様に「普通預金」Sheetにも全く同じコードで良いですのでコピー&ペーストしてみてください。

尚、会議費SheetのH列に作業用の列が見えていますが、目障りであればH列を非表示にしておいてください。

尚、すべてのSheetにまだデータがない場合は「会議費マクロ」は実行する必要ありません。
「現金」「普通預金」Sheetに入力すれば自動的に「会議費」Sheetに反映されると思います。

お役に立てば良いのですが、他に良い方法があればごめんなさいね。m(__)m

No.2です!
続けてお邪魔します。

前回の続きです。

「現金」Sheet見出し上で右クリック → コードの表示 → VBE画面に↓のコードをコピー&ペースト

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
Dim k As Long
k = Cells(Rows.Count, 2).End(xlUp).Row
If Cells(k, 7) = 1 Then
Call ThisWorkbook.会議費マクロ
End If
End Sub 'この行まで

同様に「普通預金」Sheetにも全く同じコードで良いですのでコピー&ペーストしてみてください。

尚、会議費...続きを読む

Q2枚のシートから各シートへの抽出

会計処理する上で下記のような方法が出来るかどうか教えて下さい。

「普通預金」シートと「現金」シートがあり明細を記入していきます。

項目には「日付」「摘要」「収入」「支出」「残高」があります。

そこで項目に「番号」を追加し、下記の通りに置き換えます。

会議費=1

「会議費」シートを作成し、「普通預金」と「現金」シートに記入した分は会議費シートに
追加されていくという方法は可能でしょうか?

わかりづらい説明で大変申し訳ありません。
現在の方法だと、例えば「現金」で「会議費」を支払ったとすると、

「普通預金」と「会議費」

2枚に記入しなくてはならないため間違いも起こりやすくなっています。

「普通預金」か「現金」シートに記入すれば自動的に「会議費」に反映されるようにしたいということです。

一応画像も作成してみたのでご参考になれば幸いです。

よろしくお願いいたします。

Aベストアンサー

こんばんは!
余計なお世話かもしれませんが・・・
一つの案として、もう一つ入力用のSheetを作成し帳簿のような感じでお金(物)の動きがあった場合は
すべて入力していき、それを「現金」・「普通預金」・「会議費」・・・等々のSheetへ振り分けるようにしてみてはどうでしょうか?

↓の画像(画像が小さくて見えにくいかもしれません)で上側のSheetが「入力用」Sheetとしています。
そして、「科目」・「摘要」は入力規則からリスト表示するようにしていますので、数値を入れる「項目」の列は必要なくなると思います。

「科目」別Sheet・または「摘要」別SheetのA1セルにはSheet名をすべて入れておきます。
「科目」の列にあるSheetをグループ化
(画像では「普通預金」Sheetを開き、Shiftキーを押しながら「現金」SheetのSheet見出しをクリックすると二つのSheetがグループ化されます)し

「普通預金」SheetのA3セルに
=IF(COUNTIF(入力用!$B$1:$B$1000,$A$1)<ROW(A1),"",INDEX(入力用!A$1:A$1000,SMALL(IF(入力用!$B$1:$B$1000=$A$1,ROW($A$1:$A$1000)),ROW(A1))))
これは前回同様配列数式になりますので、Shift+Ctrlキーを押しながらEnterキーで確定!
これをE列までオートフィルでコピー!
A3セルの表示形式は「日付」にしておきます。
最後にA3~E3セルを範囲指定しE3セルのフィルハンドルで下へコピーすると画像のような感じになります。

尚、会議費Sheet(摘要の項目Sheet)は「入力用」Sheetでは別列になりますので、
数式が少し変わります。
「会議費」SheetのA3セルに
=IF(COUNTIF(入力用!$C$1:$C$1000,$A$1)<ROW(A1),"",INDEX(入力用!A$1:A$1000,SMALL(IF(入力用!$C$1:$C$1000=$A$1,ROW($A$1:$A$1000)),ROW(A1))))
(これも配列数式です。)として先ほど同様の操作方法で画像のような感じになります。

※ メニュー → ツール → オプション → 「表示」タブで「ゼロ値」のチェックは外しています。

これで「入力用」Sheetに入力するだけで、それぞれのSheetに振り分けられて表示されると思います。

以上、長々と書きましたが
的外れならごめんなさいね。m(__)m

こんばんは!
余計なお世話かもしれませんが・・・
一つの案として、もう一つ入力用のSheetを作成し帳簿のような感じでお金(物)の動きがあった場合は
すべて入力していき、それを「現金」・「普通預金」・「会議費」・・・等々のSheetへ振り分けるようにしてみてはどうでしょうか?

↓の画像(画像が小さくて見えにくいかもしれません)で上側のSheetが「入力用」Sheetとしています。
そして、「科目」・「摘要」は入力規則からリスト表示するようにしていますので、数値を入れる「項目」の列は必要なくなると思...続きを読む

Qフォーマットが違うシート毎に算出されたSUMの総合計を別シートに出したい

上記の件で質問させて下さい。
各地の担当者から毎回DMの発注リストが
来るのですが、各担当者ごとに記入形式
(フォーマット)がバラバラです。
各担当者ごとの希望枚数を一括して別シートに
集計したいのですが・・・。
よろしくお願いします。
追伸 Mac版のエクセルを使っています。

Aベストアンサー

>各担当者ごとに記入形式(フォーマット)がバラバラです。
これを統一フォームにするのが一番早いです。コンピュータで処理し易くし、確実に誰でも間違わずに処理できるようにするのがOA化です。
VBAを使っても出来るかどうかわかりません。

Qアクセス 複数クエリ⇒エクセルの各シートに

MS Access と MS Excelとの連携テクニックについて、
教えてください。

アクセスで、クエリA・クエリB があるとすると、
マクロ・VBAを使用して、
これらを、エクセルファイル(ファイル名は任意)の
各シートとして、Sheet1,Sheet2としてエクスポートしたいのですが、
可能でしょうか?

Aベストアンサー

「ワークシート変換」で、シート名が「テーブル名」で作成されます。
Sheet1,Sheet2の名前のクエリを作成して同じエクセルファイルに変換してみて、どうですか?

Qシートのデータをクリアしてクリップボードの内容を貼り付ける方法

シートのデータをクリアしてからクリップボードのデータを貼り付けるマクロを作成しています。
■処理内容
Sheets("Sheet1").Cells.Clear
Sheets("Sheet1").Paste

別アプリのデータをクリップボードに保存した場合は問題ないのですが、同一のエクセルウィンドウ内にあるセルデータをコピーした場合、Cells.Clearを実行した時点でシートのデータだけでなくクリップボード内のデータも消えてしまう為、張り付けることができません。

※クリップボード内のデータを消さずにシートの内容をクリアする方法はありますか?

よろしくお願いします。

Aベストアンサー

こんにちは。

> 同一のエクセルウィンドウ内にあるセルデータをコピーした場合

それなら、データをコピーするのもクリアするのも自由にタイミング
が取れるはずですから、データをクリアした後にコピーすれば良い
だけでは?

  Worksheets("Sheet2").Cells.Clear
  Worksheets("Sheet1").Range("A1:C10").Copy _
    Destination:=Worksheets("Sheet2").Range("A1")

はずしたかな...?


このカテゴリの人気Q&Aランキング

おすすめ情報