VBA - 変数テーブルの最後にテキストボックスを置く

私のプロジェクトでは、私はpricelistのレイアウトを行う必要があります。毎日商品を追加していますので、変数テーブルを作成するためのマクロを書きました。VBA - 変数テーブルの最後にテキストボックスを置く

Sheets("A").ListObjects.Add(xlSrcRange, Range(Range("B1"), Range("B1").SpecialCells(xlLastCell)), , xlYes).Name = _ 
    "Tableau1" 
Range("Tableau1[#All]").Select 
Sheets("A").ListObjects("Tableau1").TableStyle = "TableStyleLight9"

ここでの問題：私は（あなたが知っている何かを...購入条件について）テーブルの末尾にテキストボックスを置きたいが、私はそれを置く方法がわかりません。..私はすでにRange("E").End(xlDown).Rowをテキストボックスのトップの状態にして最後に置いてみましたが、テキストボックスはテーブルの真ん中に置かれていますが、なぜか分かりません...

私の実際のコードは次のとおりです。テキストボックスのデザイン：

Sheets("A").Shapes.AddTextbox(msoTextOrientationHorizontal, 60, _ 
     Range("E").End(xlDown).Row, Range("B:L").Width, 60).Select

あなたは私の問題に対して解決しますか？

ありがとうございました。私の英語は申し訳ありません。

出典

2016-04-15 Ikanagura

と試みます'Range.Top'は範囲の先頭の位置です。 'Range.Offset（1）.Top'は、範囲が1行の高さである場合、範囲の底の位置です。しかし、あなたの '' Range（ "E"） 'の中の" E "は何ですか？ –

Eは、すべてのセルがいっぱいになっている列です。 – Ikanagura

Hmですが、 'Range（" E "）'は 'E'列ではありません。 'Range（" E：E "）'となります。 'Range（" E1 "）。End（xlDown）.Offset（1）.Top'では、列全体が必要ではなく、' End'を処理する最初のセルが必要です。たぶんそれはあなたのための 'E1'ではない、あなたは適応する必要があります。 –

`Range.Row`は、行番号である。この

Sheets("A").Shapes.AddTextbox(msoTextOrientationHorizontal, 60, _ 
     Range("E1").End(xlDown).Row, Range("B:L").Width, 60).Select

出典

2016-04-15 12:06:55

VBA - 変数テーブルの最後にテキストボックスを置く

答えて

関連する問題