（AutoCAD VBA） VBAをAutoCAD起動時にロードする

はじめに AutoCAD VBAを使っていると「信頼できる場所に acad.dvd 入れてるのに自動でロードしないよね……」ってなるよね。で、毎回環境作るときに調べ直すので覚え書きとしてここに記載しておく。 はじめに 1. 「信頼できる場所」を追加する 2. 追加した「信頼できる場所」に「acad.rx」というファイルを作る 3. 「acad.dvb」が既にある→3-1へ ／ ない→4.へ 3-1. 「acad.dvb」が既にあるならそれも「信頼できる場所」に置く 3-2. AutoCADを起動する おしまい 4. AutoCADを起動する おまけ 1. 「信頼できる場所」を追加する 適当にサ…

(DraftSight) エンティティ選択時のコンテキストメニューで移動や回転するときのアクセスキーを変更する

AutoCAD互換CADのDraftSightで、オブジェクト(エンティティ)選択時のコンテキストメニューのアクセスキーをAutoCADと同じキーにする非公式カスタマイズを紹介します。ARES, CorelCADにも応用出来ます。

(Excel VBA) Shift, Ctrl, A～Z以外の組み合わせでマクロのショートカットキーを作成する

はじめに Application.OnKeyメソッドでマクロのショートカットキーを作成する OnKey メソッドの構文 サンプル Application.OnKeyメソッドはどこに記述するか Application.OnKey メソッドで使えるキーおよび記述方法の一覧 修飾キー Escとファンクションキー QWERTY部分 PrintScreenの付近 Insertの付近 カーソルキー テンキー Application.OnKeyメソッドの応用：キーを無効化する おわりに はじめに 以前の記事で「マクロに割り当てることの出来るショートカットキーの一覧」を紹介しましたが、そちらの方法では「Ctr…

Excelやスプレッドシートで日付から消費税率を求める数式

