分ワかってるようで分ワかってない VBA		全ゼンセル選択センタク　=MOD(COLUMN(),1)=0 縦線タテセン入ハイる
ワンドライブと、Zeroへ保存ホゾンすること		' $A$1:$C$2には「=MOD(COLUMN(),1)=0」で左右サユウ罫線ケイセン無ナし
日付ヒヅケ	内容ナイヨウ	備考ビコウ
2024/3/5	「FormulaR1C1」で変動ヘンドウする範囲ハンイの書カき方カタ
	宣言センゲンした変数ヘンスウを「" & ○○ & "」で囲カコむ　（「”や& 変数ヘンスウ前後ゼンゴのスペースは半角ハンカク）
	Range("I5").FormulaR1C1 = "=IF(AND(商品名入力セル<>"""",単価入力セル<>""""),COUNTIF(R[3]C:R[" & 最終行 & "]C,R[-1]C),""No"")"
2024/2/29	Sub aiu()	CurrentRegion内ナイのセルはどれを指定シテイしても範囲ハンイは同オナじ。
	Range("b5").CurrentRegion.Select	CurrentRegionで指定シテイすると左上ヒダリウエがアクティブになる。
	Range("b5").CurrentRegion.Offset(1, 2).Select	Offsetで動ウゴかしてもアクティブセルは左上ヒダリウエになる。
	End Sub	CurrentRegionをOffsetで動ウゴかすと範囲ハンイ全体ゼンタイが指定シテイした分ブンずれる。
2023/12/15	セルに関数カンスウを入イれる
	Range("g1").Value = WorksheetFunction.Sum(Range("d1:f1"))	G1に計算ケイサン結果ケッカ、たとえば「321」が表示ヒョウジされる
	Range("h1").Value = "=sum(d1:f1)"	H1に数式スウシキ「Sum(D1:F1)」が入ハイる
	Range("I1").FormulaR1C1 = "=SUM(RC[-5]:RC[-3])"	I1に数式スウシキ「SUM(D1:F1)」が入ハイる
2023/10/23	Sub a() '選択範囲は同じ	新シンVBAプログラミング　P.10
	Range("a1:B3").Select
	Range("a1", "b3").Value = 1
	End Sub
2023/7/30	セルに数式スウシキを入イれる。Formulaを使ツカうと再計算サイケイサンしてくれる
	Sub aiueo()
	Dim 最終行
	最終行 = Cells(Rows.Count, 1).End(xlUp).Row
	Range(Cells(1, 5), Cells(最終行, 5)).Formula = "=Concat(a1, b1, c1)"
	End Sub
2023/5/23	Range("a1") = InputBox("何か入力してください:" & Chr(10) & "aaa", "入力")
	'「& 」が無ナいとエラーになる(改行カイギョウしない時トキは「＆」不要フヨウ
2023/3/8	計算ケイサンできる数式スウシキ例レイ
	Range("B1").Formula = "=ROUNDUP((C1- 1) / 2, 0)"	C1に数値スウチが入ハイっている
	Range("B2") = (カードの最終列 - 5) / 2 + 1
	Range("B3").Formula = "=ROUNDUP((B4 - 5) / 2 , 0)"	B4に変数ヘンスウ値アタイが入ハイっている時トキ
2023/2/27	ActiveSheet.PageSetup.PrintArea = Range("b1").CurrentRegion.Address
	MsgBox Range("b1").CurrentRegion.Address
	↑　カレントレヒオンのアドレスが表示ヒョウジされる
2023/1/31	Sub a1()
	Cells(1, Columns.Count).End(xlToLeft).Select      '空白クウハクある時トキの最終列サイシュウレツセル
	Cells(1, Columns.Count).Select
	'XFD1　選択される
	Range("A1").End(xlToRight).Select
	'空白セルの左セルが選択
	'最終の列 = Cells(1, Columns.Count).End(xlToLeft).Column
	End Sub
2022/3/18	B2:B10の最終行サイシュウギョウ選択センタク（B4空白クウハク時ジはB3を選択センタクする）
	「Range("B2").End(xlDown).Select」でB列レツ最終行サイシュウギョウ(空白クウハクの上ウエ）を取トる
	Range("B2").End(xlDown).Offset(1).Select　で1行ギョウ下シタを選択センタクする
	空白クウハクが有アるときは「最終行 = Cells(Rows.Count, 1).End(xlUp).Rowサ」を使ツカう
2022/3/6	累計ルイケイ(forを使ツカって)	すぐ分ワかるVBA（P187)
	ruikei = 0	For　の前マエにruikei=0　を置オかないとダメ
	For i = Range("B3").Value To Range("D3").Value
	ruikei = ruikei + i
	Next i
