Excelで、セル範囲にある文字列をファイル名として使う。

この記事は自分用の覚え書きです。

エクセルで、あるファイルの連続したセルに入っている文字列をそれぞれファイル名にして、別のファイルを別名保存する。

■例:名簿ファイルのA列に入っている氏名をファイル名に使って、申告書のファイルを別名保存する。

Sub 名簿ファイルの氏名を申告書のファイル名にする()
Dim shimei As Variant
Dim FN1 As Variant
Dim FN2 As Variant

Range("A1").Select

'セルA1を基点にして、列方向にデータが存在する範囲を選択
Selection.CurrentRegion.Select

'選択された範囲にあるセルの値を代入
shimei = ActiveWindow.RangeSelection.Value

'To の右の値は、A列のセルの数(ファイル名にする氏名の数)と合わせる。
'100人なら100になる。
FN1 = "1"
For FN2 = 1 To 100
Workbooks.Open Filename:=ThisWorkbook.Path & "\申告書.xls"

'変数 shimei に代入された文字列を、
'変数 shimei の1列目(A列)の2行目(セルA2の値)から抽出していき、
'別名保存のファイル名として使う。
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & shimei(FN2, FN1) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

Next FN2
End Sub

■制約
ファイル名の元になる名簿ファイルと、申告書ファイルは、同じフォルダへ入れておく。
名簿の氏名はセルA1から列方向に入力する。
名簿の人数や、申込書.xlsのファイル名が変わったら、マクロの中も合わせて変える。
名簿ファイルで、ファイル名の元になる氏名が入力されているシートを開いてから実行する。

・運用テストの結果
Windows XP Pro SP2。メモリ1GB。Genuine Intel(R) CPU U1300 @ 1.06GHz のPCで、1500人で約35分。申告書のサイズは118KB。

・評価
マクロの使い勝手は最高ではないが、ファイル保存にかかる時間や手間を削減できた。チーム内で使うには、この程度でよい。

Excel 2002、Excel 2003
Windows XP、 Windows Vista Business

Excelのセルに表示できる全角の文字数

この記事は、自分用の覚え書きです。

エクセルで、セルに入力した全角文字列の表示最大数は、セルの表示形式によって変わる。

1.セルの表示形式が「文字列」の場合
全角文字数が255文字まで表示できる。
256文字以上になると # が並んで表示され、元の文字列では表示されない。

2.セルの表示形式が「標準」の場合
セルの中に見えるのは全角文字数が1,256文字まで。ただし、列幅255(Excelの仕様で示された限界)で、100%表示。
1,257文字を超えても、セルの中に見えないだけで文字化けやエラー表示はしない。全角で3,2767文字まで入力可能。それ以上は無視されて入力できない。

Windows Vista Business、Excel 2002
Windows XP Professional、Excel 2003

※Excelのヘルプには、セルの内容の長さ (文字列) は、「32,767 文字。セルに表示できるのは 1,024 文字まで。数式バーでは 32,767 文字すべての表示が可能。」とある。ヘルプの説明を超えて表示できる理由は不明。

■1.の確認で使用した式
セル A1
=REPT("あ",252)&"いいい"

セル A2
=RIGHT(A1,3)

セル A3
=LEN(A1)

■2.の確認で使用した式
セル A1
=REPT("あ",1253)&"いいい"

セル A2
=RIGHT(A1,3)

セル A3
=LEN(A1)

■参照サイト
マイクロソフトのサポートオンライン
文書番号: 211580 - 最終更新日: 2007年2月20日 - リビジョン: 6.0
Excel のセルに表示されるのは 1,024 文字のみ

Excelで、セルを方眼紙状にする。

この記事は、自分用の覚え書きです。

エクセルで、セルを方眼にするには、列幅を1.63にする。
（セルの見かけが真四角に近くなるだけ。厳密に方眼になっているわけではない。）

Excelで、あるセルに入力した内容によって他のセルの書式を決める。

この記事は、自分用の覚え書きです。

エクセルで、あるセルに入力した内容によって別のセルの書式を決める。

