記事一覧
ワークシート作りすぎた。明細知りたいときのマクロ(一覧表示できるよ)
Sub ワークシート名書き出し()
Dim 索引 As Long '変数「索引」を宣言
MsgBox "ワークシートの数は" & Worksheets.Count & "です"
For 索引 = 1 To Worksheets.Count '変数「索引」に1~ワークシート全数を代入、分繰り返し
Cells(索引, 2) = Worksheets(索引).Name 'ワークシー
シートが多すぎて、移動するためのマクロ(シートのインデックス番号を入力)
Sub 該当シートを選択()
Dim i As Varianti = Application.InputBox(prompt:="数字を入力してください", Type:=1)If i = False ThenExit SubElseThisWorkbook.Sheets(i).ActivateEnd If
End Sub
テンプレートのシートをリスト分コピーするマクロ
Option Explicit
Sub CreateSheets()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("リスト")
Set ws2 = ThisWorkbook.Worksheets("テンプレート")
Dim cmax1 As Longcmax1 = ws1.Range("a65
向田邦子の「阿修羅のごとく」という1970年代から80年代初期のドラマを見た。両親そして兄弟との距離の取り方が参考になった。私はいい歳して依存しすぎ(連絡)取りすぎだったと思う。
ひょんなことから、ソフトボールはじめました。
#ソフトボール初心者大人