Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60470 / 76736

←次へ　｜　前へ→


	【20904】Re:連続したしたActiveSheet.Shapesにす...

ちゃっぴ - 04/12/24(金) 2:22 -


	引用なし

	パスワード

>私がしたいのは
>gyou = activecell.row
>for i=1 to 150
>　 ActiveSheet.Shapes("TextBox" & i).text= cells(gyou,i).Text
>next

そういうことをやったのが1年くらい前なので忘れてましたが･･･
当時作ったCodeによるとName Propertyを変更してやればいいでしょう。

ただし、すでに使っている名前を使用するとErrorになったと
思いますのでExcelでつけられるDefaultの命名規約と
違った名前に変更したほうがいいでしょうね。

たとえば、
[ShapeObject].Name = "Text_Box" & i
とか････

あとは、Excelの名前Boxにて手作業で変更可能なので、
規則性がないならそれで変更してやるのもいいでしょうね。

0 hits

▼

【20899】連続したしたActiveSheet.Shapesにする方... kobasan 04/12/23(木) 21:06