「条件付き書式」を使う。
例：セルC3に「出席」という文字が入力されたら、セルA1の書式を変える。
1.セルA1を選択する。

2.メニューの「書式」－「条件付き書式」を選ぶ。

3.「条件1」で「数式が」を選ぶ。条件には　=C3="出席"　を入力。
文字を条件にするときには、" " で囲む。

4.セルの色や文字色など、設定したい書式を選んでOKをクリックして完了。

条件に数値を用いるときは、=C3=1 のように " " で囲まない。　

■他のシートのセルを参照する場合
「名前の定義」を使う。

1.条件の基になるシートでセルを選んで名前ボックス（数式バーの左横）をクリック。

2.任意の名前を入力してEnter。

3.条件付き書式を設定したいセルがあるシートを開く。

4.条件付書式を設定したいセルを選ぶ。

5.メニューの「書式」－「条件付き書式」を選ぶ。

6.「セルの値が」を選んで、「次の値に等しい」など条件を決める。

7.その右の欄にカーソルを置いて、F3キー (メニューの「挿入」－「名前」－「貼り付け」でもよい)を押す。

8. 「名前の貼り付け」ダイアログボックスが開くので、先ほど付けた名前をクリックして、Enter。

9.「書式」を設定して、OKボタンをクリックして完了。

名前定義したセルに入力したデータと書式設定したセルに入力したデータを比べて、条件にあっていれば、書式を設定したセルに書式が適用される。
（Excel2002）

Excelで、セルに入力する順番を設定する。

この記事は、自分用の覚え書きです。

エクセルで、順番に入力するセルを設定するには次のように行う。

1.入力したい順にセルを選択していく。
(2番目以降のセルは、Ctrlキーを押しながら選択)

2.最後のセルを選択したあと、一番目のセルをCtrlキーを押したままもう一度選択する。
この選択を忘れると、入力の開始時に一番目のセルにカーソルが来ない。

3.入力したいセルが選択された状態のまま、名前ボックスに適当な名前を入力する。
(メニューの挿入→名前→定義　で名前を定義しても同じ)

4.付けた名前を名前ボックスで選択すると、名前を定義したセルが選択された状態になる。

5.その状態でセルに入力する。Enterキーを押すごとに最初に選んだ順番でカーソルがセルを移動していく。

※一度だけの指定でよければ、2の手順のあとですぐに入力を始めてもよい。その場合でも、Enterキーを押すごとに選択順にカーソルがセルを移動する。

Excelで再計算（更新）する。

この記事は、自分用の覚え書きです。

エクセルで、自動で計算結果が変わらないセルを再計算（更新）する。

Ctrl+Alt+F9キーを押す。

これで計算結果が更新される。
（EXCEL2002）

Excelで、マクロにショートカットキーを割り当てる。

この記事は、自分用の覚え書きです。

エクセルで、マクロにショートカットキーを割り当てる。

1.メニューの「ツール」から「マクロ」－「マクロ」を選ぶ。

2.「マクロ名」欄で、ショートカットキーを割り当てたいマクロを選択する。

3.「オプション」ボタンをクリック。

4.「ショートカットキー」欄に割り当てたいキーを入力する。

5.「OK」ボタンをクリック

6.「マクロ」ダイアログボックスに戻ったら、「キャンセル」ボタンをクリックして完了。

■ショートカットキーに割り当てることができる組み合わせ
・Ctrlキーとアルファベット
・Ctrl＋Shiftキーとアルファベット

Ctrl＋Shiftキーとアルファベットを組み合わせるには、Shiftキーを押しながらアルファベットのキーを押す。

Excelで、株式会社という文字列を抜いた一覧を作る。

この記事は、自分用の覚え書きです。

エクセルで、株式会社を意味する文字列を省いた一覧を作るには、次のようにSUBSTITUTE関数を使う。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,"株式会社",""),"（株）",""),"㈱",""),"(株)","")

A2以下に入っている社名

株式会社カタカナショウジ
日本株式会社
ＸＹＺ株式会社
ABC（株）
株式会社あいうえお
（株）全角括弧
㈱機種依存文字
(株)半角括弧

が、次のように表示される。

