Class Moduleについて

Public rng As Range

Private Sub Class_Initialize()
    Dim temp As Range
    Set temp = Selection    'ワークシートを作成した時点で選択範囲が変わるので先に記憶しています。
    Set rng = ThisWorkbook.Worksheets.Add.Cells(1)
    temp.Worksheet.Activate '先に記憶した選択範囲を選択しなおします。
    temp.Select
End Sub

Private Sub Class_Terminate()
    On Error Resume Next        'Worksheetが削除されている場合のためです。
    Application.DisplayAlerts = False
    rng.Worksheet.Visible = xlSheetVisible  '可視状態でないと削除できないようです。
    rng.Worksheet.Delete
    Application.DisplayAlerts = True
End Sub

Sub test()
    Dim temp As New RangeClass
    Selection.Cells(1).Copy temp.rng
    Selection.Cells(2).Copy Selection.Cells(1)
    temp.rng.Copy Selection.Cells(2)
End Sub

Private Sub Class_Initialize()
    With Selection
        Set rng = ThisWorkbook.Worksheets.Add.Cells(1)
        .Worksheet.Activate
        .Select
    End With
End Sub

Private rng As Range

Public Property Get r() As Range
    Set r = rng
End Property

    Dim temp As New RangeClass
    temp.r = 2

Sub ResizePaste()
    On Error Resume Next
    Dim temp As New RangeClass
    Dim nowSelection As Range
    Set nowSelection = Selection
    With temp.r
        .PasteSpecial
        .Resize(nowSelection.Rows.Count, nowSelection.Columns.Count).Copy
    End With
    With nowSelection
        .Activate
        .PasteSpecial
    End With
End Sub

Option Explicit

Private MyShape As Shape
Private Const Limit As Long = 254

Property Set Shape(Target As Shape)
    Set MyShape = Target
End Property

Property Get Shape() As Shape
    Set Shape = MyShape
End Property

Property Let Text(Text As String)
    Const Dummy As String = "a"
    Dim l As Long, Repeat As Long, Pos As Long
    If Not MyShape Is Nothing Then
        With MyShape.TextFrame
            Repeat = Len(Text) \ Limit
            .Characters.Text = ""
            For l = 0 To Repeat
                Pos = l * Limit + 1
                .Characters(Pos).Insert Mid(Text, Pos, Limit)
            Next l
        End With
    End If
End Property

Property Get Text() As String
    Dim l As Long, Repeat As Long
    Dim temp As String
    If Not MyShape Is Nothing Then
        With MyShape.TextFrame
            Repeat = .Characters.Count \ Limit
            For l = 0 To Repeat - 1
                temp = temp & .Characters(l * Limit + 1, Limit).Text
            Next l
            If .Characters.Count Mod Limit <> 0 Then
                temp = temp & .Characters(l * Limit + 1).Text
            End If
        End With
    End If
    Text = temp
End Property

Property Let Characters(Optional Pos As Long = 0, Optional Length As Long = 0, Text As String)
    Dim temp As String
    If Not MyShape Is Nothing Then
        temp = Me.Text
        If Pos = 0 Then
            Me.Text = temp & Text
        Else
            Me.Text = Left$(temp, Pos - 1) & Text & Right$(temp, Len(temp) - Pos - Length + 1)
        End If
    End If
End Property

Property Get Characters(Optional Pos As Long = 0, Optional Length As Long = 0) As String
    Dim temp As String
    If Not MyShape Is Nothing Then
        temp = Me.Text
        If Pos = 0 Then
            Characters = temp
        Else
            Characters = Mid$(temp, Pos, Length)
        End If
    End If
End Property

Sub test()
    Dim s As Shape, temp As String
    Dim st1 As New ShapeText, st2 As New ShapeText
    Const Length As Integer = 254
    With ActiveSheet
        Set s = .Shapes.AddShape(msoShapeRectangle, 20, 20, 150, 300)
        s.TextFrame.Characters.Text = String(Length, "a")
        Set st1.Shape = .Shapes.AddShape(msoShapeRectangle, 200, 20, 150, 300)
        st1.Text = String(Length, "a")
        Set st2.Shape = .Shapes.AddShape(msoShapeRectangle, 370, 20, 150, 300)
        st2.Text = st1.Text
        st2.Characters(3, 4) = st1.Text
        st2.Text = st2.Text + st1.Text
        st2.Shape.TextFrame.Characters.Font.Bold = True
        MsgBox Len(st2.Text)
    End With
End Sub

Option Explicit

Private Age As Integer
Private Up20 As Boolean

Property Let 年齢(i As Integer)
    If i >= 0 Then Age = i Else Age = -1
    Up20 = (Age >= 20)
End Property

Property Get 年齢() As Integer
    年齢 = Age
End Property

Property Get Is成人() As Boolean
    Is成人 = Up20
End Property

Property Get IsError() As Boolean
    If Age = -1 Then IsError = True Else IsError = False
End Property

Sub test1()
    Dim a As New Class1
    a.年齢 = InputBox("入力してください。")
    If a.IsError Then
        MsgBox "入力エラー"
    Else
        MsgBox "2倍の年だと" & a.年齢 * 2 & "歳"
    End If
    MsgBox a.Is成人, , "成人?"
End Sub

Option Explicit

Private Age As Integer

Public Function Func年齢(Optional i As Integer = -1) As Integer
    If i >= 0 Then Age = i
    Func年齢 = Age
End Function

Property Get 年齢() As Integer
    年齢 = Age
End Property

Property Let 年齢(i As Integer)
    Age = i
End Property

Sub test2()
    Dim a As New Class2, b As New Class2
    
    a.Func年齢 20
    b.Func年齢 a.Func年齢 + 10
    MsgBox b.Func年齢
    
    a.年齢 = 20
    b.年齢 = a.年齢 + 10
    MsgBox b.年齢

End Sub