EXCEL on qwerty.work

【VBA】エクセルでどこのセル示しているか取得する関数

Mon, 20 Feb 2023 00:00:00 +0000

Address(False, False)で取得できる

例えば、A1のセルから縦にレコードがいくつあるかカウントして、最後のレコードのセルが仮にA5だっとしたら、A1:A5といった感じでRange関数で指定するとしたら、以下のようになります。

Range("A1", Range("A1").End(xlDown).Address(False, False))

.Address(False, False)を加えれば取得できました。cells関数で座標をセルに変換するときは以下のようになります。

cells(2,2).Address(False, False)

.Addressだけでも取得できます。.Address(False, False)との違いは以下のようになります。

ソース例	取得する値
cells(1,1).Address	$A$1
cells(1,1).Address(False, False)	A1

参考ページ

https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.address https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.address

https://www.tipsfound.com/vba/07022 https://www.tipsfound.com/vba/07022

https://excel-ubara.com/excelvba1/EXCELVBA384.html https://excel-ubara.com/excelvba1/EXCELVBA384.html

【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】セルに値がない場合は空白を表示する際に使う計算式例

Thu, 24 Feb 2022 11:57:15 +0900

数量や単価が空白の場合は0が表示されないようにしたい

エクセルで請求書や見積書または原価計算などを作成する際に、数量や単価などが入らない行があり、金額欄には「数量×単価」の計算式だけ入れてあるため、その行には「0」(ゼロ）が表示されます。それを防ぐための計算式の例をいくつかメモ。

計算式例

エクセルの表が以下のようになっていた場合を例にします。

A2 … 商品名
B2 … 数量
C2 … 単価
D2 … 金額（数量×単価） ← ここに計算式を入れる

IF文で簡単に使用する例

IF文で簡単に使用する例もし、**C2（単価）が空白じゃなければB2*C2（数量×単価）**を表示し、そうでなければ空白を表示する。

=IF(C2<>"",B2*C2,"")

その逆で、**C2（単価）が空白なら空白を表示し、そうでなければB2*C2（数量×単価）**を表示する。

=IF(C2="","",B2*C2)

もし、**B2（数量）またはC2（単価）が空白なら空白を表示し、そうでなければB2*C2（数量×単価）**を表示する。

=IF(OR(B2="",C2=""),"",B2*C2)

ISBALNK関数を使用した例

セルが空白かどうか調べるISBALNK関数を使用した例で、もし、**B2（数量）またはC2（単価）が空白なら空白を表示し、そうでなければB2*C2（数量×単価）**を表示する。

=IF(OR(ISBLANK(B2),ISBALNK(C2)),"",B2*C2)

【EXCEL】VLOOKUPの#N/Aエラーで困ったらINDEX+MATCHで解決（サンプルあり）

Sun, 30 Jan 2022 19:37:45 +0900

値は存在しているのに#N/Aエラーになる

いつも使っているVLOOKUPが**#N/Aエラー**になり、困り果てました。エラーの原因は、

検索値が検索範囲の左端の列にない。
完全一致と部分一致の指定が誤っている。
検索値を参照する列が昇順で並び替えられていない。
小数で計算した値を検索値に使用している。
検索範囲を「絶対参照」にしていないためズレている。

と様々です。しかし、何をどうやっても解決できませんでしが、以下の方法で解決できました。

**それは『INDEX関数』と『MATCH関数』を組み合わせる方法です。**これを使えば、VLOOKUPの作法から解放されます。

INDEX関数とMATCH関数を使ったサンプル

詳しい説明は省きます。

上記と同じエクセルのサンプルをダウンロードしてお使いください。

*sample.xlsx（12.7 kbyte）

VLOOKUPで値を参照する例

IDから型番を抽出

これは正常に値を参照できます。

=VLOOKUP(F5,$A$2:$D$5,3,FALSE)

型番からIDを抽出

これは#N/Aエラーになります。

=VLOOKUP(F10,$A$2:$D$5,-2,FALSE)

INDEX+MATCHで値を参照する例

IDから型番を抽出

これもVLOOKUP同様に正常に値を参照できます。

=INDEX($A$2:$D$5,MATCH(F16,$A$2:$A$5,0),3)

型番からIDを抽出

こちらはVLOOKUPで失敗したことが正常に値を参照できます。

=INDEX($A$2:$D$5,MATCH(F21,$C$2:$C$5,0),1)

#N/Aを表示したくないとき

検索したい値が一覧に無い場合も#N/Aエラーになりますが、その際に空白を表示したい場合、以下2つの方法があります。ISERRORとIFERRORは一文字違いで紛らわしいので注意。

IF+ISERRORを使う方法

IF文とISERROR関数を使って以下のようにすればOKです。

=IF(ISERROR(INDEX($A$2:$D$5,MATCH(F21,$C$2:$C$5,0),1)),"",INDEX($A$2:$D$5,MATCH(F21,$C$2:$C$5,0),1))

IFERRORを使う方法

IFERROR関数を使う方法もあります。こちらの方が簡単ですね。

=IFERROR(INDEX($A$2:$D$5,MATCH(F21,$C$2:$C$5,0),1),"")

Microsoft 365またはOffice 2021ならXLOOKUPが便利

バージョンの新しいエクセルならVLOOKUPの弱点を克服したようなXLOOKUPが使えます。またHLOOKUPの機能もカバーしているので、縦横のどちらの方向の参照もできます。常に決まったバージョンや新しいバージョンが使える環境ならば、こちらの方が簡単と思います。

https://forest.watch.impress.co.jp/docs/topic/special/1356264.html https://forest.watch.impress.co.jp/docs/topic/special/1356264.html

https://support.microsoft.com/ja-jp/office/xlookup-%E9%96%A2%E6%95%B0-b7fd680e-6d10-43e6-84f9-88eae8bf5929 https://support.microsoft.com/ja-jp/office/xlookup-%E9%96%A2%E6%95%B0-b7fd680e-6d10-43e6-84f9-88eae8bf5929

【エクセル】VLOOKUPの日付の検索で値が取得（抽出）できないとき

Wed, 21 Jul 2021 14:58:22 +0900

VLOOKUPに日付を使うと#N/Aになった

マッチする日付があったら、その横にある数値や文字列を取得したいのに**『#N/A』**と表示されてうまくいきませんでした。例えば、出勤データがあったとして、2021/07/20で該当する日は出勤だったか、欠勤だったかをVLOOKUPで取得したかったとします。

結論から言うと、検索範囲の始まりが日付の列になっていなかったからでした。

VLOOKUPの書式

=VLOOKUP(検索値,範囲,列番号,検索方法)

もうちょとわかりやすく書くと、

=VLOOKUP(検索したい値,返す値を含む範囲,取得したい列番号,近似値TRUEまたは完全一致FALSE)

参考書式例

例えば、指定範囲であるシートのC列が日付だったとします。

エラーになる例

日付はC列なのにA1:Z9と、A列から始まる範囲になっているとエラーになります。

=VLOOKUP(A1,'別シート'!A1:Z9,2,FALSE)

成功する例

C1:Z9と、C列から始まる範囲にすると、日付はC列なのでエラーになりません。

=VLOOKUP(A1,'別シート'!C1:Z9,2,FALSE)

参考ページ

https://support.microsoft.com/ja-jp/office/vlookup-%E9%96%A2%E6%95%B0-0bbc8083-26fe-4963-8ab8-93a18ad188a1 https://support.microsoft.com/ja-jp/office/vlookup-%E9%96%A2%E6%95%B0-0bbc8083-26fe-4963-8ab8-93a18ad188a1

【エクセル】日付とテキストの変換に関する関数メモ

Wed, 21 Jul 2021 10:06:52 +0900

例

例えば、2021年7月3日の年月日がバラバラのセルに入力されているとします。

A1 … 2021
B1 … 7
C1 … 3

関数

バラバラな年月日を結合する関数

文字列として結合

=CONCATENATE(A1,"/",B1,"/",C1)

表示結果 2021/7/3

さらに日付に変更

=TEXT(CONCATENATE(A1,"/",B1,"/",C1),"yyyy/m/d")

表示結果 2021/7/3

一桁の月日の頭に0をつけたい場合

=TEXT(CONCATENATE(A1,"/",B1,"/",C1),"yyyy/mm/dd")

表示結果 2021/07/03

日付として結合

=DATE(A1,B1,C1)

表示結果 2021/7/3

一桁の月日の頭に0をつけたい場合

=TEXT(DATE(A1,B1,C1),"yyyy/mm/dd")

表示結果 2021/07/03

エクセルで『編集のためロックされています』と表示されるとき

Fri, 04 Jun 2021 13:15:23 +0900

誰も開いていないのに使用中になる

誰も開いていないのに、ネットワーク上のエクセルファイルを開くと『**〇〇.xlsxは編集のためロックされています。』**と表示され、読み取り専用でしかエクセルを開けないときがあります。

**『使用者は△△さんです』とあるので△△さんに問い合わせても、『今開いていないし、そもそも今日は全くエクセルを起動していません。』**とのこと。こんなことがよくあります。

こういうときの為に対処方法をいくつか見つけたのでメモ。

原因

恐らくエクセルとファイルの間でExcelを閉じても閉じたことになっていない状況になっていて、プロセスが残ってしまうことで起きていると思いますが、なぜそうなるのかはいろいろ調べても原因はよくわかりません。

いくつかある対処方法

エクスプローラーを再起動する
エクセルの一時ファイルを削除する
エクセルのリボンに『読み取り専用の設定/解除』ボタンを追加する
タスクをKILLする
パソコンを再起動する
NASやファイルサーバを再起動する

1.エクスプローラーを再起動する

たまに、自分しか開いていないのに、自分が開いたエクセルのファイルを一旦閉じて、再度自分が開こうとしたときに使用中となることがあります。自分のパソコンがまだエクセルファイルが開かれていると勘違いしているとき（キャッシュみたいなものが残っている？）に使えます。その時にこの方法で解決できたことが何度かあります。

バッチファイルでエクスプローラーを再起動

以下のソースのバッチファイルでWindowsエクスプローラーを再起動します。バッチファイルではなく、コマンドで丁寧に1行ずつ実行すると、エクスプローラーを終了してしまうとパソコンのファイル操作ができなくなってしまうので、バッチファイルで行うのをお勧めします。

バッチファイルのソース

taskkill /f /im explorer.exe
start explorer.exe

ダウンロード上記のバッチファイルをダウンロードできます。解凍してご利用ください。

*exploere_restart.zip（221 byte）

これで解決できなかった場合は次を試してみてください。

2.エクセルの一時ファイルを削除する

Excelファイルを開くと、開いたファイルと同じ階層に隠しファイルとして~$で始まる**作業用ファイル？一時ファイル？キャッシュファイル？**みたいなファイルが現れます。本来はエクセルを閉じたと同時に、この隠しファイルも削除されるのですが、ネットワークドライブ上のファイルだと、何らかの原因で削除する前にネットワークが切断されてしまうと残ってしまいます。これが残っているがために、誰も開いていないのに、エクセルが使用中だと勘違いをしてしまっていることがあります。

まずはフォルダオプションを設定

~$で始まるファイルは、ただ**『隠しファイルを表示する設定』**にしただけでは表示されません。

併せて**『保護されたオペレーティングシステムファイルを表示しない（推奨）』**のチェックを外す必要があります。

ファイルが表示されたら削除

これで解決できなかった場合は次を試してみてください。

3.エクセルのリボンに『読み取り専用の設定/解除』ボタンを追加する

リボンのユーザー設定を開く

『リボンのユーザー設定』を開くには**[ファイル]-[オプション]から開くか、リボンのどこでもいいので空白部分を右クリック**して開きます。

**[すべてのコマンド]**を選択して、隠れて表示されていない項目を表示できるようにします。

**[新しいグループ]をクリックして、[ホーム]**のリボンに新しいグループを作成します。グループ名は適当に変更してください。（例：読み取り専用など）

**[読み取り専用の設定/解除]を選択し、[追加]ボタンを押すと、先ほどの新しいグループに登録されますので、[OK]**を押して画面を閉じます。

画面を閉じたら**[ホーム]のリボンに[読み取り専用の設定/解除]**が表示されます。

読み取り専用のファイルを開いたときにこのボタンをクリックすると、読み取り専用が解除されるはずです。

これで解決できなかった場合は次を試してみてください。

4.タスクをKILLする

残り続けるプロセスを終了させることで直るかもしれません。コマンドプロンプトからNASまたファイルサーバーを開いているプロセスをKILLします。以下のページが参考になります。

https://hamalabo.net/excel-who-is-watching#anker3 https://hamalabo.net/excel-who-is-watching#anker3

コマンドプロンプトファイルサーバーの名称を検索 192.168.XXX.XXXはファイルサーバのIPアドレスです。

nbtstat -A 192.168.XXX.XXX

該当のエクセルファイルのIDを確認仮にファイルサーバー名がLANDISKだったとしたら、以下のようになります。

openfiles /query /s LANDISK

IDを指定してKILL 調べたIDが仮に123だったとしたら以下のようになります。

openfiles /disconnect /s LANDISK /id 123

これで解決できなかった場合は次を試してみてください。

5.パソコンを再起動する

以上の方法で解決できなければ、パソコンに問題があるか、ネットワークフォルダに問題があるかが考えられます。なので、パソコンに問題があるのであれば再起動で直るはずです。しかし、ここまで来るまでに『そんなん、既にやっとるわ！』とか、『それでも駄目だから検索してるのよね』という方がほとんどかと思います。

これで解決できなかった場合は次を試してみてください。

6.NASやファイルサーバを再起動する

NASやファイルサーバに何らかの原因があるとしたら、NASを再起動したら直るはず！？です。会社の場合、業務時間中はみんなが使っているので簡単に再起動できないかもしれませんが、タイミングをみて再起動してみてください。

これで直ったら、定期的に再起動するスケジュールを登録しておいた方がいいかもしれません。

以上。

参考ページ

【エクセル】ファイルの保存場所やフォルダパスを取得表示する関数と数式

Thu, 28 Jan 2021 16:56:32 +0900

関数・数式

現在のファイルパスを表示

現在、開いているファイルの保存場所とファイル名までフルパスで表示します。どちらも同じ結果が表示されます。

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1) & MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1)

