2018-04-17

次世代のIoT、AIと並ぶRPAとは

雑記

RPA＝Robot Process Automations とは。

IoTやAIは最近よく聞くようになりましたが「RPM」というワードは普段生活しているうえで聞くことはめったにありません。（個人的に

そこでIoTやAIブームと共に進行しているRPAについて以下の記事を参考にまとめてみました。

boxil.jp

RPAとは
RPAの種類
- RPA
- EPA
- CA
RPAとAIの違い
RPAのメリットとその今後

RPAとは

「AI≒RPA」

ホワイトカラーの単純な業務を自動化する技術のことです。

よくAIが発達することで今ある職業の大半がなくなり、雇用がなくなると言われていますがどちらかというとRPAがその多くを占めると考えています。

雇用がなくなると言われますが、言い換えればそれだけ新しい仕事が生まれるということ。

RPAの種類

RPA

決められた方法にしたがって、自動的に処理すること

これにより、人為的なミスを防げるが、決められたこと以外はできないので単純作業の効率化を図ることに適する。

RPAの根本的で原始的な形

EPA

EPA=Enhanced Process Automation

・PRAの進化系のようなもの

・RPAよりも大量のデータを解析が可能

いわゆるビックデータを扱うことが該当する。

CA

CA=Cognitive Automation

・EPAの進化系のようなもの

・自立した結果を出力することが可能

ビックデータから新しい提案や選択肢を与えてくれる。

RPAとAIの違い

・RPA=RPA

・AI＝EPA,CA

となる。

RPAのメリットとその今後

・人件費のコストダウン
・業務処理のスピードアップ
・アウトプットの正確さ

今までは中国が世界の工場と呼ばれて多くのMADE IN CHINAが生まれました。

これは、人件費が安いという要因が大きなものだと思います。

つまり、仮想世界が”世界のオフィス”と呼ばれ、RPAという仮想知的労働者が多くの雇用を得ると思います。

2018-04-16

TOEIC　手動ランダムVSランダム関数で得点を出してみた

やってみた

TOEICのお勉強をしていて回答にある規則性があるような気がしたのでタイピングランダムとExcelのランダム関数を使って得点を検証してみました。

２つの新傾向版の問題集を使用しました。どちらも国際ビジネスコミュニケーション協会が出版している公式問題集です。

TOEICテスト公式問題集新形式問題対応編

作者: Educational Testing Service
出版社/メーカー: 国際ビジネスコミュニケーション協会
発売日: 2016/02/18
メディア: 大型本
この商品を含むブログ (6件) を見る

２００問×２５問を手打ちてタイピングしてみて腱鞘炎になるかとおもった。笑

ランダム関数便利すぎ、、、

ブログのタイピングですらもう元気がありません、、、

ということで結果はいかのようになりました。

f:id:kkrsky:20180416222706p:plain

上位１０項目が赤色

下位２項目が緑色で表示されています。

気合と努力パラメータの影響か、やや手打ちタイピングのほうが平均が高いような気がします！！

というわけで、

気持ちが大事なんですね！

それにしても、見事に平均は１０００点満点の1/4の２５０点程度に収まっていますね。確率の壁を身をもって体感しました。

ランダム関数を使って追加で２００回解いてみましたが最低点は１８０点でした。

（２００点以下をとれる人はむしろ才能、、、

３００点以上ある人は、少なくとも自分の力による結果が反映されている証拠ですね！

2018-04-16

Excel 自動改行マクロ

VBA

Excelの自動改行ﾓﾄﾞｷを行うマクロを別の人のブログを参考に簡単なアレンジをして作ってみました。

仕様

・指定範囲内のセルに任意の文字を入力すると1文字ごと改行される

＝１つのセルに１文字入力される

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row <= 50 And Target.Column <= 10 Then
Call 改行
End If
Application.EnableEvents = True
End Sub
Sub 改行()
mojisu = 1
a = Range("ae7:cb205") //範囲変更
For c = 1 To UBound(a, 2)
For r = 1 To UBound(a, 1)
t = a(r, c)
If Len(t) > mojisu Then
a(r, c) = Left(t, mojisu)
a(r + 1, c) = Mid(t, mojisu + 1) & a(r + 1, c)
End If
Next r
Next c
Range("ae7:cb205") = a //範囲変更
End Sub