Excel VBA質問箱 IV

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

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


40274 / 76732 ←次へ | 前へ→

【41557】Re:C列の表示と同じようにE列にも表示し...
発言  かみちゃん  - 06/8/13(日) 11:23 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 最終コードです

[#41549]でponponさんが提示されたコードでも、
[#41550]でkazuoさんご自身が提示されたコードでも、動作確認できています。

[#41552]および[#41545]の[名前なし]さん(どなたか存じませんが)からのアドバ
イスを加味した以下のコードでも動作確認できています。

[#41546]でkazuoさんがおっしゃっている

> ↑でB列を削除してもC,E列の値そのまま残ってしまいます
> ^^^^^^^^^^^^^^^^^^^^^^^^^^
> ★C,E列がクリアにならないのです。★ここを何とかしたいのですが

という事象は発生しません。
今一度確認していただけないでしょうか?

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim hinmei As String, keijyou As String
 Dim myRange As Range
 Dim endRow As Long
 Dim a As Variant
 Dim i As Variant

 With Target
'  On Error GoTo errEnd
  If .Column <= 1 Or .Column >= 4 Or _
    .Row = 1 Then End

  Select Case .Column
'   Case 1
'    If .Offset(, 1).Value = "" Then Exit Sub
'     hinmei = .Value
'     keijyou = .Offset(, 1).Value
'     GoTo kakuninEvent
   Case 2
    If .Offset(, -1).Value = "" Then Exit Sub
     hinmei = .Offset(, -1).Value
     keijyou = .Value
     GoTo kakuninEvent
   Case 3
    If .Value = "式" Then
     Application.EnableEvents = False
     .Offset(, 1).Value = 1
     .Offset(0, 2).Select
     Application.EnableEvents = True
    End If
  End Select

  Exit Sub

kakuninEvent:
  Set myRange = Range("A2", Cells(Cells.Rows.Count, 1).End(xlUp).Offset(-1)).Resize(, 5)
  a = myRange.Value
    Application.EnableEvents = False
    Range("C" & .Row).ClearContents
    Range("E" & .Row).ClearContents
    Application.EnableEvents = True
  For i = 1 To myRange.Rows.Count
   If hinmei = a(i, 1) And keijyou = a(i, 2) Then
    Application.EnableEvents = False
    Range("C" & .Row).Value = a(i, 3)
    Range("E" & .Row).Value = a(i, 5)
    Application.EnableEvents = True
    Exit For
   End If
  Next i

 End With
'errEnd:

End Sub

あと、[#41545]で[名前なし]さんがおっしゃっている、

> 結局、提示されたコードでどんな処理をしたいのですか?
> A列・B列の値が、編集された行のA列・B列が同じ値で
> 最も下の行にあるC列の値を、編集された行のC列に出力?
>
> 前提条件が書かれていないので、無用なやりとりが続いているのでは
> ないかと思いますがいかがでしょうか?

については、私も同感です。
A列・B列の値が同じであれば、C列、E列も同じ値という前提なら問題ないのですが、
A列・B列の値が同じ場合、C列、E列は、最下行の値を表示したいというのなら、
異なる結果が得られます。
0 hits

【41501】おしえてください 初心者でーす 06/8/12(土) 10:37 質問
【41504】Re:C列の表示と同じようにE列にも表示したい かみちゃん 06/8/12(土) 14:04 発言
【41505】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/12(土) 15:04 質問
【41506】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/12(土) 15:19 発言
【41508】Re:C列の表示と同じようにE列にも表示したい かみちゃん 06/8/12(土) 15:53 発言
【41507】Re:C列の表示と同じようにE列にも表示したい かみちゃん 06/8/12(土) 15:46 発言
【41529】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/12(土) 21:35 お礼
【41531】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/12(土) 21:40 発言
【41532】Re:C列の表示と同じようにE列にも表示したい かみちゃん 06/8/12(土) 22:10 発言
【41534】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/12(土) 23:05 発言
【41535】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/12(土) 23:06 発言
【41537】Re:C列の表示と同じようにE列にも表示したい ponpon 06/8/12(土) 23:53 発言
【41538】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/13(日) 0:13 発言
【41539】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/13(日) 0:14 発言
【41540】Re:C列の表示と同じようにE列にも表示したい kazuo 06/8/13(日) 0:21 発言
【41541】Re:C列の表示と同じようにE列にも表示し... ponpon 06/8/13(日) 0:21 発言
【41542】Re:C列の表示と同じようにE列にも表示し... kazuo 06/8/13(日) 0:27 発言
【41543】Re:C列の表示と同じようにE列にも表示し... かみちゃん 06/8/13(日) 0:46 発言
【41546】Re:C列の表示と同じようにE列にも表示し... kazuo 06/8/13(日) 1:10 発言
【41544】Re:C列の表示と同じようにE列にも表示し... ponpon 06/8/13(日) 0:52 発言
【41549】Re:C列の表示と同じようにE列にも表示し... ponpon 06/8/13(日) 1:48 発言
【41550】Re:C列の表示と同じようにE列にも表示し... kazuo 06/8/13(日) 1:52 発言
【41552】Re:C列の表示と同じようにE列にも表示し... [名前なし] 06/8/13(日) 3:44 発言
【41557】Re:C列の表示と同じようにE列にも表示し... かみちゃん 06/8/13(日) 11:23 発言
【41561】Re:C列の表示と同じようにE列にも表示し... kazuo 06/8/13(日) 13:04 発言
【41566】Re:C列の表示と同じようにE列にも表示し... かみちゃん 06/8/13(日) 17:17 発言
【41567】Re:C列の表示と同じようにE列にも表示し... kazuo 06/8/13(日) 20:50 発言
【41568】Re:C列の表示と同じようにE列にも表示し... かみちゃん 06/8/13(日) 21:08 発言
【41570】Re:C列の表示と同じようにE列にも表示し... kazuo 06/8/13(日) 23:27 お礼
【41571】Re:C列の表示と同じようにE列にも表示し... かみちゃん 06/8/13(日) 23:37 発言
【41545】Re:おしえてください [名前なし] 06/8/13(日) 1:05 発言
【41548】Re:おしえてください kazuo 06/8/13(日) 1:33 発言

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