=SUBSTITUTE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),"[","")

表示例

D:\sample\関数サンプル.xlsx

ワークブックが保存されているフォルダのパス

末尾「\」あり

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)

表示例

D:\sample\

末尾「\」なし

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-2)

表示例

D:\sample

ファイル名のみ取得

=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)

表示例

関数サンプル.xlsx

現在のシート名のみ取得

=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))

表示例

Sheet1

サンプルファイル

ダウンロード

以下より、上記の関数（数式）を組み込んであるサンプルのエクセルファイルをダウンロードできます。

sample.zip（約8KB）

ある日突然エクセル・ワード・パワーポイントが起動しなくなったとき

Mon, 28 Sep 2020 22:09:26 +0900

Officeのアプリが起動しない

自動アップデートに失敗したのか、ある日急に**すべてのオフィス製品が起動しなくなりました。エクセル・ワード・パワーポイント他、いずれも『Officを更新しています。しばらくお待ちください』**と表示され、起動しているかのような画面が表示されました。

この現象が起きたPCの環境はWindows10 v2004 64bit、Microsoft Office 2019です。

起動を待っていると、1～2分後にエクセル・ワード・パワーポイントのどれも以下の同じエラーが画面が表示され、起動できませんでした。

アプリケーションエラー

アプリケーションを正しく起動できませんでした(0xc0000142)。[OK]をクリックしてアプリケーションを閉じてください。エラー画面を閉じて再度アプリケーションの起動を試したり、PCを再起動してみましたがダメでした。（Shiftを押しながらの再起動もダメでした。）

