特ヲタ認定OT

Profile

ハルカ@精神科認定OT

フォローする

Calendar

特撮ネタ

(1)

Recent Posts

WRAPファシリテーター研修を終えて
認定作業療法士申請が承認されました！
札幌市豊平区のヒーロー⁉ガヲクとは何者か。
仮面ライダー龍騎
【無事解決】中古スマホ買ったらEdyが登録できない件

Comments

中古大好き@ 中古のOffice2003買ってみた。(02/21) 職場のパソコンは、必須ソフトは勿論経費…

安田花@ Re[2]:生涯教育の基礎研修修了!!(03/05) xxxx2757さんへお返事ありがとうござい…

xxxx2757 @ Re[1]:生涯教育の基礎研修修了!!(03/05) 安田花さんへコメントありがとうござい…

安田花@ Re:生涯教育の基礎研修修了!!(03/05) こんばんは、はじめまして。愛知県で作業…

Keyword Search

▼キーワード検索

< 新しい記事

新着記事一覧(全83件)

過去の記事 >

2017.02.18

ついこないだ

先輩OTRから
こんな要望が。

「電子カルテで発行した文書の年齢って
更新されないよね」

全く気づきませんでしたが
電子カルテで文書を発行すると
特定のコードが
生年月日と年齢を電カルのデータから

つまりExcelでは
一切計算していない。

「あーそれはDATADIFて出せますよ」
といったときにはまだ気づいてませんでした。

大正 3年12月3日と記載されてるセルが
日付として認識されていないのを。

ためしにセルの書式設定を
日付とかにしましたが
全然ダメ。

そしてようやく
和暦と数字の間に

気づいたのです。

これを置換して
スペースをなくす必要がありました。

置換を毎回やるのも
ありですが

半角スペースを削除する
マクロを作りましょう。

Excelの開発→マクロ→マクロの記録にて

置換の一連の流れを記録。

出来上がったコードは
これでよいですか？

Sub　半角を削除()

Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _

xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

あとは開発タブのコマンドボタンを作成しておけば
文書を発行するたびに年齢が更新されていくということ。

ちなみに年齢を計算する関数は
=DATADIF(生年月日のセル,今日の日付のセル,"Y")
"Y"でYearってことですね

ちなみに今日の日付は=TODAY()で簡単に表示されます。

こういった形で
電子カルテや日々のパソコン業務を簡単にしていきます！
効率化して患者様と触れ合う時間を増やしていきたいです！

お気に入りの記事を「いいね！」で応援しよう