→Python in ExcelについてはPython関連へ
Sub ShowName()
Dim targetName As Object
For Each targetName In Names
If targetName.Visible = False Then
targetName.Visible = True
End If
Next
End Sub 1. コピー元のシートの全体を選択してください。
2. メニュー [挿入] - [名前] - [定義] を選択すると、
そのシートに含まれるすべての「名前」が表示されます。
すべて削除してください。
3. コピー先のシートについても同様の手順で「名前」を削除してください。
4. コピー&ペーストを実行してください。A1:C1セルを選択した状態で メニュー[書式]−[条件付き書式]をクリック ↓ [条件付き書式の設定]ダイアログ−[条件1]欄の 1つ目のコンボボックスで[数式が]を選択 ↓ コンボボックスの右のテキストボックスに 「=$B1="東京都"」と入力 ↓ [書式]ボタンをクリックして書式を設定 ↓ [条件付き書式の設定]ダイアログ −[条件1]欄 −[条件が真のときに使用する書式のプレビュー] で書式が設定されたことを確認 ↓ [条件付き書式の設定]ダイアログ−[OK]ボタンをクリック ↓ A1:C1セルの書式をコピーし、2行目以下のセルに貼り付け
例)mm/dd(aaa)
=CLEAN(値)
=IFERROR(MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-6),"ファイルが保存されていません")=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))=if (ISERROR(vlookup関数),-1,vlookup関数)