セルの書式設定で「yyyy"年"mm"月"dd"日"」に設定し、
「2018/6/18」を表示した場合、
値は「2018/6/18」だが表示は「2018年06月18日」となる。

ここでこのセルを「.Value」で取得すると値の「2018/6/18」となるが、
「2018年06月18日」として取得したい場合。

「.Text」を使えばよい。

  セル.Value  →  「2018/6/18」
  セル.Text   →  「2018年06月18日」

ActiveXコントロールのボタンのキャプションを変えると
VBAエディタ画面の表示がずれる(プロポーショナルっぽくなる)現象に遭遇。

原因はよくわからず、開発途中に何らかの理由で壊れたようなので
昔の正常だった状態に戻して(そこから差分を追加して)復旧した。

現象的には以下の通り。
・あるボタンをコピーして、文字サイズを変え、太字を標準に変えた
・そしてそのボタンのCaptionに値を入れて保存し、再度開くと現象が発生
  →どうやら起動時に内部イベントでエディタまでおかしくしてしまう模様
・文字サイズを元に戻し、太字に戻したら解消された
  →コピー元と差分があることにより、何らかの内部イベントが発生した？
・ボタンの表示が「ＭＳ ゴシック」から「ＭＳ 明朝」にしたら解消された
  →エディタ表示が「ＭＳ ゴシック」だからそれと関連してしまっていた？

ま、Excelが壊れてしまったら、復旧はあきらめて昔の状態からやり直すのが一番かも。

と思ったら、何かの拍子に再発してしまった。

そこで、メニューバー「ツール＞オプション」を起動。
┌──────────────────────────────────────┐
│オプション                                                                  │
├──────────────────────────────────────┤
│┌─┌────────┐─┐─┐                                            │
││  │エディターの設定│  │  │                                            │
│┌─┘                └─────────────────────────┐│
││┌コードの表示色───────────┐  フォント名                    ││
│││┌────────────────┐│  ┌───────────┬─┐││
││││標準コード                      ││  │ＭＳ ゴシック(日本語) │▼│││
│││└────────────────┘│  └───────────┴─┘││
│││前景        背景        インジケーター  サイズ                        ││
│││┌──┬─┐┌──┬─┐┌──┬─┐│  ┌──┬─┐                  ││
││││自動│▼││自動│▼││自動│▼││  │10  │▼│                  ││
│││└──┴─┘└──┴─┘└──┴─┘│  └──┴─┘                  ││
││└──────────────────┘                                ││
└──────────────────────────────────────┘
フォント名を一旦「ＭＳ 明朝(日本語)」にしてExcelを保存して閉じる。
その後、起動して「ＭＳ ゴシック(日本語)」に戻してExcelを保存して閉じたら
なんとか復活できた。

非表示からの～表示！
┌──────────────────────────────────────┐
│#target {                                                                   │
│    display             :none;                                              │
│}                                                                           │
├──────────────────────────────────────┤
│$('#target').show();                                                        │
└──────────────────────────────────────┘
表示からの～非表示！
┌──────────────────────────────────────┐
│#target {                                                                   │
│    display             :block;                                             │
│}                                                                           │
├──────────────────────────────────────┤
│$('#target').hide();                                                        │
└──────────────────────────────────────┘

┌──────────────────────────────────────┐
│div {                                                                       │
│    position            :absolute;                                          │
│    top                 :50%;                                               │
│    left                :50%;                                               │
│    height              :16px;                                              │
│    width               :160px;                                             │
│    margin-top          :-8px;                                              │
│    margin-left         :-80px;                                             │
│                                                                            │
│    font-size           :16px;                                              │
│}                                                                           │
├──────────────────────────────────────┤
│div {                                                                       │
│    position            :absolute;                                          │
│    top                 :50%;                                               │
│    left                :0;                                                 │
│    height              :16px;                                              │
│    width               :100%;                                              │
│    margin-top          :-8px;                                              │
│                                                                            │
│    font-size           :16px;                                              │
│    text-align          :center;                                            │
│}                                                                           │
└──────────────────────────────────────┘

┌─┬─┬─┬─┐
│  │  │  │  │
├─┌─┬─┬─┐
│  │a │b │c │  ┌───┐
├─├─┼─┼─┤  │a b c │
│  │d │e │f │→│d e f │
├─├─┼─┼─┤  │g h i │
│  │g │h │i │  └───┘
└─└─┴─┴─┘
セル範囲をテキストエディタに貼り付けて一つの文字列としたような変換のマクロ。
┌──────────────────────────────────────┐
│Const x始 As Long = 2, x終 As Long = 4                                      │
│Const y始 As Long = 2, y終 As Long = 4                                      │
├──────────────────────────────────────┤
│Sub 範囲を文字列に変換()                                                    │
│    Dim y As Long, 配列(y終 - y始) As String                                │
│    For y = y始 To y終                                                      │
│        配列(y - y始) = Join( _                                             │
│            WorksheetFunction.Index( _                                      │
│                Range(Cells(y, x始), Cells(y, x終)).Value, _                │
│                1, _                                                        │
│                0), _                                                       │
│            vbTab _                                                         │
│        )                                                                   │
│    Next y                                                                  │
│    MsgBox Join(配列, vbCrLf)                                               │
│End Sub                                                                     │
└──────────────────────────────────────┘

コンボボックスの表示と値を別にすると、Excelを閉じる時に
毎回当該ComboBoxのChangeイベントが発生してしまうので注意。

