Excel行の列の書式設定VB .NET

Question

影響を受けた列に値があり、空でない場合にのみ、Excel行にスタイルを適用したいとします。

しかし、if、for、whileの手順を試してみましたが、結果はありませんでした。

私の最後のコードはでした：私は命令を変更する必要が

Dim i As Excel.Range 
Do While Not String.IsNullOrEmpty(xlWorksheet.Columns(i)) 
    xlWorksheet.Rows(5).Style = "FormatoHeader" 
Loop 

？ なぜ私のサイクルが間違っていますか？ これらのセルをどのようにフォーマットすることができますか？その行にのみ、セルにデータがある場合のみですか？事前

Answer 1

で

おかげでまあ、私はそれがテーブルのヘッダであるので、私は、その行をフォーマットしたかったことを言及するのを忘れてしまいました。

私のテーブルは表形式なので、あらかじめ定義されたスタイルを持っています。

Sheet.ListObjects.Add(Excel.XlListObjectSourceType.xlSrcRange, 
      .Range("B5:X50"), Excel.XlYesNoGuess.xlYes).Name = "CuteTable" 

私は別の事前定義された一方（この場合、私は緑がかったスタイルが必要）のために、Excelスタイルを変更：

Sheet.ListObjects("CuteStyle").TableStyle = "TableStyleMedium4" 

よく、ヘッダを編集する短い方法は、オブジェクトを呼び出すことですHeaderRowRangeはこのようにそれにプロパティを追加します。

：

.ListObjects("CuteTable").HeaderRowRange.Font.ColorIndex = 1 'This is black 
.ListObjects("CuteTable").HeaderRowRange.Interior.Color = 55555 'this is a green 

長い道のりには、新しいスタイルを作成し、変数に格納することです

Dim hstyle As Excel.Style=Sheet.Application.ActiveWorkbook.Styles.Add("hstyle") 
hstyle.Font.Bold = True 
hstyle.Interior.Color = 333 

そして、それの後に、テーブルのヘッダーにスタイルを適用します。

Sheet.ListObjects("CuteTable").HeaderRowRange.Style = "hstyle"