ExcelVBAでExcel終了させる

Sub ExQuit1()
    '確認メッセージを表示させない
    Application.DisplayAlerts = False
    'Excelを終了する
    Application.Quit
End Sub

Sub ExQuit2()
    '確認メッセージを表示させない
    Application.DisplayAlerts = False
    '他のブックが開いていなければ
    If Workbooks.Count <= 1 Then
        'Excelを終了する
        Application.Quit
    End If
End Sub

ネタ元

excel-excel.com

MFC CDialogにてEnterキーで閉じちゃうのを何とかする方法

PreTranslateMessage()で受け止めて止める

この例ではTABに変換している

BOOL CMyDialog::PreTranslateMessage(MSG* pMsg)
{
    if (pMsg->message == WM_KEYDOWN)
    {
        if ((pMsg->wParam == VK_RETURN) || (pMsg->wParam == VK_ESCAPE))
            pMsg->wParam = VK_TAB;
    }
    return CDialog::PreTranslateMessage(pMsg);
}

Pythonで時系列データ取得(NASDAQ)

ライブラリインストール

py -m pip install pandas-datareader

nas.py

# =================================================
#           ライブラリ
# =================================================
import pandas_datareader.data as web

# =================================================
#           メイン
# =================================================

# 株価情報取得(NASDAQ指数)
stock_price = web.DataReader("^IXIC","yahoo","2000/1/1","2022/7/7")

# PandasデータフレームをCSVで出力
stock_price.to_csv("stock_price.csv")

ネタ元

note.com
optrip.xyz