秀丸マクロの登録方法
気が付いたら今までの人生30年の半分は秀丸にお世話になっていました。
中学生の頃から親のPC使ってネットで二次創作小説を探しては秀丸にコピペ、フロッピーディスクに移して自分のPCへ。
自分のPCでもまた秀丸を開いて読み漁る…というオタク。
それはともかく、仕事を始めてからは作業の効率化を図るのに欠かせないのが秀丸マクロになっています。
マクロコードの記事は既にいくつか書いていますが、そもそも作り方をきちんと書いていなかったので残しておきます。
↓マクロのコードサンプル記事はこちら
honey8823.hateblo.jp
①マクロを作って保存
内容は省略しますが。
マクロを書いたら「.mac」という拡張子で保存します。
秀丸で「名前を付けて保存」しようとすると、ファイルの種類としても選択可能です。
保存先はどこでも良いのですが、
マクロファイル用のフォルダは用意されているのでそこに保存するのがベターでしょう。
(保存先のパスはマクロ登録画面で確認できます。詳しくは後述)
②保存したマクロを秀丸に登録
マクロを使うには、秀丸からマクロ登録する必要があります。
メニューバーの マクロ>マクロ登録 を選択すると、以下のような画面が出てきます。
マクロ登録画面
一番下に書かれているのがマクロファイル保存用のフォルダです。
- タイトル:任意のタイトルを入力
- ファイル名:マクロを選択(上記のフォルダ以外にある場合は「...」から選択)
- 編集:マクロの中身を編集できる
登録したいファイル名を指定して「OK」すれば登録完了です。
1~10に登録したマクロは、「Ctrl+番号(10の場合は0)」で実行できるようになります。
③登録したマクロにショートカットキーを割り当てる
「Ctrl+番号」でも充分便利なのですが、ファンクションキーやマウス操作などに割り当てることもできます。
メニューバーの その他>キー割り当て で設定可能です。
左側でShift、Ctrl、Altとキーやマウス操作との組み合わせを選び、
右側で割り当てる処理を選びます。上のセレクトボックスを「メニュー/マクロ」にすると、②で登録したマクロが選べるようになります。
もともといろいろな機能が割り当てられているので、普段使っている機能をうっかりつぶさないように気を付けましょう。
駅メモ #18:あけましておめでとうございます
年末年始は愛媛まで行ったり福島まで行ったり。
新駅はそんなに取れていませんが、ミクさんのイベントや駅奪取のイベントがそこそこ進んだので良かったかな。
晴れ着ラッピング…ずるい…かわいい…
とりあえずふぶさんが出るまで回しました。
キャーふぶさーん♥ pic.twitter.com/TEoNiezo78
— ぐのひと (@honey8823) 2017年1月1日
進捗:前回(12/26)からの比較
- 駅 3102 → 3134(+32)
- 路線 373 → 375(+2)
- 都道府県 31 → 31(+0)
- コンプ路線 177 → 179(+2)
育成進捗 ()内は前回比
- [S]ふぶ 68/75 (Lv3up / 上限10up)
- [S]しぐれ 22/75 (Lv6up / 上限5up)
- [T]みらい 10/75 (上限5up)
- [D]ありす 73/80 (上限5up)
- [S]ミオ 6/80 (上限10up)
- [D]くに 29/65 (Lv23up)
- [A]ハル 8/60 (上限5up)
- [S]アサ 70/75 (上限5up)
- [S]カノン 19/55 (Lv14up)
- [S]スピカ 46/55 (Lv4up)
- [D]なほ 7/55 (上限5up)
- [S]ヒメギ 1/55 (new!)
未所持
- なつめ
- ノア
その他進捗はこちら。
駅メモ:でんこ育成状況とコンプ進捗状況 - アナログCPU:5108843109
福袋を全部買い占めた結果、推し(ふぶ・いずな・ありす・アサ)が全員出てきたり新規ヒメギさんが出てきたりと非常に良かったです。買ってよかった。ノアどの出なかったけど。
スカウトチケットは誰に使うか悩んで温存中。
自分用育成メモ:
引き続きサポーター(+いろは・くに)育成強化中。
まずは久々に上限突破できたふぶさん・アサさんが最優先。
…なんですけど、やっぱりサポーター強化するにしてももっと厳選すべきかと考え中。
アサ・うらら・いろは あたりは入れ替えて使うのでノーカンとして、他に5人選ぶとすれば
ふぶ・スピカ・もえ・みこと・しぐれ…かな。
1人をサポートするだけならみこと・しぐれは両立しないので、あと1人…迷うけどセリアかなあ。
次点以降は ひいる>カノン>レイカ>ヒメギ>ミオ くらいの感じ。
3番目強化のミクさんと姉専用のくにさんは別枠。
そうすると、
- 仮カンスト目指して最優先:ふぶ>アサ
- Lv50目指してリンクスコア中心:スピカ>(くに)
- APorHPが200を超えるまで新駅ボーナス中心:いろは>みこと>しぐれ>セリア
- (カンスト済み:もえ)
- (Lv50になったので当分保留:うらら)
という感じか。
駅メモ #17:プレイ開始1周年を過ぎて
12月3日にプレイ開始して365日目を迎えました。
瞬間的にですがデイリー1位ゲット。
(ログインして確認した瞬間は同じく365日目の旦那と並んで2位&3位だったところを、いくつかレーダー飛ばして無理矢理1位に…)
7892人目?くらいでした。
ということでこの日はデイリーランキング上位を目指す旅へ。
あとはスクリーンショット取り忘れましたがキングオブメモリー共感もゲット。
そんなこんなでデイリーランキングチャレンジは5位でした。
しかし1年…早いものです。
今見直してみると、最初はルナを選び、
1日目と2日目で レイカ・コタン・もえ・ふぶ を引いている…
もしかしてそこそこ引きが良かったのでは。
特にふぶさん・もえさんは1年間ずっと支えてくれていて大変助かってます。
ふぶさん最初から今までずっと嫁だよ(真顔)なかなか上限突破できないけど…
うっかり駅メモを入れてしまったんだがこの子めっちゃかわいいな pic.twitter.com/56yWYQEKg4
— ぐのひと (@honey8823) December 6, 2015
あとは、れいこさんのお仕事回数が5000を突破。
「れいこがいればなんでもできる」一番乗りいただきました。
次は10000回ですが…さすがにグランクラスの子を5000回使い続けるのはちょっとつらいかな…。
ミクさんを普通に育成してたらAPが低すぎて称号がどんどん溜まるのでこちらも記録してみましたが…ライバルが多すぎるw
進捗:前回(11/30)からの比較
- 駅 2945 → 3102(+157)
- 路線 371 → 373(+2)
- 都道府県 30 → 31(+1)
- コンプ路線 171 → 177(+6)
育成進捗 ()内は前回比
- [T]いろは 35/60 (Lv1up)
- [T]ダッチュー 50/55 (上限5up)
- [S]スピカ 42/55 (Lv9up)
- [D]なほ 7/50 (Lv6up)
- [S]ミク 41/55 (new!)
未所持
- なつめ
- ヒメギ
その他進捗はこちら。
駅メモ:でんこ育成状況とコンプ進捗状況 - アナログCPU:5108843109
自分用育成メモ:
引き続きサポーター(+いろは)育成強化中。
最優先のふぶさん・アサさんは仮カンスト中。
その他はとりあえずLv50を目指したいわけですが、うららちゃんは達成。
ということで、現在の優先度は
スピカ>いろは>ミク>しぐれ>みこと>カノン>レイカ>ひいる>セリア>ミオ
という感じ…ですが…
全員Lv50目指すのもなかなか大変そうなので、もうちょっと考えたいところ…。
パッシブスキル(スピカ・しぐれ・みこと)を優先しようかなあ。
しかしアタッカーほぼ使わないからしぐれちゃんも後回しかな。
あと、どうせみことさん育てるなら強化されたくにさんと併せて使ってみたいので、先にくにさん育ててみようか。
ということで、しばらくは
スピカ>(くに)>みこと>いろは>ミク>しぐれ
という感じかな。
ならば
リンクスコア狙いは スピカ>ミク
新駅ボーナス狙いは (くに)>みこと>いろは
となるか。
駅奪取のニャッピーデー検証
<追記 2019-12-09>
8周年のタイミングのためかこの記事のアクセスが増えておりますね。
1年くらいで記録をやめてしまっておりすみません…追記>
駅奪取の「5周年ニャッシュ」を引き当てたので、機能「5のつく日はニャッピーデー」でもらえるアイテム検証。
まだ始まったばかりなので、まずは気長に記録していきます。
バッテリー10(1個)から駅奪取シールまで、当たり外れの振れ幅がなかなか大きいですね。
記録忘れも多いので結構歯抜けです…
日付 | もらえたアイテム |
2016-12-05 | バッテリー100 1個 |
2016-12-15 | バッテリー100 1個 |
2016-12-25 | 時短タイマー 1個 |
2017-01-05 | ベーシックガチャチケット 1個 |
2017-01-15 | バッテリー100 1個 |
2017-01-25 | 時短タイマー 1個 |
2017-02-05 | 強奪チーズ1day 1個 |
2017-02-15 | おつかいチケット 1個 |
2017-02-25 | 強奪チーズ1day 1個 |
2017-03-05 | 強奪チーズ5min 1個 |
2017-03-15 | - |
2017-03-25 | 神の手(3個入り) 1個 |
2017-04-05 | 駅奪取シール 5個 |
2017-04-15 | 神の手(3個入り) 1個 |
2017-04-25 | バッテリー50 1個 |
2017-05-05 | バッテリー10 1個 |
2017-05-15 | スタミナオイル30 1個 |
2017-05-25 | - |
2017-06-05 | - |
2017-06-15 | 強奪チーズ1h 1個 |
2017-06-25 | ベーシックガチャチケット 1個 |
2017-07-05 | 駅奪取シール 5個 |
2017-07-15 | - |
2017-07-25 | 神の手(3個入り) 1個 |
2017-08-05 | スタミナオイル30 1個 |
2017-08-15 | - |
2017-08-25 | 着せ替えニャッシュガチャチケット 1個 |
2017-09-05 | - |
2017-09-15 | 駅奪取シール 5個 |
2017-09-25 | - |
2017-10-05 | - |
2017-10-15 | ベーシックガチャチケット 1個 |
2017-10-25 | バッテリー50 1個 |
2017-11-05 | - |
2017-11-15 | バッテリー100 1個 |
2017-11-25 | 強奪チーズ5min 1個 |
2017-12-05 | 時短タイマー 1個 |
駅メモ:でんこ育成状況とコンプ進捗状況
随時更新します。
都道府県コンプ状況
- 経県値マップを使用:マスター、猛者、大好き、駆け出し、称号はないがアクセス済み、未アクセス の順。
- 2018-01-12 経県値&経県マップ【駅メモ進捗 2018-01-12】
- 2017-06-29 経県値&経県マップ【駅メモ進捗 2017-06-29】
- 2017-05-10 経県値&経県マップ【駅メモ進捗 2017-05-10】
- 2017-01-04 経県値&経県マップ【駅メモ進捗 2017-01-04】
- 2016-12-23 経県値&経県マップ【駅メモ進捗 2016-12-23】
- 2016-12-01 経県値&経県マップ【駅メモ進捗】
駅メモ #16:3人目のカンスト
もえさんもカンスト。
進捗:前回(10/31)からの比較
- 駅 2935 → 2945(+10)
- 路線 371 → 371(+0)
- 都道府県 30 → 30(+0)
- コンプ路線 170 → 171(+1)
無事にハッカドールイベントの250駅を突破したので2号さんをお迎えし、
2周年ガチャであたる・なほも確保。
現時点で未所持はなつめだけになりました。
12月の新でんこはまたそろそろアタッカーかな?
育成進捗(今回から変化のあったのだけ残すことにする) ()内は前回比 ☆は凸完了、★はカンスト
[S]セリア 8/80 (上限5up) ☆
[S]もえ 80/80 (Lv9up) ★
[D]しいら 11/75 (上限5up)
[A]イムラ 50/70 (上限5up)
[S]しぐれ 16/70 (Lv9up / 上限5up)
[S]うらら 47/65 (Lv16up / 上限5up)
[T]チコ 18/60 (上限5up)
[A]レーノ 8/80 (Lv1up) ☆
[D]ありす 72/75 (Lv2up)
[S]ミオ 6/70 (上限5up)
[S]みこと 23/75 (上限10up)
[D]くに 6/60 (上限5up)
[D]にちな 9/70 (上限10up)
[A]そら 8/80 (上限5up) ☆
[S]アサ 70/70 (Lv5up)
[A]さいか 13/60 (上限5up)
[S]カノン 1/55 (上限5up)
[A]あたる 1/50 (new!)
[S]スピカ 21/55 (Lv20up / 上限5up)
[D]なほ 1/50 (new!)
[A]Liko 6/80 (上限5up) ☆
[T]ハッカ1号 1/50 (new!)
[T]ハッカ2号 1/50 (new!)
[T]ハッカ3号 1/55 (上限5up)
未所持
・なつめ
凸&カンスト状況
駅メモの育成状況 - アナログCPU:5108843109
自分用育成メモ:
相変わらずサポーター育成強化中。サポーターじゃないけどいろはも加えよう。
もえさんが無事カンストしたので、優先度としては
ふぶ>アサ>うらら>スピカ>いろは>しぐれ>みこと>カノン>レイカ>ひいる>セリア>ミオ
という感じかな。
ふぶ・アサは仮カンスト中なので(ただし上限突破次第最優先で育てる)
当面のリンクスコア狙いは うらら>いろは>みこと>スピカ
新駅ボーナス狙いは スピカ>いろは>しぐれ>みこと
でいこう。ひとまずLv30,Lv50を目処にという感じで。
そしてやっぱりマイルや経験値に影響の出にくいところではれいこさんの回数稼ぎ継続中。
整数かどうか、またその範囲をチェックする関数
整数かどうかを一発チェックしてくれる関数を探していたのですが見つからず。
…えっ、本当にない…? いやあるでしょ…?
しかし見つからなかったので、とりあえず作りました。誰か知ってたら教えてください。
せっかくなので範囲チェックもやってくれるオマケ付きです。
で、「範囲チェックが不要なときもあるので、引数の最小値・最大値が省略されたかどうか」を調べる方法を探し…
IsMissingという関数で調べることは可能というのは分かったのですが、引数がVariantでなければならない様子。うーむ…
参考
VB6・VBA関数メモ:IsMissing関数 | フィロの村note
関数
Private Function checkLong(ByVal vNum As Variant, Optional ByVal lMinNum, Optional ByVal lMaxNum) If CLng(vNum) <> vNum Then ' 引数が整数でない場合FALSE checkLong = False Exit Function End If If IsMissing(lMinNum) = False Then ' 最小値が指定されている場合 If vNum < lMinNum Then ' 引数が最小値を下回っている場合FALSE checkLong = False Exit Function End If End If If IsMissing(lMaxNum) = False Then ' 最大値が指定されている場合 If lMaxNum < vNum Then ' 引数が最大値を上回っている場合FALSE checkLong = False Exit Function End If End If checkLong = True End Function
使用例
Debug.Print checkLong(5) ' True :整数 Debug.Print checkLong(3.1) ' False:整数でない Debug.Print checkLong(5, 1, 9) ' True :整数(1~9の範囲内) Debug.Print checkLong(5, 6, 9) ' False:整数(6~9の範囲外)
ブックを開くとき/閉じるときの処理
普通どおり標準モジュールにマクロを作るとき、プロシージャ名を
「Auto_Open」にすればブックを開いたとき、
「Auto_Close」にすれば閉じるときに
そのプロシージャが起動します。
「ブックを開いたら今日のおみくじを表示」みたいなお遊びから
「閉じる前に設定内容等を強制保存」まで色々と使えそうです。
尚、イベントプロシージャを使用する方法もあります。
詳細はこちら。
エクセルExcel大事典 VBAマクロ イベントプロシージャ Open Target Cancel EnableEvents Volatile
これだけではなんなのでサンプルを。
ブックを開閉するタイミングで特定のシートを非表示にするサンプルです。
Option Explicit Const SHEETNAME As String = "samplesheet" 'シート名 '* '* ファイルオープン時の自動実行 '* Public Sub Auto_Open() ' シートを非表示に(VeryHiddenならExcel画面での再表示は不可) ThisWorkbook.Sheets(SHEETNAME).Visible = xlSheetVeryHidden End Sub '* '* ファイルクローズ時の自動実行 '* Public Sub Auto_Close() ' シートを非表示に ThisWorkbook.Sheets(SHEETNAME).Visible = xlSheetVeryHidden End Sub
301 VS 302
開発中のサイトで、https://でアクセスされたらhttp://にリダイレクトしたり
その逆をやったり、という事案があり、リダイレクトについて諸々調べてたので残しておきます。
HTTPステータスコード
リダイレクトをかます時に、HTTPステータスコードを乗っけることができるらしい。
ほほう。今回のケースだと何か特別乗っけないといけないのかしら?
HTTPステータスコードっていうと、
「403 Forbidden」「404 Not Found」とかいうアレ。
とりあえずいろいろ調べてみる。
参考
HTTPステータスコード - Wikipedia
よく見るHTTPステータスコード一覧とその意味を理解する | SEO HACKS公式ブログ
ざっと見た感じ、301か302かな…?
と思って検索してみたら、案の定「301vs302」みたいな記事がごろごろ。
参考
SEOを正しく行う為に301リダイレクトや302リダイレクトを理解する | SEO Imagination!ブログ
SEO的に301リダイレクトは是が非か? | ランサーズ社長日記
301リダイレクトと302リダイレクト、meta refreshの設定方法や使い方 | WP SEOブログ
Google、モバイル向けサイトのリダイレクトには301よりも302を使うように推奨を変更 | 海外SEO情報ブログ
chromeは、301リダイレクトをキャッシュしている - too_youngの日記
いろいろ貼りましたが、まとめると…
- 301
- 302
- メンテ中など、一時的に移動先URLに移動させたい場合に使用
- googleからの評価などの移動は発生しない
- 移動元も移動先も検索結果に出る(が評価は分散する)?
- ただし、302が何度も検知されるサイトについては301として扱われる場合もある
- 「○○.jp/index.html」のサイトを「○○.jp」として検索結果に出すのにも有効
- 「○○.jp」でアクセスしてもらって「○○.jp/index.html」に遷移させる
- モバイル端末でPCサイトにアクセスした際のモバイルページへのリダイレクトは302推奨
- あくまで一時的なものなのでキャッシュはされない
という感じですかね。
実際の挙動は以下のような感じだそうです。
301リダイレクトと302リダイレクトの違い | 海外SEO情報ブログ
うーん、今回の場合、httpをhttpsに転送したりその逆だったり…
どっちのURLも存在するから引っ越すわけではないし、
かといって一時的な移動でもないし、
っつーかその微妙な違いが上記のパターンにちゃんと当てはまるんかいな…
要するにどちらを使えば…。
…と迷いましたが、301を採用することにしました。
決め手にしたのは、
301の場合→「○○.jp/hoge」から「○○.jp/hoge/」への移動
302の場合→「○○.jp」から「○○.jp/index.html」への移動
というところです。
移動元を検索エンジンに残したいか残したくないかですね。
そして実際にHTTPステータスコードを乗っけたいとき、PHPではhttp_response_codeを使用すればOK。
シートの存在を調べて存在しなければ新しいシートを作成
頻繁に使うロジックなので関数化してみました。
- 任意の名称を持つシートが存在するかどうか調べる
- 上記で存在しなければその名称で作成(もしくはあるシートをコピーしてその名称にする)
' 呼び出し例(1) Dim wsSheet As Worksheet Set wsSheet = SelectSheet("シートA", "テンプレート") ' → 常に wsSheet = ThisWorkbook.Sheets("シートA") となる。 ' ただし、「シートA」が存在すればそのシート、 ' 存在せず、「テンプレート」シートが存在すればそれをコピーしたもの、 ' 「テンプレート」シートも存在しない場合は新規シート。 ' 呼び出し例(2) Dim wsSheet As Worksheet Set wsSheet = SelectSheet("シートA") ' → 常に wsSheet = ThisWorkbook.Sheets("シートA") となる。 ' ただし、「シートA」が存在すればそのシート、 ' 存在しない場合は新規シート。 '* '* シートがなければ作成orコピーする関数 '* (有効なsBaseSheetが指定された場合、そのシートをコピーして名称をsSheetNameとする) '* '* [in] sSheetName:取得するシートの名称 '* sBaseSheet:コピー元 ※省略可 '* [out] SelectSheet:取得したシート '* '* 使用関数:CheckExistSheet '* Private Function SelectSheet(ByVal sSheetName As String, Optional ByVal sBaseSheetName As String = "") As Worksheet ' 変数 Dim wsSheet As Worksheet Dim bFlag As Boolean ' シートの存在を調べ、なければ作る If CheckExistSheet(sSheetName) <> True Then ' 存在しないので、作成orコピーする If sBaseSheetName = "" Or CheckExistSheet(sBaseSheetName) = False Then ' コピー元シートを指定されていないor無効なシートなので新規作成 ThisWorkbook.Sheets.Add After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Else ' コピー元シートをコピーして名称変更 ' ※Copyの引数はコピーした後の位置。After:=(Before:=)を用いて指定する With ThisWorkbook.Sheets(sBaseSheetName).Copy(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ActiveSheet.Name = sSheetName End With End If End If '指定された名称のシートを返す Set SelectSheet = ThisWorkbook.Sheets(sSheetName) End Function '* '* シートが存在するか調べる関数 '* '* [in] sSheetName:存在を調べるシート名 '* [out] CheckExistSheet:結果(存在すればTrue、しなければFalse) '* Private Function CheckExistSheet(ByVal sSheetName As String) As Boolean ' 変数 Dim wsSheet As Worksheet ' 戻り値のデフォルト値をFalseに CheckExistSheet = False For Each wsSheet In Worksheets If wsSheet.Name = sSheetName Then ' シートが存在すれば戻り値をTrueにしてループから抜ける CheckExistSheet = True Exit For End If Next wsSheet End Function