Excel VBA質問箱 IV

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

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


9211 / 76732 ←次へ | 前へ→

【73085】Re:ユーザーフォームから転記したいのですが
発言  UO3  - 12/11/7(水) 11:34 -

引用なし
パスワード
   ▼もろ さん:

コードはよく読んでいませんが、
・シート上のあるセルを選択したうえでユーザーフォームをモードレスで表示
・で、テキストボックスのTextBox1〜TextBox65にいれた値を選択したセルから横に
 それぞれの該当するセルに転記する。

こういう要件でしょうか?
もし、テキストボックス => セル だけではなく セル => テキストボックス という【双方向】でよければ
テキストボックスには ControlSource という紐付きセルを設定するプロパティがありますので
Initializeルーティンで以下のようにすることができます。

Private Sub UserForm_Initialize()
  Dim i As Long
  For i = 1 To 65
    Me.Controls("TextBox" & i).ControlSource = Selection.Cells(1, i).Address
  Next
End Sub
2 hits

【73084】ユーザーフォームから転記したいのですが もろ 12/11/6(火) 22:38 質問
【73085】Re:ユーザーフォームから転記したいのですが UO3 12/11/7(水) 11:34 発言
【73087】Re:ユーザーフォームから転記したいのですが もろ 12/11/7(水) 16:01 お礼
【73086】Re:ユーザーフォームから転記したいのですが UO3 12/11/7(水) 11:36 発言

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