Sheet1に人口順に並んだ、47都道府県の表があります。この表を北から順番（北海道→青森→岩手･･･のように）に並べ替えるにはどうしたらいいでしょうか？EXCELの標準機能では昇順・降順、あいうえお順、日付順、曜日順等で並べ替えることはできますが、人間の…

選択したセル（複数選択可）の文字列を、カンマ区切りでクリップボードに格納します。選択したセルが結合セルでも、余分なTabや改行を含まず単一セルと同じような扱いでクリップボードに格納できます。次回掲載予定のマクロと組み合わせて使用するためのもの…

ピボットテーブルを使用すると、大量のデータを様々な角度から集計できて便利なのですが･･････、ピボットテーブルには何故か「年度」というグループ分け機能が搭載されていないため、年度ごとに集計を行う場合には非常に不便です。 例えば、集計や累計などは…

今回はマクロをクイックアクセスツールバーに登録してみたいと思います。クイックアクセスツールバーを編集するには･･････ リボンのタブ内で右クリックし「クイックアクセスツールバーのユーザー設定」を選択します。（ファイル－オプション－クイックアクセ…

今回はマクロをリボンに登録してみたいと思います。リボンを編集するには･･････ リボンのタブ内のどこでもいいので右クリックして「リボンのユーザー設定」をクリックします。（ファイル－オプション－リボンのユーザー設定からでも同じように入れます） リ…

通常、クリップボードのデータを結合セルに貼り付けようとすると･･････ このように、「この操作は結合したセルには行えません」等のエラーメッセージが表示され、貼り付けることができません。 そのようなモヤモヤを解消し、ストレスなく仕事を行うために今…

左から数えて、n文字目からx文字分を、指定した文字列に置換するマクロを作ってみました。 例えば、下の画像では4文字目から3文字分を顔文字に置換してみます。 文字ではなく空白を指定した場合は、4文字目から3文字分が削除されます。 4文字目から0文字分と…

下の画像のような結合セルをコピーしてメモ帳などに貼り付けると・・・ このように、意図しない改行やTabがクリップボードに格納されていることが分かります。これは、結合セルが複数セルで構成されているからであり、画像の例であれば一つの結合セルに9個の…

Trim関数を使って、セル内の文字列の前後にある空白を一括で削除します（意図的に入れた空白も削除するので注意）。文字列と文字列の間にある空白は削除しません。使用方法としては余分な空白を削除したいセルを選択（複数選択可）した状態でマクロを実行し…

タイトルのとおり選択範囲の金額を千円単位に変換し、小数点以下を四捨五入します。ちなみに、下記のコードでは小数点以下を四捨五入ますが、小数点以下を切り上げたり切り捨てしたい場合もあると思いますのでそっちのバージョンも作ってみました。コード後…

タイトルのとおり選択範囲の金額を千円単位に変換し、小数点以下を切り捨てします。ちなみに、下記のコードでは小数点以下を切り捨てますが、小数点以下を切り上げたり四捨五入したい場合もあると思いますのでそっちのバージョンも作ってみました。コード後…

タイトルのとおり選択範囲の金額を千円単位に変換し、小数点以下を切り上げします。以前に掲載した内容と重複しますが前回のコードでは下の画像のような飛び飛びのセル選択に対して正しく処理ができなかったためFor Each Nextでコードを書き直しました。 前…

ある特定の文字のみ色を変えるマクロです。たとえば下のような「松島」という文字のみ色を変えたい場合に･･････ 色を変更したい文字が入ったセル範囲を選択した状態で、マクロを実行して下さい。 ちなみに、非表示やフィルタリングによって折りたたまれたセ…

以下はコマンドバー（コマンドバーコントロールの上位階層にあたるもの）の一覧をリスト表示するコードです。マイクロソフトのヘルプページにあるものです（使い勝手のいいよう少し改良しました）。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊…

