マクロ on qwerty.work

【Excel】マクロを使わず広範囲のセルに対して「F2→Enter」を押したことにする方法

Fri, 27 May 2022 15:26:14 +0900

無限に繰り返す「F2→Enter」の連打におさらば

CSVなどエクセルで編集し、そのデータを他のアプリケーションに流し込む際、数字や日付が文字列として認識されてしまうことがあります。特に計算式などで表示を整えた日付などは、見た目が日付で列の形式を日付にしておいても、一度セルを入力モードにしてEnterを押さないと日付として認識されない場合があります。

そんなときによくやるのが、列のデータがある上から下までF2→Enterをひたすら連打するのですが、データ量が多いと肉体的にも精神的に疲れます。これを一発で終わらせる方法があったのでメモ。

VBAのイミディエイトウィンドウを使う

他にもマクロを使った方法がありますが、この方法はマクロを使わないし、マクロ有効ブックに保存しなおす必要もないので、簡単で便利です。

ちなみにイミディエイトウィンドウとは、Excelでマクロのコードをいじるときに表示される**VBA（Visual Basic for Application）**にて使用できるエディタ機能で、主にコードの実行結果を試すなど、デバッグする時に使うもののようです。

手順

該当のエクセルファイルを開く
Alt→F11を押して「VBE（Visual Basic Editor）」を起動
[表示]-[イミディエイトウィンドウ]を選択
イミディエイトウィンドウに対象範囲を含めた[a2:z9999]=[a2:z9999].valueを入力してEnter

これだけで解決できます。あとはエクセルのファイルを上書き保存して終わりです。

参考サイト

https://hirachin.com/post-1941/ https://hirachin.com/post-1941/

【Excel】ユーザーフォルダを開くマクロとサンプル

Wed, 02 Sep 2020 16:05:20 +0900

Excelからフォルダーを開くマクロが必要になることがあり、いいサンプルコードを見つけたのでメモ。

マクロ

%USERPROFILE%を開く

Sub userprofile_open()
CreateObject("Shell.Application").explore Environ("USERPROFILE")
End Sub

C:/Users/[ユーザー]/AppData/Roaming/Microsoft/Excelを開く

Sub folder_open()
CreateObject("Shell.Application").explore Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Excel"
End Sub

または、CreateObject("Shell.Application").ShellExecuteで開く例

Sub folder_open2()
  Dim target As String
  Dim target1 As String
  Dim target2 As String
  target1 = Environ("USERPROFILE")
  target2 = "\AppData\Roaming\Microsoft\Excel"
  target = target1 & target2
  MsgBox target & " を開きます。"
  CreateObject("Shell.Application").ShellExecute target
End Sub

サンプル

以下のより上記のマクロを組み込んだsample.xlsmをダウンロードできます。

** sample.zip（16KB)

参考サイト

http://www.excel.studio-kazu.jp/kw/20150206131724.html http://www.excel.studio-kazu.jp/kw/20150206131724.html

Excelで右クリックメニューが表示されなくなったときの修復方法とマクロ

Wed, 02 Sep 2020 00:08:34 +0900

右クリックメニューが表示できない！？

最近職場で**「エクセルで右クリックしてもメニューが出ない」とか「右クリックできない」**という相談を受けました。何も設定を変更していないのに急になったそうです。

原因はマクロ！？

色々調べていくに内になんとなく以下のことが原因のように感じました。

右クリックメニューを無効化するマクロを組まれたエクセルファイルを使用して、何らかの原因で強制終了してしまい、右クリックメニューが無効化されたままになっている？
.xlbファイルが壊れた？

対処方法

方法1. マクロで右クリックを有効化してみる

以下のマクロのソースで有効化することで右クリックメニューが復活します。次回エクセルを起動したときに修復されていなかった場合は、「方法2」を試してください。

Application.CommandBars("Row").Enabled = True　' 行選択時、右クリック有効
Application.CommandBars("Column").Enabled = True　' 列選択時、右クリック有効
Application.CommandBars("Cell").Enabled = True　' セル選択時、右クリック有効

方法2. xlbファイルを削除してみる

xlbファイルには、エクセルのツールバーやメニューバーに関する情報が保存されています。これを削除すれば、次にエクエルを起動したときにメニュー関連が初期化された状態で右クリックメニューが復活する可能性があります。xlbファイルは削除しても自動で再作成されます。心配な場合はファイル名変更でもOKです。

.xlbファイルのある場所

C:/Users/[ユーザー]/AppData/Roaming/Microsoft/Excel

ここにエクセルのバージョンによって**Excel14.xlb**とか**Excel15.xlb**とかあるので、該当バージョンのファイルを削除します。

修復用エクセルファイル作ってみた

手っ取り早く、マクロを仕込んだ右クリックメニュー修復（復活）用のエクセルファイルを作ってみました。以下のZIPファイルをダウンロードして解凍すれば、**「右クリックメニュー修復.xlsm」**というのが現れるので、使ってみてください。

**ExcelMenuRrecovery.zip（16KB)

右クリックメニュー修復.xlsmのスクリーンショット

xlbファイルのリカバリに関してはExcel15.xlbを対象にマクロを組んでいますので、お使いのバージョンによってExcel14.xlbであったり、Excel16.xlbであったりするので環境に合わせてマクロ内のパス（ファイル名）を変更してください。

マクロのソース

上記では以下のコードでマクロを書いています。**『マクロが組み込んであるファイルをダウンロードして使うなんて何が仕込まれているかわからなじゃないか』**と不安な場合は、このソースを参考にマクロを実行してみてください。

Sub 右クリックメニュー有効化()
  Application.CommandBars("Row").Enabled = True '行選択時のメニュー
  Application.CommandBars("Column").Enabled = True '列選択時のメニュー
  Application.CommandBars("Cell").Enabled = True 'セル選択時のメニュー
End Sub

Sub 右クリックメニュー無効化()
  Application.CommandBars("Row").Enabled = False '行選択時のメニュー
  Application.CommandBars("Column").Enabled = False '列選択時のメニュー
  Application.CommandBars("Cell").Enabled = False 'セル選択時のメニュー
End Sub

Sub xlbファイルリカバリ()
  Dim target As String
  target = Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Excel\Excel15.xlb"
  Name target As target & "_" & Format(Now, "yyyyMMddhhmmss") 'ファイル名リネーム
  Application.Quit 'エクセルを閉じる
End Sub

Sub フォルダを開く()
  CreateObject("Shell.Application").explore Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Excel"
End Sub