outlookにgmail設定

●outlookにgmailの設定ができない
→gmailが要求するセキュリティレベルとoutlookの仕様が一致していないことが原因
・gmail側の設定変更が必要
□a).2段階認証を有効にしてアプリパスワードを利用する(セキュリティレベル高)
□b).セキュリティ>安全性の低いアプリのアクセス>アクセスを有効にする

●受信方法
・IMAP方式:メールデータをサーバー上に置く(基本)
{スマホはローカルデータ量が増えないからコッチがいいのかな?}
・POP方式:受信する都度メールをダウンロード
{PCはレスポンスやバックアップ面でコッチがいいのかな?}
→ダウンロードしてしまうと他の端末で閲覧できなくなる
{ダメじゃん、マルチ端末での利用はIMAPってコト?}

●古いoutlookメールをgmailに移行できる


Googleアカウント>左4)セキュリティ>2段階認証プロセス>使ってみる>パスワード入力>今すぐ送信>スマホのメールではい>バックアップ方法を登録:送信>携帯SMS:G-xxxxxx確認>PCでG-抜き数字6桁入力>次へ>2段階認証プロセスを有効にしますか?:有効にする

{2段階認証がオンにあったらTunderbirdから接続できなくなった象}

□バックアップ設定
→パスワード忘れ、スマホ紛失時にアカウント復元に必要

□再設定用情報を設定
→パスワード忘れ、第三者不正利用の場合アカウント復元に必要


Googleアカウント>右上)アカウントを管理>左4)セキュリティ>アプリ パスワード >パスワード入力>メール、Windowsパソコン>生成>Windowsパソコンのアプリパスワード16文字を控える>完了
そのパスワードでoutlookメール設定したらできた


Thunderbirdのパスワード再設定方法がわからん

右上)メニュー(三アイコン)>オプション>オプション
左6)セキュリティ>上4)パスワード>保存されているパスワード>選択して削除
3つ削除した
再起動後にgoogle認証パスワード入力
アプリ パスワードは必要なかった

 

区切り線 仕切り線 <hr />

テキストタブでhrタグ

<hr />

ウィンドウ 位置 サイズ 状態 Application.Top Left Width Height WidowsState

Sub ウィンドウ位置サイズ状態()
  
    With Application
    
        MsgBox "Top:" & .Top & Chr(13) & _
            " Left:" & .Left & Chr(13) & _
            " Width:" & .Width & Chr(13) & _
            " Height:" & .Height & Chr(13) & _
            " WindowState:" & .WindowState
    
    End With

End Sub

参考:ウィンドウ位置

 

参考:ウィンドウサイズ

 

WindowState:ウィンドウの状態

※最大化/最小化の状態で位置サイズを設定を設定するとエラーになるので、xlNormalを設定してから位置サイズを変更

定数     値     内容
xlMaximized     -4137     最大化
xlMinimized     -4140     最小化
xlNormal     -4143     標準

参考:WindowState

 

 

 

msgbox 改行 Chr(13) メッセージボックス

Chr(13)
vbCrLf
(キャリッジ リターンとかライン フィード)

MsgBox “1行目 & Chr(13) & 2行目”

入力規則 Alt>D>L

プロパティ一覧

■指定した間の整数のみ入力可能にする
■日付の入力規則を設定する
■リストの値のみ入力可能にする
■IMEモードを設定する
■セルの入力規則を変更する

設定ダイアログ対比で丁寧な解説

入力規則の設定を調べる

入力設定の有無を判定

Sub 自動記録_入力規則IMEオフ_コメント()
    
    With Selection.Validation
        .Delete '入力規則を削除
        '入力規則の追加
        .Add Type:=xlValidateInputOnly, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween
        'Type入力規則の種類
        'AlertStyle入力規則でのエラーのスタイル
        'Operator入力規則の演算子
        .IgnoreBlank = True 'True空白値の入力許可
        .InCellDropdown = True  'Trueドロップダウンリスト表示
        .InputTitle = ""    '入力規則ダイアログボックスのタイトル
        .ErrorTitle = ""    '入力規則で発生するエラーダイアログボックスのタイトル
        .InputMessage = ""  '入力規則でのメッセージ
        .ErrorMessage = ""  'エラー時のメッセージ
        .IMEMode = xlIMEModeOff '日本語入力をIMEオフ(英語モード)に設定
        .ShowInput = True   'Trueセルを選択するとメッセージ表示
        .ShowError = True   'Tureなら無効なデータ入力時にエラーメッセージ表示
    End With
    
End Sub

 

画像検索 画像が表示されない

javaがオフになってた

ファイル名 変更 リネーム

Sub Sample()
    Name "C:\Work\Sample.txt" As "C:\Work\Test.txt"
End Sub

シート コピー 名前

Dim コピー元シート名
    コピー元シート名 = "_"

    'シートAを先頭にコピー
    Worksheets(コピー元シート名).Copy before:=Worksheets(1)
    
    'シートAを末尾にコピー
    Worksheets(コピー元シート名).Copy after:=Worksheets(Worksheets.Count)

    'シートに名前を付ける
    ActiveSheet.Name = Format(Date, "mmdd") & "_" & Format(Time, "hhmm")

ブック パス フルパス ファイル名

' ブックのフォルダまでのパス
msgbox ThisWorkbook.Path

' ブックのファイル名までのパス
msgbox ThisWorkbook.FullName

Apple ID パスワード

Apple ID アカウントの管理