[[20171001202548]]　『セル移動、検索について』（KLY）　ページの最後に飛ぶ

『セル移動、検索について』（KLY）

保存していたファイルを削除してしまいました。

知っている方教えて下さい。

1、Private Sub Worksheet_Change(ByVal Target As Range)を使用しない他の使用方法

　セルが未入力だったらそのセルを選択し入力だったら次のセルを選択する

　K4 → AA4 →

　K33 → AA33

2、Findメソッドを使用しない他の使用方法

　 K列、AA列をまとめた検索をする（重複項目なし）

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

＞Private Sub Worksheet_Change(ByVal Target As Range)を使用しない他の使用方法

この意味がわかりません。
Worksheet_Changeを使用する方法だと、どうなるのか教えてください。

（マナ） 2017/10/01(日) 20:49

＞重複項目なし

検索結果は１つだけということでしょうか。
application.matchでK列を検索し、見つからなかったらAA列を検索

（マナ） 2017/10/01(日) 20:53

マナ様説明不足で失礼しました。

＞この意味がわかりません。
＞Worksheet_Changeを使用する方法だと、どうなるのか教えてください。
＞（マナ） 2017/10/01(日) 20:49

シートモジーュールに

 Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(False, False)
        Case "K4": Range("AA4").Select
        Case "AA4": Range("K33").Select
        Case "K33": Range("AA33").Select
        Case "AA33": Range("K4").Select
        Case Else: Range("K4").Select
 End Select
 End Sub

を作成しました。

指定したセル以外に入力すると指定セルに移動しない。

指定したセルを間違えないようにユーザーフォーム上から
使用できるようなSubプロシージャはありませんか。

＞検索結果は１つだけということでしょうか。
＞（マナ） 2017/10/01(日) 20:53

はいその通りです。行範囲が抜けていました。
　
　Ｋ1:Ｋ800　AA1:AA800

私もいま模索しているところです。

（KLY） 2017/10/02(月) 13:19

＞指定したセル以外に入力すると指定セルに移動しない。
＞指定したセルを間違えないようにユーザーフォーム上から
＞使用できるようなSubプロシージャはありませんか。

具体的に、何をしたいのか説明できませんか。

＞はいその通りです。行範囲が抜けていました。
＞Ｋ1:Ｋ800　AA1:AA800

こちらも、何故Findを使いたくないのか理解できません。

（マナ） 2017/10/02(月) 20:01

マナ様へ

模索した結果

Private Sub Worksheet_Change(ByVal Target As Range) は

Select Case で対応するようにしました。

Findメソッドは For Each In とＩｆの組み合わせで対応するようにしました。

＞こちらも、何故Findを使いたくないのか理解できません。

ある目的があって使用しているのでいいがかりです。
（KLY） 2017/10/03(火) 15:10

＞いいがかりです。

そんなつもりはなかったのですが、
そう受け止められたのであれば、ごめんなさい。

最後まで、何が問題であったのかわかりませんでしたが
自力で解決できたようでよかったです。

（マナ） 2017/10/03(火) 22:50

コメント返信：

[ 一覧(最新更新順) ]

[[20171001202548]] 『セル移動、検索について』（KLY） ページの最後に飛ぶ

[[20171001202548]]　『セル移動、検索について』（KLY）　ページの最後に飛ぶ