Excel VBA質問箱 IV

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

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


60466 / 76732 ←次へ | 前へ→

【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 質問
【20901】Re:連続したしたActiveSheet.Shapesにする... ちゃっぴ 04/12/23(木) 23:29 回答
【20902】Re:連続したしたActiveSheet.Shapesにす... kobasan 04/12/24(金) 0:23 質問
【20904】Re:連続したしたActiveSheet.Shapesにす... ちゃっぴ 04/12/24(金) 2:22 回答
【20905】Re:連続したしたActiveSheet.Shapesにす... kobasan 04/12/24(金) 7:49 お礼

60466 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free