→Office関連メモ
→Excel関連
→C#によるExcel制御
→Visual Basic(.NET以前)
サブトピック†
- vbaでEnum値の名前が適切ではありませんというエラーになる原因
- Select Case 側で <Enum名>.値という書き方で参照しないと、複数のEnum に同じ名前の値があったときにどちらかわからなくなってしまいエラーになる。Private を付けてみると解決することもある。 2024.11
Tips†
VSCodeで開発†
添付ファイルをつけてメール†
画面をキャプチャする†
CSVやExcelにSQLを実行†
マクロの自動実行を抑制†
警告抑制†
Application.DisplayAlerts = False '警告抑制
アドイン関連†
フィルタ系†
- フィルタをクリアする
ActiveSheet.ShowAllData
今選択しているシート†
- Application.SelectedSheets を参照する
「名前」の全消し†
手っ取り早くExcelシートの一覧を得るには†
[Esc]キーによるExcel VBAの実行中断を防止する†
互換性チェックのダイアログが出るのを抑制†
Excelで特定の値になったときのアクション†
- 特定のセルに特定の値が入力されたときにマクロを自動的に実行するには?
ツリービューコントロール†
VBA コンパイルエラーと実行時エラー†
描画抑制†
Application.ScreenUpdating = false
Excelシートアルファベット順並べ替え†
列幅を合わせる†
'ost は対象シート
ost.Activate
ost.Range(ost.Cells(1, 1), ost.Cells(osr, 8)).Columns.AutoFit
AddTextBox に渡す座標の渡し方†
プログラムの同期的な実行†
表示倍率を変える†
ActiveWindow.Zoom = 75
印刷設定 右下にページ数を入れる†
ActiveSheet.PageSetup.RightFooter = "&P/&N"
印刷範囲の設定†
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$83" 'A1形式 Rangeではダメです
RangeからA1形式の文字列を得るには†
str = Cells(row, col).Address
Worksheets.AddのAfter引数などで渡すのはシート名ではない†
CSV形式で保存する†
ActiveWorkbook.SaveAs Filename:="hoge.csv", FileFormat:=xlCSV, CreateBackup:=False
ゴールシークを実行させる†
'E3の値が0になるようにB3を変化させる場合
Range("E3").GoalSeek Goal:=0, ChangingCell:=Range("B3")
VBAプロジェクトをロックする†
VBAファイルのデータ構造†
実行ディレクトリ†
Application.ThisWorkbook.Path