Excel VBA質問箱 IV

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

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


9089 / 76732 ←次へ | 前へ→

【73209】Re:VBAはじめてです。
発言  UO3  - 12/11/30(金) 13:59 -

引用なし
パスワード
   ▼うどん さん:

こんにちは

コード全体が正しいかどうかはわかりませんが、アップされたコードでやっておられる(と、思われる)ことを
少し整理してみました。ご参考まで。

なお、

Target.Offset(, hinmei_input_gyou).Value = .Cells(find_kensaku_gyou + 1, "I").Value

勝手に、I列から転記しています。
オリジナルコードを尊重すれば

Target.Offset(, hinmei_input_gyou).Value = .Cells(find_kensaku_gyou + 1, find_kensaku_list_gy).Value

こうなるところですが。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim barcord_gyou As Long
Dim case_count As Long
Dim hinmei_input_gyou As Long
Dim find_kensaku_list_gyou
Dim active_cell_now As Variant
Dim find_kensaku_gyou As Variant

  barcord_gyou = 1
  case_count = 2
  hinmei_input_gyou = 3
  find_kensaku_list_gyou = 10

  If Target.Column <> 1 Or Target.Count <> 1 Then Exit Sub
  
  Application.EnableEvents = False
  
  Target.Offset(, case_count).Value = WorksheetFunction.CountIf(Columns("B"), _
                        Target.Offset(, barcord_gyou).Value)
  active_cell_now = Target.Offset(, 1).Value
  
  With Worksheets("1")
    find_kensaku_gyou = Application.Match(active_cell_now, .Range("I2:I300"), 0)
    If IsNumeric(find_kensaku_gyou) Then _
      Target.Offset(, hinmei_input_gyou).Value = .Cells(find_kensaku_gyou + 1, "I").Value
  End With
        
  Application.EnableEvents = False
  
End Sub
0 hits

【73206】VBAはじめてです。 うどん 12/11/30(金) 4:46 質問
【73207】Re:VBAはじめてです。 UO3 12/11/30(金) 6:47 発言
【73213】Re:VBAはじめてです。 うどん 12/12/1(土) 4:42 お礼
【73208】Re:VBAはじめてです。 UO3 12/11/30(金) 10:51 発言
【73214】Re:VBAはじめてです。 うどん 12/12/1(土) 4:44 お礼
【73209】Re:VBAはじめてです。 UO3 12/11/30(金) 13:59 発言
【73215】Re:VBAはじめてです。 うどん 12/12/1(土) 4:45 お礼

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