二つのセルに文字が入力されていて、それを一つのセルに続けて表示したいとします。 それが、顧客名であったら、両方に様を入れないといけませんね。 おまけに、２つめのセルには入力されないケースもあって、 その場合は様を付けたくない！ というケースが…

2019年4月1日から、年５日有給休暇を取ることが義務化されましたね。 取らなければ一人につき30万円の罰金があるそうです。 インターネッツ上で有給の管理ができるテンプレートを色々探したのですがなかなか自分に合ったものが無かったので作りました。 概要…

A列に「特定の文字」が入力されたらメッセージを出す場合。（2022/06訂正） ThisWorkbookに記述する場合 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name = "Sheet1" Then If Intersect(Target, Columns("A")) Is …

複数のシートで同じ書式で似たような情報が入っている時、 一気にオートフィルタの絞り込みをするためのマクロを組んでみました。 こんな感じで年次毎のデータがあったとします。 （分かりやすいように色を変えただけで内容は一緒です） 商品名の一覧を別シ…

オートフィルタの解除と、絞り込みをクリアする方法を書いておきます。 Excel2003だとショートカットを自分で設定できたのでこんなマクロいらなかったんですけどね。 Ctrl + Shift + LでLを２回押すという方法もあるけど、オートフィルタの場所が一番上の行…

量によって掛率が変わることって滅多にないとは思いますが、私の仕事にはあったので紹介します。今回は半分の場合にのみ対応しています。細かい量には対応できません。 とりあえずSheet1は単価と掛け率を表にしておく Sheet1 種類が紙になっているのは他にい…

WordとExcelで規定のフォントを変更する方法です。 まずExcelの場合（2013以降） ファイル→オプション→基本設定→新しいブックの作成時→ 次を規定フォントとして設定 Wordの場合（2013以降） ホームタブ→フォントのコーナーの右下の小さい矢印をクリック フォ…

フォルダの中のたくさんのファイル名をテキスト化したい時のやり方です。 コマンドプロンプトを使います プログラムとファイルの検索で「cmd」と入力する cmd.exeというプログラムを開く 書き出し用のExcelファイルを何でもいいのでどこかに保存しておく。 …

貰ったExcelデータを開いたら、開いたはずなのに何も見えない…ということがありました。 どうやら送り主が間違えて非表示にして送ってきたようです。 自分は普段は非表示で使うことが無いので焦りました。 ●対処法 Excel2003の場合 メニューバー→ウィンドウ→…

大きい会社はどこもシステムがあるので不要な話でしょうけれど、何せ弊社は社員ウン十人の中小企業。 専用のシステムなんぞございません。ソフトもありません。 Excelで給与計算です。 特に面倒くさいのが所得税で、私の前任の方は源泉徴収税額表を見ながら…

画像のように、「山田 太郎 男」等、スペースが２つあるときの抜き出し方。 【例】 C1=LEFT(A1, IF(ISERROR(FIND(" ",A1)),3,FIND(" ",A1))) C2=TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",100)),100,100)) C3=RIGHT(A1, LEN(A1)-FIND(" ", A1, FIND(" ", A1)+1))…

折り返しやスペースが混在しているセルの内容を別々に表示する場合。 RIGHT関数、LEFT関数、LEN関数、FIND関数、SEARCH関数 CHAR関数を使組み合わせて使う。 【例】 D1=MID(A1,FIND(CHAR(10),A1)+1,FIND(" ",A1)-FIND(CHAR(10),A1)-1) D2=RIGHT(A1,LEN(A1)-F…

Excelで人名なら様、社名なら御中を付ける方法 【例】 =IF(A1="","",IF(COUNTIF(A1,"*会社*")+COUNTIF(A1,"*法人*"),"御中","様")) 要はCOUNTIFを使った複数条件の設定ですね。 ■解説 まず、IF関数を使います。=IF(A1="","",○○)と入力。 これはA1が空白なら…