Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4512 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56201】ユーザーフォームについて 江戸Guy 08/6/8(日) 20:07 質問[未読]
【56202】Re:ユーザーフォームについて マクロマン 08/6/8(日) 20:10 発言[未読]
【56203】Re:ユーザーフォームについて kanabun 08/6/8(日) 21:34 発言[未読]
【56207】Re:ユーザーフォームについて 江戸Guy 08/6/8(日) 22:44 お礼[未読]
【56201】ユーザーフォームについて
質問  江戸Guy  - 08/6/8(日) 20:07 -
引用なし
パスワード
   初心者です。
ユーザーフォームを使って複数の値をセルに入れています。
しかし後で値が間違っていることに気づいたりした場合、
またユーザーフォームを広げますと、全ての値を入れなおす
必要があり、面倒で困っています。

セルに代入させた値をユーザーフォームに反映させる方法は
ないでしょうか？

以上
【56202】Re:ユーザーフォームについて
発言  マクロマン  - 08/6/8(日) 20:10 -
引用なし
パスワード
   ユーザーフォームの値をセルに転記するコード
をアップしてみてください。
逆にするだけです。

A=B
↓
B=A
【56203】Re:ユーザーフォームについて
発言  kanabun  - 08/6/8(日) 21:34 -
引用なし
パスワード
   ▼江戸Guy さん：
>ユーザーフォームを使って複数の値をセルに入れています。
>
>セルに代入させた値をユーザーフォームに反映させる方法は
>ないでしょうか？

ユーザーフォームのテキストボックスでしたら、
ControlSource プロパティでリンクしておくことができます。
テキストボックスの値を変更すれば、直ちにリンクしたセルが更新されます。
セルの方を変更すれば、テキストボックスに変更した値が自動で反映します。

Private Sub UserForm_Initialize()
　TextBox1.ControlSource = "Sheet1!A1"
　TextBox2.ControlSource = "Sheet1!B2"
　TextBox3.ControlSource = "Sheet1!C3"
End Sub
【56207】Re:ユーザーフォームについて
お礼  江戸Guy  - 08/6/8(日) 22:44 -
引用なし
パスワード
   ありがとうございました。
助かりました。
一度やってみます。


▼kanabun さん：
>▼江戸Guy さん：
>>ユーザーフォームを使って複数の値をセルに入れています。
>>
>>セルに代入させた値をユーザーフォームに反映させる方法は
>>ないでしょうか？
>
>ユーザーフォームのテキストボックスでしたら、
>ControlSource プロパティでリンクしておくことができます。
>テキストボックスの値を変更すれば、直ちにリンクしたセルが更新されます。
>セルの方を変更すれば、テキストボックスに変更した値が自動で反映します。
>
>Private Sub UserForm_Initialize()
>　TextBox1.ControlSource = "Sheet1!A1"
>　TextBox2.ControlSource = "Sheet1!B2"
>　TextBox3.ControlSource = "Sheet1!C3"
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4512 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free