エラー0xc0000142と原因について

0xc0000142というエラーが何を表しているのかを検索してみましたが、有力な情報が見当たらず、今のところ何を表しているかはわかっていません。よって、このエラーが出る原因もわからない状況です。

「プログラムと機能」から［変更］することで解決

1.[プログラムと機能]を開く

**［コントールパネル］-［プログラムと機能］を開き、Microsoft Officeを選択し［変更］**ボタンを押すか、**右クリックで［変更］**を選択します。

**［設定］-［アプリ］の画面を開き、Microsoft Officeを選択し［変更］**ボタンを押すことでも同じことができます。

2.修復方法を選択

修復方法を選択するい画面が表示されるのいで、とりあえず修復に時間がかかりそうにない**［クイック修復］を選択して［修復］**ボタンを押します。

私の場合、**［クイック修復］で無事直りましたが、直らない場合は時間がかかるかもしれませんが、［オンライン修復］**を試してみてください。

3.修復方法を選択

**「クイック修復を開始してもよろしいですか？」と聞かれるので［修復］**ボタンを押します。

4.修復が終わるのを待つ

5.修復が完了したら［閉じる］

無事起動できるように直った

上記の修復作業完了後、すべてのオフィス製品がすべて無事に起動するようになりました。

この修復方法で解決できな場合はOfficeを再インストールするしかないかもしれません。

知らなった！エクセルやワード、パワーポイントで簡単にスクリーンショットを挿入する方法

Wed, 16 Sep 2020 09:24:49 +0900

参考サイト

https://forest.watch.impress.co.jp/docs/serial/yajiuma/1276926.html https://forest.watch.impress.co.jp/docs/serial/yajiuma/1276926.html

https://forest.watch.impress.co.jp/docs/serial/exceltips/1094660.html https://forest.watch.impress.co.jp/docs/serial/exceltips/1094660.html

他に役立ちそうなソフト

https://forest.watch.impress.co.jp/docs/review/1224236.html https://forest.watch.impress.co.jp/docs/review/1224236.html

https://www.vector.co.jp/soft/screen/winnt/art/se520528.html https://www.vector.co.jp/soft/screen/winnt/art/se520528.html

【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

エクセル、ワード、パワーポイントの「プライベートネットワーク上にある信頼できる場所を許可する」のレジストリ

Sat, 29 Sep 2018 10:53:14 +0900

エクセル、ワード、パワーポイントの「プライベートネットワーク上にある信頼できる場所を許可する」のレジストリのメモ。

Office 2013（15.0）のExcel、Word、PowerPoint を例にしていますが、Office 2016（16.0）、Office 2010（14.0）でも使える方法です。

以下の画面の部分のチェックボックスをON/OFFをレジストリで設定

この画面は [ファイル]-[オプション]-[セキュリティセンター]-[セキュリティセンターの設定]-[信頼できる場所] から開けます。

このチェックボックスをONにしても、対象の場所にプライベートネットワーク上の共有フォルダの場所が追加されていないと意味がないので、別途場所（パス）の追加が必要です。

エクセル（Excel)

ワード（Word)

パワーポイント（PowerPoint)

レジストリ

エクセル（Excel)

キー HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\Trusted Locations

  値の名前
  AllowNetworkLocations


  種類
  REG_DWORD


  値のデータ
  0 → チェックなしの状態（デフォルト）

    1 → チェックありの状態

※一度も設定したことがない場合、このキーは存在していません。

ワード（Word)

  キー      HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Security\Trusted Locations


  値の名前
  AllowNetworkLocations


  種類
  REG_DWORD


  値のデータ
  0 → チェックなしの状態（デフォルト）

    1 → チェックありの状態

※一度も設定したことがない場合、このキーは存在していません。

パワーポイント（PowerPoint)

  キー      HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\PowerPoint\Security\Trusted Locations


  値の名前
  AllowNetworkLocations


  種類
  REG_DWORD


  値のデータ
  0 → チェックなしの状態（デフォルト）

    1 → チェックありの状態

※一度も設定したことがない場合、このキーは存在していません。

バッチファイル

このレジストリを登録するバッチファイルの例です。エクセル・ワード・パワーポイント全部の「プライベートネットワーク上にある信頼できる場所を許可する」のチェックをONにします。

@echo off<br><br>
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\Trusted Locations" /v "DisableInternetFilesInPV" /t REG_DWORD /d "1" /f<br>
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Security\Trusted Locations" /v "DisableUnsafeLocationsInPV" /t REG_DWORD /d "1" /f<br>
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\PowerPoint\Security\Trusted Locations" /v "DisableAttachmentsInPV" /t REG_DWORD /d "1" /f<br><br>
pause<br>
exit

バッチファイルを実行した後、レジストリは以下のようになっているはずです。

エクセル（Excel）の保護ビュー（保護されたビュー）を有効・無効にするレジストリ

