Secara otomatis pergi ke baris berikutnya ketika sejumlah karakter dimasukkan

-2

Saya membuat lembar Excel di mana ada bagian komentar yang memiliki lebar kolom 58 karakter.

Mungkinkah seseorang memasukkan komentar untuk secara otomatis pergi ke baris berikutnya setelah mereka memasukkan 55 karakter di baris di atas? Saya tidak ingin menggunakan teks bungkus dan perlu mempertahankan baris di bagian ini.

Rick G
sumber

Jawaban:

0

Anda bisa menggunakan VBA dan Worksheet_Changeacara tersebut

Di sini titik awal

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str As String
    If Target.Cells.Count = 1 Then
        If Target.Column = 3 Then  ' Only Column C
            If Not Target.HasFormula Then
                If Len(Target) > 55 Then
                    str = CStr(Target)
                    Target = Left$(str, 55)
                    Target.Offset(1, 0) = Mid$(str, 56)
                End If
            End If
        End If
    End If
End Sub

Anda perlu memodifikasi agar sesuai dengan kebutuhan Anda

chris neilsen
sumber