▼条件に応じて実行する処理を分岐 ・D10セルが空欄の場合、アクティブシートの見出しの色を赤にする。 D10セルにデータが入っている場合は、アクティブシートを非表示にする。 If Range("D10").Value = "" Then ActiveSheet.Tab.Color = RGB(255, 0, 0) Else…

▼ファイルオープン１ Openステートメントで指定ファイルを開き、内容をメッセージボックスに表示。Openステートメントでファイルを開くと、画面にファイル内容を表示することなく入出力可能な状態になる。 まずGetステートメントで100biteづつバイナリモード…

▼データエリアに外枠を付ける セルA1 を含むセル範囲にデータを入力してから実行する Option Explicit Sub Dataline() Range("A1").CurrentRegion.Select Selection.BorderAround ColorIndex:=5, Weight:=xlMedium End Sub ▼データエリアから項目行を除く Re…

ブックを上書き保存する Sub WorkbookSave() Dim Response As Integer Response = MsgBox("Do you save this " & ActiveWorkbook.FullName & "?", vbYesNo + vbQuestion, "check") If Response = vbYes Then ActiveWorkbook.Save End If End Sub ▼Rangeオブ…

▼ショートカット集・便利機能 ・VBA起動 →Alt+F11 ・オブジェクトブラウザ(オブジェクト、メソッド、変数等に関する情報がまとまっている) →F2 ・メニューバーのツール→オプションで、チェック機能などの設定ができる。 ・作成したオブジェクトが自分以外の…