Dalam beberpa urusan , adakalanya kita mesti menambahkan table ke dalam comment. Prosedur makro convertColumnToCmt masih mempunyai kehabisan yakni dia cuma sanggup mengkonversi text dari satu kolom saja. Sedangkan table , menyerupai kita pahami terdiri atas beberapa kolom. Â Sehingga , untuk sanggup menambahkan table kedalam comment , Â maka dikehendaki mekanisme untuk mengkonversi tabel apalagi dulu menjadi text dalam satu kolom
Part1: Font Type Mono Space
Copykan script berikut pada module patokan , dan buat shortcut untuk mengerjakan macro-nya.
Sub convertTableToColumn()
Dim r As Range , tabel As Range , xTabel As Range
Dim x As Integer , y As Long , xMax As Long , yMax As Long
Dim textTabel As String , spMax As Integer , sp As Double
Dim spAwal As Double , textSp As String
Set tabel = Selection
Set r = Application.InputBox( _
prompt:=”Pilih Satu Sel Untuk Menempatkan Text Tabel” , Type:=8)
spAwal = InputBox(“Masukan Jarak Spasi” , “” , 2)
xMax = tabel.Rows.Count
yMax = tabel.Columns.Count
Application.ScreenUpdating = False
For y = 1 To yMax
  spMax = 0
  For x = 1 To xMax
    Set xTabel = tabel.Range(Cells(x , y) , Cells(x , y))
    textTabel = Trim(xTabel.Text)
    If Len(textTabel) > spMax Then spMax = Len(textTabel)
  Next x
  For x = 1 To xMax
    Set xTabel = tabel.Range(Cells(x , y) , Cells(x , y))
    textTabel = Trim(xTabel.Text)
    sp = spAwal + spMax – Len(textTabel)
    textSp = WorksheetFunction.Rept(” ” , sp)
    If y = 1 Then
      textTabel = textTabel & textSp
      r.Offset(x – 1 , 0).ClearContents
    Else
      textTabel = textSp & textTabel
    End If
    r.Offset(x – 1 , 0) = r.Offset(x – 1 , 0) & textTabel
  Next x
Next y
End Sub
- Sorot table yang mau di konversi
- Jalankan macro ini
- Pilih cell kawasan dimana table hasil konversi akan ditempatkan
- Ok
- Hasilnya: text table digabung menjadi satu kolom
- Text tabel tersebut (kolom B) berikutnya sanggup dikonversi menjadi text comment dengan mekanisme menyerupai yang telah aku jelaskan dalam article : Â Excel Comment – Konversi Text Dari Kolom Menjadi Text Comment

Seorang pengajar dan pembelajar yang mengurus lembaga pelatihan dan kursus komputer bernama LKP Naura