なにげにぷろぐらまーWiki

Dim r As Range
Set r = ActiveSheet.Range(Cells(1, 1), Cells(3, 3))	' 3x3 を選択
r.Offset(1,1).Select ' 3x3の範囲を行、列方向に+1移動した範囲が選択される

Dim r As Range
Set r = ActiveSheet.Range(Cells(1, 1), Cells(3, 3))	' 3x3 を選択
r(1,1).Select ' 3x3の左上1セルを選択
r(0,0).Select ' 3x3の左上からさらに1行1列左上のセルを選択

Sub Test()
	' 現在のActiveSheetに対して操作
	Range(Cells(1,1), Cells(3,3)).Select	' 選択する
End Sub

Sub Test()
	' 現在のActiveSheetに対して操作
	Range(Cells(1,1), Cells(3,3)).ColumnWidth = 5	' ポイント指定
	Range(Cells(1,1), Cells(3,3)).RowHeight = 5		' ポイント指定
	' 同じポイント数でも、セルの形状が正方形になるとは限らない。
	' 環境によって縦横比が違う。
End Sub

Sub Test()
	' ColumnWidthをセットした後、そのセルのWidthをRowHeightにセットすると、正方形になる？
	Range(Cells(1, 1), Cells(3, 3)).ColumnWidth = cellSize
	Range(Cells(1, 1), Cells(3, 3)).RowHeight = Cells(1, 1).Width
End Sub

'A1セルを基準にして最終列を求める
Set rangeEnd = ActiveSheet.Range("A1").SpecialCells(xlLastCell)

ActiveCell.Address

    ActiveSheet.UsedRange

    With ActiveSheet.UsedRange
        .Item(1)                 ' 範囲内の左上のセル("0"を入れると左上のセルの、さらに一つ左になる)
        .Item(.Count)            ' 範囲内の右下のセル
    End With

Dim rangeS As Range
Set rangeS = ActiveSheet.Cells.Find("検索したい文字列", 
                                    LookIn:=xlValues, 
                                    LookAt:=xlWhole, 
                                    SearchOrder:=xlByRows, 
                                    MatchCase:=True, 
                                    MatchByte:=True)

Range("A1").End(xlDown)   ' 下方向にセルの値の有り/無しが切り替わる直前まで検索
Range("A1").End(xlRight)  ' 右方向にセルの値の有り/無しが切り替わる直前まで検索

Range("C3").CurrentRegion.Select

Dim r As Range ' 名前定義に登録したいセル範囲
ActiveWorkbook.Names.Add Name:="名前", RefersTo:=r

Private Sub TextBox1_Change()
    If Len(TextBox1.Text) = 0 Then
        Exit Sub
    End If
    
    ' 一番右の文字が数値であれば何もしない
    If IsNumeric(Right(TextBox1.Text, 1)) = True Then
        Exit Sub
    End If
    
    ' 数値でなかった場合、その一文字を削る
    TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End Sub

• 参考サイト

UserForm1.Show vbModeless

• 参考サイト

Private Sub DrawBorder(r As Range)
    With r
    	' 実線
        .Borders(xlEdgeTop).LineStyle = xlContinuous		' 選択範囲の上辺
        .Borders(xlEdgeBottom).LineStyle = xlContinuous		' 選択範囲の下辺
        .Borders(xlEdgeRight).LineStyle = xlContinuous		' 選択範囲の右辺
        .Borders(xlEdgeLeft).LineStyle = xlContinuous		' 選択範囲の左辺
        ' 太線
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
        .Borders(xlEdgeLeft).Weight = xlMedium
    End With
End Sub

Dim r As Range ' 入力規則を設定したいセル範囲
With r.Validation
    ' 設定済みの入力規則を削除する
    .Delete
    
    ' 設定
    .Add Type:=xlValidateList,      ' リストからの値を設定
         Formula1:="=定義した名前"  ' 名前定義からの指定。セル範囲等の指定も可能。
End With