0

セル値のみを使用してガント チャート タイプの表示を作成しようとしています。フォーマットが原因で数式が機能しないため、代わりに VBA を実行する必要があります。

単一の名前付き範囲の列と行の両方をループしたい。ただし、「438: オブジェクトはこのプロパティまたはメソッドをサポートしていません」というエラーが発生するため、VBA 形式は正しくないと思います。

Dim d As Integer
Dim e As Integer
For d = 1 To **Range("PRcal").Cols.Count**
    For e = 1 To **Range("PRcal").Rows.Count**
        If [Range("PRcal").Cells.(e, d).Value = Range("PRcal").Cells(1, d).Value] Then
            Cells(e, d).Value = Cells(e, 1)
        End If
    Next e
Next d

助言がありますか？ありがとう！

4

1 に答える 1

3
  • 範囲にはプロパティがありませんCols- プロパティがありColumnsます
  • あなたの中に余分なドットがありifますCells.(e,d)
  • 角かっこは使用できませんif

これはうまくいくはずです：

Dim d As Integer
Dim e As Integer
For d = 1 To Range("PRcal").Columns.Count
    For e = 1 To Range("PRcal").Rows.Count
        If Range("PRcal").Cells(e, d).Value = Range("PRcal").Cells(1, d).Value Then
            Cells(e, d).Value = Cells(e, 1)
        End If
    Next e
Next d
于 2013-05-20T17:35:23.260 に答える