ブック パス フルパス ファイル名
土曜日, 2月 8th, 2020' ブックのフォルダまでのパス
msgbox ThisWorkbook.Path
' ブックのファイル名までのパス
msgbox ThisWorkbook.FullName
' ブックのフォルダまでのパス
msgbox ThisWorkbook.Path
' ブックのファイル名までのパス
msgbox ThisWorkbook.FullName
●Office アンインストール サポート ツール
オプション2
●手動でアンインストール
1.インストールの種類(クイック/MSI/ストアアプリ)を特定
2.それぞれの手順でアンインストール
●Easy Fix ツール(015CTRRemove)
プログラムのアンインストールでは完全にアンインストールできず
・スタートメニューに残る
・別バージョンをインストールできない
・アンインストールしたはずのOfficeがなぜか起動する
●32ビット版のインストール
その他のインストール オプション
●メールをワンクリックで移動
ホーム>クイック操作に登録
●定型メールをワンクリック作成
ホーム>クイック操作>新規作成>メッセージの作成
●あいさつの始まりと〆は署名に登録
いつもお世話になっております。〇〇です。
よろしくお願い致します。
●ショートカット作成
mailto:xxx@xxx
よく使う単語やフレーズは「単語登録」
●設定を変更して新規はすべてのその設定で作成
ファイル>オプション>メール>メッセージの作成:次の形式でメッセージを作成する>
HTML形式/リッチ テキスト形式/テキスト形式
●今書いてるメールだけ形式を変更
書式設定>HTML/テキスト/リッチ テキスト
Const str削除文字列 As String = "削除文字列"
Selection.Replace What:=str削除文字列, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
構文 Object.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte) 設定項目 内容 Object Rangeオブジェクト What 検索するデータを指定します [省略不可] Replacement 検索したデータを置き換える文字列を指定します [省略不可] LookAt 完全に同一なセルだけを検索(xlWhole)、 一部分でも一致するセルの検索(xlPart)[省略可能] SeachOrder 検索方向を指定します。列方向に検索する(xlByColumns)、 行方向に検索する(xlByRows)[省略可能] MatchCase 大文字と小文字を区別する(True)、区別しない(False)[省略可能] MatchByte 半角と全角を区別する(True)、区別しない(False)[省略可能]
replaceFormat 検索条件に一致するセルの書式を設定するときにTrueを設定
Function 逆順(単セル As Range)
Dim i As Integer
If 単セル.Count = 1 Then
For i = Len(単セル) To 1 Step -1
逆順 = 逆順 & Mid(単セル, i, 1)
Next i
Else
逆順 = "引数は1つのセルを選んでね"
End If
End Function
標準フォント
2013:MS Pゴシック
2016:遊ゴシック
ブックで使われる標準フォントはブックごとに設定(記録)されているので新規作成分から反映
ファイル>オプション>基本設定>新しいブックの作成時
次を規定のフォントとして使用:Meiryo UI
フォントサイズ:9
ただしオートシェイプやグラフ内の文字には反映されない→テンプレートで対応?
Sub r折り返し()
If ActiveCell.WrapText = False Then
Selection.WrapText = True
Selection.EntireRow.AutoFit
Else
Selection.WrapText = False
End If
End Sub