2022/3/3	Range(ActiveCell.Offset(3), ActiveCell.Offset(28)).Copy	Offsetを使ツカった範囲ハンイ指定シテイの仕方シカタ
2022/2/20	m = WorksheetFunction.RoundUp(取り出した文字数 / 6, 0)	VBAでワークシート関数カンスウ使ツカう時トキ「 WorksheetFunction.・・・」
	（上ウエのコマンドでは「計算ケイサン結果ケッカ」が表示ヒョウジされる。
2022/2/6	Columns,rows	Range以外の指定方法（Cells,Rows,Columns）｜VBA入門 (excel-ubara.com)
	Rows(5)　　5行目の行全体になります。
	Rows("1:5")　　1～5行の5行分全体の範囲
	Columns(3)　　C列の全体になります	Column→列番号が取れる、Columuns（）→何列目の列全体を指定する
	数値指定の場合は複数列の指定はできません
	Columns("A:C")　　A列～C列の3列の指定
2022/2/3	Sub 複数列削除220203()	【エクセルマクロ】変数を使用して列を削除：使用例５選 | kirinote.com
	Dim i, ii, 削除最初の列, 削除最後の列
	i = ActiveCell.Column
	ii = Selection.Columns.Count
	削除最初の列 = ii + 1
	MsgBox 削除最初の列
	削除最後の列 = ii + ii
	MsgBox 削除最後の列
	Range(Columns(削除最初の列), Columns(削除最後の列)).Delete
	End Sub
2022/1/24	市松イチマツ模様モヨウ塗ヌりつぶしコード
2022/12/29	Sub a()
	Dim aaa
		Thisworkbookで採トる名前ナマエを変カえる時トキ、前マエへ付ツける。
	MsgBox aaa
	ThisWorkbook.SaveCopyAs aaa
	End Sub
2022/12/21	Sub 書式消す()
	Selection.ClearContents	中身ナカミ
	Selection.MergeCells = False	結合ケツゴウ解除カイジョ
	Selection.Interior.ColorIndex = 0　←（数字スウジのゼロ）	塗ヌりつぶし無ナし
	End Sub
2022/12/21	selection.MergeCells = True	セル結合ケツゴウ
	selection.MergeCells =False	結合ケツゴウ解除カイジョ
2022/11/17	Range("C6:D11").Copy	「すぐ分ワかる…」P115関連カンレン
	Range("G19").End(xlUp).Offset(1).PasteSpecial _	記入キニュウ済ズみセルの一ヒトつ下シタへ行列ギョウレツ変換ヘンカンして貼ハり付ツける。
	Paste:=xlPasteValues, Transpose:=True	G19は適当テキトウなセルでよい
2022/11/16	Sub tomoko()	「すぐ分ワかる…」P112関連カンレン
	Select Case Range("n2").Value
	Case 1
	Range("C11:AG11").Copy Range("C6")
	Case 2
	Range("C12:AG12").Copy Range("C6")
	End Select
	End Sub
2022/11/13	「オブジェクト名.プロパティ」という解説はウソですよ:エクセルマクロ・Excel VBAの使い方 (relief.jp)
2022/11/12	VBA_アイコン一覧イチランはこのファイルの「VBA アイコン」にあり
2022/11/10	Sub 選択()	B3:O30が選択センタクされて、O30がアクティブになる
	Range("B3").CurrentRegion.Select	Range("O30").「Activate」が使ツカわれているから。
	Range("O30").Activate	すぐ分ワかる…のP105
	End Sub
2022/11/10	Columns(3).Hidden = True　→○	複数フクスウ列番号レツバンゴウはえらーになるらしい
	Columns("C:F").Hidden = True→○
	Columns("3:6").Hidden = True　→×
2022/11/4	Range("B2, B3, B4, B5").Borders(xlEdgeBottom).LineStyle = xlContinuous	B2~B5セルの下シタに線センが引ヒかれる
	Range("B2：B5").Borders(xlEdgeBottom).LineStyle = xlContinuous	B5セルの下シタに線センが引ヒかれる
2022/11/2	Sub 表示形式カンマ()　'すぐ分ワかる…VBAのP89参照サンショウ	NumberFormat→英語エイゴにみに対応タイオウ。例レイ　="General"
	Range("C4:D19,F4:F19").NumberFormat = "#,##0"	NumberFormatLocal→日本語ニホンゴに対応タイオウ　例レイ　=”G/標準ヒョウジュン”
	End Sub	#,##0はどちらにも対応タイオウする
	'MsgBox Range("C4").NumberFormatLocal　で表示ヒョウジ形式ケイシキが分ワかる
