Excel VBA 質問スレ Part73

995 名前：デフォルトの名無しさん mailto:sage [2021/12/19(日) 20:44:00.34 ID:F1jZtUeQ0.net] >>966 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Union(Me.Range("A1"), Me.Range("B1"), Me.Range("B2"))) Is Nothing Then If Me.Range("A1").Value <> "" And Me.Range("B1").Value <> "" And Me.Range("B2").Value <> "" Then Me.Columns(3).ClearContents If Me.Columns(3).NumberFormatLocal <> "@" Then Me.Columns(3).NumberFormatLocal = "@" If IsNumeric(Me.Range("A1").Value) And IsNumeric(Me.Range("B1").Value) And IsNumeric(Me.Range("B2").Value) And Me.Range("B1").Value <= Me.Range("B2").Value Then Dim OutAry() As String ReDim OutAry(Me.Range("B1").Value To Me.Range("B2").Value) Dim RowCnt As Long For RowCnt = LBound(OutAry) To UBound(OutAry) OutAry(RowCnt) = Me.Range("A1") & "/" & RowCnt Next RowCnt Range(Me.Cells(1, 3), Me.Cells(UBound(OutAry) - LBound(OutAry) + 1, 3)).Value = WorksheetFunction.Transpose(OutAry) End If End If End If Application.EnableEvents = True End Sub

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef