砧川製作備忘帳

【1】[ 設定 ] ＞ [ アプリ ] ＞ [ Google Play開発者サービス ] をタップ。

「~=☆」

「~=（チルダイコール）」の後ろに「☆」をつけた「~=☆」で検索してみます。

「完全シャットダウン」

完全シャットダウンの手順 http://freesoft.tvbok.com/win10/operation/complete_shutdown.html

有線LANで接続している場合、この手順で問題が解消するケースが大半です。

Excel のユーザー情報を消して右クリックを復活させるまでの手順

C:\Users\[ユーザー]\AppData\Roaming\Microsoft\Excel\XLSTART フォルダ内のファイルを全て削除

C:\Users\[ユーザー]\AppData\Local\Microsoft\Office\Excel.officeUI ファイルを削除

レジストリエディタを起動

スタートメニューの「プログラムとファイルの検索」に「regedit」と入力して起動します。

以下のパスまで移動(14.0 は Office 2010 のバージョン)

HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Options

Options フォルダを右クリックして「エクスポート」

これがバックアップの代わりです。

Options フォルダを丸ごと削除します。

Excel を再起動して完了

・タブレットの設定の「ペン」のタブにある「座標検出モード」で「ペンモード」の「マッピング」設定を開く

・「デジタルインク機能を使う」のチェックを外す

ずーっといちいちコピペしてたのがこれのおかげで助かりました（もっと早く調べればよかった

同じフォルダに「ファイル名_シート名.xlsx」で保存します。下記コードのコピペで動くと思われます。（注意：同名のファイルがあった場合は強制的に上書きされます）

Sub シート毎にファイルを分割()    Dim s, i, n1, n2, j, rc    Dim wb1 As Workbook    Dim st As Worksheet

       On Error GoTo myError

   Set wb1 = ActiveWorkbook    s = wb1.Sheets.Count

   rc = MsgBox(s & "枚のシートを分割します。※同名のファイルがあった場合は上書きします", vbYesNo + vbQuestion, "確認")

   If rc = vbYes Then

       Application.ScreenUpdating = False        Application.DisplayAlerts = False

       For i = 1 To s

           n1 = Left(wb1.Name, InStr(wb1.Name, ".") - 1) & "_" & wb1.Worksheets(i).Name            n2 = wb1.Worksheets(i).Name            Workbooks.Add.SaveAs Filename:=n1 & ".xlsx"            wb1.Worksheets(i).Copy before:=Workbooks(n1 & ".xlsx").Worksheets(1)            For j = Worksheets.Count To 1 Step -1                If WorksheetFunction.CountA(Worksheets(j).UsedRange) = 0 Then                    If Worksheets.Count > 1 Then Worksheets(j).Delete                End If            Next j            Workbooks(n1 & ".xlsx").Worksheets(1).Name = n2

           ActiveWorkbook.Save            ActiveWorkbook.Close

       Next i

       Application.DisplayAlerts = True        Application.ScreenUpdating = True

       MsgBox "分割が終了しました。"

       Exit Sub

   Else

       MsgBox "キャンセルしました。"

   End If

myError:    Application.DisplayAlerts = True    Application.ScreenUpdating = True    MsgBox "処理を中断しました", vbExclamation

End Sub

＜参考にしたリンク先＞

http://oshiete.goo.ne.jp/qa/4011163.html （ここの回答のコードを元にしました）

http://www.moug.net/tech/exvba/0060031.html （ファイル名の取得方法を参考にしました）

http://www.relief.jp/itnote/archives/001841.php （不要なシートの削除方法を参考にしました）

http://officetanaka.net/excel/vba/tips/tips104.htm （エラー処理の方法を参考にしました）

この事象ですが、日本語補助フォントによるものでは無いようです。

フォントフォルダに『msgothic.ttc』と『msgothic_0.ttc』が混在していると起こるようです。 両ファイルともフォントバージョンは変わりないのですが、タイムスタンプとファイルサイズが異なっています。 (前者が2015/10/31、後者が2001/08/27)

解決策としてレジストリを変更することで文字化けを直すことが出来ますが、システム部分に変更を加えることになるので自信の無い方はお勧めできかねます。 以下に方法を記載ますので、自己責任で行ってください。 私はこの方法で解決できました。

①タスクバーの 『WebとWindowsを検索』の所へ『rededit』とタイプして、レジストリエディタを起動して下さい。 ② レジストリエディタのウインドウ内左側に表示されるツリーから以下の場所を探してください 　⇒ HKLM\SOFTWARE\Microsoft\Windows NT\CurrantVersion\Fonts　(HKLMは、[HK]EY_[L]OCAL_[M]ACHINEの括弧部分の略です) ③ ウインドウ内右側にインストール済のフォント群が表示されますので画像にある部分を変更して下さい。 　値の変更はキーをダブルクリックか、右クリックでメニューを出し値の変更を選ぶ。 キャプチャ2.PNG ④ 変更したらレジストリエディタを閉じて、Windowsを再起動してください。 ⑤ 念のためWindowsのフォントフォルダから『msgothic_0.ttc』を削除（もしくは他のドライブやフォルダへバックアップする)

推測ですが、古いシステムフォントファイルを参照してしまうが為に新しいシステムフォントファイルが存在していると混在して化けてしまうのではと思います。 これはどちらかというとOS側の問題なのかな？と。 手段としては、やや強行ではありますが解決手段の参考になれば幸いです。

ブレークポイントを変なふうに削除しちゃうとこうなる

エクスプローラのアドレスバーに

shell:::{22877A6D-37A1-461A-91B0-DBDA5AAEBC99}

を入れてエンターで、「最近表示した場所」が開くはず。それを、「クイックアクセス」にピン留めする。