Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9093 / 76736

←次へ　｜　前へ→


	【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