|
ichinoseさん、りんさん、みなさん、こんにちは。
ichinoseさん、りんさん
ありがとうございます。試させて頂きました。うまくセルを認識してくれますね。
しかし、実力不足で応用する事が出来ませんでした。
困ってる内容のマクロ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo AAA
If (Target.Value = "") And (Range("N" & Target.Row) <> "") And _
(Target.Row >= 19) And (Target.Row <= 28) And (Target.Column = 16) Then
項目表示ON ’処理マクロ
End If
If (Target.Column = 14) Or (Target.Column = 17) Then
SendKeys "%{DOWN}", True
End If
AAA:
End Sub
上段の部分である処理を行い、下の部分では、入力規則のリストを表示させています。
今、エラー処理を行っているので動作はするのですが、(Target.Column = 14) が結合セルの為、エラーとなりリスト表示されません。
On Error Resume Next・On Error GoTo 0で上マクロを囲ってみましたが、うまく行きませんでした。何か良い方法は、ないでしょうか。よろしくお願いします。
|
|