Excel - Matikan Macro ke semua sel yang diserlahkan ke kuning

Isu

Halo, saya kini sedang dalam jeruk ... Saya harap semua tuan dapat meminjamkan tangan ke ...

Sekarang saya menulis makro untuk menyalin semua formula tanpa mengekalkan nilai pada sel-sel aktif dan saya ingin memohon makro ini untuk semua kuning berwarna diserlahkan sel-sel kuning dalam spreadsheet .... Bagaimana untuk melakukannya ???

kod semasa saya adalah adil

(Saya masih tidak boleh berfikir apa yang perlu dibuat untuk menjadikan hanya sel-sel yang diserlahkan berwarna kuning untuk mengandungi makro ini)

 Sub Copy_Formulas_Only () Dim row Sebagai Single row = ActiveCell.row Selection.EntireRow.Insert Rows (row - 1) .Copy Rows (row). Pilih Ralat Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error GoTo 0 Application.CutCopyMode = False End Sub 

Penyelesaian

Ia akan dicetuskan, kerana anda memilih pelbagai sel. Tetapi saya rasa anda tahu apa yang perlu anda lakukan.

 Sijil Sub Worksheet_SelectionChange (ByVal Target As Range) Application.EnableEvents = False 'If Target.Address = "SEMUA JELL CELL DI THE WORKSHEET" Kemudian Untuk Setiap CELL Dalam Sasaran Jika (CELL.Interior.Color = 65535) Kemudian Dim Dimensi Sebagai Single row = ActiveCell.row Selection.EntireRow.Insert Rows (baris - 1) .Copy Rows (baris) .Select On Ralat Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 End If Next Application.CutCopyMode = False End Sub 

Catatan

Terima kasih kepada rizvisa1 untuk tip ini di forum.

Artikel Sebelumnya Artikel Seterusnya

Tip-Tip Utama