エクセルのシートとシートを比較するマクロ

今や様々な仕事の現場で使われている「エクセル」

色んな人が使っている割に、エクセルのマクロを使えるという人は少ないのではないのでしょうか？

もっとこんな機能あったらいいのに！その夢。。。エクセルマクロが叶えてくれます

例えば、エクセルのシートとシートを比較してくれるという機能

あったらいいなと思ったことはありませんか？

え？ない？

ま、ままそう言わずお付き合いしてくれよ

そんなわけで、今回はシートとシートを比較するマクロのお勉強です！

※ソースコード全文は記事の最後に記載します

エクセルのシートとシートを比較する機能

言うは簡単、でも作るのも割と簡単

一番難しかったのは、比較する２つのシートをどう選択するのか？これにつきる感じでござんした

今回は一番コードとして楽な手法を取っています

①比較するシート２つを決定せよ

シート同士の比較なので、もちろん選ぶべきシートは「２つ」

シート１つじゃ比較なんてできません

３つは？４つは？と思う方もいるかもしれませんが、今回は「２つ」です！

実際に現場では比較したいシートというのは、ブックを跨いでいたりするもんですね

とは言え、ブックを跨いでるシートの比較というのは正直めんどう

ユーザーフォームを駆使すれば、何とかなるかもしれませんが、今回はブックの中に比較したいシートが２つのみある状態を前提に話を進めていきましょう

つまりは、以下の状態である前提

シート比較.xlsmというブックに、比較したいシートが２つ（この場合「比較A」、「比較B」）ある状態

初めに前提が正しいのか？確認します

現在のワークシート数を"Worksheets.Count"にて確認

シート数が２じゃない場合、処理を終了する

シート数が２の場合、シートを変数へと格納しちゃう。。。という処理

ブックに対して、シート数２というのが正しい状態

シート数が2以外の場合、マクロは終了

②比較するシートが決まったら比較せよ

比較したいシートが決まったら、後は比較すればよし

比較用に適当なシートを用意

シート「あああ」

シート「いいい」

比較処理1回目は「あああ」⇒「いいい」で比較

If Len(OldStr) > 0 Then

詳細は省きますが、空白セルは無視するという処理

これが後々、若干の不便さを生む

比較処理2回目は「いいい」⇒「あああ」で比較

差分が出た箇所はわかりやすく塗りつぶし処理を行うことで、比較終了

マクロの実行結果は以下の通り

２つのシートを比較して、差分のみを抜き出すマクロの完成でござる

２つのシート共に、比較対象セル（UsedRange）が空白でないため上記のようなキレイな結果が出るのだが、例えば空白セルと文字入りのセルを比較した場合

先ほどの空白セルは無視するという処理がネックとなる

具体的には、差分があるにも関わらず片方のシートは塗られ、もう片方のシートは塗られないという現象が起こってしまう

まぁ、多少は仕方ないね

また、恐らくではあるがこの比較

「カタカナ」と「ひらがな」

「大文字」と「小文字」

の区別もできないはず

まぁ、多少は仕方ないね

気になる方は、以下のソースコードで試してみてくださいまし！

③ソースコード