値  ＝BoundColumn＝.Value
表示＝TextColumn ＝.Text
の関係にあたるのだが、当該イベントにMsgBoxを仕込んで両者の値を確認してみると
.Text(表示)の値が.Value(値)の値に書き換わっている。

よって、.Textが値が変わったと見做して、Changeイベントが発生してしまうようだ。
(なんで.Textの値を変えるかは不明(事情があるのだろう、全体的にみればバグ？))

なので、コンボボックスの表示と値を別にするのはあまりよろしくないようだ。

┌─┬────┐
│ 1│織田信長│
├─┼────┤
│ 2│豊臣秀吉│
├─┼────┤
│ 3│徳川家康│
└─┴────┘
上記のようなテーブルを用意し、コンボボックス(プルダウンメニュー)を生成するが
画面上は右列(名前)だけしか表示せず、処理的には左列(ID)を扱いたい場合の設定方法。

プロパティを以下のように設定する。
  ┌──────────┬───────┬───┬─────────────┐
  │ComboBoxのプロパティ│ListFillRange │A1:B3 │リストの実体              │
  │                    ├───────┼───┼─────────────┤
  │                    │ColumnCount   │2     │2列有効                   │
  │                    ├───────┼───┼─────────────┤
  │                    │BoundColumn   │1     │(.Valueで)1列目の値を取得 │
  │                    ├───────┼───┼─────────────┤
  │                    │TextColumn    │2     │選択時に2列目の値を表示   │
  │                    ├───────┼───┼─────────────┤
  │                    │ListWidth     │0 pt  │1列目を非表示に           │
  └──────────┴───────┴───┴─────────────┘
そして、処理にて以下のように参照する。
    値を「ComboBox.Value」で取得
    (「ComboBox.List(ComboBox.ListIndex, 0)」でも取得可)

ExcelVBAでOutlookを使ってメールを送信するやり方。
┌──────────────────────────────────────┐
│' 事前に「ツール＞参照設定」で                                              │
│' 「Microsoft Outlook 14.0 Object Library」を追加しておく                   │
├──────────────────────────────────────┤
│' メールの生成                                                              │
│    Dim objOutlook As Outlook.Application                                   │
│    Dim objメール As Outlook.mailItem                                       │
│    Set objOutlook = CreateObject("Outlook.Application")                    │
│    Set objメール = objOutlook.CreateItem(olMailItem)                       │
│    objメール.BodyFormat = 1           ' プレーンテキスト                   │
│    objメール.To = "xxxx@xxxx.co.jp"   ' 宛先TO                             │
│    objメール.CC = "xxxx@xxxx.co.jp"   ' 宛先CC                             │
│    objメール.BCC = "xxxx@xxxx.co.jp"  ' 宛先BCC                            │
│    objメール.Subject = "件名"                                              │
│    objメール.Body = "本文"                                                 │
├──────────────────────────────────────┤
│' ファイルの添付                                                            │
│    Dim obj添付 As Outlook.Attachments                                      │
│    Set obj添付 = objメール.Attachments                                     │
│    obj添付.Add "C:\添付ファイル.txt"                                       │
├──────────────────────────────────────┤
│' メールの送信                                                              │
│''''objメール.Save      ' 下書き保存                                        │
│    objメール.Display   ' メーラ表示(送信ボタンを押させる)                  │
│''''objメール.Send      ' 送信                                              │
└──────────────────────────────────────┘

┌─────────────────────────┐
│Application.ScreenUpdating = False                │
│┌───────────────────サブ関数┐│
││Application.ScreenUpdating = False            ││
││  ：                                          ││
││Application.ScreenUpdating = True             ││
│└───────────────────────┘│
│Application.ScreenUpdating = True                 │
└─────────────────────────┘
Application.ScreenUpdatingが(意図せずして)入れ子になると
画面表示抑止の解除が早まってしまうので、入れ子内の方で工夫が必要
┌─────────────────────────┐
│Application.ScreenUpdating = False                │
│┌───────────────────サブ関数┐│
││Dim oldScreenUpdating As Boolean              ││
││oldScreenUpdating = Application.ScreenUpdating││
││If oldScreenUpdating Then                     ││
││    Application.ScreenUpdating = False        ││
││End If                                        ││
││  ：                                          ││
││If oldScreenUpdating Then                     ││
││    Application.ScreenUpdating = True         ││
││End If                                        ││
│└───────────────────────┘│
│Application.ScreenUpdating = True                 │
└─────────────────────────┘

ダイアログのタイトル凡例。(後は臨機応変に)
┌──┬───────────────────────────────────┐
│完了│処理の完了、処理完了                                                  │
├──┼───────────────────────────────────┤
│成功│                                                                      │
├──┼───────────────────────────────────┤
│結果│結果の表示                                                            │
├──┼───────────────────────────────────┤
│中止│処理の中止、処理中止、キャンセル                                      │
├──┼───────────────────────────────────┤
│０件│該当なし                                                              │
├──┼───────────────────────────────────┤
│失敗│処理失敗、エラー発生、エラー、例外発生                                │
├──┼───────────────────────────────────┤
│警告│注意                                                                  │
├──┼───────────────────────────────────┤
│確認│処理の確認、質問                                                      │
├──┼───────────────────────────────────┤
│選択│処理の選択、処理選択                                                  │
├──┼───────────────────────────────────┤
│入力│画面入力                                                              │
├──┼───────────────────────────────────┤
│案内│ご案内、ガイド、お知らせ                                              │
└──┴───────────────────────────────────┘