カタカナショウジ
日本
ＸＹＺ
ABC
あいうえお
全角括弧
機種依存文字
半角括弧

Excelのセル内の式を表示させない。

この記事は、自分用の覚え書きです。

エクセルで、セル内の式を表示させない

1.計算式を隠したいセルを選ぶ。（複数選ぶことも可）
2.「書式」－「セル」－「保護」を開く。
3.「表示しない」にチェック
4.「ツール」－「保護」－「シートの保護」を選ぶ。
5.パスワードを求められるので任意のものを入れる。

これで最初に選んだセルに入力してある式は見えなくなり、式による計算結果は表示される。

■留意点
最初に、手順2のやり方で、入力を許可したい全てのセルについて「ロック」のチェックは外しておかないと、なにも入力できないファイルになってしまう。
シートを保護するので、保存したファイルについては、パスワードを知らない人は許可されたセルに数値を入力できるだけになる。
パスワードを忘れるとシートの保護を解除することができない。

Excelで、改ページを解除する。

この記事は、自分用の覚え書きです。

エクセルで、改ページをクリアする。

■個々の改ページ
1.改ページしている行の下のセルを選択。

2.「挿入」から「改ページの解除」を選択。

■全ての改ページ
1.「表示」から「改ページプレビュー」を選択。

2.シートの上で右クリックして、メニューから「すべての改ページを解除」を選択。

Excelで、複数のセルに同じ内容を一括入力する。

この記事は、自分用の覚え書きです。

エクセルで、複数のセルに同じ内容を一括入力する。

1.入力したいセルを選ぶ。
離れたセルを選ぶときはCtrlキーを押しつつ選択。

2.１つのセルに内容を入力する。

3.Ctrlキーを押しつつEnterキーを押す。

4.選択した全てのセルに、同じ内容が入力される。

Excelで、入力済みのセル範囲を選択する。

この記事は、自分用の覚え書きです。

エクセルで、入力済みのセル範囲を選択するVBA

Sub 入力済みセル範囲の選択()
'空白セルも含んでセル範囲を選択｡

Worksheets("Sheet1").Activate
Worksheets("Sheet1").UsedRange.Select
End Sub

Excelで、全角・半角や大文字・小文字を変換する。

この記事は、自分用の覚え書きです。

エクセルで、全角を半角に変えたり、大文字を小文字に変えたりする。

■半角文字を全角にする
=JIS(文字列)

■全角文字を半角にする
=ASC(文字列)

