Belajar Microsoft Excel: Macro Untuk Memindahkan Text Dari Cell Ke Kotak Insert Comment

Menambahkan / insert comment pada microsoft excel kadang cukup menjemukan khususnya jikalau jumlahnya banyak dan textnya panjang.  Cara yang sering digunakan biasanya dengan klik kanan pada sel yang mau disertakan komentar dan lalu klik insert comment untuk menimbulkan kotak komentar. Selanjutnya komentar diketik secara pribadi pada kotak insert comment. 
Bagaimana jikalau ada data berupa tabel yang mesti disertakan dalam comment?

Metode  yang sering dijalankan pengguna ms excel lazimnya dengan cara mengcopy dahulu tabel dari excel ke notepad , lalu mengeditnya biar susunan text rapi dan berupa tabel.  Selanjutnya text notepad tersebut dicopy ke kotak insert comment. 

Jika anda Jenuh dengan cara biasa yang sungguh menyedot energi , semestinya anda menjajal cara yang satu ini untuk melaksanakan insert comment dengan cara mengambil text pribadi dari sell dan memindahkannya ke dalam kotak komentar

Ya , Dengan macro dan VBA , kita sanggup melaksanakan insert comment dengan segera dan lebih rapi. Berikut rujukan script vba macro untuk konversi text kolom menjadi text komentar (insert comment)



‘———————————————————-
Sub convertColumnToCmt()
Dim r As Range , kolom As Range , rKolom As Range , tf As TextFrame
Dim cmt As String , x As Integer , y As Long , z As Long
On Error GoTo skipError ‘error jikalau pengguna membatalkan proses
Set kolom = Selection
Set r = Application.InputBox( _
prompt:=”Pilih Satu Sel Untuk Menempatkan Komentar” , Type:=8)
If r.Cells.Count > 1 Then
    MsgBox “TIDAK BERHASIL! – Silahkan Pilih Satu Sel Saja!”
    Exit Sub
End If
r.ClearComments
r.AddComment.Text Text:=” “
Set tf = r.Comment.Shape.TextFrame
For x = 1 To kolom.Rows.Count
    Set rKolom = kolom.Range(Cells(x , 1) , Cells(x , 1))
    cmt = rKolom.Text & Chr(10)
    z = Len(cmt)
    With tf.Characters(y + 1 , z).Font
        .Parent.Insert (cmt)
        .Bold = rKolom.Font.Bold
        .Italic = rKolom.Font.Italic
        .Underline = rKolom.Font.Underline
        .Name = rKolom.Font.Name
        .ColorIndex = rKolom.Font.ColorIndex
    End With
    y = y + z
Next x
y = 0
For x = 1 To kolom.Rows.Count
‘je:2 kali looping untuk menyingkir dari error pada Excel 2007
    Set rKolom = kolom.Range(Cells(x , 1) , Cells(x , 1))
    z = Len(rKolom.Text) + 1
    tf.Characters(y + 1 , z).Font.Size = rKolom.Font.Size
    y = y + z
Next x
tf.AutoSize = True
Application.Goto r
Exit Sub
skipError: ‘jika pengguna membatalkan proses
End Sub
‘————————————————————-

Cara menggunakan mekanisme makro ini.

  • Pastikan arahan vba tersebut telah di copy pada module standar
  • Seleksi/sorot range yang mengandung text yang mau dipindahkan ke insert comment (sorot satu kolom saja , namun bukan entirecolumn).
  •  Jalankan makro ini (Anda sanggup menghasilkan shortcut apalagi dahulu untuk melakukan makro ini biar lebih mudah).
  • Muncul input box : pilih satu sel untuk menempatkan insert comment
  • klik Ok
  • Hasilnya : text dalam kolom yang disorot akan berpindah ke dalam comment box. Format text menyesuaikan dengan format font dalam kolom yang disorot.
Baca Juga  Belajar Microsoft Excel: Waspadalah! : Macro Excel Sanggup Menghancurkan Data Anda

    Dan ini rujukan hasilnya:

    Menindahkan Text Cell ke Comment Box
    Cara di atas jikalau digabung dengan macro yang lain sanggup juga digunakan untuk memindahkan tabel kedalam kotak insert comment.  
    Jika kita amati kembali cara diatas dimana kumpulan text yang sanggup dipindahkan ke dalam kotak insert comment mesti berada dalam satu kolom.  
    Oleh alasannya yakni itu ,  untuk memindahkan tabel ke dalam kotak insert comment , kita mesti mengkonversi tabel apalagi dahulu menjadi text dalam satu kolom. 
    Silahkan dibaca caranya dalam artikel: Makro untuk memadukan text tabel menjadi satu kolom. 

    Selamat mencoba…:)
    Need Help? Chat with us