Excel | You Look Too Cool

Excelの「シートの保護」を解除する方法

stabucky — Wed, 02 Jul 2025 10:13:21 +0000

拡張子がxlsxであるExcelファイルはフォルダ構造をした複数のファイル（XMLファイル）をZIP化したものです。
このようなExcelファイルの「シートの保護」を解除する方法です。

手順

手順

拡張子を変更して中身を取り出す

当該ファイルの複製を作る。
拡張子をzipに変える。
展開せず、右クリックして「開く」を選択。
フォルダが開く。
xlフォルダを開く。
worksheetsフォルダを開く。
sheet1.xmlを別のフォルダにコピーする。※ファイル名が異なる場合もあります。

xmlを編集する

sheet1.xmlをテキストエディタで開く。
「sheetProtection」で検索する。
それを含むタグ（「」）を削除する。
保存する。

拡張子を戻して開く

元のworksheetsフォルダにコピーする。※元のファイルに上書きします。
拡張子をzipからxlsxに変える（戻す）。
当該ファイルを開く。
「内容に問題が見つかりました。～」については「はい」をクリック。
「～開くことができました。」については「閉じる」をクリック。

これで「シートの保護」が解除されています。

Excelの「詳細データの表示」が機能しない場合の対応方法

stabucky — Sun, 08 Jun 2025 11:26:30 +0000

Excelにはアウトライン機能（グループ化機能）があります。
グループ化しておいた行や列をボタン一つで開いたり閉じたりできます。
（以下、列の場合について書きます。行の場合も同様です。）

開閉の方法は三つあります。

(1)左上の「1」をクリックすると閉じる、「2」をクリックすると開く。
(2)上の「+」をクリックすると開く、「-」をクリックすると閉じる。
(3)メニューのデータ – アウトライン – 「詳細データの表示」を選択すると開く、「詳細を表示しない」を選択すると閉じる。

このうち(3)については挙動が少し異なります。
(3)の場合、対象となる列にカーソルがあると機能します。全選択でも機能します。
逆に全く関係ないところにカーソルがあると機能しません。

「詳細データの表示が機能しない」という場合はカーソルを合わせてから実行してみてください。

隣の列の値に応じて書式を変える方法

stabucky — Tue, 10 Sep 2024 23:39:12 +0000

やりたいこと
方法（Excel Onlineの場合）
方法（Excel2007の場合）

やりたいこと

A列に「区分」があり「必要」または「不要」を入力します。
B列に「注文数」があり「必要」のときはここに数を入力します。
「不要」のときは入力させたくないので網かけをします。

方法（Excel Onlineの場合）

Excel Onlineで説明しますが他のバージョンでもほぼ同じです。

メニューのホーム‐条件付き書式-新しいルールを選択。
適用対象に書式設定したい範囲を入力。今回はB2:B11とする。
「fx」というアイコンをクリック。
「数式がtrueのセルを書式設定する」に「=$A2<>“必要”」と入力する。
「スタイルの書式設定」でプラスをクリックし、網かけの設定をする。

方法（Excel2007の場合）

少し古いですが、以前、書いた記事がありましたので、修正して載せます。

ホーム-スタイル-条件付き書式を選択。
新しいルールを選択。
新しい書式ルールダイアログで「数式を使用して書式設定するセルを決定」を選択。
「次の数式～」に「=$A2<>“必要”」と入力。
書式ボタンをクリック。
セルの書式設定ダイアログで塗りつぶし-グレーなどを選択してOKボタンをクリック。
OKボタンをクリック。

VBAでカレントディレクトリを変更する方法

stabucky — Fri, 08 Mar 2024 10:26:58 +0000

ファイルを出力するExcelのマクロを実行するとそのファイルがどこに行ったか分からなくなることがあります。
カレントディレクトリに出力されるのですが、そもそもカレントディレクトリがどこなのか分かりません。
ファイルのある場所をカレントディレクトリに変更してしまえば問題ないはずです。

Excel VBAでは、カレントディレクトリを変更するための特定のコマンドが用意されています。
これは、ファイルやディレクトリを操作する際に非常に便利です。
その使用例を示します。

' カレントディレクトリをファイルのある場所に変更
ChDrive Left(ThisWorkbook.Path, 1)
ChDir ThisWorkbook.Path

カレントディレクトリを現在のワークブックのある場所に変更します。

ChDrive コマンドは、ドライブを変更します。
Left(ThisWorkbook.Path, 1) は、ワークブックのパスから最初の文字（つまり、ドライブの文字）を取得します。

ChDir コマンドは、ディレクトリを変更します。
ThisWorkbook.Path は、現在のワークブックのフルパスを返します。

これにより、後続のファイル操作コマンドがワークブックと同じ場所を参照するようになります。

Excelのフィルタがおかしくなったときに試した方法

stabucky — Tue, 23 Jan 2024 02:34:47 +0000

Excelのフィルタを使っているとフィルタの挙動がおかしくなることがあります。
例えば選択していないのに一部の行だけ表示されたりします。
そのようなとき、次のようにしたところ、復旧することができました。