■小文字を大文字にする
=UPPER(文字列）

■大文字を小文字にする
=LOWER(文字列)

■英単語の先頭文字だけを大文字にし、2文字目以降は小文字にする
=PROPER(文字列)

漢字やひらがなは、これらの関数では影響を受けない。

Excelで、エラー表示しないようにする。

この記事は、自分用の覚え書きです。

エクセルで、エラー値を非表示にする。

例：セルC1に、　セルA1/セルB1　の計算結果を表示させるとき、
セルC1に、
=IF(ISERROR(A1/B1)=TRUE,"",A1/B1)
と入力する。

=TRUE　を省略して、　=IF(ISERROR(A1/B1),"",A1/B1)　と入力することも可。

Excelへの入力の際、重複入力を防ぐ。

この記事は、自分用の覚え書きです。

エクセルで入力するときに、重複したデータを入力できないようにする。

1.重複を禁止したいセルの列範囲を選択。

2.メニューバーの「データ」→「入力規則」を選ぶ。

3.「データの入力規則」ダイアログが表示されるので、「設定」を選ぶ。

4.「入力値の種類」の欄から「ユーザー設定」を選ぶ。

5.「数式」欄に次の式を入力。
たとえば、A2からA50までの範囲を重複禁止にしたいなら、
=COUNTIF($A$2:$A$50,A2)=1

6.「データの入力規則」ダイアログで「OK」ボタンをクリックして完成。

注意：コピー貼り付けしたデータは入力できてしまう。

Excelの表から重複するデータを省く。

この記事は、自分用の覚え書きです。

すでに作ってあるエクセルの表から、重複データを省いた表を作る。

1.表に列見出しを作っておく。

2.メニューバーの「データ」→「フィルタ」→「フィルタオプションの設定」を選ぶ。

3.「フィルタオプションの設定」ダイアログボックスが表示されるので、次のように設定する。
抽出先　→　選択範囲内
リスト範囲　→　重複を省きたいデータが入力されている範囲
検索条件範囲　→（この欄は、入力しなくてよい）
抽出範囲　→（この欄は、入力しなくてよい）
重複するレコードは無視する　→　チェックを入れる

4.「OK」ボタンをクリックすると、重複していないデータだけになった表が表示される。

元のデータを全て表示するには、メニューバーの「データ」→「フィルタ」→「すべて表示」を選ぶ。

Excelで、0や未入力のセルを無視して平均を出す。

この記事は、自分用の覚え書きです。

エクセルで、セルに数字の0（ゼロ）が入っていたり、未入力のセルがある表の中で平均を求める。

1.平均値を表示したいセルを選択。

2.選択したセルに、次の数式を入力。
　 =SUM(平均を出したいセル範囲)/(COUNT(平均を出したいセル範囲)-COUNTIF(平均を出したいセル範囲,0))

（例）平均を出したいセル範囲がA1:A10なら
=SUM(A1:A10)/(COUNT(A1:A10)-COUNTIF(A1:A10,0))

上の式なら、指定したセル範囲のうち、0が入っているセルと、未入力のセルも除いたデータで平均が計算される。

未入力のセルは無く、必ず0が入っているという場合は、次のような式でもよい。
=SUM(A1:A10)/COUNTIF(A1:A10,"<>0")
（この式の場合、未入力のセルがあると平均を計算するときにデータの個数として数えられてしまう。）

Excelのセルのアポストロフィーを一括して取る。

この記事は、自分用の覚え書きです。

エクセルのセルに入っている、'100とか、'日本の　'　を一括して取るには次のようにする。

1.何も入っていないセルを選んで、コピーする。

2.アポストロフィーを取りたいセルを選んで、「形式を選択して貼り付け」を実行する。

3.「加算」を選んで貼り付ける。
「減算」でもよい。
「乗算」はだめ。セルの中が数字だったら、０になってしまう。

Ｅｘｃｅｌの起動が遅いときに試してみること。

この記事は、自分用の覚え書きです。

エクセルの起動が遅いときには、以下を試してみる。

1. 次のフォルダを開く。
WinXP
C:\Documents and Settings\<ユーザー名>\Application Data\Microsoft\Excel

Vista
C:\Users\<ユーザー名>\AppData\Roaming\Microsoft\Excel

2.フォルダ内にある Excel10.xlb ファイルの名前を適当に変える。たとえば、oldExcel１０.xlbとか。
数字の部分は、エクセルのバージョンによって異なる。

3. Excel を起動し、新規ブックを作成する。
これで起動が円滑になっているはず。
Excelが起動すると、拡張子xlbのファイルが、自動的に新たに作られる。

4.起動が円滑に行われることを確認したら、2.でファイル名を変えたxlbファイルは、削除してよい。

Windows Vista(TM) Buisiness 覚え書き

Ｅｘｃｅｌで、複数のセルにあるハイパーリンクの削除

この記事は、自分用の覚え書きです。

■エクセルで、複数のハイパーリンクを一括で削除する。
1.空いているセルを１つ、右クリックして、「コピー」を選ぶ。
2.ハイパーリンクが設定されたセルを全部選択して右クリックし、「形式を選択して貼り付け」を選ぶ。
3「演算」の欄で「加算」を選び、「OK」をクリック。

■Excel XP（Excel 2002）では、自動的にハイパーリンクを設定しないオプションがある。
1.「ツール」→「オートコレクトのオプション」を開く。
2.「入力オートフォーマット」タブを開いて、「インターネットとネットワークのアドレスをハイパーリンクに変更する」のチェックを外す。

■ハイパーリンクを削除するマクロ
Sub ハイパーリンク削除()
'
' ハイパーリンク削除 Macro'
'
Selection.Hyperlinks.Delete
End Sub