Sub シート比較()

    Dim SheetCnt As Long
    Dim Sheet1Name As String
    Dim Sheet2Name As String
    
    For i = 1 To Worksheets.Count
        SheetCnt = SheetCnt + 1
    Next i
    
    If SheetCnt <> 2 Then
        MsgBox "シート数が不正です。終了します。"
        Exit Sub
    End If
    
    Sheet1Name = Worksheets(1).Name
    Sheet2Name = Worksheets(2).Name
    
    Dim wksOld As Worksheet
    Dim wksNew As Worksheet
    
    Set wksOld = ActiveWorkbook.Sheets(Sheet1Name)
    Set wksNew = ActiveWorkbook.Sheets(Sheet2Name)
   
    Dim r As Range
    Dim s As Range
    Dim rngOld As Range
    Dim rngNew As Range
   
    Set rngOld = wksOld.UsedRange
   
    Dim OldStr As String
    Dim NewStr As String
    Dim row As Long, col As Long
    
    For Each r In rngOld
    DoEvents
        OldStr = r.Value
        If Len(OldStr) > 0 Then
            row = r.row
            col = r.Column
           
            Set rngNew = wksNew.Cells(row, col)
            NewStr = rngNew.Value
           
            If StrComp(OldStr, NewStr, vbTextCompare) <> 0 Then
                rngNew.Interior.Color = RGB(255, 255, 0)
            End If
        End If
    Next r
    
    Set r = Nothing
    Set rngOld = Nothing
    Set rngNew = Nothing
    OldStr = ""
    NewStr = ""
    row = 0
    col = 0
   
    Set rngNew = wksNew.UsedRange
    
    For Each s In rngNew
    DoEvents
        NewStr = s.Value
        If Len(NewStr) > 0 Then
            row = s.row
            col = s.Column
           
            Set rngOld = wksOld.Cells(row, col)
            OldStr = rngOld.Value
           
            If StrComp(NewStr, OldStr, vbTextCompare) <> 0 Then
                rngOld.Interior.Color = RGB(255, 255, 0)
            End If
        End If
    Next s
   
    MsgBox "比較処理が完了しました"
   
End Sub

新年初釣りはアイツが大漁(*´ω｀)

2020年明けました。おめでとうございます

絶賛9連休を満喫中ではございますが、寒い中重たい腰を上げて1月2日に2020年の初釣りへと赴いてきました

1月にもなり寒さ厳しい今日この頃

きっと何も釣れないだろうなと思いつつの釣行でしたが、思いに反して海の中はアイツだらけでした！

そうです

アジです( *´艸｀)

冬になるにつれて、接岸していたアジも沖に出てしまう。そんなイメージを持っていましたがここにきてまさかのアジ大漁でした

嬉しい！

まだまだ海は水温が高いのか、もしくはその場にいつくタイプのアジだったのか、どちにせよ嬉しい誤算ですね～

仕掛けは主に、カワハギ用の3本針タイプサビキ仕掛け

刺し餌さにはオキアミを、撒き餌には比重の重いチヌ用配合餌を使いました

一つ気になる点があるとするならば、アジ用サビキ仕掛けには全然喰ってこなかった

空針では喰ってこない模様です。刺し餌がないと喰ってこないとは・・・お金のかかるアジだ

アジ以外にも

真冬の海もなかなかの多様性を垣間見ることができました

よかったら動画もどうぞ

www.youtube.com

ブラック企業2019を自治体で受賞するまぬけな市が存在するらしい

ブラック企業大賞実行委員会というものをご存じだろうか？

大学教授・研究者・ジャーナリストなどからなる団体が、その年に問題を起こした企業などに「勝手に」ブラック企業の賞を与えるイベントを2012年から実施しているようです。

毎回表彰式には見事ブラック企業賞を受賞した代表者も呼ぶのですが、なぜか誰も来ない・・・そうな

ブラック企業大賞とは

ハラスメント、賃金未払い、長時間労働、差別。日本の労働環境は悪化の一途を辿るなか、誰もが安心して働ける環境をつくることを目指して立ち上げられたものが「ブラック企業大賞企画委員会」であり、誰もが安心して働けない企業に贈られる賞が「ブラック企業大賞」である。

それだけ聞くと、「ふ～ん、そうなんだ」で終わりそうな賞ではあるが、２０１９年の名だたる受賞企業をみると、ふ～んでは済まされない現実がそこにはあった・・・

そんなわけで、早速２０１９年１２月２３日に公開された、「第８回ブラック企業大賞２０１９」の受賞企業をみてみましょう！

第８回ブラック企業大賞２０１９

【大賞】

三菱電機株式会社

（メルコセミコンダクタエンジニアリング株式会社）

【特別賞】

株式会社電通

