【備忘録】【未解決】パスワードのかかったPDFをDioDocsで開く際のエディター依存でエラー発生の差異があるのかもしれない
パスワードがかかったPDFのDioDocsで開こうとした際に開けるときと開けないときがあったので備忘録として残す
PDFには主に
・開閉パスワード(PDFを開く際に必要なやつ)
・権限パスワード(PDFを編集する際に必要なやつ)
の二つのパスワードがある
DioDocsでは開閉パスワードがかかってる場合は必ずエラーになるが、権限パスワードの場合はエラーになるときとならい時があり、
パスワードをつけるエディターによって差が出る可能性がある
・PDFElementの無料版でつけた権限パスワードはエラーにならなかった
・DioDocsそのものが無料ではないこと、またエディタによってはパスワードを掛ける機能は有料であることからあまり調査はできなかった
【備忘録】VBAマクロ自動化コード
業務で複数のエクセルファイルの文言修正や、抽出が必要になることがあったので自分用の備忘録として
Dim filepath As String, cnt As Long '変数の宣言 Const folderpath As String = "対象のファイルが入ったフォルダのパス" '定数の宣言 Const マクロ用エクセル As String = "このVBAを開いてるエクセルのファイル名.xlsm" '対象のセルに、列追加や背景色を変更して新しい文言を追加する処理 '※部分をコメントアウトするなどで調節可能 Sub 対象文言検索後文字列追加() filepath = Dir(folderpath & "*.*") 'dir関数でフォルダの中のファイル名を返します Do While filepath <> "" '変数に空白が入るまで処理を繰り返す Dim targetWorkbook As Workbook Set targetWorkbook = Workbooks.Open(folderpath & filepath) 'ワークブックを開いていく '--------実行させたい処理--------- Dim sheet As Worksheet Set sheet = targetWorkbook.Sheets("対象のシート名") Dim 検索対象 As Range Set 検索対象 = sheet.Cells.Find("検索したい文言") If Not 検索対象 Is Nothing Then 検索対象.Offset(0, 1).EntireColumn.Insert '右に列を1行追加 検索対象.Offset(0, 1).Font.ColorIndex = 3 '文字を赤に指定 検索対象.Offset(0, 1).Interior.Color = vbYellow '背景色を黄色に指定 検索対象.Offset(0, 1).Value = "挿入したい単語" ' End If '--------実行させたい処理--------- Workbooks(filepath).Close SaveChanges:=True '変数にまだ入力されていないファイル名を格納する filepath = Dir() Loop 'Do While に戻る End Sub '対象の文言を変更したい場合の処理 Sub 用語変更() filepath = Dir(folderpath & "*.*") 'dir関数でフォルダの中のファイル名を返します Do While filepath <> "" '変数に空白が入るまで処理を繰り返す Dim targetWorkbook As Workbook Set targetWorkbook = Workbooks.Open(folderpath & filepath) 'ワークブックを開いていく '--------実行させたい処理--------- Dim sheet As Worksheet Set sheet = targetWorkbook.Sheets("対象のシート名") Dim 変更前文言 As String Dim 変更後文言 As String 変更後文言 = "変更したい文言" 変更前文言 = "変更前文言" If Not sheet.Cells.Find(変更前文言) Is Nothing Then sheet.Cells.Find(変更前文言).Value = 変更後文言 End If Workbooks(filepath).Close SaveChanges:=True 'Workbooks(filepath).Save '変数にまだ入力されていないファイル名を格納する filepath = Dir() Loop 'Do While に戻る End Sub '対象の単語が存在するファイルの場合ファイル名を左側に、なければ右側に出力される処理 Sub 特定単語が存在するか確認() filepath = Dir(folderpath & "*.*") Dim Aindex As Integer Dim Bindex As Integer Aindex = 0 Bindex = 0 Do While filepath <> "" Dim targetWorkbook As Workbook Dim sheet As Worksheet Set targetWorkbook = Workbooks.Open(folderpath & filepath) 'ワークブックを開いていく Set sheet = targetWorkbook.Sheets("対象のシート名") If Not sheet Is Nothing Then If Not sheet.Cells.Find("対象の単語") Is Nothing Then Aindex = Aindex + 1 Call 単語記載(filepath, Aindex, 1) Else Bindex = Bindex + 1 Call 単語記載(filepath, Bindex, 2) End If Else Bindex = Bindex + 1 Call 単語記載(filepath, Bindex, 2) End If Workbooks(filepath).Close SaveChanges:=False filepath = Dir() Loop End Sub Function 単語記載(words As String, ロウ As Integer, カラム As Integer) Dim マクロ用エクセル As Sheets Dim a As Workbook Dim sheet As Worksheet Set sheet = Workbooks("マクロ用エクセル").Sheets("抽出したい単語を記載したいシート名") sheet.Cells(ロウ, カラム).Value = words End Function
パソコン起動したら真っ白な画面の時の解決法!
こんにちは、つい先日うちのwindows10を使ってる最中に真っ白い画面になり。
強制終了して再起動しても真っ白のままで動かなかった時になんとか戻すことができたので
その解決法を備忘録として残します。
やること自体はうまくいけば2回で済みます
白い画面の状態で
ctrl + Alt を押しながら del を押します。
すると、背景が青色で上からロック、、、、
とか書かれた文字が出ると思います。
ここで何も起きなかったらすいません、僕のやり方では解決できません。
次に、左下にシャットダウンや再起動するときに押すマークがあると思います。
そこでshiftを押しながら再起動をクリックしてください
これでしばらく待てば普通の画面に戻ると思います。
【アメリカ株】株価に上昇余地!?【メドトロニック】
今回は、上昇余地がある、アメリカ株「メドトロニック」についてご紹介します。
承認されれば市場規模は3倍以上に世界最小の心臓ペースメーカーに関するビッグニュース。新たな研究の結果、医療機器大手メドトロニック(MDT)の単腔ペースメーカー(心房または心室のみを刺激するタイプ)「マイクラ」は、房室ブロック(AVB)という現象にも対処できる二腔ペースメーカー(心房と心室の両方を刺激)としても利用可能であることが判明した。同社は適用範囲の拡大を申請中で、承認されれば対象市場が近々一気に広がることになる。メドトロニックは業績も好調。フリーキャッシュフローが拡大しているほか、急成長分野へのシフトを進め、決算発表は14四半期連続で予想を上回っている。第2四半期(8-10月)の決算発表は19日の寄り付き前だ。株価は本誌が推奨した2年少し前から大きく上昇し、48%のリターンを記録。同じ期間のS&P500指数のリターンは32%だった。予想株価収益率(PER)が現在19倍で、配当利回り2%の同社株は、今なお魅力的に見える。同社を1949年に共同設立したアール・バッケン氏は、世界初の装着型・電池式心臓ペースメーカーを開発。1960年代には薄い靴墨の缶程度の大きさの埋め込みタイプの生産を開始し、販売は拡大した。サイズは近年になってクッキーほどの大きさまで小さくなり、鎖骨下を少し切開するだけで埋め込めるようになった。こういった画期的な製品と比べても、2016年に発売されたマイクラは衝撃的な新製品だった。サイズは競合製品のわずか10分の1で、カプセル剤程度。太ももから血管カテーテルを通して心臓に直接装着可能なため、リード(導線)が感染症を招くリスクも、胸にスペースを確保する必要もない。価格は競合製品の3倍だが、単腔ペースメーカー市場でのシェアは短期間で60%に達した。ただし、この市場の規模はペースメーカー市場全体の16%にすぎない。メドトロニックは40%を占める二腔ペースメーカー市場へのマイクラ投入に向けて動いており、全て順調にいけば来年初めにも実現する見込みだ。2015年に大手医療機器メーカーのコヴィディエンを買収し、規模を倍にして本社をアイルランドへ移したメドトロニックは多角化しており、全体の成長性は一製品だけに左右されない。2019年4月期の売上高は前期比2%増の306億ドルだった。このうち、ペースメーカー、除細動器、人工弁、ステントなどを扱う循環器部門は115億ドルで、低侵襲処置関連機器が85億ドル、脳や脊髄向けの特殊装置が82億ドルとなっている。その他、埋め込み型インスリンポンプなどの糖尿病関連機器も製造している。■成長性を秘めたディフェンシブ銘柄そんなメドトロニックだが、ウォール街に正当に評価されておらず、マイクラはその典型例だと、JPモルガンのアナリストであるロビー・マーカス氏は指摘する。来年には脊髄刺激装置、血糖値測定器、尿失禁治療機器の新製品が投入される予定で、高血圧症治療機器と除細動器の臨床試験の結果も出る。同社の見通しでは、今期の売上高成長率は3.3%に上昇し、来期は4.9%、その翌期は5%に伸びる予定だ。計画通りにいけば、利益率の上昇、フリーキャッシュフローの拡大、そして自社株買いに伴い、1株当たり利益(EPS)は今後数年で7%~10%は増えそうだ。前期はフリーキャッシュフローが36億ドルから59億ドルに伸び、配当よりも自社株買いに若干多額を費やした。今年6月には配当支払い額を8%引き上げると発表し、増配は42年連続となった。短期的な株価の動きは予想しづらい。第2四半期決算のコンセンサス予想は売上高が76億6000万ドル(買収効果を含まない内部成長率3.4%)。EPSは4.9%増の1.28ドルで、ここ数年の傾向に従えば、これを数セント上回る可能性は十分にある。売り上げ見通しも、保守的ながら引き上げられる可能性がある。とはいえ、これが投資家にインパクトを与えるかどうかは別問題で、14四半期連続でアウトパフォームする中、決算発表日に株価を上げたケースは9回にとどまっている。長期的には、メドトロニックは業績も株価も変動が小さく、生活必需品セクターや公益事業セクターのようなディフェンシブ株とみなすことができる。ただし成長の潜在性は、これらのセクターよりも大きい。15日現在の株価約112ドルに対し、マーカス氏は2020年12月の目標株価を122ドルに設定。配当を含めたリターンは11%となる計算だ。株主なら引き続き保有すべき銘柄、景気変動への耐性が高い企業を求める投資家ならポートフォリオへの追加を検討すべき銘柄と言えるだろう。
【JS】ckeditorでリアルタイムで文字数カウントしたい時、【プラグインなし】
仕事の都合でプラグインなしで、ckeditorの文字数を入力してる最中に今何文字打ってるか出してほしいと
いう依頼があり、戸惑うことがあったのでメモ書き
ckeidtorのレファレンスにあった「instanceReady」というイベントを使う。
これはckeditorのインスタンスを作り終えた後に動いてくれるもの
CKEDITOR.instances.ckeditor.on("instanceReady", function(){ var ck = CKEDITOR.instances.ckeditor; ck.document.on("keyup",function(){ var words = CKEDITOR.instances.ckeditor.getData();//ckeditorの中の文字列をとってきてくれる var trim = words.replace(/<("[^"]*"|'[^']*'|[^'">])*>| |\r|\n|\r\n|\t|\v|\f| |<br \/>/g, '').trim().length//ここで空白文字など、カウントしたくないものをとる console.log(trim.length) }) });
こんな感じで、イベントの中に入れたものをインスタンスを作り終えた後に実行してくれる。
これで文字数がとれる。
また、[setData]などを使ってjsから中身をいじる場合は。
CKEDITOR.instances.ckeditor.on("dataReady", function (evt) { var ck = CKEDITOR.instances.ckeditor; ck.document.on("keyup", function () { var words =CKEDITOR.instances.ckeditor.getData(); var trim = words.replace(/<("[^"]*"|'[^']*'|[^'">])*>| |\r|\n|\r\n|\t|\v|\f| |<br \/>/g, '').trim().length//ここで空白文字など、カウントしたくないものをとる console.log(trim.length) }); })
とイベントを[dataReady]に変える
高校はしっかり選べと言える理由、【現役教師から話聞いてみた】
高校の教師をやっている僕の友人から放たれた一言。
そしてショックを受けたので書こうと思った。
そして、もしあなたの子供が、もしくはあなたが高校の進路を考えているのなら
是非最後まで読んでほしい。
結論からいうと、「高校は無理してでも頭のいいところに行け」
って話です。
大学を卒業後、愛知の高校の教師をやっている友人がいて、たまたま
飲みに行く機会があったので、話を聞いていた、
僕は学校の教師と聞くと、GTOや金八先生など生徒から尊敬されるような
事行ったりしてるのかなーと勝手に妄想していたので、実際の学校生活は
どうなのかと聞いてみると。
やっぱり酷かったww
まず、職責が低い。
その友人、というかその高校自体、仕事つまり、教育に力をあんまり力を入れてない。
やらないといけないことも、合格点はとるけど満点は狙わないって感じでとにかくやらない。
なかには本来先生がやるべきことを生徒に押し付け自分は先に変える教師などもいるらしい。
「学校で、生徒は先生を疑うことを知らないから押しつけやすいらしい」
また、いじめを見て見ぬふりも普通にあるらしい
まだ、じゃれあっていていじめかどうかわからないから注意しづらいなどならまだしも
その友人曰く、「明らかにいじめ」らしい、
それでもその友人含め学校の教師はだれも何も言わないという。
なかなかのくずっぷり。
ただ、カンニングには厳しいらしく、そこはしっかりしてるんだな~と思ったら。
「下手に生徒がいい点とると上の方からどうやって点挙げたのか根掘り葉掘り聞かれて面倒だから
カンニングだけは許すなといわれてる」とのこと。
底辺の学生が先生のモチベを下げる。
とはいえ、僕の知ってる友人は最初は結構やる気に満ちてた記憶があったので、何か変わるようなことでも
あったのか聞いてみたら。
「最初は授業をわかりやすくするためなどに構成を考えたり頑張ってはいたが、頑張ったとこで底辺のやつらは聞かないか
聞いてても少数だからやめた、」
とのこと。
いやいや仕事なんだから頑張れよ~とは思ったものの
人間なんだから気持ちの持ちようでパフォーマンスが変わるのは当然。
さらに聞くと「しかも底辺だから、なにかと問題を起こしてそれの対応やルール作りでそれどころではない」
とのこと
たしかに、学校を運営していく中だれかが問題を起こせば、その対応に時間をとられその分真面目に頑張っている生徒へ使える
時間は確実に減り、無駄に面倒な校則などが増え真面目にやっている生徒まで無駄につまらない学生生活を送らないといけなくなって
しまう可能性があるということ
つまり自分だけが頑張っても周りの人間のせいで、自分の自由や高等教育を受ける権利が奪われてしまう可能性があるということ
結論:多少無理してでも偏差値の高い高校に行け!!