Excel VBA質問箱 IV

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

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


17166 / 76738 ←次へ | 前へ→

【65029】Re:入力規則で選択したらシートに自動で入力させたいのですが。
回答  247b  - 10/4/5(月) 11:40 -

引用なし
パスワード
   こんな感じで使い物になるでしょうか。
以下のプロシージャは、Sheet1のクラスモジュールにコピーしてください。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  Dim r2 As Long 'Sheet2行カウンタ
  Dim TargetId As String '社員番号保持
  Static Processing As Boolean
  
  'プログラムから値コピーしてもイベントが発生するため、止めるフラグ
  If Processing Then Exit Sub
  
  '変更が入ったセルがB1の時のみに限定
  If Target.Address = "$B$1" Then
    'カウンタ初期化
    r2 = 2
    'ID確保、念のため半角文字へ変換
    TargetId = StrConv(Target.Value, vbNarrow)
    Do Until IsEmpty(Sheet2.Cells(r2, 4).Value)
      If Sheet2.Cells(r2, 4).Value = TargetId Then
        Processing = True
        Sheet1.Cells(2, 1).Value = Sheet2.Cells(r2, 2).Value
        Sheet1.Cells(3, 1).Value = Sheet2.Cells(r2, 3).Value
        Sheet1.Cells(4, 1).Value = Sheet2.Cells(r2, 4).Value
        Processing = False
        Exit Do
      End If
      r2 = r2 + 1
    Loop
  End If
  Processing = False
End Sub

0 hits

【65026】入力規則で選択したらシートに自動で入力させたいのですが。 kyo 10/4/4(日) 15:11 質問
【65029】Re:入力規則で選択したらシートに自動で入... 247b 10/4/5(月) 11:40 回答
【65033】Re:入力規則で選択したらシートに自動で入... sige 10/4/6(火) 0:40 質問
【65034】Re:入力規則で選択したらシートに自動で入... りん 10/4/6(火) 7:35 発言
【65039】Re:入力規則で選択したらシートに自動で入... sige 10/4/6(火) 12:57 お礼

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