inomata – Tips

侍ジャパンシリーズ2024　第２戦　京セラドーム大阪　3月7日(木)　19:00開始

	1	2	3	4	5	6	7	8	9	計	安打	失策
	0	1	0	0	0	0	0	1	0	2	5	0
	0	0	0	0	0	0	0	0	X	0	0	2

スターティングメンバー

	選手名		所属球団
中	西川史礁	3	青山学院大
指	近藤健介	8	ホークス
右	森下翔太	23	タイガース
一	村上宗隆	55	スワローズ
左	田村俊介	60	カープ
遊三	紅林弘太郎	24	バファローズ
二	中野拓夢	7	タイガース
捕	山本祐大	50	ベイスターズ
一	石川昂弥	25	ドラゴンズ
投	金丸夢斗	19	関西大

西川　１安打　７回中前ファインプレー
近藤　２四球
森下　１安打
村上　
田村　１安打
紅林　１四球
中野　１安打　
山本　２回１犠飛１打点
石川　
万波　１安打

選手交代（野手）

	選手名		選手名		所属球団
指	近藤健介	打指	塩見泰隆	9	スワローズ
三	村上宗隆	三二	小園海斗	51	カープ
二	中野拓夢	遊	源田壮亮	6	ライオンズ
捕	山本祐大	打捕	古賀悠斗	22	ライオンズ
右	森下翔太	右	万波中正	66	ファイターズ

選手交代（投手）

	選手名		所属球団	投球回	投球数
勝	金丸夢斗	19	関西大	2	24
	中村優斗	28	愛知工業大	1	11
	松山晋也	15	ドラゴンズ	1	11
	渡辺翔太	23	イーグルス	1	16
	隅田知一郎	21	ライオンズ	2	18
Ｓ	種市篤暉	16	マリーンズ	2	21

日本 vs 欧州代表　ハイライト　NPB

日本 vs 欧州代表　インサイド　侍ジャパンチャンネル

2023アジアCS

【2023アジアCS】決勝 vs韓国４x－３延長10回タイブレイク　門脇サヨナラ打！　２大会連続優勝！

inomata 2023年11月19日 ASIA Championship

決勝　東京ドーム　11月19日(日)　18:00開始

	1	2	3	4	5	6	7	8	9	10	計	安打	失策
	0	0	２	0	0	0	0	0	0	1	3	9	0
	0	0	0	0	1	1	0	0	0	2x	4	8	1

スターティングメンバー

	選手名		所属球団
指	藤原恭大	1	マリーンズ
遊	小園海斗	51	カープ
左	森下翔太	23	タイガース
一	牧秀悟	2	ベイスターズ
捕	坂倉将吾	31	カープ
右	万波中正	66	ファイターズ
二	門脇誠	35	ジァイアンツ
三	佐藤輝明	8	タイガース
中	岡林勇希	60	ドラゴンズ
投	今井達也	48	ライオンズ

今井　４回２失点
小園　１安打
森下　１安打
牧　　１安打１本塁打１申告敬遠１打点　左中ソロホームラン
坂倉　１四球１犠飛１打点
万波　３安打２二塁打１申告敬遠
門脇　１安打１犠打１打点　10回左前サヨナラ安打　
佐藤　１犠飛１打点　
岡林　１安打
古賀　１犠打

選手交代（野手）

	選手名		選手名		所属球団
左	森下翔太	打	古賀悠斗	22	ライオンズ

選手交代（投手）

	選手名		所属球団	投球回	投球数
	今井達也	48	ライオンズ	4	77
	根本悠楓	59	ファイターズ	3	45
	桐敷拓馬	47	バファローズ	1	16
	田口麗斗	34	スワローズ	1	18
勝	吉村貢司郎	21	スワローズ	1	15

日本 vs 韓国　ハイライト　TBS

2023アジアCS

【2023アジアCS】第３戦 vsオーストラリア１０－０で１３安打８回コールド快勝！決勝進出！

inomata 2023年11月18日 ASIA Championship

予選　東京ドーム　　11月18日(土)　12:00開始

	1	2	3	4	5	6	7	8	9	計	安打	失策
	1	0	2	1	0	1	3	2		10	13	0
	0	0	0	0	0	0	0	0		0	1	3

スターティングメンバー

	選手名		所属球団