はじめに ExcelやGoogleスプレッドシートなどで日付を表すセルから消費税率を求めます。 数式 IF関数：Excel, Googleスプレッドシートなど汎用 参照セル：A1 A1セルの表示形式：日付 =IF(A1>=43586,0.1,IF(A1>=41730,0.08,IF(A1>=35521,0.05,IF(A1>=32599,0.03,0)))) IFS関数：Excel 365, Excel 2019～, Googleスプレッドシートなど 参照セル：A1 A1セルの表示形式：日付 =IFS(A1>=43586,0.1,A1>=41730,0.08,A1>=35521,0.05,A1…

各種日本語入力アプリ用のPS4版ボーダーブレイク用語辞書の最新版

最新版：2020.4.23 20:00:00 注意点 現在辞書が対応している日本語入力アプリ ATOK for Windows/macOS 省入力データとは？ ダウンロード ATOK for Android / ATOK PRO for Android / Super ATOK ULTIAS ATOK for iOS Google日本語入力 for Windows, macOS / Mozc for Linux Google日本語入力 for Android / Mozc系 for Android GBoard for Android MS-IME ( for Windows 10 ) Sim…

au INFOBAR xv (Kyocera KYX31)に標準インストールされているアプリ名とパッケージ名および無効化の可否一覧

はじめに auのストレート型のAndroid搭載フィーチャーフォンであるINFOBAR xv (Kyocera KYX31)のカスタマイズをするにあたって、アプリ名とパッケージ名が必要であったため、adbコマンドを使用して情報を抽出した。また、外部アプリケーションを使い、無効化の可否についても記載した。 アプリ名とパッケージ名および無効化の可否 分類名 アプリ名 パッケージ名 無効化 android Androidシステム android 不可 android Android System WebView com.android.webview 可 android Androidライブ壁紙 c…

Googleカレンダー版 PS4 BORDER BREAK イベント期間カレンダーと戦場カレンダーを作ってみました

はじめに PS4 BORDER BREAK イベント期間カレンダー PS4 BORDER BREAK 戦場マップカレンダー 筆者の環境では色分けされているのだが…… ご自分のGoogleカレンダーに共有表示することもできます 今後の予定 はじめに 個人的にPS4版BORDER BREAK(ボーダーブレイク)のいろいろなデータをGoogleスプレッドシートなどでまとめているのですが、その中でイベント期間履歴やマップ履歴などは、カレンダー形式の方が見やすいのかなぁなどと思っておりました。そこで、「イベント期間カレンダー」および「戦場マップカレンダー」を作ってみました。「戦場カレンダー」は公式にもあ…

(PS4 BORDER BREAK) 運営・開発への意見・要望・バグ報告などの情報を共有しませんか？

はじめに 公式サイトに意見を送る まずはセガの公式サイトから意見を送りましょう 投稿種別 カテゴリー セガからの「自動配信メール」を確認しましょう 非公式集計の投稿フォームへの入力 設問と入力方法 注意点 投稿フォーム 非公式集計シートを閲覧する 注意点 シートで長文の「投稿内容」が見づらい場合 集計 是非、投稿をお願い致します はじめに 2018年8月2日のサービス開始から13ヶ月ちょっと経過した「PS4版 BORDER BREAK」(ボーダーブレイク)ですが、まだまだ機能に難のある状態だったり、不満点などがくすぶっているような内容になっています。恐らく多くのプレイヤーがSNSなどで文句を言…

(Excel VBA)選択範囲の数式の参照形式(※参照タイプとも)を絶対参照と相対参照で相互に変換する

Excel VBAで相対参照(例：A1)を絶対参照(例：$A$1)に変換したり、参照スタイルをA1形式とR1C1形式で相互変換する方法を解説します。

Google Adsense 広告が意図しない場所に表示される場合の対処法

ご自分のサイトを確認していて「あれっ？こんなところにAdsense広告置いたっけ？」と感じたことはありませんか。実はこれAdsenseが勝手に追加した「自動広告」なんです。ここでは「自動広告」をオフにする方法を紹介します。

ASUS ZenFone 6 Edition 30を買ったらあっという間に到着したので軽く紹介します

ASUSのスマートフォンZenFone 6が遂に日本に上陸。その中でも最上位のASUS 30周年記念モデル「ZenFone 6 Edition 30」(メモリ12GB、ストレージ512GB)を早速購入してしまいましたので簡単に紹介など………。

テキストエディタ gPadでMicrosoft OfficeのExportedUIファイルを編集する為の書式変換マクロ

私が愛用しているテキストエディタmFactoryさんのgPadで、Microsoft Officeのリボンやクイックアクセスツールバーの設定ファイル「ExportedUI形式ファイル」を編集しやすいよう整形するマクロを作成しましたので紹介します。

PS4 BORDER BREAK ボーダーブレイク 2019年6月27日(木)のVer.2.04アップデートで変わったことまとめ ｝(>・< )

PS4 BORDER BREAK 2019年6月27日(木)のVer.2.04アップデートで変わったことまとめ ｝(>・< )

(Office VBA) マルチディスプレイ環境でユーザーフォームを親ウィンドウの中央に表示する(2) 決定版

前回は、処理の流れを追いました。今回は実際どこにどのように記述すれば良いかを説明します。 実はこれまで自分で表示させるときには呼び出し元のSubプロシージャの方に記述していました。しかしそれだといちいち同じコードを記述しなくてはならず、元のSubプロシージャが乱雑になってしまいます。またUF名を引数にした汎用のFunctionプロシージャ化もまだうまくいってません。ところが、実はもっと簡単な方法があったのです。それは……ユーザーフォームそのものに記述することです。 ユーザーフォームのコードに記述する 中央表示設定用のSubプロシージャ Private Sub UFPositionCenter(…

(Office VBA) マルチディスプレイ環境でユーザーフォームを親ウィンドウの中央に表示する(1)

マルチディスプレイ環境(マルチモニタ環境)で、ユーザーフォームを使ったマクロを表示させると、現在ブックを表示させているディスプレイとは別のディスプレイにフォームが表示されてしまうことがあります。これを防ぎ、現在開いているブックの中央付近に表示させる方法を紹介します。 処理の流れ 流れとしては以下のようになります。 親ウィンドウ(ブック)の表示座標とサイズを取得する ユーザーフォームをロードする（表示はまだ） ユーザーフォームのサイズを取得する ユーザーフォームの表示位置を計算する 位置を指定してユーザーフォームを表示する 親ウィンドウの表示座標とサイズを取得する WindowsオブジェクトのT…

(Excel) VBAでのヘッダーとフッターの記述方法

ヘッダーおよびフッターの記述書式 ページ設定のヘッダーおよびフッターの記述については以下を参考にしてください。 dz11.hatenadiary.jp ヘッダー/フッターの記述(1) ※VBA記述内容は全てダブルクォーテーション(" ")で囲って下さい。 設定項目 ダイアログ記述 VBA記述 備考 ページ番号 &[ページ番号] &P . 総ページ数 &[ページ数] &N . 日付 &[日付] &D . 時刻 &[時刻] &T . フォルダパス &[パス] &Z . ファイル名 &[ファイル名] &F 拡張子なし シート名 &[シート名] &A . フォント (選択) &""フォント名"" "を…

(Excel) VBAでのヘッダーおよびフッター指定に使える主なフォント名とスタイル名の一覧

VBA記述でのヘッダーおよびフッター指定に使える主なフォント名とスタイル名 ここでは、VBA記述でのヘッダーおよびフッターの指定に使える主なフォント名と対応するスタイル名を紹介します。内訳は、ほとんど全ての日本語フォント(@付の縦フォントを除く)、中国語フォント、ハングルフォント、代表的な英語フォントです。 フォント名 言語 標準 太字 斜体 太字かつ斜体 MS Pゴシック 日本語 標準 太字 斜体 太字 斜体 MS ゴシック 日本語 標準 太字 斜体 太字 斜体 MS P明朝 日本語 標準 太字 斜体 太字 斜体 MS 明朝 日本語 標準 太字 斜体 太字 斜体 MS UI Gothic 日…

(Excel) ページ設定ダイアログと対応するVBAコード

はじめに VBAでのページ設定の高速化 PageSetupはシート(Sheet)に対して行う 「ページ」タブ 印刷の向き 拡大縮小印刷 拡大/縮小 次のページ数に合わせて印刷 用紙サイズ 日本で使う主な値 全ての値 印刷品質 先頭ページ番号 「余白」タブ 余白およびヘッダー/フッターの高さ ページ中央 「ヘッダー/フッター」タブ 「ヘッダーの編集」「フッターの編集」 その他のオプション 奇数/偶数ページ別指定 先頭ページのみ別指定 ドキュメントに合わせて拡大/縮小 ページ余白に合わせて配置 「シート」タブ 印刷範囲 印刷タイトル 印刷 枠線 白黒印刷 簡易印刷 行列番号 コメント セルのエラー…

(Excel) マクロに割り当てることの出来るショートカットキー一覧(暫定)

Excelでマクロに割り当てることの出来るショートカットキーは、 Ctrl + アルファベット26文字(A～Z) Ctrl + Shift + アルファベット26文字(A～Z) のみですが、あらかじめ組み込まれているショートカットキーがいくつもあり、結局使える組み合わせは何なのかよく分からないという状況です。 ここでは、筆者が独自に調べたアルファベットのショートカットキーの一覧と、マクロ割当に使える組み合わせ(暫定版)を紹介します。 Ctrl + アルファベット26文字(A～Z) Ctrl＋ A 全選択 Ctrl＋ B 太字(ボールド) Ctrl＋ C コピー Ctrl＋ D 上のセルの内容を…

素のVBAだけで画面の解像度を取得というか推測する手法(API使いません)

VBAで画面の解像度を取得したいときにWeb検索すると、WindowsAPIを使うとか、PowerShell経由で.NET APIを使うとかいう記事がよく出てきますが、結構面倒なイメージがあります。ここでは、そういうものを使わずにVBAだけで画面の解像度を取得というか推測する手法を紹介します。 Excelにおけるポイントという単位とは？ VBAでウィンドウサイズを取得する 通常(ウィンドウ)モードで最大領域にした場合 最大化モードにした場合 そもそも画面の解像度は大体決まっている 画像解像度の例 結論：目的によってはこの方法でも構わない Excelにおけるポイントという単位とは？ Excelを…

逆FIND：対象文字列を右(末尾)から検索して文字位置を取得するユーザー定義関数を作る

Excelの関数で、対象文字列を検索文字で検索したときに位置が何番目かを取得するワークシート関数「FIND」や「FINDB」がありますが、とても便利ですよね。これらの関数は「対象文字列を左(先頭)から検索したときの位置」を取得するものですが、「右(末尾)から検索したときの位置」を取得するにはちょっと面倒なことをしなくてはいけません。ここでは、VBAを使って分かりやすいユーザー定義関数を作ってみます。 逆FIND：FINDrev 解説 逆FINDB： FINDBrev おまけ：FINDrev2 逆FIND：FINDrev Public Function FINDrev(ByVal KWord A…

PS4 BORDER BREAK リリース記念公式生放送 (2018/08/14)で分かったこと

PS4 BORDER BREAK 公式生放送で発表された新情報をまとめます。 www.youtube.com 新マップ「トラザ山岳基地 ～砂塵の死線～」が登場 現在カジュアルマッチで公開されている「旧ブロア市街地 ～熱戦の河畔～」（2018.8.13(月) 15:00～8.20(月) 15:00)に加えて、カジュアルマッチに新マップ「トラザ山岳基地 ～砂塵の死線～」が公開されます。公開期間は、2018.8.17(金) 15:00～8.20(月) 15:00)までです。 8.20(月) 15:00～、ランクマッチ シーズン1が遂に始動！ 全国のプレイヤーでランクを競うランクマッチが遂に始動します…

PS4 BORDER BREAK ボーダーブレイクの対戦・勝敗のルールを簡単にまとめてみました

はじめに ボーダーブレイクの対戦って結局何をどうやれば勝てるの？ どういう条件でスコアが加算されるの？ って最初は全然分からないと思いましたので、簡単にまとめてみました。 ※アーケード版を元に記事を書いています。多少異なる可能性がありますが、大筋は違いありません。 最大10人 vs 10人の対人戦 マップによって人数が異なる場合もある ビギナーマッチは6人 vs CPU6機 トレーニングモードは 1人(自分)＋CPU n機 VS CPU n機 陣営の勝利条件 制限時間以内に敵コアを破壊する コアが健在の場合は、ゲージ差で勝敗が決定 ゲージとは、コアの耐久力 コアに直接攻撃する他、ブラストが大破…

PS4 BORDER BREAK ボーダーブレイク 稼働して現状分かっていることのまとめ

2018.08.16 17:00更新 現状分かっていることをまとめてみました PS4版に主眼を置いているので、アーケード版と違うところは重要視しておりません。 追加や間違っているところがあればコメントもしくは 🐢緑の血便 (@dz11) Twitter までお願い致します まとめサイトへの転載は禁止とさせて頂きます 無料で出来ることまとめ（詳しい内容は読み進めていってください） ソフトが無料でダウンロードできる スタミナ制限なし、時間制限なしで無料でプレイできる デイリーミッションでBC(ボーダーズチェック=ゲーム内無課金通過)が獲得できる (1日に400～900BC) BCで武器・機体ロ…

【91曲収録】BORDER BREAK Sound Track【Spotify】

【91曲収録】BORDER BREAK Sound Track【Spotify】 - 日本語入力ソフトとVBAの覚え書き

BORDERBREAK ボーダーブレイクの音楽関連の話題まとめ ～2018.9.6更新～

ボーダーブレイク サウンドトラック コンプリートCD BOX発売中！ セガストアで好評発売中 2018.6.20 ボーダーブレイク既存販売向けサントラが定額制音楽配信サービスに登場 Apple Music Spotify Amazon Prime Music [2018.9.6更新] 既存サウンドトラックとその内容 その1 BORDERBREAK ORIGINAL SOUNDTRACK BORDERBREAK AIRBURST ORIGINAL SOUNDTRACK BORDERBREAK AIRBURST ORIGINAL SOUNDTRACK 2 BORDERBREAK UNION ORI…

セルの選択範囲アドレスをクリップボードにコピーする

Sub CopySelectedArea() ' ## 選択範囲アドレスをクリップボードにコピーする ## CS = Selection(1).Address CL = Selection(Selection.Count).Address SCI = CS & ":" & CL With CreateObject("Forms.TextBox.1") .MultiLine = True .Text = SCI .SelStart = 0 .SelLength = .TextLength .Copy End With MsgBox "クリップボードにセル範囲 " & SCI & " をコピーしま…

Excelの入力規則で2段リストを作る方法

Excelでドロップダウンリストで入力をする「入力規則-リスト」が便利ですが、例えばリストを2つ用意して、1つめのドロップダウンリストの結果で2つめのドロップダウンリストを変化させることは可能でしょうか。答えは可能です。ここでは、このような2段リストの作り方を解説していきます。 1段目のリストを作成する 2段目のリストを作成する 見出しの下に行を追加する 「市」のセル範囲を絶対指定で追加した行に書き込む ※選択範囲アドレスをクリップボードにコピーするVBAコード 「市」に対する作業用セルを追加する 2段目リストを設定する 2段目リストの結果 図のようなシートを用意しました。1段目のリストは北東…

Officeファイルのプロパティを編集する (BuiltInDocumentProperties)

エクセルのプロパティ編集のコードを探していて、OfficeのうちWord, Excel, PowerPointにはBuiltInDocumentPropatiesとCustomDocumentPropatiesというものがあることが分かり、このうちBuiltInDocumentPropatiesについて調べてみました。 Word, Excel, PowerPointのみに対応 Access, Outlookなどには対応しない '**Word ActiveDocument.BuiltInDocumentProperties(n) '**Excel ActiveWorkbook.BuiltInDo…

Excelの色の設定について ～RGB指定, ColorIndex, SchemeColor～

Excel VBAでの色の指定方法には下記のようなものがあります。 ColorIndex指定 SchemeColor指定 組込定数指定 RGB指定 ColorIndex ColorIndexは、1～56の56色と、0(塗り潰しなし)を指定できます。主にフォントの色指定やセルの枠・背景の色指定に使います。 With Range("B2") .Value = "TEST" .Font.ColorIndex = 5 '**文字色＝青 .Borders.ColorIndex = 7 '**枠の色＝マゼンタ .Interior.ColorIndex = 24 '**背景色＝薄い水色 End With S…

InputBoxを使ってコメントを作成する(非表示オプション付き)

コメントを作成するとき、通常「コメントの挿入＞内容を編集＞場合によって非表示に設定」という流れです。現在仕事でやっている作業では大量の非表示コメントをどんどんつけていくということをやっており、通常の方法では非常に面倒くさいです。そこで、InputBox関数を使ってコメントを作成し、簡単な方法で表示と非表示を選べるコードを書いてみました。 コード Sub AddKome() ' ** コメントを追加する ** If TypeName(ActiveCell.Comment) = "Comment" Then MsgBox "既にコメントがあります。", vbOKOnly + vbExclamati…

マクロに割り当てられるショートカットキーについて ～エクセル編～

マクロにはショートカットキーを割り当てることが出来ますが、標準で設定されているショートカットキーもあり、それじゃあ一体どのキーなら使っていいの？ってなりますよね。 マクロにショートカットキーを割り当てる方法 マクロにショートカットキーを割り当てるには、マクロの記録をするときに設定するか、マクロの作成後にマクロのオプション画面から設定します。 そもそもエクセルのショートカットキーってどういうのがあるの？ エクセルのショートカットについてはものすごく詳しく分かりやすいサイトがあるのでこちらをご覧下さい。 excel-hack.comアルファベットを使っている物だけを抽出すると下表のようになります。…

選択範囲のコメント位置をリセットする

行の切り取り＆貼り付けを行っていると、コメント位置がぐちゃぐちゃになってくることが多いため、コメント位置をリセットするマクロを組んでみました。 Sub ResetCommentPosition() ' ** 選択範囲のコメント表示位置をリセットする ** Dim CL As Range Dim T, L, W, T2, L2 As Long For Each CL In Selection ' セルにコメントがあれば処理 If TypeName(CL.Comment) = "Comment" Then With CL T = .Top L = .Left W =.Width End With …

VBAマクロでオートシェイプを描画するときの基礎知識

VBAマクロでオートシェイプを描画する場合の基礎知識を紹介します。 座標系 オートシェイプの座標系は画面(セル範囲内)の左上を原点として右方向がX軸、下方向がY軸の、値はポイント単位のものになります。 ポイント単位とは？ (2018.12.17追記) ポイントとはExcel(Office)内で使われる独自の単位で、ピクセルのようなものですがピクセルとは異なります。またフォントのサイズのことでもありません。ポイントとピクセルは以下の式が当てはまります。 1ピクセル＝0.75ポイント ( 1ポイント≒1.3334ピクセル) 座標系(図解) 選択範囲から得られる座標値 描画をするにあたり、その位置を…

コメント枠の自動サイズ調整を一括で有効にするマクロ

大量にあるシートのコメントが見えてたり見えてなかったりするものが多かったため、コメント枠の自動サイズ調整を一括で有効にするマクロを組んでみました。 アクティブシート内全てのコメント枠の自動サイズ調整を有効にする場合 Sub SetCommentAutoSizeInSheet() ' ** アクティブシートのコメント枠の自動サイズ調整を有効にする ** For i = 1 To ActiveSheet.Comments.Count ActiveSheet.Comments(i).Shape.TextFrame.AutoSize = True Next i End Sub 選択範囲のコメント枠の自…

Enterキーを押したときに移動するセルの方向(上下左右)を変更するトグルマクロ

通常、Enterキーを押したときに移動するセルの方向は「下」です。これを「右/上/左」に変更するには「Excelのオプション」を開いて「詳細設定」から変更することが可能ですが、やや面倒くさいです。ここでは、実行するたびに移動するセルの方向を変更するマクロを作ります。 下→右→上→左→下……と切り替える場合 Sub SetMARD() ' ★★ Enterを押したら移動する方向を変更 ★★ Select Case Application.MoveAfterReturnDirection Case xlDown Application.MoveAfterReturnDirection = xlTo…

InputBox関数を数値を入力するまで繰り返す処理

InputBox関数で数値だけを入力させたい場合の処理です。 Do StrIB = InputBox("開始数字？") Loop Until IsNumeric(StrIB) = True Do～Loopを後判定で実行しています 後判定は最低1回は処理を実行します(この場合はInputBox関数) Untilは条件が成立するまで。Whileにすると条件が成立している間ずっと、になります IsNumeric関数は"数値に見えるもの"は全てTrueを返します 厳密に配列宣言する場合 Dim m As Long Dim StrIB As String Do StrIB = InputBox("開始数…

エクセルのコマンドボタン／自作VBAマクロの解説

基本的なこと リボン/クイックアクセスツールバーのボタン エクセルVBA 基本 ループ処理 分岐処理 セル シート ブック コマンド セルのコメント シェイプ 基本的なこと リボンとクイックアクセスツールバー リボン/クイックアクセスツールバーのボタン 「Excelのオプション」を一発で開くボタン 「罫線」を手軽に引く/消すボタン いろいろな「貼り付け」ボタン 「印刷」に関連したボタン エクセルVBA 基本 VBAマクロ作成を気軽に始めてみよう! ～Excel編～ VBAマクロをリボンやクィックアクセスツールバーのボタンに割り当てる (VBScript) XLSTARTフォルダを開く (無い場…

セルのコメントを編集する(3) ユーザーフォーム編-1

前回までは InputBox関数を使ってセルのコメント編集を行いました。複数行に対応はしましたが、その方法は区切り文字を使うというちょっとまどろっこしいものでした。もう少し編集画面をなんとか出来ないかと思ったのがこの記事を作るきっかけです。 入力ダイアログにユーザーフォームを使う ユーザーフォームの作り込み オブジェクト名を変更する オブジェクトのプロパティを設定する ユーザーフォーム テキストボックス コマンドボタン 標準モジュールのコード 起動テスト ユーザーフォーム(UF_EditComment)のコード ユーザーフォームの初期化 OKボタンを押したときの処理 完成したマクロの動作を確認…

(PowerShell) XLSTARTフォルダを開く、フォルダが無い場合は作成して開く

PowerShellも覚えたいなと思い、少しずつ調べています。PS5対応のリファレンス本とかあればいいんですが……。 「XLSTARTフォルダを開く」をPowerShellで作ってみました さて、以前VBScriptで作った、 dz11.hatenadiary.jpをPowerShellで作ってみました。 #XLSTARTフォルダの有無を確認して、あれば開く、なければ作って開く。 $UserProfile = $env:UserProfile If(Test-Path $UserProfile\AppData\Roaming\Microsoft\Excel\XLSTART){ #フォルダが存在…

セルのコメントを編集する(2) InputBox関数編-2 複数行対応

InputBox関数によるセルのコメント編集マクロ、前回は1行コメントの編集に対応したものを作成しました。今回はこれを元に複数行に対応させてみようと思います。 前回までのコード 単純に vbCrLf や Chr(13) & Chr(10) とはいかない 文字列を分割するSplit関数 既存のコメントが複数行だった場合の処理 ワークシート関数 Clean を使う 完成コード 次回：ユーザーフォームを使ったセルのコメント編集 前回までのコード Sub KomeHen() If TypeName(ActiveCell.Comment) = "Comment" Then ' ** セルにコメントがあれ…

セルのコメントを編集する(1) InputBox関数編-1

個人的に仕事で大量のコメントを追加しては日々編集しているんですが、こう大量にあるとエクセル標準のコメント編集機能ではちょっとまどろっこしいところがあります。何か入力ダイアログみたいなもので編集できると便利だなと思ったので今回はこれをやってみたいと思います。 入力ダイアログにInputBox関数を使う コードの説明 エラー処理を追加 キャンセル処理 既に入力されているコメントをInputBoxに代入する 次回：複数行に対応させる 今回の完成コード 入力ダイアログにInputBox関数を使う まず最初に考えたのは文字列を入力できるInputBox関数です。まずは簡単にコードを組んでみます。 Sub…

(リボン/クイックアクセス) 「セルの罫線」を手軽に引く/消すボタンを追加する

リボンやクイックアクセスツールバーに罫線を引いたり消したりするボタンを追加してエクセルを便利にしてみましょう。 はじめに 準備 コマンドをリボンに追加する 追加するコマンド ボタンを並び替える 便利な使い方 上下左右の罫線がトグルボタン(状態監視付)になっているので、押すたびに「罫線を引く」「罫線を削除」が出来る 横罫線(内側)・縦罫線(内側)・斜め罫線(右下がり/右上がり)もトグルボタン(状態監視無し)になっている 「罫線の作成」「罫線グリッドの作成」「罫線の削除」ボタン クイックアクセスツールバーにボタンを追加する はじめに 皆さんはエクセルで罫線を引くときにどのようにしていますか？まさか…