Excel VBA質問箱 IV

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

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


28782 / 76732 ←次へ | 前へ→

【53242】Re:UserFormのTextBoxの値でシートのセルを選択する方法
お礼  かんじです E-MAIL  - 07/12/22(土) 15:06 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>2.これとは別に、UserFormのTextBox1の値のセル(の行)を既にあるデータか  ら選択する(行の選択)方法が分かりません。
>>
>>また、
>>シート(Sheet1)のセルから別シートのセルを選択するのは下記で行っています
>>Columns(1).Find(What:=Sheets(Sheet1).Cells(5,5)).Select
>
>Sheets(Sheet1).Cells(5,5)
>の代わりに、
>UserForm1.TextBox1.Value
>とすれば、いかがでしょうか?

早速のご教授ありがとうございます
修正してやってみたのですがうまくいきません。具体的には下記内容です
Private Sub CommandButton1_Click()
  Dim i As Integer              '変数iを宣言
  Dim myInputRow As Long
     
  myFname = "◆受注と残高2008b"

  With Workbooks(myFname & ".xls").Worksheets("受注と入金")
   Columns(3).Find(What:=UserForm2.TextBox1.Value).Select
       '3列目を     ’Formは2

       '上記の選択行に下記をセル入力したい
   ActiveCell.Offset(0, 8).Value = Me.TextBox2.Text
   ActiveCell.Offset(0, 9).Value = Me.TextBox3.Text
   ActiveCell.Offset(0, 10).Value = Me.TextBox4.Text
   ActiveCell.Offset(0, 11).Value = Me.TextBox5.Text   
  End With

  Unload UserForm2  
  UserForm2.Show
  
End Sub

上記のColumns(3)の行がうまく書けていないようです
全体を見ていかがでしょうか。ご教示よろしくお願いします。

0 hits

【53240】UserFormのTextBoxの値でシートのセルを選択する方法 かんじです 07/12/22(土) 14:09 質問
【53241】Re:UserFormのTextBoxの値でシートのセルを... かみちゃん 07/12/22(土) 14:17 発言
【53242】Re:UserFormのTextBoxの値でシートのセルを... かんじです 07/12/22(土) 15:06 お礼
【53243】Re:UserFormのTextBoxの値でシートのセルを... かんじです 07/12/22(土) 16:17 質問
【53244】Re:UserFormのTextBoxの値でシートのセルを... Yoshi 07/12/22(土) 16:17 発言
【53245】Re:UserFormのTextBoxの値でシートのセルを... かんじです 07/12/22(土) 20:46 お礼
【53246】Re:UserFormのTextBoxの値でシートのセルを... かみちゃん 07/12/22(土) 21:21 発言
【53247】Re:UserFormのTextBoxの値でシートのセルを... かんじです 07/12/22(土) 23:26 お礼
【53248】Re:UserFormのTextBoxの値でシートのセルを... かみちゃん 07/12/22(土) 23:38 発言
【53254】Re:UserFormのTextBoxの値でシートのセルを... かんじです 07/12/23(日) 11:24 お礼
【53255】Re:UserFormのTextBoxの値でシートのセルを... tatumi 07/12/23(日) 14:41 質問
【53256】Re:UserFormのTextBoxの値でシートのセルを... かみちゃん 07/12/23(日) 15:07 発言
【53259】Re:UserFormのTextBoxの値でシートのセルを... tatumi 07/12/24(月) 9:23 お礼

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