全てのセルを選択します。
右クリックして行の高さを選択します。
値に15など適当な数値をセットしてOKをクリックします。

これで全ての行の高さが同じになりフィルタがかかっていないのと同じ状態になります。

Excelで暗号化と復号を簡単に行う方法

stabucky — Thu, 16 Nov 2023 23:25:51 +0000

「Pythonで暗号化と復号を簡単に行う方法」を紹介しましたが、同様にExcelでも暗号化と復号を行うことができます。
やはり排他的論理和を使います。
ExcelにはBITXORという関数があります。元の数を2進数にして各桁の排他的論理和を計算したあと10進数に戻します。

A1に「123456」があるとします。
B1に「=BITXOR(A1,999999)」とします。
計算結果は「958591」となります。
暗号化できました。

逆もやってみます。
C1に「=BITXOR(B1,999999)」とします。
計算結果は「123456」となって復号できました。

法人名から法人番号と登録番号を取得する方法

stabucky — Sat, 22 Jul 2023 00:22:50 +0000

2023年10月1日に適格請求書等保存方式、いわゆる「インボイス制度」が導入されます。
適格請求書発行事業者登録番号が必要になります。
これは法人番号を調べて先頭に「T」を付ければよいです。

法人番号 1234567890123
登録番号 T1234567890123

国税庁法人番号公表サイトに行けば法人名から法人番号を調べられますが一つずつ調べなくてならず面倒です。

しかし次のサイトの説明に従うとエクセルの関数としてこれができます。
https://excelapi.org/docs/company/number/

試したところ次の通りでした。
法人名から法人番号を取得します。
同じ法人名が複数ある場合は、規模の大きな法人の法人番号を表示するようです。
このようなことがあるので法人番号から正式な法人名と住所を返す関数を使って確認する必要があります。
応答は非常にはやいです。

選択範囲の全角半角を変換するマクロ

stabucky — Thu, 23 Feb 2023 09:57:33 +0000

Excelのセルを選択した範囲について英字や数字の全角と半角を相互に変換するマクロを作りました。

Sub 選択範囲の全角半角を変換()
Dim c As Object
res = InputBox("1:英字を全角から半角 2:英字を半角から全角 3:数字を全角から半角 4:数字を半角から全角", "全角半角変換", "1")
If res = "1" Then
For Each c In Selection
c.Value = alphabet_zen2han(c.Value)
Next c
ElseIf res = "2" Then
For Each c In Selection
c.Value = alphabet_han2zen(c.Value)
Next c
ElseIf res = "3" Then
For Each c In Selection
c.Value = number_zen2han(c.Value)
Next c
ElseIf res = "4" Then
For Each c In Selection
c.Value = number_han2zen(c.Value)
Next c
End If
End Sub

Function alphabet_zen2han(moto)
For i = 1 To Len(moto)
If Mid(moto, i, 1) Like "[Ａ-Ｚａ-ｚ]" Then
Mid(moto, i, 1) = StrConv(Mid(moto, i, 1), vbNarrow)
End If
Next i
alphabet_zen2han = moto
End Function

Function alphabet_han2zen(moto)
For i = 1 To Len(moto)
If Mid(moto, i, 1) Like "[A-Za-z]" Then
Mid(moto, i, 1) = StrConv(Mid(moto, i, 1), vbWide)
End If
Next i
alphabet_han2zen = moto
End Function

Function number_zen2han(moto)
For i = 1 To Len(moto)
If Mid(moto, i, 1) Like "[０-９]" Then
Mid(moto, i, 1) = StrConv(Mid(moto, i, 1), vbNarrow)
End If
Next i
number_zen2han = moto
End Function

Function number_han2zen(moto)
For i = 1 To Len(moto)
If Mid(moto, i, 1) Like "[0-9]" Then
Mid(moto, i, 1) = StrConv(Mid(moto, i, 1), vbWide)
End If
Next i
number_han2zen = moto
End Function

Excelでちょっと複雑な情報を取得する「Excel用API」

stabucky — Wed, 09 Nov 2022 14:06:42 +0000

Excel用のAPIを作ってみました。

Excel用API

実はExcelで動作確認していません。
Googleスプレッドシートで動作することを確認しています。
LibreOfficeではなぜか動きません。

対応内容

pref
人口、面積など都道府県別の情報を取り出す。

pref2num
都道府県名から都道府県番号を返す。

todofuken
文字列から都道府県を取り出す。末尾の「県」などは含まない。

business
金融機関の営業日判定を行う（土日と祝日、12月31日から1月3日までが非営業日）。営業日ならば空文字を返す。非営業日ならば祝日名等を返す。

kana
漢字をひらがなに変換する。

Excelを閉じる前に確認するマクロ

stabucky — Tue, 20 Sep 2022 10:28:07 +0000

以前作りその後使わなくなったマクロがあるのでメモとして残します。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
res = MsgBox("開いたままにするか？（閉じるならば「いいえ」）", vbYesNo)
If res = vbYes Then
Cancel = True '"Cancel = True"ならば閉じない。
End If
End Sub