株式会社セブン-イレブン・ジャパン社

【#MeToo賞】

長崎市

【ウェブ投票賞】

楽天株式会社

(　ﾟдﾟ) ・・・
　
(つд⊂)ｺﾞｼｺﾞｼ
　
(；ﾟдﾟ) ・・・
　
(つд⊂)ｺﾞｼｺﾞｼｺﾞｼ

（；ﾟ Дﾟ） …！？

明らかに異質なモノが紛れ込んでいるような気が・・・

【#MeToo賞】

長崎市

実は長崎市はブラック企業だった！？

長崎市の受賞理由について

同委員会は長崎市のノミネート理由について、以下の通り記載している

長崎市は、地方自治法１条の３に基づく普通地方公共団体である。同市では、2007年7月、原爆祈念式典に向けての取材にあたる女性記者に同市の原爆被曝対策部長（当時）が性暴力をふるうという事件が発生した。同年10月頃、長崎市は関係者に対して内部調査を開始した。ところが、その直後、当該部長は自殺してしまい、結局、調査は加害者の主張のみを聴取するにとどまったまま終了してしまった。田上富久市長は記者会見を開き、当該市幹部が自死したことと記者へのわいせつ行為についての報道などで混乱を招いたことを詫びた。しかし、被害者への謝罪はなかった。
2014年、日本弁護士連合会（日弁連）において「職務上の優越的地位」を濫用して市幹部が女性記者に対して性暴力をふるい、女性への人権侵害があったこと、さらに別の市幹部も被害者を貶める虚偽の情報を広めて二次被害を引き起こしたこと、そして同市がこれを放置したことを認定し、同市に対し、女性の名誉回復に向けた謝罪文とさらなる性暴力の防止策を徹底するよう勧告した。しかし、同市は、日弁連の調査は不十分であるとして勧告を受け入れなかった。その後も同市の態度は変わることがなかったため、2019年4月、女性は損害賠償を求めて同市を提訴した。
圧倒的な力関係の中で情報を引き合いにして報道記者の人権と自由を奪うことは、報道の自由だけでなく市民の知る権利をも侵害する。世界的に＃MeToo運動が広がる一方で、同じく世界に知られる平和都市・長崎が被害者への謝罪も救済もしていない。そればかりか、今でも市議会においてこの問題が出ると「被害者はどっちだ」などとヤジが飛び、二次被害ともいえるような状況がつづいている。このような状況となっている点からノミネートした。

blackcorpaward.blogspot.com

#MeToo（ミートゥー）は、「私も」を意味する英語にハッシュタグ（#）を付したSNS用語。セクシャルハラスメントや性的暴行の被害体験を告白・共有する際にソーシャル・ネットワーキング・サービスで使用される。「Me Too」「#metoo」なども用いられる。

未だに根強いのか？九州の男尊女卑社会

「九州男児」という言葉を聞いたことがあるだろうか？

Wikipediaには「九州男児」について、以下のように記載がされている

九州男児 （きゅうしゅうだんじ）は、九州出身の男性のこと。一本気、逞しい、勇ましい等、ポジティブイメージがある。反面、短気、曖昧、自己中心さらには男尊女卑などネガティブイメージもある。

長崎で生まれ育ってしまった私も九州男児

大学を卒業後は５年以上もの歳月を東京で働き暮らしてきた私

今でこそ縁あって、ここ長崎県で暮らしておりますが、東京と比べるとやっぱり感じる男尊女卑

お茶汲みは女性の仕事ですか？自分で汲みたまえ

別に具体的にアレだコレだと挙げることはできませんが、東京で性差別を感じながら働いている女性は、きっと長崎県で働くと気絶すると思うよ

よかとこ長崎

人口流出はワースト１位を記録してしまうし、自治体なのにブラック企業賞を受賞してしまうし、２０１９年は長崎市にとって割と試練の年になりましたね

２０２０年も試練の年になりそうなのですが、それは２０２０年のお楽しみということにしましょう

