エクセルのC3に入力した値をシート上のラベル1に転記させたいのですが、コードが分かりません。どな

締切済

質問者：kkk92kkk
質問日時：2017/09/28 09:56
回答数：1件

エクセルのC3に入力した値をシート上のラベル1に
転記させたいのですが、コードが分かりません。
どなたかご教示お願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

参考程度に

No.1

回答者： fujillin
回答日時：2017/09/28 18:03

こんにちは

試してみただけなので、正確なところはわかりませんが・・・

シート上のラベルにはフォームコントロールとActiveXコントロールとが考えられますが、どちらなのかわかりませんのでとりあえず両方。

◇フォームコントロールの場合
ActiveSheet.Labelsで全部のコレクションを取得できますので、Name属性で探して取得することが可能です。
また、フォームコントロールの場合は、ActiveSheet.Label1でもオブジェクトをダイレクトに取得できるようですね。
表示内容を変更するには、Caption属性の値を設定することで可能です。

◇ActiveXコントロールの場合
同様に、ActiveSheet.OLEObjectsで全体のコレクションが取得できますが、Name属性で探す方法しか見つけられませんでした。
オブジェクトを拾えても、ActiveXオブジェクトの場合は、直にはCaption属性が存在しないようです。
ActiveSheet.OLEObjects(n).Object.Captionとすることで、値の設定が可能でした。

全体的な手順としては、当該シートのWorksheet_SelectionChangeイベントを利用して、C1セルの値をラベルのCaptionに代入することで、ご質問の内容を実現できるものと思います。

なお、マクロなど用いなくても、（ラベルではなく）ActiveXのTextBoxを利用してLinkedCellに希望するセルを設定しておけば、自動的にセルの値と表示内容を連動させることが可能になります。