Fri, 28 Sep 2018 09:13:50 +0900

ネットワーク上の共有フォルダからエクセル（Excel)のファイルを開くと出てくる「編集を有効にする」というボタンがうっとうしいので、これが出ないようにするためのレジストリのメモ。

Excel 2013（15.0）を例にしていますが、Excel 2016（16.0）、Excel 2010（14.0）でも使える方法です。

以下のエクセル（Excel)のオプション画面で設定する部分のレジストリです。

この画面は [ファイル]-[オプション]-[セキュリティセンター]-[セキュリティセンターの設定]-[保護ビュー] から開けます。

レジストリ

インターネットから取得したファイルに対して、保護ビューを有効にする

キー HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Excel\Security\ProtectedView

  値の名前
  DisableInternetFilesInPV


  種類
  REG_DWORD


  値のデータ
  0 → 有効（チェックありの状態・デフォルト）

    1 → 無効（チェックなしの状態）

※一度も設定したことがない場合、このキーは存在していません。

安全でない可能性のある場所のファイルに対して、保護ビューを有効にする

キー HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Excel\Security\ProtectedView

値の名前
DisableUnsafeLocationsInPV


種類
REG_DWORD


値のデータ
0 → 有効（チェックありの状態・デフォルト）

  1 → 無効（チェックなしの状態）

※一度も設定したことがない場合、このキーは存在していません。

Outlookの添付ファイルに対して、保護されたビューを有効にする

キー
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Excel\Security\ProtectedView


値の名前
DisableAttachmentsInPV


種類
REG_DWORD


値のデータ
0 → 有効（チェックありの状態・デフォルト）

  1 → 無効（チェックなしの状態）

※一度も設定したことがない場合、このキーは存在していません。

バッチファイル

このレジストリを登録するバッチファイルの例です。3つあるすべての保護ビューを無効（チェックなしの状態）にします。有効にしたい場合は “1” の部分を “0” に変更してください。

@echo off<br>
set REGROOT=HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security\ProtectedView<br><br>reg add "%REGROOT%" /v "DisableInternetFilesInPV" /t REG_DWORD /d "1" /f
reg add "%REGROOT%" /v "DisableUnsafeLocationsInPV" /t REG_DWORD /d "1" /f
reg add "%REGROOT%" /v "DisableAttachmentsInPV" /t REG_DWORD /d "1" /f<br><br>pause<br>exit

バッチファイルを実行した後、レジストリは以下のようになっているはずです。

他のアプリケーションも同様に設定したいとき

ワード（Word）、パワーポイント（PowerPoint)も同様のレジストリで設定できます。

エクセルでSUMPRODUCT関数を使って特定の文字列を含むものをカウントする

Wed, 22 Mar 2017 19:43:52 +0900

エクセルで数や金額のの集計をする場合、単純な条件であればSUMIFやCOUNTIFでいいのですが、複数の条件にマッチする集計の場合はいつもSUMPRODUCT関数を使っています。

SUMPRODUCT関数では**"*"**などのワイルドカードで特定の文字を指定ができず不便でしかたありません。

ところがいろいろ検索したらSUMPRODUCT関数でワイルドカードを使わなくても特定の文字を含む文字列をカウントする方法があったのでメモ。

ISNUMBERとFIND関数を併用

以下の表を参考にした場合。

特定の文字を含む文字列をカウント

例えば、メモ欄に「リンゴ」が含まれている「セット商品」をカウントする場合の計算式は以下のようになります。

=SUMPRODUCT((B2:B6="セット商品")*(ISNUMBER(FIND("リンゴ",C2:C6))))

特定の文字を含まない文字列をカウント

逆に「リンゴ」が含まれていない「セット商品」をカウントしたい場合はNOT関数を挿入します。

=SUMPRODUCT((B2:B6="セット商品")*(NOT(ISNUMBER(FIND("リンゴ",C2:C6)))))

サンプルファイル

sample1.zip

XLSファイルをZIPで圧縮しています。

その他方法

以下の方法でも同じカウントができました。

=COUNT(INDEX(0/SEARCH("セット商品*リンゴ*",B2:B6&C2:C6),))

=COUNT(INDEX(SEARCH("セット商品_*リンゴ*",B2:B6&"_"&C2:C6),))

