emaxemaxのプロフィール

肌に張り付けるだけの湿布薬が、効くわけありません。 内部に薬効が浸透するわけがない。 医師も科学的に、１００％効くわけがない、とわかっているし、 医師会でも保険適用外すよう、多くの意見が上がっているにも、 関わらず、なぜいつまでも保険適用されるのですか？ 保険税を払っている多くの人の税の無駄使いです。

こういうクレームがありました。 保険証を忘れた患者さんがいったん診察代を10割で支払いをした。 後日、保険証をもってきたので7割返金することとなった。 このシチュエーションで、 「本日は清算のみですか？（診察は受けないですか）」と言ったところ 「清算じゃなくて返金でしょう？　清算というのは私が払うことで、今日はその逆でしょ？それを返金と言うんですよ。言葉をちゃんと使いなさい。」 むむむ。。。これって正解ですか？

180行ほどの列の1つのセルの中にヨット、サーフィン、ウィンドサーフィン等いくつか言葉が記入されています。 ヨットという言葉だけを何個でてきたかカウントする関数はありますか？Count Ifを使用すると1つのセルにヨットだけ入っているものはカウントされますが、複数言葉が入っているものはカウントされませんでした。よろしくお願いいたします。

VBA独学中の初心者です。Excelは2013です。 リボンを非表示にするマクロは以下になると思いますが、元に戻すマクロの記述を書かなかった場合、再度リボンを表示させるにはどんな方法が有るでしょうか。 （元に戻せなかった時が怖いのでほぼ机上検討で質問を投稿しています。従って下記は間違っているところがあるかもしれません。その場合はそれも含めてご指摘いただければありがたいです。） (1) 前提 おそらくその後開くExcelファイル全て非表示になると思っていますので、それを前提に質問しています。 -------------------- (2) 非表示化のVBA Private Sub Workbook_open() Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””, False)” End Sub ---------- でリボンを非表示した場合で、 -------------------- (3) 再表示：ブックを閉じるときの自動動作として ---------- Private Sub Workbook_BeforeClose() '（あるいは Sub Auto_Close()） Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)" End Sub ---------- を書かなかった場合や、 (4) 再表示：コントロールに記述 ---------- Private Sub CommandButton1_Click() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)" End Sub ---------- も配置しなかった場合、 (5) 質問 リボンを再表示させるにはどんな方法が有るでしょうか。 -------------------- 以下の視点で考えてみましたが、どうも答えが見つかりません。 a) マクロを走らせないで開く方法 →Shift＋ファイルのダブルクリックでもVBAは動作した →ファイルタブからShift＋で開こうとしてもそもそもファイルタブがない b) 別のファイルでもいいのでコントロールがあればそのプロシージャの編集からVBEを開く →右クリックしてもプロシージャが編集できるコマンドが出てこない -------------------- 以上、WEBで探しても見つけられず、おわかりの方教えていただけませんでしょうか。 宜しくお願いします。

Sheet2の3列目(C3:N3)と17列目(C17:N17)には日付が日付順で配置されています。 B行には1から15までの数字がバラバラ(B4:B13)(B18:B22)にあります。 その数字に対応する列(C4:N13)(C18:N22)には英字や文字が配置されています。 Sheet1の2列目には日付が日付順で配置され(C2:N2)、B行には1から15までの数字が順番に配置(B3:B17)されています。 CommandButtonを押すとSheet2の(C4:N13)(C18:N22)が、Sheet1の(C3:N17)に英字や文字が配置されるVBAや数式はどの様にすれば宜しいでしょうか？ ※添付図のSheet1の様な形です。 この時、Sheet2に入力されている文字の｢｜｣と｢―｣はSheet1では空白になる様にします。