[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『伝言ノート管理』（いわた）
はじめまして。いわたと申します。どうかよろしくお願いします。特別養護老人ホームに勤めている介護スタッフです。
スタッフ同士で、介護内容の共通認識のための伝言ノートがあるのですが、これをエクセルで管理したいと思っています。「日付」と「利用者名」と「伝言内容」の順でそれぞれをまず日付順にsheet1にスタッフが記入していき、sheet2にsheet1に書いた内容が利用者名で、あいうえお順に並び「日付」と「伝言内容」も反映されるようにすることは出来ますでしょうか？
さらに、外国人スタッフが多く、伝言内容の漢字にふりがなも付けられると嬉しいです・・。
勝手なお願いで申し訳ありませんが、教えていただけたらと思います。
＜ 使用 Excel：Excel2013、使用 OS：Windows7 ＞
その仕掛けは、
(1)全員が、同じPCを使って、そのエクセルブックを見たり書いたりするってことですか？
(2)それとも、各自別々のPCを持っていて、どこかのPC(サーバー)にアクセスして、 そのエクセルブックを見たり書いたりするってことですか？
（半平太） 2018/08/12(日) 17:02
＞一番したい事は利用者ごとに、あいうえお順に書かれた内容がいっぺんに見られることです。 ＞「いわた」という利用者さんであれば「いわた」のところをクリックすれば過去に書かれた内容が一覧できるということです。
そこ、ちょっと矛盾していませんか？
上段は、「全員」の分をあいうえお順に表示ですよね？ 下段は、「一人」の分だけを表示ですよね？
それとも、２つの機能が別々に必要なんですか？
そうだとした場合、「いわた」のところ、とは、 どっちのシートに書かれている「いわた」なんですか？ Sheet1/Sheet2
あと、頭で想像しただけですが、 不要になった過去の記述が増えて来ると、うっとおしい気がするんですが、 各自、こまめに不要になった分は消すルールにするんでしょうか？
※でも、間違って消すと、前に何書いてあったっけー、なんて問題も発生しそう。 運用ルールは大丈夫ですか？
（半平太） 2018/08/14(火) 08:16
こう云うことなんですか？ ↓ 上段は、「全員の名前」だけを あいうえお順に 表示したい
下段は、 その内の一人を選ぶと、「日付」と「伝言内容」を表示したい
（半平太） 2018/08/14(火) 09:06
フリガナつけたいんだったら元のシートだけにして名前でオートフィルタで いいのではないかと思うんですが… （コナミ） 2018/08/14(火) 09:40
もし良い方法がありましたら恐縮ながらお教えください。
（いわた） 2018/08/14(火) 22:47
下記マクロをSheet2の「シートモジュール」にコピペする（標準モジュールではないので留意されたい）
<使い方> １．Sheet1で何か伝言を入れたら、Sheet2のシート見出しを選択してSheet2に移動する。
※別に伝言を入れなくてもいいけど、Sheet2じゃないシートから Sheet2に移動しないと、利用者一覧の最新版が出来ないだけ。
利用者が頻繁に増減するものでもないでしょうから、ここはそんなに気にしないでもいいかも知れない。
２．Sheet2のA列に利用者一覧の最新版があいうえお順にならんでいるので、 希望する利用者の名前を「ダブルクリック」する。(シングルクリックじゃないので留意されたい）
<Sheet1 サンプル> 行 ___A___ ___B___ _________________________C_________________________ 1 日付 利用者 伝言 2 8月1日 半平太 明日(8/2)は12:30に早帰りします。よろしくでーす。 3 8月1日 春子 明日(8/2)は12:30に遅刻しまーす。 4 8月3日 半平太 明日(8/4)は昼食要らないです。 5 8月4日 近藤 今日は12番ベッドの小山さんのご両親が来訪されます。
<Sheet2 に移動した結果図> 実際にはフリガナが出ています。 行 ___A___ 1 利用者 2 近藤 3 春子 4 半平太
<Sheet2 半平太(A4セル)をダブルクリックした結果図> 実際にはフリガナが出ています。 行 ___A___ ___B___ ___C___ ________________________D________________________ 1 利用者 日付 利用者 伝言 2 近藤 8月1日 半平太 明日(8/2)は12:30に早帰りします。よろしくでーす。 3 春子 8月3日 半平太 明日(8/4)は昼食要らないです。 4 半平太
’シート2に貼り付けるマクロ
Const Ws1 As String = "Sheet1" '←実際のシート名にする
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Me.UsedRange.ClearContents
With Sheets(Ws1)
.Columns("B").Copy Me.Range("A1")
Me.Columns("A").RemoveDuplicates Columns:=1, Header:=xlYes
End With
Me.Sort.SortFields.Clear
Me.Sort.SortFields.Add Key:=Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlAscending
With Me.Sort
.SetRange Range("A1:A" & Me.UsedRange.Rows.Count)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With Range("A1:A" & Me.UsedRange.Rows.Count)
.Phonetics.Visible = True
End With
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Cond As Range
If Target.Column <> 1 Or Target.Value = "" Then
Exit Sub
Else
Cancel = True
End If
Application.ScreenUpdating = False
Me.UsedRange.Offset(, 1).ClearContents
Set Cond = Me.Range("E1:E2")
Cond(1, 1) = Sheets(Ws1).Range("B1").Value '利用者
Cond(2, 1).Value = Target.Value
Sheets(Ws1).Columns("A:C").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Me.Range("E1:E2"), CopyToRange:=Me.Columns("B:D"), Unique:=False
With Range("B1:D" & Me.UsedRange.Rows.Count)
.Phonetics.Visible = True
End With
Cond.ClearContents
Application.ScreenUpdating = True
End Sub
（半平太） 2018/08/14(火) 23:52
日付順にするのを忘れてしまった。 m(__)m
本当に必要なんですか？ 自然体で昇順になりそうな気がするんですけど・・
（半平太） 2018/08/14(火) 23:54
（いわた） 2018/08/15(水) 20:37
それって質問なんですか？
私としては、用済みになった過去の伝言をどう始末するかの方が気がかりですけどね。
例えば、D列にフラグを立てて、その伝言はSheet2に出ない様にするとか。
まぁ現場で、運用が軌道に乗らないとアイデアも出ないでしょうね。
（半平太） 2018/08/15(水) 21:26
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.