エクセルは奥が深いですね。

ExcelでURLの一覧からホスト名（ドメイン）のみ抽出する関数例

Sat, 26 Nov 2016 22:05:52 +0900

WordPressやMovableTypeで使うブログ更新時のPING送信先のリストがあるのですが、送信先の死活状態を確認するためにホスト名（ドメイン名）のみの一覧が必要で、それをエクセルで簡単に作る関数例を見つけたのでメモ。

例えば

http://www.bing.com/ping?sitemap=sitemapurl http://www.bing.com/ping?sitemap=sitemapurl

上記のURLから

www.bing.com

のみを抽出するものです。

関数例

セルA1にURLが入っている場合の例です。

=MID(A1,FIND("/",A1,FIND("/",A1,1)+1)+1,SEARCH("/",A1,FIND("/",A1,FIND("/",A1,1)+1)+1)-(FIND("/",A1,FIND("/",A1,1)+1)+1))

注意

抽出元のURLがhttp://www.bing.comといった感じで**.com**で終わっている場合、**http://www.bing.com/のように"/"**で閉じておかないとエラーになります。

役に立ちそうなエクセルの便利な使い方をまとめたサイトのメモ

Sat, 09 Jul 2016 11:57:24 +0900

http://toyokeizai.net/articles/-/122632 http://toyokeizai.net/articles/-/122632

http://getnavi.jp/digital/46322/ http://getnavi.jp/digital/46322/

エクセルで重複を除き（ユニークな値のみを）複数条件でカウントする方法

Thu, 04 Apr 2013 17:35:43 +0900

以下のような顧客データがあった場合に、重複するお客様は1人のお客様として、支払い方法別など複数条件で人数をカウントする方法です。（ユニークな値のみを複数の条件別でカウントします。）

サンプルダウンロード (count.xls)

単一条件で重複を除いて（ユニークな値のみ）カウント

=COUNT(INDEX(1/(MATCH(A2:A10,A2:A10,0)=ROW(A1:A10)),0)) ※途中に未入力のセルがあってもカウントします。

複数条件で重複を除いて（ユニークな値のみ）カウント

=COUNT(INDEX(1/(MATCH(A2:A10&G2&H1,A2:A10&C2:C10&D2:D10,)=ROW(A1:A10)),))

※ROWの範囲はA1からにしておかないと結果は0になっていまいます。

その他

全体の人数はSUMPRODUCT関数とCOUNTIF関数を組み合わせた使い方もあります。

=SUMPRODUCT(1/COUNTIF(A2:A10,A2:A10))

ただし、途中に未入力のセルが含まれているとエラーで#DIV/0となります。

ネットワーク上のエクセル・ワード・パワーポイントが開けない

Sun, 07 Nov 2010 17:20:50 +0900

Windows Vista
Microsoft Office 2007

この環境で昨日まで開けていたファイルが開けなくなった。

ローカルに置いたファイルはどれも開ける
ネットワーク上の存在するファイルのみが開けない

という症状で、結果からいうと

IEの「インターネット一時ファイル」の場所が正しくなかった

のが原因でした。

昨日まで違いはRAM　DISKを使用して

環境変数
インターネット一時ファイル

を変更していました。

今日はRAM　DISKからeBoostrに変更してスピードアップを計ったのですが、その時に環境変数とインターネット一時ファイルの場所がリセットされたみたいです。

しかし、そのリセットされた**「インターネット一時ファイル」**の場所がおかしく、それがエクセル・ワード・パワーポイントに影響しているというのが原因のようで、「インターネット一時ファイル」を以下の場所に変更したら直りました！

- c:\Users\*ユーザー名*\AppData\Local\Microsoft\Windows\Temporary Internet Files\

メモリ容量が足りません。
○○のファイルが開けませんでした。
誰も使用していないのに、誰かが使用中なので開けません。

などのエラーが出て困り、いろいろ調べて以下のことを試しました。

エクセルの「オプション」-「詳細設定」-「Dynamic Data Exchange(DDE)を使用するアプリケーションを無視する」のチェックを外す。

それでもダメでした。

