• Wordのスタイルセット、テンプレート、目次
• Word見出しに番号を振る
• Word2013図表番号
• Word2013ページ番号
• Excel参照を固定する
• Excel 間接参照する
• Excel 書式 指数表示でE-3,E-6とかにする
• Excel 画像を小さく
• 外部参照(リンク)を検索する
• Excel見えているセルだけを選択
• Excel vlookup 空文字列が0になる対策
• Excel vlookup キーで検索して値を取得したい場合
• Excel countif セルに文字を含むかどうか
• 差し込み印刷
• Officeクリップボードを無効化
• Word行間隔を狭くする
• Excel目次生成マクロ
  • 使い方
  • 登録
  • 実行
  • ソース
• 統計表における機械判読可能なデータ作成に関する表記方法
• Excelカーソルキーを操作するとスクロールする
• パワーポイントでページ番号をフッターに入れる
• パワーポイントですべての背景に画像を入れる

=INDIRECT(A1)

=INDIRECT("B"&F2)

##0.0E+0

=COUNTIF(A1,*test")

HKey_CURRENT_USER\Software\Microsoft\Office\16.0\Common\General

 '目次作成マクロ V001
 Private Const str_start = "目次"
 Private Const str_end = "目次ここまで"

 Sub AddIndexChar()
     '■
     'A列の文字列の左側に#を付加するマクロ
     '
     '付加しない条件
     '   1行目
     '   文字列「目次」
     '   文字列「目次ここまで」よりも前の行
     '   文字列先頭に"#"がある
     '   文字列先頭に"http"がある

     Application.ScreenUpdating = False

     '------------------------------------
     '最終行を取得
     '------------------------------------
     Cells(Rows.Count, 1).End(xlUp).Select
     Dim row_end As Long
     row_end = ActiveCell.Row

     '------------------------------------
     'str_endの行を取得
     '------------------------------------
     index_end_y = -1
     For y = 1 To row_end
         line = Cells(y, 1)
         If line = str_end Then
             index_end_y = y
             Exit For
         End If
     Next y

     If index_end_y = -1 Then
         index_end_y = 2
         'MsgBox "「" & str_end & "」がありません"
         'Exit Sub
     End If

     '------------------------------------
     '目次行数を取得
     '------------------5------------------
     For y = index_end_y + 1 To row_end
         line = Cells(y, 1)
         If (line <> "") And (InStr(line, "#") = 0) And (InStr(line, "http") <> 1) And (line <> str_start) And (line <> str_end) Then
             Cells(y, 1) = "#" & line
         End If
     Next y

     '先頭へ移動
     Application.ScreenUpdating = True
     Cells(1, 1).Select
     DoEvents
 End Sub


 Sub InsertIndex()
     '■
     '目次作成マクロ
     '
     '■使い方
     '1.目次を挿入したい場所に、「目次」,「目次ここまで」を記述する。(2行)
     '2.目次にしたい行の文字列先頭に"#"を付ける(1列目のみ)
     '3.マクロを実行
     '
     '制限
     '1.1行目は目次の見出しにはしない

     '■処理
     'index_start～index_endの間を削除
     '目次行数取得
     'index_start～index_endに目次分の空行を挿入
     'index_start～index_endに目次のハイパーリンクを作成

     Application.ScreenUpdating = False

     '------------------------------------
     '最終行を取得
     '------------------------------------
     Cells(Rows.Count, 1).End(xlUp).Select
     Dim row_end As Long
     row_end = ActiveCell.Row

     '------------------------------------
     'index_startの行を取得
     'index_endの行を取得
     '------------------------------------
     index_start_y = -1
     index_end_y = -1
     For y = 1 To row_end
         line = Cells(y, 1)
         If line = str_start Then
             index_start_y = y
         End If

         If line = str_end Then
             index_end_y = y
             Exit For
         End If
     Next y

     If index_start_y = -1 Then
         MsgBox "「" & str_start & "」がありません"
         Exit Sub
     End If

     If index_end_y = -1 Then
         MsgBox "「" & str_end & "」がありません"
         Exit Sub
     End If

     '------------------------------------
     '既存の目次を一旦削除
     '------------------------------------
     For y = index_start_y + 1 To index_end_y - 1
         Cells(index_start_y + 1, 1).EntireRow.Delete
     Next y

     '------------------------------------
     '目次行数を取得
     '------------------------------------
     index_num = 0
     For y = index_start_y To row_end
         line = Cells(y, 1)
         If InStr(line, "#") = 1 Then
             index_num = index_num + 1
         End If
     Next y

     If index_num <= 0 Then
         MsgBox "見出し指定「#」がありません"
         Exit Sub
     End If

     '------------------------------------
     '目次挿入する行を挿入
     '------------------------------------
     For y = 1 To index_num
         Rows(index_start_y + 1).Insert
     Next y

     row_end = row_end + index_num

     '------------------------------------
     '目次を作成
     '------------------------------------
     index_x = 1
     index_y = index_start_y + 1

     For y = index_start_y + 2 To row_end
         line = Cells(y, 1)
         If InStr(line, "#") = 1 Then
             Cells(index_y, index_x) = line ' 見出し
             ActiveSheet.Hyperlinks.Add Anchor:=Cells(index_y, index_x), Address:="", SubAddress:="A" & y
             index_y = index_y + 1
         End If
     Next y

     '------------------------------------
     '目次先頭へ移動
     '------------------------------------
     Application.ScreenUpdating = True
     Cells(index_start_y, 1).Select
     DoEvents
 End Sub

• セル結合するな
• 改行するな
• 1セル1データ(改行して2個とかいれない)
• 空白で見た目そろえるな(空白は入力するな)
• 1シート1表にしろ