HTMLメールを送信する

Question

メールにコピーする範囲を設定する以下のスクリプトがありますが、この範囲はカラム7（「1：6」、「8:13」） これを修正するためにあらゆる種類の試行を試みましたが、試行ごとにエラーが発生します。ここで

は、私はすべてのヘルプは高く評価され

Set RangeCopy = Sheets("Applications").Range(Cells(1, 1), Cells(R, 13)).SpecialCells(xlCellTypeVisible) 

を使用しているコードです。 ありがとうございます。

Answer 1

Unionを使用すると、これを行うのはきれいです。あなたのコードが与えられたコード例については、以下を参照してください。

Dim unionrng As Range 
    Set unionrng = Application.Union(Sheets("Applications").Range(Cells(1, 1), Cells(r, 6)), _ 
            Sheets("Applications").Range(Cells(1, 8), Cells(r, 13))) 
    Sheets("Applications").Range(unionrng.Address).SpecialCells (xlCellTypeVisible) 

Answer 2

複数のオプションがあります。範囲アドレスをコンマで連結したり、別の範囲を作成したり、Unionメソッドを使用したりすることができます。 MicrosoftヘルプのHow to: Refer to Multiple Rangesの記事をご覧ください。

Answer 3

このようなループでUnionを試すことができます。

Dim x As Long 
Dim y As Long 

For y = 1 To 13 
    For x = 1 To r 

     If y <> 7 Then 
      If RangeCopy Is Nothing Then 
      Set RangeCopy = cells(x, y) 
      Else 
      Set RangeCopy = Application.Union(RangeCopy, cells(x, y)) 
      End If 
     End If 

    Next x 
Next y