困り果ててマイクロソフトに電話しましたが、有料サポートの類になり、3万円くらいかかるというようなことで、解決できるかどうかわからないし、3万円もかかるのならOSごとクリーンインストールも考えましたが、

エラーが出るのはワードのみ

作業ファイルを作成できません。環境変数TEMPの設定を確認してください。
メモリまたはディスクの空き容量が不足してるため、ドキュメントを開いたり、保存したりできません。不要なブックやプログラムを閉じて。メモリの空き容量を増やしみてください。ディスクに保存されている不要なファイルを削除して、ディスクの空き容量を増やしてみてください。

というエラーが出たので、環境変数関連で、原因は違うところにあるのではと思い、いろいろ調べたら「インターネット一時ファイル」がエクセル・ワード・パワーポイントのファイルに影響するという記事が見つかり、解決することができました。

参考ページ

http://xwin2.typepad.jp/xwin2weblog/2008/09/office-2007inte.html http://xwin2.typepad.jp/xwin2weblog/2008/09/office-2007inte.html

EXCEL（エクセル）のシート名を取得してセルに表示する関数

Tue, 07 Jul 2009 10:21:21 +0900

エクセルのシートのタブに入力されている「シート名」を取得して

セルに表示する関数です。

=MID(CELL(“filename”,$A$1),FIND("]",CELL(“filename”,$A$1))+1,31)

なぜ、こういう式になるのかはわかりませんが、

使えます。

EXCEL on qwerty.work

【VBA】エクセルでどこのセル示しているか取得する関数

Address(False, False)で取得できる

参考ページ

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

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

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

手順

参考サイト

【Excel】セルに値がない場合は空白を表示する際に使う計算式例

数量や単価が空白の場合は0が表示されないようにしたい

計算式例

IF文で簡単に使用する例

ISBALNK関数を使用した例

【EXCEL】VLOOKUPの#N/Aエラーで困ったらINDEX+MATCHで解決（サンプルあり）

値は存在しているのに#N/Aエラーになる

INDEX関数とMATCH関数を使ったサンプル

VLOOKUPで値を参照する例

IDから型番を抽出

型番からIDを抽出

INDEX+MATCHで値を参照する例

IDから型番を抽出

型番からIDを抽出

#N/Aを表示したくないとき

IF+ISERRORを使う方法

IFERRORを使う方法

Microsoft 365またはOffice 2021ならXLOOKUPが便利

【エクセル】VLOOKUPの日付の検索で値が取得（抽出）できないとき

VLOOKUPに日付を使うと#N/Aになった

VLOOKUPの書式

参考書式例

エラーになる例

成功する例

参考ページ

【エクセル】日付とテキストの変換に関する関数メモ

例

関数

バラバラな年月日を結合する関数

文字列として結合

さらに日付に変更

一桁の月日の頭に0をつけたい場合

日付として結合

一桁の月日の頭に0をつけたい場合

エクセルで『編集のためロックされています』と表示されるとき

誰も開いていないのに使用中になる

原因

いくつかある対処方法

1.エクスプローラーを再起動する

バッチファイルでエクスプローラーを再起動

2.エクセルの一時ファイルを削除する

まずはフォルダオプションを設定

ファイルが表示されたら削除

3.エクセルのリボンに『読み取り専用の設定/解除』ボタンを追加する

リボンのユーザー設定を開く

4.タスクをKILLする

5.パソコンを再起動する

6.NASやファイルサーバを再起動する

参考ページ

【エクセル】ファイルの保存場所やフォルダパスを取得表示する関数と数式

関数・数式

現在のファイルパスを表示

ワークブックが保存されているフォルダのパス

末尾「\」あり

末尾「\」なし

ファイル名のみ取得

現在のシート名のみ取得

サンプルファイル

ダウンロード

ある日突然エクセル・ワード・パワーポイントが起動しなくなったとき

Officeのアプリが起動しない

エラー0xc0000142と原因について

関連していそうなステータス一覧

「プログラムと機能」から［変更］することで解決

1.[プログラムと機能]を開く

2.修復方法を選択

3.修復方法を選択

4.修復が終わるのを待つ

5.修復が完了したら［閉じる］

無事起動できるように直った

知らなった！エクセルやワード、パワーポイントで簡単にスクリーンショットを挿入する方法