デフレを解消するには

目からウロコが落ちる奇跡の経済教室という本を読んでみた
 ・日本だけ成長しなくなったのは、デフレが原因
・合成の誤謬：個々は正しく行動しても、全体としては好ましくないこと。景気悪いので、支出切りつめ節約→需要の縮小→物が売れない
・デフレを解消するには、大きな政府、財政出動の拡大、減税、金融緩和、規制強化（産業保護、労働者保護）、重要産業の国有化、グローバル化の抑制
・貨幣には現金通貨と預金通貨がある。預金は銀行が貸し出しを行うと創造される。銀行は、保有する資金量の制約は受けないが、借り手の返済能力の制約は受ける。
 ・現代貨幣理論（MMT)：通貨を納税手段に→結果的に通貨が国民に受け入れられ広く使用される。
 ・量的緩和では貨幣供給量は増えない。財政政策が必要。
・機能的財政論：財政赤字＝民間貯蓄、自国通貨建て国債が返済不能となることは歴史上例がない。財政赤字の大きさは、財政危機とは無関係で、基準はインフレ率。税は、物価調整や所得再分配など経済全体を調整するための手段であり、財源確保の手段ではない。
金利上昇は、財政赤字の拡大ではなく、デフレ脱却が必要。
・国内民間部門の収支＋国内政府部門の収支＋海外部門の収支＝０
・戦後日本の輸出依存度は１０～１５％程度で、内需大国で貿易立国ではない。自由貿易が経済成長をもたらすとは限らず、保護貿易の下で貿易が拡大することもある。
　 MMTへの反論としては、いったん、インフレになると対応まで時間差がどうしてもできるので、対処が難しいのでないか、日本の人口構造からデフレはやむを得ないとかいう意見もあるようですが、本当のところはどうなんでしょう？

VBAマクロで任意のエクセルファイルから、必要データを抽出

共有上にあるエクセルファイルから別のエクセルファイルにデータを抽出したいときマクロ（設定シートにファイルパスなど入れておく）を利用すると便利

ファイルパスは、以下のようなマクロで取得
Sub sansho() Dim fType, prompt As String Dim fPath As Variant Dim ws As Worksheet Set ws = Worksheets("設定") '選択できるファイルの種類をxlsに限定 fType = "Excel ﾌｧｲﾙ (*.xlsx),*.xlsx" 'ダイアログのタイトルを指定 prompt = "Excelファイルを選択して下さい" 'ファイル参照ダイアログの表示 fPath = Application.GetOpenFilename(fType, , prompt) If fPath = False Then 'ダイアログでキャンセルボタンが押された場合は処理を終了します End End If 'B2セルにファイル名をセット ws.Cells(3, 1).Value = fPath End Sub  
データのコピー処理は以下のようなマクロで Sub Macro1() ' ' Macro1 Macro ' 'コピー元のシートがあるファイルを開く fPath = Workbooks(ThisWorkbook.Name).Worksheets("設定").Range("A3") fff = Split(fPath, "\") fn = fff(UBound(fff)) MsgBox (fn) Workbooks.Open (fPath) kyokasitei = Workbooks(ThisWorkbook.Name).Worksheets("設定").Range("A8") Workbooks(ThisWorkbook.Name).Worksheets("List").Cells.ClearContents ' cou = 0 For Each i In Workbooks(fn).Sheets 'Debug.Print i.Name Sheets(i.Name).Select 'MsgBox (i.Name) For j = 0 To 4 ' j:列方向 dt = Cells(4, 2 + j * 3).Value For k = 0 To 4 ' k:行方向 If k < 2 Then Kyoka = Cells(10 + k * 4, 2 + j * 3).Value Title = Cells(10 + k * 4, 4 + j * 3).Value Naiyo = Cells(11 + k * 4, 4 + j * 3).Value Naiyo2 = Cells(12 + k * 4, 4 + j * 3).Value Else Kyoka = Cells(10 + k * 3 + 1, 2 + j * 3).Value Title = Cells(10 + k * 3 + 1, 4 + j * 3).Value Naiyo = Cells(11 + k * 3 + 1, 4 + j * 3).Value Naiyo2 = Cells(12 + k * 3 + 1, 4 + j * 3).Value End If 'MsgBox (Title): End If Naiyo <> "" And (kyokasitei = Kyoka Or kyokasitei = "") Then Call shori(Workbooks(ThisWorkbook.Name), dt, Kyoka, Title, Naiyo, Naiyo2, cou) cou = cou + 1 End If On Error Resume Next Next k Next j Next i 'コピー元ファイルを閉じる Workbooks(fn).Close MsgBox ("終了") End Sub Sub shori(wb As Object, ByVal dt As Date, ByVal Kyoka As String, ByVal Title As String, ByVal Naiyo As String, ByVal Naiyo2 As String, ByVal cou As Integer) wb.Worksheets("List").Cells(cou + 1, 1).Value = dt wb.Worksheets("List").Cells(cou + 1, 2).Value = Kyoka wb.Worksheets("List").Cells(cou + 1, 3).Value = Title wb.Worksheets("List").Cells(cou + 1, 4).Value = Naiyo wb.Worksheets("List").Cells(cou + 1, 5).Value = Naiyo2 End Sub

ルベーグ積分 要点と復習 問1.26

f＝Σaj１Ej　（１．５）
問1.26　①{Ej}が互いに素ならば　(1.5)のようにあらわされる関数ｆの地域は高々可算であることを示せ。また、②｛Ej}が互いに素でないならば、値域は一般には、非可算であることを例によって示せ。
（∵）
①：｛Ej}が互いに素とすると、　X∖　UjEj≠０ならば　これを付けくわえることで　　UjEj=Xとしてよい。　このとき　∀ｘ∈Xは　ちょうど　１つのEjに入るから
　　ｆの値域は　｛aｊ｝
②：｛Ej}が互いに素でないとき　（１．５）のｆの地域が非可算になる例
　区間I＝[0,1)　上の関数　ｆ（ｘ）＝ｘ　の値域はIであり　非可算
　　f(x)（=ｘ）∈Iの２進展開は
　　　　　f(x)＝Σ（1/2）^j・αj(x)　＝Σ(1/2)^j・１Ej(x)　
　ただし、　αj(x)は０または１であり　それによって　f(x)は　[0,1)の中のいずれかの値をとる。
　　イメージとしては
　　　ｘα＝　(1/2)^1・０＋(1/2)^2・１＋(1/2)^3・１＋....＋(1/2)^ｎ・０　だとすると、　Ej＝｛ｘ∈I：αj(x)=1}　と表せるが　上の例では　E2でも、E3でもｘαが該当