2022/10/29	最終行サイシュウギョウセルの選択センタク　Ctrl+↓　(連続レンゾクしたセルの最終行サイシュウギョウのセル）	すぐ分ワかる…P71
	最終サイシュウ列レツセルの選択センタク　Ctrl+→　(連続レンゾクしたセルの最終サイシュウ列レツのセル）
	CurrentRegionはCtrl+Shift＋*　(テンキー はCtrl+*）
2022/10/28	addressで参照サンショウを表示ヒョウジする $a$1,a$1など→ActiveCell.Address(True, False) ‘ C$14	VBA心覚ココロオボえに有アり
2022/10/28	Sub test()	選択センタク範囲ハンイとアクティブセル番地バンチを表示ヒョウジする。
	Range("B2:C5").Select	それぞれを「&」で繋ツナぐだけ！
	Range("B2").Activate
	MsgBox ActiveCell.Address & Range("B2:C5").Address
	'$B$2$B$2:$C$5 アクティブセルは　$B$2
	End Sub
2022/9/1	Sub CurrentRegionプロパティを確認する()	［Ctrl］キー＋［Shift］キー＋［*］キーを押す
	Range("d4").CurrentRegion.Select	※テンキーの［*］キーを使う場合［Shift］キーは不要
	MsgBox Selection.Address(False, False)	「(False, False)」を付ツけると相対ソウタイ参照サンショウになる。
	End Sub	CurrentRegionの意味:ExcelVBA Rangeオブジェクト/CurrentRegionプロパティ (relief.jp)
	アクティブセル領域とは、選択されているセル範囲から、すべての方向の最初の空白行・空白列までの領域のこと
2021/9/1	最下行サイカギョウ(トップ）を選エラぶ(一体型イッタイガタパソ)→Ctrl+Fn+End（Home)
2022/8/28	Sub ユーザーフォーム閉じる()	川柳転記を含フクむファイルに記述キジュツするらしい
	Unload 川柳転記	【VBA】ユーザーフォームの呼び出しと閉じる【モードレスで表示したまま他の操作】 (daitaideit.com)
	End Sub
2022/8/21	Sub 選択範囲の罫線を消す()
	Selection.Borders.LineStyle = xlNone
	End Sub
2022/7/25	Sub aa()  'A1に「=1*100」が入っているコピー貼り付け（数式とも、値のみ）
	Range("A2").Value = Range("A1").Text     '①値のみ貼り付け
	Range("B2").Value = Range("A1").Value    '②値のみ貼り付け
	Range("a1").Copy Range("C2")             '③数式とも、値貼り付け
	'①②はデータで張り付いている。③は数式・塗りつぶしとも貼り付け。
	'③のCopy Rangeの間にカンマはなし。
	End Sub
2022/7/24	Sub 塗りつぶしが隣の時元のセルに色を付ける()
	Dim i
	For i = 3 To 50
	If Cells(i, 4).Offset(0, -1).Interior.Color = RGB(217, 217, 217) = True Then Cells(i, 4).Interior.Color = RGB(217, 217, 217)
	Next
	End Sub
2022/7/18	Private Sub CommandButton1入力転記_Click()	210715_ボタンの練習レンシュウ　のユーザーフォームのコード
	最終の列 = Cells(2, Columns.Count).End(xlToLeft).Column + 1
	日付の値 = TextBox1.Value
	Cells(2, 最終の列).Value = 日付の値
	For 番号 = 2 To 24
	If CheckBox5.Value = True Then Cells(3, 最終の列).Value = "水野入金"
	If CheckBox2.Value = True Then Cells(4, 最終の列).Value = "原田入金"
	If CheckBox3.Value = True Then Cells(5, 最終の列).Value = "下田入金"
	If CheckBox4.Value = True Then Cells(6, 最終の列).Value = "樫山入金"
	If CheckBox6.Value = True Then Cells(7, 最終の列).Value = "竹内入金"
	If CheckBox7.Value = True Then Cells(8, 最終の列).Value = "梶本入金"
	If CheckBox8.Value = True Then Cells(9, 最終の列).Value = "辻入金"
	If CheckBox9.Value = True Then Cells(10, 最終の列).Value = "小野入金"
	If CheckBox10.Value = True Then Cells(11, 最終の列).Value = "馬場入金"
	If CheckBox11.Value = True Then Cells(12, 最終の列).Value = "坂本入金"
	If CheckBox12.Value = True Then Cells(13, 最終の列).Value = "中島入金"
	If CheckBox13.Value = True Then Cells(14, 最終の列).Value = "高井入金"
	If CheckBox14.Value = True Then Cells(15, 最終の列).Value = "中村入金"
	If CheckBox15.Value = True Then Cells(16, 最終の列).Value = "中浦入金"
	If CheckBox16.Value = True Then Cells(17, 最終の列).Value = "宮原入金"
	If CheckBox17.Value = True Then Cells(18, 最終の列).Value = "江藤入金"
	If CheckBox18.Value = True Then Cells(19, 最終の列).Value = "都留入金"
	If CheckBox19.Value = True Then Cells(20, 最終の列).Value = "布谷入金"
	If CheckBox20.Value = True Then Cells(21, 最終の列).Value = "若林入金"
	If CheckBox21.Value = True Then Cells(22, 最終の列).Value = "山木入金"
	If CheckBox22.Value = True Then Cells(23, 最終の列).Value = "藤原入金"
	If CheckBox23.Value = True Then Cells(24, 最終の列).Value = "増田入金"
	If CheckBox24.Value = True Then Cells(25, 最終の列).Value = "城野入金"
	Controls("CheckBox" & 番号) = False　　 'CheckBoxのチェックを外す
	Next
	TextBox1.Text = ""    'テキストボックスの入力分を削除する	←Next　の中ナカに記述キジュツすると日付ヒヅケが空白クウハクになる。
	End Sub
2022/7/9	罫線ケイセン引ヒき、拡大カクダイ縮小シュクショウ無ナし、縦タテ横ヨコ1ページ、水平スイヘイ方向ホウコウ中央チュウオウ、印刷インサツプレビュー表示ヒョウジする	PagesetUPはWorksheetのプロパティ。
	Sub innsatu_2()	以下イカでもOK
	Range("B5").CurrentRegion.Select	'Dim saisyuugyou
	Selection.Borders.LineStyle = True	'saisyuugyou = Cells(Rows.Count, 7).End(xlUp).Row
	With ActiveSheet.PageSetup	'Range(Cells(5, 2), Cells(saisyuugyou, 7)).Select
	.Zoom = False	ZoomをOFにする（Falseにする）
	.FitToPagesWide = 1
	.FitToPagesTall = 1	FOM第ダイ5章ショウ　P173辺アタりに記載キサイ。
	.FitToPagesWide = 1
	.CenterHorizontally = True
	End With
	Range("A1").Select
	ActiveSheet.PrintPreview
	End Sub
2022/6/30	Range("A2") = ActiveCell.Row	A2にアクティブセル値アタイを入イれる
	Cells.Rows.Count	全ゼン行ギョウ数スウを数カゾえる。特定トクテイの部分ブブンの行数ギョウスウでは無ナい。cellsで全ゼンセルが選択センタクできる。
	cells.select	全部ゼンブのセルを選択センタクする
	MsgBox Cells(Rows.Count, 3).End(xlUp).Row	3列目レツメ1048576行ギョウ目メから数カゾえ上アげて入力ニュウリョク済スみの行番号ギョウバンゴウを表示ヒョウジする
2022/6/23	ActiveCell.Offset(1, 0).Resize(14#).Select	Resizeの時トキ、一列イチレツ(その列レツ）だけの時トキは「#」を入イれる。「0」にするとえらーに。
2022/5/15	Sub 色検索_22()	オートフィルタを使ツカうマクロ
	iro = InputBox("iro ha?" & vbCrLf & "赤・白・ロゼで")	FOM第ダイ5章ショウ　商品ショウヒンリスト
	If iro = "赤" Or iro = "白" Or iro = "ロゼ" Then	テキストでは赤白アカシロロゼ以外イガイの時トキの対応タイオウは無ナし。
	Range("$B$5:$G$24").Select
	Selection.AutoFilter
	ActiveSheet.Range("$B$5:$G$24").AutoFilter Field:=3, Criteria1:=iro	数字スウジの「1」、「l」ではない
	Else	ActiveSheet.Range("$B$5:$G$24").AutoFilter 3,iro　でも動ウゴく。
	Exit Sub	↑「Field:=」や「Criteria1:=」は名前ナマエ付ツき引数ヒキスウ
	End If
	End Sub
2022/6/15	1004エラー（アプリケーション定義またはオブジェクト定義のエラーです）
	ケース１：Cellsの指定ミス
	ケース２：Rangeの範囲指定ミス
2022/6/12	If Range("A1") = "a" Or Range("A1") = "b" Or Range("A1") = "c" Then	A1が「a,b,c」以外イガイはマクロを停止テイシする
	Range("A2") = "OK"
	Else
	Exit Sub
	End If
	End Sub
2022/6/10	改行カイギョウする時トキ	ExcelではvbLf（VBAやエクセルで使う）
	iro = InputBox("iro ?" & vbCrLf & "赤、白、ロゼを選ぶ")	メモ帳ではvbCrLf　(あまり使ツカわない）
		https://daitaideit.com/vba-vbcrlf/
2022/6/2	Sub 終わる0601()
	Dim 警告
	警告 = MsgBox("owaru-OK?", vbOKCancel, "owaru")
	If 警告 = vbOK Then
	Application.Quit	アプリを終オわる
	Else
	Exit Sub	終オわらないとき，エラーにならないよう、VBAを終オわらせないようにする。
	End If
	End Sub
2022/5/18	Sub ruikei_2()　’FOM_VBAのP149練習問題レンシュウモンダイ4
	dim kei
	Range("C6").Select
	kei = 0	'kei=0 を書カいておくとわかりやすい
	Do While ActiveCell.Value <> ""
	kei = kei + ActiveCell.Value	'一イッ回目カイメのD6の値アタイ→「0+C6（32,500）→32,500」
	ActiveCell.Offset(0, 1).Value = kei	’2回目カイメのD7の値アタイ→「32500+C7(27,030)→59,530」
	ActiveCell.Offset(1, 0).Select
	Loop
	End Sub
2022/5/17	Sub 行()	初心者でもわかるExcelマクロ入門！ 回数を指定する繰り返し処理をマスター（ダイヤモンド・オンライン） - Yahoo!ニュース
	Range("1:1").Select
	Do
	Selection.Insert
	Selection.Offset(2, 0).Select	Range("1:1").Select　で行選択ギョウセンタクしてもOffset(2,0)で2行ギョウ下シタが選択センタクできる。
	i = i + 1
	Loop Until i = 3	Do　while　では最初サイショに条件ジョウケン非ヒ成立セイリツのため動ウゴかない
	End Sub
2022/5/16	Sub kekka()
	Dim i
	'For i = 1 To 5	Range("E6").Select　の前マエに来クるとうまく動ウゴかない
	Range("E6").Select
	For i = 1 To 5
	If ActiveCell.Offset(0, -1).Value >= 80 Then
	ActiveCell.Value = "OK"
	Else
	ActiveCell.Value = "NO"
	End If
	ActiveCell.Offset(1, 0).Select
	Next
	End Sub
2022/5/16	1行挿入ギョウソウニュウ	VBAで行挿入を行う:ExcelVBA Rangeオブジェクト/行・列を表すRange (relief.jp)
	Selection.Insert　または　Rows(10).Insert	「Rows(row_a & ":" & row_z)」は「Rows("10:15")」と同オナじ意味イミ
	(選択行センタクギョウに1行挿入ギョウソウニュウ、10行ギョウに1行挿入ギョウソウニュウ	（↑「 row_a, row_z」は変数ヘンスウrow_a =10, row_b =15)
2022/5/11	グラフ作ツクる　AddChart2はExcel2013からのコード
	ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
	297とxlColumnStackedはセット。数値スウチが不明フメイ時ジは「-1」または省略ショウリャク。ただし、xlColumnStackedの前マエに「,」がいる。
2022/5/21	Sub sakujyo()   'グラフを削除する
	'先にグラフを選択しておくこと
	ActiveChart.Parent.Delete
	End Sub
2022/5/11	select case の書式ショシキ
	Select Case Range("F5").Value
	Case "縦棒"
	種類 = xlColumnClustered
	End Select
2022/5/9	無限ムゲンループから抜ヌけ出ダす
	Ctrl + Pause　を押オすとデバッグや終了シュウリョウが選エラべる
2022/5/7	Sub msi()
	Dim i
	For i = 1 To 3
	MsgBox "qqq"	msgbox に「i」が含フクまれて無ナくてもFor で指定シテイしているので3回カイ繰クり返カエす
	Next
	End Sub
2022/5/7	Sub kurikaesi()	入力ニュウリョク済ズみセルが有アる間アイダ、「○kai」の表示ヒョウジを繰クり返カエす（1kai、2kai、3kai・・・）
	Dim i
	i = 1	まず変数ヘンスウ「1」をセット
	Cells(7, 3).Select
	Do While ActiveCell.Value <> ""	1つ目メのアクティブセルが入力ニュウリョク済ズみの時トキ
	MsgBox i & "kai"	「1」kai　と表示ヒョウジ、activecell.offfset の後アトでも同オナじ動作ドウサする
	i = i + 1	1回目カイメの表示後ヒョウジゴ、変数ヘンスウ「i」に何ナン回目カイメかをセット
	ActiveCell.Offset(0, 1).Select
	Loop
	End Sub
2022/5/5	Sub 値アタイ減ヘらす()
	Dim i
	Cells(16, 3).Select
	For i = 300 To 100 Step -50	'For i = 100 To 300 Step -50 エラーになる
	ActiveCell.Value = i
	ActiveCell.Offset(0, 1).Select
	Next
	End Sub
2021/5/3	Sub kurikasi()
	Dim i
	Cells(15, 3).Select	セルを指定シテイしないときは､アクティブセルから右ミギに数値スウチが入ハイる。
	For i = 100 To 300 Step 50
	ActiveCell.Value = i
	ActiveCell.Offset(0, 1).Select
	Next
	End Sub
2021/5/3	ActiveWindow.DisplayGridlines = True	←目盛メモり線セン表示ヒョウジ（HTMLで保存ホゾンしたらマクロは保存出来ホゾンデキない）クイックアクセスに入イれた
2021/5/1	Sub point()
	Range("J16").Select
	Do While ActiveCell.Value <> ""
	Select Case ActiveCell.Value
	Case Is >= 1000
	ActiveCell.Offset(0, -1).Value = "syouhinnken"
	Case Is >= 800
	ActiveCell.Offset(0, -1).Value = "tosytoken"
	End Select
	ActiveCell.Offset(1, 0).Select	End とLoopの間アイダに入イれること。でないとアクティブセルが下シタへ動ウゴかない。
	Loop	500、200は割愛カツアイ
	End Sub
2021/4/16	Sub A1からC9へとぶ()	FOMのP.82
	Range("A1").Offset(8, 2).Select	左ヒダリ、上ウエの時トキは「マイナス-」を指定シテイする
	End Sub	自分ジブンを基準キジュンにするので自分ジブンからいくつ移動イドウするかを指定シテイする。
2021/4/16	Sub セル選択と行番号行数()	FOMのP.81
	Range("B5").End(xlToRight).Select	B5の右ミギ末端マッタンセルを選択センタク
	MsgBox Range("F5,F6").Row	F5：F6の行番号ギョウバンゴウを求モトめるのはRow。列番号レツバンゴウはColumn
	MsgBox Range("a5:f5").Columns.Count	A5:F5の列レツ数スウを求モトめる
	End Sub
2021/4/6	Sub 行選択()	PERSONAL.XLSB-モジュール1　にあり
	Range(Rows(3), Rows(4)).Interior.ColorIndex = 1	赤字アカジのどちらでも3～4行ギョウ塗ヌりつぶして選択センタクできる
	Rows("3:4").Select
	End Sub
2021/4/6	Sub 塗り潰し無し()	PERSONAL.XLSB-モジュール1　にあり
	Selection.Interior.ColorIndex = 0
	End Sub
2021/4/6	Sub 列を選択する()
	Range(Columns(14), Columns(15)).Interior.Color = RGB(100, 100, 10)	'N~O列選択
	Columns(7).Interior.ColorIndex = 9	'G列選択
	Columns("H:I").Interior.ColorIndex = 3	'H~I列レツ選択センタク
	Range(Columns("K"), Columns("K")).Interior.ColorIndex = 12	'K列選択　Columns("K:K").Interior.ColorIndex = 9でもOK
	End Sub
2021/4/5	セル範囲ハンイの指定シテイ方法ホウホウのキャプチャ
2021/4/4	Range("")で表アラワした範囲ハンイ
	Sub 範囲選択()
	Range("B2", "C5").Borders.LineStyle = True	'B2：C5を返す→range("B2：C5")　または　range("B2","C5")
	Range("B2:C5").Borders.LineStyle = False	'B2：C5を返す→range("B2：C5")　または　range("B2","C5")
	Range("B3,C5").Interior.ColorIndex = 3	' B3とC5を返す→range("B3,C5")
	End Sub
2021/4/3	Sub 列行選択ギョウセンタク()	【エクセルVBA】指定範囲をコピー&ペーストする - ISA PC SCHOOL Official Blog (isa-school.net)
	Range("1:3").Interior.ColorIndex = 3	1～3行目ギョウメ選択センタク
	Range("A:C").Interior.ColorIndex = 5	A~C列選択レツセンタク
	End Sub	あああ
2021/4/3	Sub kopi()	【エクセルVBA】指定範囲をコピー&ペーストする - ISA PC SCHOOL Official Blog (isa-school.net)
	Range("b2").Copy Range("C2")	Range("b2").Copy Destination:= Range("C2")
	End Sub	Copyメソッドの引数はDestinationだけで、既定の引数になっているので省略可能
2021/4/2	Sub ねこ()　　'画像ガゾウの挿入ソウニュウ	For i で回数カイスウを指定シテイするとき、ForとNextの間アイダに「i」なしでも指定シテイした回数カイスウを繰クり返カエす
	For i = 1 To 3
	ActiveSheet.Pictures.Insert("C:\Users\tomoko\Desktop\招き猫小.jpg").Select
	Cells(i, 2).Select
	Next
	End Sub
2021/4/2	Option Explicitが出デない。ツールー変数ヘンスウ宣言センゲンにチェック入イれる
	それでも出デないときは、「Option Explicit」とトップに入力ニュウリョク→dim・・・エンターで共通キョウツウdimが入ハイる
2021/4/2	Sub 猫入れる()
	Pictures.Insert ("C:\Users\tomoko\Desktop\招き猫小.jpg")
	End Sub
2021/4/2	Sub 線を引く()	FMO P.71～75
	With Selection.Borders	Borders.LineStyle=True でセルの周囲シュウイすべてに線センを引ヒく
	.LineStyle = xlDouble	Borders.LineStyle=False でセルの周囲シュウイすべてに線センを削除サクジョ
	.Color = vbRed
	End With
	End Sub
2021/3/30	Sub 選択範囲の周りに罫線を引く()    '21/3/30	FOM P.71　以降イコウに罫線ケイセン関連カンレン掲載ケイサイあり
	Selection.BorderAround LineStyle:=xlDouble	LineStyleとWeight動ドウじに指定シテイすると一方イッポウが引ヒかれる
	End Sub
2021/3/30	sub 選択範囲の周りに太フトい罫線を引く()	xlContinous →一重線イチジュウセン、xlLineStyleNone→線無センナし
	Selection.BorderAround Weight:=xlThick　’一重太線を引く	xlCouble→二重線ニジュウセン、xlDash→破線ハセン、xlDot→点線テンセンなど
	End Sub
2021/3/30	Sub 各セル左右上下罫線一括で二重線ニジュウセン引く()
	Selection.Borders.LineStyle = xlDouble
	End Sub
2021/3/31	Sub 罫線一括で消す_各セル上下左右()
	Selection.Borders.LineStyle = False	'xlNoneでもOK
	End Sub
2021/3/30	Sub 全ゼンセル選択センタク()
	Cells.Select
	End Sub
2021/3/29	Sub 選択行_セル削除()	'離ハナれたセル･行ギョウを選択センタクしたら一度イチドに削除サクジョできる
	Selection.Delete Shift:=xlUp
	Range("A1").Select
	End Sub
2021/3/27	複数フクスウ行ギョウ、列レツ選択センタク
	Range(Rows(1), Rows(3)).Select	1-3行選択
	Range(Columns(1), Columns(3)).Select	1-3列レツ選択センタク
2021/4/3	Sub 上へ複数行挿入()	PERSONALのモジュール1にあり
	Dim i, n	'セルを選択センタクしていても挿入ソウニュウできる
	n = InputBox("追加する行数")
	i = ActiveCell.Cells.Row
	Rows(i).Copy	条件付ジョウケンツき書式ショシキを新アタラしい行ギョウにも設定セッテイするためコピーする
	Rows(i & ":" & i + n - 1).Insert	選択センタクした行ギョウから挿入ソウニュウ希望キボウ行数ギョウスウを挿入ソウニュウするが
	Rows(i & ":" & i + n - 1).Select	「 i & ":" & n 」にするとおかしくなるので「i+n-1」
	With Selection
	.PasteSpecial xlPasteAllMergingConditionalFormats	条件付ジョウケンツき書式ショシキを貼ハり付ツける
	.ClearContents	コピーしたセルのデータを削除サクジョ
	.Interior.ColorIndex = 0
	.Font.Bold = False
	.HorizontalAlignment = xlGeneral
	.Font.ColorIndex = xlAutomatic
	.Font.Size = 11
	End With
	Cells(i, 1).Select
	End Sub
2021/3/27	Sub 上へ複数行挿入()	PERSONALのモジュール1にあり
	Dim i, n	'セルを選択センタクしていても挿入ソウニュウできる
	n = InputBox("追加する行数")
	i = ActiveCell.Cells.Row
	Rows(i & ":" & i + n - 1).Insert	選択センタクした行ギョウから挿入ソウニュウ希望キボウ行数ギョウスウを挿入ソウニュウするが
	Rows(i & ":" & i + n - 1).Select	「 i & ":" & n 」にするとおかしくなるので「i+n-1」
	With Selection
	.Interior.ColorIndex = 0
	.Font.Bold = False
	’’ .NumberFormatLocal = "G/標準"	ユーザー書式ショシキや入力ニュウリョク規則キソクが消キえるので取トり消ケす。
	.HorizontalAlignment = xlGeneral
	.Font.ColorIndex = xlAutomatic
	.Font.Size = 11
	End With
	Cells(i, 1).Select
	End Sub
2021/3/27	Sub 上へ複数行追加()
	Dim i, n
	i = ActiveCell.Cells.Row
	n = InputBox("gyousuu")
	Rows(i & ":" & i + n - 1).Insert
	End Sub
2021/3/25	Sub 上へ1行挿入()	PERSONALのモジュール1にあり
	Dim i
	i = ActiveCell.Cells.Row
	Rows(i).Select
	Selection.Insert Shift:=xlDown	Shift:=xlDown　なくても動ウゴくらしい
	Rows(i).Select
	With Selection
	.Interior.ColorIndex = 0
	.Font.Bold = False
	.NumberFormatLocal = "G/標準"
	.HorizontalAlignment = xlGeneral	←水平位置のデフォルトの値は「xlGeneral」
	.Font.ColorIndex = xlAutomatic
	.Font.Size = 11
	End With
	Cells(i, 1).Select
	End Sub
2021/3/25	Sub セル周囲シュウイに普通フツウの線センを引ヒく()	Selection.BorderAround LineStyle:=True　でもOK
	Selection.Borders.LineStyle = True	FOM P71
	''周囲に線が引かれる
	End Sub
2021/3/23	Sub 全選択と解除()	0
	Cells.Select        'セル全選択
	'ActiveCell.Select   全選択セル解除→A1選択
	MsgBox ActiveCell.Cells.Row
	'アクティブセルA1の行番号取得
	End Sub
2021/3/23	Sub 一行削除()
	Dim i
	i = ActiveCell.Row	一行イチギョウの行番号ギョウバンゴウを引ヒき出ダすときは　Row
	'↑ アクティブセルの行番号ギョウバンゴウ取得シュトク	一列イチレツの列番号レツバンゴウを引ヒき出ダすときは　Column
	Rows(i).Select
	Selection.Delete Shift:=xlUp
	Range("A1").Select
	End Sub
2021/3/23	Sub 行数える()
	'A3:B6の行数数える→4
	MsgBox Range("a3:b6").Rows.Count
	Range("a1").Select
	'選択セルの行数数える
	MsgBox Selection.Rows.Count
	End Sub
2021/3/23	Sub 行数える2()
	'A3:B6の行数数える→4
	Range("a3:b6").Select
	'選択セルの行数数える
	MsgBox Selection.Rows.Count
	End Sub
2021/3/23	Sub 選択した行数数えてA1に代入()
	Dim i
	'「i」は選択部分の行数　（例レイ　D1:E5とする）
	Cells(1, 1) = Selection.Rows.Count	選択センタク部分ブブンの行数ギョウスウを数カゾえ、A1に行数ギョウスウ 5 入イれる
	i = Selection.Rows.Count	数カゾえた行数ギョウスウ 5 を i に代入ダイニュウ
	Cells(i, 2) = i	B5に行数ギョウスウ 5 を入イれる
	'B列の選択行数のセルに行数を代入
	End Sub
2021/9/1	最下行サイカギョウ(トップ）を選エラぶ(一体型イッタイガタパソ)→Ctrl+Fn+End（Home)
2022/2/6	Columns,rows	Range以外の指定方法（Cells,Rows,Columns）｜VBA入門 (excel-ubara.com)
	Rows(5)　　5行目の行全体になります。
	Rows("1:5")　　1～5行の5行分全体の範囲
	Columns(3)　　C列の全体になります	Column→列番号が取れる、Columuns（）→何列目の列全体を指定する
	数値指定の場合は複数列の指定はできません
	Columns("A:C")　　A列～C列の3列の指定