1

Excel では、セルの値をインクリメントするボタンをクリックする必要があります。

ただし、絶対参照セルをインクリメントするのではなく、ボタンの位置を基準にしてセルの値をインクリメントしたいと考えています。

これは私がこれまで取り組んできたコードのタイプですが、イベント オブジェクトの場所を見つけるという重要な問題は難しいことがわかっています...

Sub increment_value()
this.Offset(0, -2).Value = this.Offset(0, -2).Value + 1
End Sub

これは私がやりたいことです（例のみ-> D5のボタンはB5を1ずつ増やします。ただし、相対が重要です！）：

ここに画像の説明を入力

サブの考え: Javascript キーワードに相当する Excel はありますか: this?

4

1 に答える 1

2

ボタンが ActiveX の場合、次のコードを追加できます。

Private Sub CommandButton1_Click()
    Me.CommandButton1.TopLeftCell.Offset(0, -2) = _
            Me.CommandButton1.TopLeftCell.Offset(0, -2) + 1
End Sub

どこ：

Me.ボタンが配置されているシートを参照します。

.CommandButton1.自分自身を指す

.TopLeftCellRange objectボタンの左上隅にあるセルを返すプロパティです。そのため、シート内で正確に配置してください。

試してみました！

于 2013-10-23T10:06:13.563 に答える