Excel VBA質問箱 IV

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

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


74890 / 76732 ←次へ | 前へ→

【6295】Re:検索画面
発言  Hirofumi E-MAIL  - 03/6/22(日) 15:30 -

引用なし
パスワード
   Hirofumiです
私の方も暇が有ったら試して見て下さい
社員コード、氏名の探索とF列セルの入力を行うUserFormです

ただ、あの後も幾つか修正が見つかったので、書いて置きます

1、Sub CommandButton1_Click()イベントプロシージャに追加

  For i = 1 To 3
    Controls("Textbox" & i).Value = ""
  Next i
  'この行追加
  lngWriteRow = 0

2、Sub TextBox1_BeforeUpdateイベントプロシージャに追加、修正

          'その行のC列をActiveにする
          .Offset(, 2).Activate

          'その行のF列をActiveにする
          .Offset(, 5).Activate

          'TextBox2の値にその行の氏名を代入
          TextBox2.Text = .Offset(, 1).Value

          'TextBox2の値にその行の氏名を代入
          TextBox2.Text = .Offset(, 3).Value

        '書き込み行位置を探索位置に更新
        lngWriteRow = lngFind
        'この位置に以下の2行追加
        'セルのデータ取得
        GetData
        
3、Sub TextBox2_BeforeUpdateイベントプロシージャに追加、修正

          '探索位置をActiveに
          .Offset(, 1).Activate

          '探索位置をActiveに
          .Offset(, 2).Activate

          'TextBox1の社員コードを代入
          TextBox1.Text = .Offset(, -1)

          'TextBox1の社員コードを代入
          TextBox1.Text = .Offset(, -3)

        '書き込み行位置を探索位置に更新
        lngWriteRow = rngFind.Row
        'この位置に以下の2行追加
        'セルのデータ取得
        GetData

4、Sub UserForm_Initializeイベントプロシージャに追加、修正

  '社員氏名範囲の取得
  Set rngNameScope = Range(Cells(2, 2), _
                Cells(65536, 2).End(xlUp))


  '社員氏名範囲の取得
  Set rngNameScope = Range(Cells(2, 4), _
                Cells(65536, 4).End(xlUp))
に修正

5、UserFormコードモジュールの最終行に以下のプロシージャを追加

Private Sub GetData()

  With Cells(lngWriteRow, 1)
    TextBox3.Text = .Offset(, 5).Value
  End With

End Sub
0 hits

【6261】検索画面 ももこ 03/6/21(土) 11:49 発言
【6262】Re:検索画面 ももこ 03/6/21(土) 11:50 質問
【6266】説明不足ですいません。 ももこ 03/6/21(土) 22:45 質問
【6263】Re:検索画面 Hirofumi 03/6/21(土) 15:18 発言
【6264】フォームの自作 Be Quit 03/6/21(土) 16:18 回答
【6267】詳細なシート Be Quit 03/6/22(日) 0:35 質問
【6269】Re:詳細なシート ももこ 03/6/22(日) 9:18 質問
【6270】より詳細に、 Be Quit 03/6/22(日) 9:51 回答
【6271】Re:より詳細に、 ももこ 03/6/22(日) 10:13 質問
【6272】VBEditorをひらいて・・・ Be Quit 03/6/22(日) 10:28 回答
【6274】Re:VBEditorをひらいて・・・ ももこ 03/6/22(日) 10:43 質問
【6275】Re:VBEditorをひらいて・・・ ももこ 03/6/22(日) 10:48 質問
【6277】コピペ Be Quit 03/6/22(日) 11:12 回答
【6278】Re:コピペ ももこ 03/6/22(日) 11:30 質問
【6283】Re:コピペ Be Quit 03/6/22(日) 12:06 回答
【6285】できたかな? Be Quit 03/6/22(日) 13:14 回答
【6286】Re:できたかな? ももこ 03/6/22(日) 13:45 質問
【6288】Re:できたかな? Be Quit 03/6/22(日) 13:54 回答
【6289】Re:できたかな? ももこ 03/6/22(日) 13:58 質問
【6290】確認します Be Quit 03/6/22(日) 14:15 回答
【6291】Re:確認します ももこ 03/6/22(日) 14:31 質問
【6293】贅沢だ Be Quit 03/6/22(日) 15:07 回答
【6294】Re:贅沢だ ももこ 03/6/22(日) 15:14 お礼
【6296】そりゃよっかったね Be Quit 03/6/22(日) 15:30 回答
【6297】Re:そりゃよっかったね ももこ 03/6/22(日) 15:55 お礼
【6299】がんばりや。 Be Quit 03/6/22(日) 17:11 回答
【6276】Re:検索画面 Hirofumi 03/6/22(日) 11:10 回答
【6279】Re:検索画面 Hirofumi 03/6/22(日) 11:34 回答
【6280】Re:検索画面 ももこ 03/6/22(日) 11:38 質問
【6281】Re:検索画面 Hirofumi 03/6/22(日) 11:46 発言
【6284】Re:検索画面 ももこ 03/6/22(日) 12:09 お礼
【6295】Re:検索画面 Hirofumi 03/6/22(日) 15:30 発言

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