Seçili hücreleri içeren çalışma sayfası satırlarındaki biçimlendirmeyi program aracılığıyla değiştirme

Makale
01/13/2024

Seçili hücreyi içeren bir satırın tamamının yazı tipini, metnin kalın olması için değiştirebilirsiniz.

Şunlar için geçerlidir: Bu konudaki bilgiler, Excel için belge düzeyi projeler ve VSTO Eklenti projeleri için geçerlidir. Daha fazla bilgi için bkz. Office uygulaması ve proje türüne göre kullanılabilen özellikler.

Geçerli satırı kalın ve daha önce kalın yazılmış satırı normal hale getirmek için

Daha önce seçilen satırı izlemek için statik bir değişken bildirin.
- C#
- VB
```
static int previousRow = 0;
```
```
Static previousRow As Integer = 0
```

özelliğini kullanarak geçerli hücreye başvuru alın ActiveCell .

Excel.Range currentCell = this.Application.ActiveCell;

Dim currentCell As Excel.Range = Me.Application.ActiveCell

Etkin hücrenin özelliğini kullanarak geçerli satıra EntireRow kalın stil ekleyin.
- C#
- VB
```
currentCell.EntireRow.Font.Bold = true;
```
```
currentCell.EntireRow.Font.Bold = True
```
geçerli değerinin previousRow 0 olmadığından emin olun. 0 (sıfır), bunun bu kod aracılığıyla ilk kez olduğunu gösterir.
- C#
- VB
```
if (previousRow != 0)
```
```
If previousRow <> 0 Then
```

Geçerli satırın önceki satırdan farklı olduğundan emin olun.

if (currentCell.Row != previousRow)

If currentCell.Row <> previousRow Then

Daha önce seçilen satırı temsil eden bir aralığa başvuru alın ve bu satırı kalın olmayacak şekilde ayarlayın.

Excel.Range rng = (Excel.Range)ws.Rows[previousRow];
rng.EntireRow.Font.Bold = false;

Dim rng As Excel.Range = DirectCast(ws.Rows(previousRow), Excel.Range)
rng.EntireRow.Font.Bold = False

Geçerli satırı bir sonraki geçişte önceki satır olacak şekilde depolayın.
- C#
- VB
```
previousRow = currentCell.Row;
```
```
previousRow = currentCell.Row
```
Aşağıdaki örnekte tam yöntem gösterilmektedir.

Örnek

// Keep track of the previously bolded row.
static int previousRow = 0;

private void BoldCurrentRow(Excel.Worksheet ws)
{
    // Work with the current active cell.
    Excel.Range currentCell = this.Application.ActiveCell;

    // Bold the current row.
    currentCell.EntireRow.Font.Bold = true; 

    // If a pass has been done previously, make the old row not bold.
    // Make sure previousRow is not 0 (otherwise this is your first pass through).
    if (previousRow != 0)
    
        // Make sure the current row is not the same as the previous row.
        if (currentCell.Row != previousRow)
        {
            Excel.Range rng = (Excel.Range)ws.Rows[previousRow];
            rng.EntireRow.Font.Bold = false;
        }

    // Store the new row number for the next pass.
    previousRow = currentCell.Row;
}

Private Sub BoldCurrentRow(ByVal ws As Excel.Worksheet)

    ' Keep track of the previously bolded row.
    Static previousRow As Integer = 0

    ' Work with the current active cell.
    Dim currentCell As Excel.Range = Me.Application.ActiveCell

    ' Bold the current row.
    currentCell.EntireRow.Font.Bold = True

    ' If a pass has been done previously, make the old row not bold.
    ' Make sure previousRow is not 0 (otherwise this is your first pass through).
    If previousRow <> 0 Then

        ' Make sure the current row is not the same as the previous row.
        If currentCell.Row <> previousRow Then

            Dim rng As Excel.Range = DirectCast(ws.Rows(previousRow), Excel.Range)
            rng.EntireRow.Font.Bold = False
        End If
    End If

    ' Store the new row number for the next pass.
    previousRow = currentCell.Row
End Sub

Seçili hücreleri içeren çalışma sayfası satırlarındaki biçimlendirmeyi program aracılığıyla değiştirme

Geçerli satırı kalın ve daha önce kalın yazılmış satırı normal hale getirmek için

Örnek

Ek kaynaklar