ここから本文です

ExcelのVBA セルを参照させそのセルの値の位置にテキストボックスを挿入したい

shi********さん

2010/6/2312:14:43

ExcelのVBA セルを参照させそのセルの値の位置にテキストボックスを挿入したい

VBAで質問です。
以前質問し回答して頂いたVBAを組んだのですがピッチの値を挿入するのが上手いきません

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1042419215

セルの数値を参照し、格子状の線を書くのVBAを組んでいます。
この格子の間隔の位置にtextboxを挿入し、事前に算出したセルの値を
参照させたいのですが…
調べた結果、
①セルの値を参照し位置出し→その位置にtextboxを挿入
②各textboxに名前をつけ.value=A1な感じでセルを参照させる
という順序を辿れば多分出来ると思うのですが…

例えば
I7,K7に入力されている値の位置に10×25のtextboxを挿入し、そのtextboxがD20を参照するという事はできますか?
わかりにくい説明ですいません(つд⊂)
宜しくお願い致します

補足ごめんなさい 画像添付したつもりでしたが出来ていませんでした
この質問は一端撃ち切ってまた質問しなおします

閲覧数:
1,602
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

kum********さん

2010/6/2316:15:18

I7,K7にセル番地 ということで… I7にはB K7には3 つまりB3のセルの位置に ということでいいですかね

テキストボックスの大きさがピクセル指定なもんで、近似値で入れてます
180は幅、10は高さ(高さが近似値) セル幅・高さを変更すると右側にピクセルが表示されます

以下、変数宣言は 変数名適当 D20の内容が何なのかわからないので、Variant指定しています

------------------------------------
Sub eee()
Dim AA As Range, BB As Variant

Set AA = Application.Range(Cells(7, 9) & Cells(7, 11))
BB = Cells(20, 4)
Worksheets(1).Shapes.AddTextbox(msoTextOrientationHorizontal, AA.Left, AA.Top, 180, 10).TextFrame.Characters.Text = BB

End Sub

質問した人からのコメント

2010/6/23 17:20:27

すいません、画像添付できてませんでした。
下記の通りに質問し直したので暇があれば見てください
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1142661866

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる