セル範囲で置換

Range("A1").Replace What:="置換前" Replacement:="置換後"

テーブルのソート

Range(Cells(2, 1), Cells(100, 5)) _
    .Sort Key1:=Cells(2, 2), order1:=xlAscending, _
          Key2:=Cells(2, 3), order2:=xlDescending

テーブルの先頭はヘッダー行ではなくデータが始まる行を指定します。

ソート順の引数

ソート順引数
昇順xlAscending
降順xlDescending

リストの作成

Dim listName As Name    'リスト名
'リストが存在したら削除
For Each listName In ActiveWorkbook.Names
    If listName.Name = "サンプル" Then
        Range("サンプル").Name.Delete
    End If
Next
ActiveWorkbook.Names.Add _
    Name:="サンプル", _
    RefersTo:="=Sheet1!$A$2:$C$10"

条件付き書式

Range("A1").FormatConditions.Delete '条件付き書式をリセット
With Range("A1").FormatConditions.Add(Type:=xlTextString, String:="サンプル", 
TextOperator:=2)
    .Font.Color = RGB(255, 255, 255)    '文字色
    .Interior.Color = RGB(255, 0, 0)    '背景色
End With

入力規則

Dim myStr As String 'リストに登録する文字列'
myStr = "ほげ,ふが,ぴよ"
With Range("A1").Validation
    .Delete '入力規則をリセット'
    .Add Type:=xlValidateList, Formula1:=myStr
    .ShowError = False  '規則外の入力時のエラー表示'
End With

セルの背景色をリセット

Range("A1").Interior.ColorIndex = 0

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2022-03-07 (月) 10:10:54 (165d)