左中	藤原恭大	1	マリーンズ
中	岡林勇希	60	ドラゴンズ
遊	小園海斗	51	カープ
右	万波中正	66	ファイターズ
指	佐藤輝明	88	タイガース
一	秋広優人	55	ジャイアンツ
三	野口智哉	9	バファローズ
捕	古賀悠斗	22	ライオンズ
二	門脇誠	35	ジャイアンツ
投	早川隆久	15	イーグルス

早川　５回無安打無失点　７奪三振　
藤原　３安打２四球２打点　７回右タイムリー
岡林　２安打１四球
小園　２安打１四球２打点　１回先制中タイムリー
万波　１安打１打点　３回右タイムリー
佐藤　１安打
秋広　２四球
野口　１四球
古賀　２四球　
門脇　１安打１四球
石橋　１安打１打点　７回左タイムリー
野村　２安打２打点　８回中タイムリー

選手交代（野手）

	選手名		選手名		所属球団
中	岡林勇希	打捕	石橋康太	58	ドラゴンズ
捕	古賀悠斗	左	野村佑希	5	ファイターズ

選手交代（投手）

	選手名		所属球団	投球回	投球数
勝	早川隆久	15	イーグルス	5	63
	吉村貢司郎	21	スワローズ	1.2	21
	佐藤隼輔	19	ライオンズ	0.1	23
	清水達也	50	ドラゴンズ	1	9

日本 vs オーストラリア　ハイライト　TBS

MLB

【MLB】大谷翔平　ア・リーグ本塁打王獲得！日本人初の快挙！レギュラーシーズン44本塁打

inomata 2023年10月2日大谷翔平

大谷は、エンゼルス球団を通じ、「MLBでこれまで活躍された偉大な日本人選手たちのことを考えると大変恐縮であり、光栄なことです。この目標を達成するのに協力してくれたチームメート、コーチングスタッフ、ファンに感謝します」とコメントを発表しました。

高校野球

【2023夏･高校野球】決勝　慶応vs仙台育英８－２で107年ぶり２回目の優勝！神奈川県勢としては８年ぶり。　

inomata 2023年8月23日

第105回　全国高校野球選手権記念大会　決勝　甲子園　8月23日(水)　14:00開始

	1	2	3	4	5	6	7	8	9	計	安打	失策
慶応（神奈川）	2	1	0	0	5	0	0	0	0	8	13	4
仙台育英（宮城）	0	1	1	0	0	0	0	0	0	2	7	2

慶応の優勝は、1916年（大正5年）の第2回大会以来で、107年ぶり。当時の「慶応普通部」は東京都にあったため、神奈川県代表としては初優勝。
神奈川県勢の優勝は、2015年（平成27年）第97回大会の東海大相模以来8年ぶり8度目。

Excel VBA

Excel 文字コードUTF-8，改行コードCrLf，拡張子tsvで保存

inomata 2023年4月26日 Bing AI Chat Excel VBA

Bing AI Chat に聞いてみました。
新しトピック　→　「Excel VBA 文字コードUTF-8、改行コードCrLfで拡張子tsvで保存する」　を入力
回答は↓↓↓↓↓

Excel VBAで文字コードUTF-8、改行コードCrLfで拡張子tsvで保存する方法は、以下のようになります。

具体的なコード例は、以下のようになります。

Sub SaveAsTSV_UTF8_CRLF()
    'アクティブなブックをTSV形式で保存する
    Dim ws As Worksheet
    Dim rng As Range
    Dim str As String
    Dim stream As Object
    
    Set ws = ActiveWorkbook.ActiveSheet 'シートを指定
    Set rng = ws.UsedRange '使用範囲を指定
    str = rng.Value 'セルの値を文字列に変換
    
    Set stream = CreateObject("ADODB.Stream") 'ストリームオブジェクトを作成
    stream.Type = 2 'テキストタイプ
    stream.Charset = "utf-8" '文字コードをUTF-8に設定
    stream.LineSeparator = -1 '改行コードをCRLFに設定
    stream.Open 'ストリームを開く
    stream.WriteText str 'データを書き込む
    stream.SaveToFile "C:\test.tsv", 2 'ファイルに保存（上書き）
    stream.Close 'ストリームを閉じる
    
End Sub

Sub SaveAsTSV_UTF8_CRLF()

'アクティブなブックをTSV形式で保存する

Dim ws As Worksheet

Dim rng As Range

Dim str As String

Dim stream As Object

