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

最近アドビ製品の代替品としてAffinityシリーズが頭角をあらわしているらしい。 affinity.serif.com Affinity Photo Affinity Design Affinity Publisher の３種類があって、Photoがフォトショップ、Designがイラストレーター、Publisherがインデザインの代…

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 …

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

マイナンバーカードで5000円分得するという噂のマイナポイントの申し込みが7/1から始まっています。 私はPASMOを選びました。 ただ、ICカードリーダを持っておらず、手持ちのスマホもマイナポイントアプリに非対応。 コンビニでの登録に苦戦したのでどうやっ…

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

Windows10のエクスプローラで写真データを見ると、 フォルダを上にしたうえで日付順にしたいのですが、上手くできませんでした。 ということで調べました。 ①並べ替えたいフォルダを開いて右クリック ②その他 ③下のほうにある「日付時刻」にチェックを入れて…

Zenfone 3 Max（ZC553KL）を使っています。 Zenfone2 Laserを使っていた時から、Googleplay storeでダウンロードが始まらない、もしくは終わらないなどしてダウンロードできない現象がよく出ました。 いつも対処法を忘れるのでここに書いておきます。 再起動…

仕事でDELLのPCを使っているのですが、 DELLのPCは初期設定ではマルチメディアキーボードなるものが搭載されており、Fnキーを押すと音量が変わったりします。 F10キーで変換を頻繁に使うのでこの設定をオフにする方法です。 PCによって微妙に違ったりするの…

デスクトップにスライドショーを設定して決まった時間に画像を変えるようにしているのに、いつまで経っても変わらない場合の対処法です。 C:￥Users￥ユーザー名￥AppData￥Roaming￥Microsoft￥Windows￥Themes の中のTranscodedWallpaper.jpgを削除 AppDat…

Windows10にしてから、特定のプリンターでPDFが印刷できなくなるクレームが続出。 コントロールパネルのデバイスとプリンターから印刷ジョブを見るとPDFデータだけが印刷されずに残っている。 多分絶対何かやらかしているんですけど、原因は不明。 とりあえ…

ASUSのZenfone3 Max5.5インチを買って２ヶ月、 動画ばかり見ていたら段々と画面がちらつくようになり、 そのうち何もしなくてもずっとちらつくようになってしまいました。 一応ネットで調べて、セーフモードで起動してみたり、 初期化を試してみたものの改善…

例えば請求書などで未来の日付を表示する方法です。 D6=D1+21 日付はシリアル値といって1900年1月1日を1として毎日１ずつ増えていってるだけなので、 2018年6月21日は43159です。 そこに3週間なら21日足せばいい訳ですね。 もちろん１週間なら７です。 ちょ…

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

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

今日びWindows Liveメール使っている人がどれだけいるのか疑問ですが、 最近送受信のたびにずっとこんな画面が出て消えないので調べてみました。 どうやら画面右下の青いピンが原因のようです。 送受信中にピンをクリックしてしまうと表示が消えない設定にな…

フォルダを沢山表示していたはずなのに、いきなり消えた！という質問が飛んできました。 原因コレでした。 デスクトップも右下にある四角。これを押すとデスクトップを表示できます。知ってると便利なんですけどね。 こんなところ触ってないのに！という場合…

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

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

①ショートカットを作りたいファイルまたはフォルダを右クリック ②送る ③デスクトップ（ショートカットを作成） にほんブログ村 パソコンランキング

社内で使っている共有サーバーにアクセスする際に、毎回IDとパスワードを聞かれてしまいます。 パスワード入力の際に資格情報を記憶するにチェックを入れても聞かれるので、その際の対処法です。 ①コントロールパネル→ユーザーアカウントと家族のための安全…

以前Amazonのマーケットプレイスで加湿器を買ったんですけど、半年足らずで壊れてしまったんですよね。レビューにも似たような報告があったので安かろう悪かろうだったのかもしれませんが、保障期間が一年だったし、交換してもらえないかなーと思ってメール…

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

Windows7でWindows Live mailを使っていたのですが、Windows10にしたついでにメーラーもOutlook2016になったので、アドレス帳を移行する方法です。 単純に箇条書きをすると 1.Windows live mailからCSVファイル形式でエクスポート（VCFは一括でできない） 2.…

IO-DATAのLANDISKを買ってHDDに繋げバックアップ設定をしたところ、どうしても失敗してしまう…… どうやらバックアップ用HDDのフォーマットが違うようでした。 同じIO-DATAのバックアップ用HDDを買っているので、当然フォーマットの必要が無いものだと思って…

PDF作成・ページの編集・文字の書き込みをフリーソフトだけでやる方法です。 AdobeのAcrobat Proがあれば一つのソフトで全部出来ますが、フリーソフトの場合は複数のソフトを組み合わせて使います。 CUBE PDF ＆ CUBE PDF Utility www.cube-soft.jpCUBE PDF…

中小企業のなんでも屋です、どうも。PCを買って立ち上げた時点でとりあえず入れておくと後々仕事が楽なフリーソフトを紹介します。Windows10向け。 Lhaplus Lhaplusの詳細情報 : Vector ソフトを探す！ 言わずと知れた解凍ソフトです。Windows10はフリーソフ…

今までZenfone２ Laserだったんですが、充電の接触が悪くなってきたので慌てて家電量販店へ。 Zenfone3 Max 5.5インチを買いました。 バッテリーが長持ちという触れ込みの通り、今の所電池の持ちはいい感じです。 あとBluetoothで古いスマホに入れてたアプリ…

画像のように、「山田 太郎 男」等、スペースが２つあるときの抜き出し方。 【例】 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))…