右クリック時のショートカットメニューにマクロを登録する際、上から何番目にメニューを配置するか指定できますが、EXCELの標準で隠されたメニューなどがあるため、正しい順番が分からないことがあります。その際には下記のマクロで右クリック(Cell用）ショ…

こんな感じで、右クリックした時のショートカットメニューにマクロを登録できたらいいなと思ったので、下記のようなマクロを作ってみました。対話形式で好きなマクロを右クリックのショートカットメニューに登録することができます。失敗してもリセットし、…

現在の列（セル単体の選択、または通常の挿入のように列全体を選択してもよし）の左方向に指定した数の列を挿入します。 挿入方向と書式の引継ぎはEXCELで通常挿入した場合と同じです。 列数を自分で数える手間がないぶん少しだけ楽です。 ＊＊＊＊＊＊＊＊…

前回投稿した後、CPUに負荷をかけない方法に気がついたので、再度仕切り直します(;^_^A ※負荷のかかるFor ～Nextをやめました 現在の行（セル単体の選択、または通常の挿入のように行全体を選択してもよし）の上方向に指定した数の行を挿入します。 挿入方向…

簡単なマクロを作ってみました。 現在の行（セル単体の選択、または通常の挿入のように行全体を選択してもよし）の上方向に指定した数の行を挿入します。 挿入方向と書式の引継ぎはEXCELで通常挿入した場合と同じです。 行数を自分で数える手間がないぶん少…

以前書いた内容と重複しますが、だるまさんという方が作られた 素晴らしいマクロがありますので紹介をさせていただきます。 だるまのつぶやき---エクセルVBA小技集 可視セルのみに貼り付けを行うというものです。 このマクロに自分好みの機能（選択中のセル…

For Each Nextでいろいろ作ってみた その５ 選択範囲の文字を全角にするマクロです。セルの値が数字の場合は半角から全角に変換しても、EXCELが数値と判断して半角に戻してしまうため、頭に’（シングルクォート）を付けて強制的に文字列にしています。 ＊＊…

For Each Nextでいろいろ作ってみた その４ 選択範囲の文字を半角にするマクロです。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub 選択範囲の文字を半角にする() Dim myRange As Range For Each myRange In Select…

For Each Nextでいろいろ作ってみた その３ 選択範囲のアルファベットの先頭文字を大文字にするマクロです。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub 選択範囲のアルファベットの先頭文字を大文字にする() Dim…

For Each Nextでいろいろ作ってみた その２ 選択範囲のアルファベットを小文字にするマクロです。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub 選択範囲のアルファベットを小文字にする() Dim myRange As Range Fo…

さて、せっかくFor Each Next文を勉強したので、いろいろ作ってみたいと思います。 選択範囲のアルファベットを大文字に変換するマクロです。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub 選択範囲のアルファベッ…

今回は、For Each Next文について勉強してみます。 実はこれ、自分の中であまり理解できていないステートメントです・・・。For Each Nextとは何を繰り返すのか？ For Each オブジェクト変数 In コレクション 処理 Next オブジェクト変数 In コレクションの…

さて、前回、個人用マクロブックを作成した訳ですが・・・。個人用マクロブックとは何処に保存されてるんじゃい！ ということで調べてみます。 個人用マクロブックとは、実体はPERSONAL.xlsbというバイナリ形式で保存されたブックで \Users\ユーザー名\AppDa…

マクロは通常、ブックごとに保存されます。・・・ですが、複数のブックで共通して使用するマクロは「個人用マクロブック」に保存しておくと便利です。 この個人用マクロブックの作成方法ですが・・・ 1.開発タブの「マクロの記録」ボタンを押してマクロの記…

前回のコードをちょっといじっただけです。タイトルのとおり選択範囲の金額を百万円単位に変換します。”金額”と表現しましたが単純に選択範囲の数値を1,000,000で割るだけです。前回と同じく「セルの値が0,空白,文字列,日付のいずれかの場合は処理をしない」…

というわけで、今日もVBAの勉強がてらマクロを作ってみます。タイトルのとおり選択範囲の金額を千円単位に変換します。”金額”と表現しましたが単純に選択範囲の数値を1,000で割って小数点以下を切り上げるだけです。「形式を選択して貼り付け→除算」でもでき…