Set ws = ActiveWorkbook.ActiveSheet 'シートを指定

Set rng = ws.UsedRange '使用範囲を指定

str = rng.Value 'セルの値を文字列に変換

Set stream = CreateObject("ADODB.Stream") 'ストリームオブジェクトを作成

stream.Type = 2 'テキストタイプ

stream.Charset = "utf-8" '文字コードをUTF-8に設定

stream.LineSeparator = -1 '改行コードをCRLFに設定

stream.Open 'ストリームを開く

stream.WriteText str 'データを書き込む

stream.SaveToFile "C:\test.tsv", 2 'ファイルに保存（上書き）

stream.Close 'ストリームを閉じる

End Sub

———————-

とても参考になりました！

Book

【BOOK】70代からの元気力（知的生きかた文庫わ 9-16）

inomata 2023年4月11日対処法

今は、あまり食べようとは思わないが、70歳代になると良いのかも？

｢昼食にコンビニ弁当｣の意外な健康効果…医師･和田秀樹｢長寿の人に共通する食生活の特徴｣［PRESIDENT Online］

SharePoint

【SharePoint】ユーザーとグルーブのリスト作成方法

inomata 2023年4月3日 technique

SharePointグループのユーザー一覧について［Sonorite Co.,LTD.］

「ユーザーとグルーブ」のリストを出力する際、大変参考になりました！

Access VBA

画面制御などで使用するDoCmdメソッド

inomata 2023年3月25日 Access VBA DoCmd

画面制御等で使用するDoCmdメソッド

    With DoCmd
        .Echo False		'画面の再描画をオフ
        .Hourglass True		'マウス ポインターを砂時計の画像に変更
        .SetWarnings False	'システムメッセージの表示をオフ
    End With


    With DoCmd
        .Echo False		'画面の再描画をオン
        .Hourglass False	'マウス ポインターを通常の表示に戻す
        .SetWarnings True	'システムメッセージの表示をオン
    End With

With DoCmd

.Echo False '画面の再描画をオフ

.Hourglass True 'マウスポインターを砂時計の画像に変更

.SetWarnings False 'システムメッセージの表示をオフ

End With

With DoCmd

.Echo False '画面の再描画をオン

.Hourglass False 'マウスポインターを通常の表示に戻す

.SetWarnings True 'システムメッセージの表示をオン

End With

2023WBC

【2023WBC】決勝 vsアメリカ３－２で14年ぶり優勝！　今永先発　村上１号同点ソロ　岡本２号ソロ　ダルビッシュ・大谷の継投で世界一奪還！

inomata 2023年3月22日 WORLD BASEBALL CLASSIC 侍ジャパン

決勝　ローンデポ・パーク［アメリカ・マイアミ］　3月22日(火)　8:00開始

	1	2	3	4	5	6	7	8	9	計	安打	失策
	0	1	0	0	0	0	0	1	0	2	9	0
	0	2	0	1	0	0	0	0	X	3	5	0

スターティングメンバー

	選手名		所属球団
中左	Ｌ．ヌートバー	23	カージナルス
右	近藤健介	8	ホークス
指投	大谷翔平	16	エンゼルス
左	吉田正尚	34	レッドソックス
三	村上宗隆	55	スワローズ
一	岡本和真	25	ジャイアンツ
二	山田哲人	1	スワローズ
遊	源田壮亮	2	ライオンズ
捕	中村悠平	27	スワローズ
投	今永昇太	21	ベイスターズ

今永　WBC初先発　２回１失点
ヌートバー　一ゴロ１打点
近藤　１四球
大谷　１安打１四球
吉田　１四球　
村上　１安打１本塁打１打点　２回初球第１号右ソロ
岡本　２安打１本塁打１打点　４回第２号左中間ソロ
山田　２四球２盗塁
源田　１安打１四球
中村　２四球

選手交代（野手）

	選手名		選手名		所属球団
左	吉田正尚	中	牧原大成	5	ホークス

選手交代（投手）

	選手名		所属球団	投球回	投球数
勝	今永昇太	21	ベイスターズ	2	30
H	戸郷翔征	12	ジャイアンツ	2	35
H	髙橋宏斗	28	ドラゴンズ	1	20
H	伊藤大海	17	ファイターズ	1	14
H	大勢	15	ジャイアンツ	1	13
H	ダルビッシュ有	11	パドレス	1	18
S	大谷翔平	16	エンゼルス	1	15