全5件 (5件中 1-5件目)
1
電子カルテで参加者の帳簿を出すときにこんな感じで出てきます。 A 木村拓哉 神木隆之介 オダギリジョー1 鈴木えみ 石原さとみ 坂口健太郎 要潤これが一つのセルで出てくるんですね。なんて処理しづらいのでしょうか。一つずつセルを分けてくれればありがたいんですけど。たとえばここから参加者の人数を数えるとしましょう。セルを数えるカウントイフは使えないのでREN関数を使っていきます。文字列の数を数える関数です。まずはすべての文字列を数えていきます。=LEN(A1)続いて改行を改行なしに置換した場合の文字数を数えていきます。置換の関数も用いなければなりません。=LEN(SUBSTITUTE(A1,CHAR(10),""))置換がsubstitute関数でCHAR(10)ってのは改行って意味です!さて(置換前の文字数)-(置換後の文字数)で改行の数が出てきます。=LEN(A1)-LEN(SUBSTITUTE(A1,CHAR(10),""))一人の名前に対して一回改行されてますからこれで参加者の人数が算出されるわけです。注意すべきは最後のひとは改行されていないということ。そこで+1をしてやります。=LEN(A1)-LEN(SUBSTITUTE(A1,CHAR(10),""))+1これで完成しました!患者様との時間を増やす!これがパパOTの目標です!是非参考にしてください!
2017.02.22
コメント(0)
もう忘年会シーズンも終わってしまいましたが私の勤務先では「人名くじ」というのを忘年会や新年会で行っています。ビンゴは時間がかかるという事で全員の名前がかかれた複数の紙を抽せん箱から一つ選び出すというものです。これを今年はExcelでやってみようと思い作ったものがあるので同じように考えているかたの参考になればと思います。人名くじダウンロード乱数を発生させて再計算を20回実施。ランク関数で順位付けをして別シートにVLOOKUPで呼び出すあたりをしています。マクロを使っているので ダウンロードしたくない方のためにスクショのせときます!再計算の数を増やせば増やすほど抽選時間が長くなるんですがこれだと結果が重複しそうですよね...よいアイディア募集中です笑なお音楽部分はドラムロールとシンバル音を使っていますがちょっと編集してしまい再配布という形になるため載せれません(;o;)音源のサイトだけ貼っときます。ドラムロール音源元どうしても欲しい方コメントいただければ何とかします笑忘年会 名前くじ 抽選 rand関数 rank関数 エフェクト ビンゴ 代用 shell windows media player くじ 人の名前 抽選アプリ 抽選ソフト
2017.02.21
コメント(0)
ついこないだ先輩OTRからこんな要望が。「電子カルテで発行した文書の年齢って更新されないよね」全く気づきませんでしたが電子カルテで文書を発行すると特定のコードが生年月日と年齢を電カルのデータから引っ張るだけなんですね。つまりExcelでは一切計算していない。「あーそれはDATADIFて出せますよ」といったときにはまだ気づいてませんでした。大正 3年12月3日と記載されてるセルが日付として認識されていないのを。ためしにセルの書式設定を日付とかにしましたが全然ダメ。そしてようやく和暦と数字の間に妙な半角スペースがあることに気づいたのです。これを置換してスペースをなくす必要がありました。置換を毎回やるのもありですがここはボタンをつくって半角スペースを削除するマクロを作りましょう。Excelの開発→マクロ→マクロの記録にて置換の一連の流れを記録。出来上がったコードはこれでよいですか?Sub 半角を削除() Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd Subあとは開発タブのコマンドボタンを作成しておけば文書を発行するたびに年齢が更新されていくということ。ちなみに年齢を計算する関数は=DATADIF(生年月日のセル,今日の日付のセル,"Y")"Y"でYearってことですねちなみに今日の日付は=TODAY()で簡単に表示されます。こういった形で電子カルテや日々のパソコン業務を簡単にしていきます!効率化して患者様と触れ合う時間を増やしていきたいです!
2017.02.18
コメント(0)
カレンダーを患者様と作成し◆見当識への働きかけ◆季節感の提供なんかを目的として作業療法を実施してる所が多いかと思います。カレンダーの日付は貼り絵にしてパソコンで日付を作っていますが毎度土日の色を変えるのが面倒...そこで西暦と月を入力するだけで土日の色を変えるものを作ってみました!一つ一つ丸で囲ってあります!ダウンロード祝日は赤にならないのでその都度書式を変更してください!条件付き書式で=text(A1,"aaa")="日"を、赤色に=text(A1,"aaa")="土"を青色にしてるだけなんですけど。参考にしてください!
2017.02.16
コメント(0)
CD+GをDVDに変換したので 健忘録を書きます。 使用したソフト audiograbber karafan player DVD flick の豪華3本です。 audiograbberは CDタブのbinファイルで保存します。 先に名前を変えておくと楽です。 続いて karafan player これでbinファイルやcdgファイルが 再生できます。 右クリックでビデオに変換を選択すれば 一曲ずつ変換してくれます。 これが大変。 あとはwmvファイルに変換してくれたので これをdvdflickにどーんとぶちこみます。 あとはただただ時間を待つだけ。 flickがうまく使えないときは DVDのフォルダは出来ているときがありますので video-tsとaudio-tsの入ったフォルダを DVDshrinkでiso形式に変換してもらえばOK! ちなみに80曲ほどやります! まだ20曲目です。 もっと簡単な方法思い付くかた 教えてください(;o;) 参考までに!
2017.01.27
コメント(0)
全5件 (5件中 1-5件目)
1