代码修改-----追加问题

fcdd

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("P26") <> "" Then’P26单元有内容时自动运行下列代码
        On Error Resume Next
        Application.EnableEvents = False
        Range("Q26:R26").FormulaR1C1 = "ABCDE"
        Application.EnableEvents = True
    End If
End Sub
求大虾帮忙，修改一下以上改吗？
要求：P26单元格指定内容（123、234、345）时，才运行代码
要求：如果P26单元格删除内容或其他内容，代码跟随删除（即单元格空白）

9楼-----追加问题，，，，，，9楼-----追加问题，，，，，，9楼-----追加问题，，，，，，9楼-----追加问题

hwc2ycy

要求：如果P26单元格删除内容或其他内容，代码跟随删除

求解释。

hwc2ycy

要求1

1. If InStr("123、234、345", Range("p26").Value) Then

复制代码

hwc2ycy

1. If InStr("123、234、345", Range("p26").Value) And Len(Range("p26").Value) Then

复制代码

继续改一下，如果P26单元格为空则有BUG。

fcdd

hwc2ycy 发表于 2013-8-3 16:34
继续改一下，如果P26单元格为空则有BUG。

你提供的代码可行第一个要就

如果P26单元格删除内容或输入其他内容，“内容不能跟随删除 ”

我要要的效果是
P26单元格指定内容（123、234、345）时，才运行代码
如果P26单元格删除更改内容或输入其他内容，“内容能跟随删除 ”

hwc2ycy

什么内容能跟随删除？
你说明点，绕了半天没看明白。

说不明白就举例子。

fcdd

hwc2ycy 发表于 2013-8-3 17:17
什么内容能跟随删除？
你说明点，绕了半天没看明白。

P26单元格输入指定内容（123、234、345）时运行代码
《
Range("Q26:R26").FormulaR1C1 = "ABCDE"》

如果P26单元格删除内容，更改内容，输入其他内容，（("Q26:R26")单元格为空白）

hwc2ycy

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$P$26" Then
   
3.         Application.EnableEvents = False
   
4.         If InStr("123、234、345", Target.Value) And Len(Target.Value) Then
   
5.             Range("Q26:R26").FormulaR1C1 = "ABCDE"
   
6.         Else
   
7.             Range("Q26:R26").ClearContents
   
8.         End If
   
9.         Application.EnableEvents = True
   
10.     End If
    
11. End Sub

复制代码

fcdd

P26单元格显示“法国”内容时自动运行下列代码
    Sheets("数据连接").Range("AD5").Copy
    Sheets("FCE").Range("Q26:R26").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False

P26单元格显示“德国”内容时自动运行下列代码   
    Sheets("数据连接").Range("AD6").Copy   
    Sheets("FCE").Range("Q26:R26").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _   
    xlNone, SkipBlanks:=False, Transpose:=False

P26单元格显示“国产”内容时自动运行下列代码
    Sheets("数据连接").Range("AD7").Copy   
    Sheets("FCE").Range("Q26:R26").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _   
    xlNone, SkipBlanks:=False, Transpose:=False

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
P27单元格显示“法国”内容时自动运行下列代码   
    Sheets("数据连接").Range("AE5").Copy   
    Sheets("FCE").Range("Q27:R27").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _   
    xlNone, SkipBlanks:=False, Transpose:=False

P27单元格显示“德国”内容时自动运行下列代码
    Sheets("数据连接").Range("AE6").Copy   
    Sheets("FCE").Range("Q27:R27").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _   
    xlNone, SkipBlanks:=False, Transpose:=False

P27单元格显示“国产”内容时自动运行下列代码   
    Sheets("数据连接").Range("AE7").Copy   
    Sheets("FCE").Range("Q27:R27").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _   
    xlNone, SkipBlanks:=False, Transpose:=FalsJIUDAXIA

求大虾帮忙，帮忙写一段代码
要求： P26、P27单元格指定内容时，才运行代码
要求：如果P26、P27单元格删除内容 、修改内容、输入其他内容  时  （"Q26:R26") ("Q27:R27")单元格 为空白

fcdd

hwc2ycy 发表于 2013-8-3 17:38

Private Sub Worksheet_Change(ByVal Target As Range)   
If Target.Address = "$P$26" Then        
Application.EnableEvents = False        
If InStr("德国进口、法国进口、国产产品", Target.Value) And Len(Target.Value) Then            
Range("Q26:R26").FormulaR1C1 = "ABCDE"      
Else            
Range("Q26:R26").ClearContents        
End If        
Application.EnableEvents = True   
End If
End Sub

把指定内容改为中文字时出现问题
只有 “法国进口”字眼有效，，，其他无效