目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

214 / 277

←次へ　｜　前へ→

【72】Re:図形描画、Shapeの方のテキストボックスの書き込みと読み込み

ichinose - 04/8/31(火) 8:08 -


	引用なし

	パスワード

▼Jaka さん：
こんにちは。

Jakaさん、すごいですね！！目安箱での活躍・・・。

私も一つだけ投稿・・・。

「図形描画のShapeの方のテキストボックスにセルの内容を反映させる方法」

'==================================
Sub samp()
　 With Range("a2")
　　　.Offset(-1, 0).Value = "反映"
　　　Set txt = ActiveSheet.TextBoxes.Add(.Left, .Top, .Width, .Height)
　　　txt.Formula = "=" & .Offset(-1, 0).Address
　　　End With
End Sub

上記のコードは、アクティブシートのセルＡ２のサイズにテキストボックスを作成し、
セルＡ１の内容をテキストボックスに反映させるコードです。

このコードの実行後に、セルＡ１の変更でテキストボックスの内容も変更されます。
マクロを使用しなくても手動操作でも可能です。

4,865 hits

【63】図形描画、Shapeの方のテキストボックスの書き込みと読み込み Jaka 04/8/11(水) 16:30

【65】Re:図形描画、Shapeの方のテキストボックスの... Jaka 04/8/11(水) 17:34

【72】Re:図形描画、Shapeの方のテキストボックスの... ichinose 04/8/31(火) 8:08

≪

┃ ┃ ┃ ┃ ┃ ┃

214 / 277

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free