ブラック企業賞を受賞してしまったことは不名誉なことかもしれませんが、話題にのぼるだけマシな側面も存在する？

世の中には、きっとここに載ってこないようなもっとヤバイ企業や自治体も存在するものなのです

長崎市のことは私よくわかりませんが、長崎県は割と良いところですよ！

イカもたまに釣れるし！！

ブラック自治体ですが、私はおまえらの移住待ってるぜ！？

長崎県佐世保市の堤防で12月のアジ釣り

今日はアジです！

アジ

なぜなら南蛮漬けが食べたくなってしまったから(>_<)

アジの南蛮漬けはどうして、あんなにも美味しいのでしょうか？

前回の記事では、カワハギ釣りに勤しんでおりましたが

nagasaki.hateblo.jp

私がやっとこさ、カワハギを3匹釣り上げているなか、隣のおばさま方はアジを結構な数釣ってた

であれば、私もアジ爆釣するしかない！と思い、やってきたのはお馴染み深浦漁港

12月も下旬にさしかかり、寒さ厳しくなってくる今日この頃

アジさん、いますかーー？

います！(*´ω｀)

狙い通り釣れてくれるのは嬉しいですね～

最終的に釣れたアジは・・・9匹！

正直言うと、もっと釣りたかったですね～

不思議なことに釣行時間は全部で2時間

しかしアジが釣れたのは最初の30分のみ！

残り1時間半はちゃりこがぽつぽつといった感じ・・・

よかったら動画もどうぞ！

www.youtube.com

冬イカ降臨！久しぶりのアオリイカは大きかった！

ドドーン！щ(ﾟДﾟщ)ｶﾓｰﾝ

冬イカ降臨！

久しぶりにイカを釣った気がします

10月の半ばに釣れて以来、約2か月ぶりのアオリイカでございます～( *´艸｀)

エギングするのも久しぶりのような気がした

12月14日　釣り始めたのは朝の６：３０

まだまだ日も昇らぬ暗いうちから

明るくなってきたのが７：００

そしてそこから更に30分経過したくらいに、いきなりズドーン！

もちろんしゃくりアワセ(/・ω・)/

久しぶりすぎて、最初何が起こったのかわからなかったくらいでしたが、イカが釣れていました( *´艸｀)

12月入っちゃったし、釣れると思っていなかったので嬉しい一匹

但し、釣れると思ってなかったからこそ動画の撮影をしていなかったのが悔やまれる

実は本命はアオリイカではなく、カワハギ

今の時期はカワハギの肝が最高にうまい季節

なので、カワハギ釣りのついでに朝マヅメはエギングでもやっとくか。くらいの感覚でした

もちろん本命の方もなかなかに好調( *´艸｀)

アイゴぱいせんはお呼びではないです

小さめの個体も混じりつつ、どうにかこうにか良型のみをキープしていく

豆アジも1匹釣れる

ちなみにお隣さんはアジ爆釣しておりました

私もアジ用のサビキ仕掛け仕込んでおけばよかったかも(>_<)

最終的なお持ち帰り釣果は

カワハギ3匹

アオリイカ1匹

味1匹

やっぱこう並べてみると。。。イカでかいよ？

アオリイカのお刺身は、海のフォアグラと称されるカワハギの肝と相性抜群

カワハギとアオリイカが釣れた時は是非お試しあれ( *´艸｀)

まじでうまいよ？

よかったら動画もどうぞ

www.youtube.com

魚が釣れたら、ネコが食う。まったり佐世保市フカセ釣りの巻き

とうとう12月に突入しました。寒い日が続いております

釣りに行くのも億劫になりそうなこの寒さですが、私は今日も元気に釣りでございます！(/・ω・)/

今日の釣りのテーマは相も変わらずフカセ釣り

朝日が昇る午前7時くらいから、釣りをスタート

釣り開始早々はチャリコが連発

4匹ほど立て続けにヒット

しかし、小さすぎるので全部リリース

今日はチャリコ祭りか？と思っていると、突如大物が！

今日は持ってた、たも網

上がってきたのはヤベーやつ

お馴染み毒魚のアイゴで～す！

未利用魚として悲しくも有名なアイゴ君ですが、以前刺身で食べたときは意外とイケル！といった印象

今日はアイゴのヒレを破断できるようなハサミを持っていなかったのであえなくリリース

アイゴの引きは強烈で楽しいね！

アイゴが釣れてからというもの・・・

ぱったりとアタリがとまる

いつしか私の横にはネコが鎮座しておりました

そして、お昼近い時間帯から怒涛のフグラッシュへ・・・

今日だけで一体何匹のフグを釣り、そして何本の針を失ったことやら・・・

私のフグ釣りを2時間近く見守るネコ

魚欲しいんか？

すまんなフグしか釣れなくて

気づいたら2匹目も登場

白い方のネコは超警戒モード

そして、黒い方のネコは結構人懐っこい性格みたいです

フグ釣りの合間に奇跡的に釣れたチャリコ

ネコ達の視線が熱い

結局私はフグの猛攻に耐えきれず・・・ねこ達のランチ調達係と化しました(/・ω・)/

サビキ釣りでイワシを釣って、ネコが食う！

白いネコは私が近づくと逃げますが、黒い方は逃げませんね

手からでもイワシ食べます( *´艸｀)

ネコ達と戯れる休日

たまにはこんな日も・・・悪くないか

よかったら動画もどうぞ！

www.youtube.com

フカセ釣りで黒鯛成就。そして大物との格闘

寒くなってきました。ごきげんよう私です

最近はめっきり寒くなってきましたね

11月初旬は太陽さえ昇っていれば、ポカポカ陽気でしたが、最近は太陽が昇っていても寒い！

これからどんどん気温は下がる一方であり、釣りに出るのが億劫になってしまう季節です

暑さに耐性のある私でも、寒さには弱く・・・果たしてこれからの時期釣りに行く気になるのか心配ではございます(/・ω・)/

最近のマイブームといえば、フカセ釣り( *´艸｀)

ウキを眺めながらのんびりと海で一日過ごすというのもあながち悪くはない

本日最初に釣れてくれた魚は”メバル”

通称「春告げ魚」とも呼ばれるメバル君ですが、春にはまだ早かった～

何気にメバルを釣るのは人生初でございました！

黒褐色の濃淡がかっこいいよね

2匹めの魚は・・・ここ最近追い求めていた”あの魚”

そう！黒鯛です～( *´艸｀)

やっと私のもとにも黒鯛きてくれましたよ～ながかった！

サイズこそ３０ｃｍ弱くらいの個体ですが、結構嬉しい一匹となりました

銀鱗にピンと立つヒレ・・・やっぱ黒鯛かっこいいわ

調子に乗って黒鯛連発といきたかったところですが、ここで私の釣り人生史上一番の大物が掛かってしまう

掛かった魚は”イラ”

スズキ目ベラ科の魚ですが、ベラの中では大型種

私のこれまでの釣り人生で間違いなく一番の引きでしたね～

サイズも大きかったと思います！！

そして、残念なことに私はタモを車に置いてきてしまっていたため、取り込みができない・・・引っ張り上げるのは不可能なレベル

結局どうしたかというと、ラインフリーにして魚が掛かったままロッド置いて、車までタモを取りに行くことに

戻ってみるとイラは消失しておりましたとさ(; ･`д･´)

タモは置いてきてはいけない（戒め）

最後の魚はいつもの彼

メジナで～す(/・ω・)/

動画撮影外でブラクリ釣法を使った、テスト釣りをしていたんですがブラクリ釣法いいですね！

良型カサゴ君が2匹釣れてくれました

最終的なお持ち帰り釣果はご覧の通り

今日も佐世保市の海の恵み。。。ごっちゃんで～す！！！

よかったら動画もどうぞ

www.youtube.com