ここから本文です

今下記の画像のようなマクロを考えているのですが、 どうもうまくできず困ってい...

d40********さん

2017/9/2214:23:06

今下記の画像のようなマクロを考えているのですが、
どうもうまくできず困っています。
どなたかお知恵をお貸しください!!

「う」と入力すると左の2セルに「あ」「い」が入力されるとい

うマクロを考えています。
ですが、「う」が一つ飛びになったり、連続されると最左に「あ」「い」が入力されるようにしたいです。

最左,r.Row,Dim r As Range,If r.Value,If Intersect,Cells,下記

この質問は、活躍中のチエリアン・専門家に回答をリクエストしました。

閲覧数:
37
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tai********さん

リクエストマッチ

2017/9/2219:55:43

入力する列を固定しないと数億個あるセルを検索することになり、とりとめがないですね。

次のサンプルコードは入力するのはD列~F列限定です。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
If Intersect(Range("D:F"), Target) Is Nothing Then Exit Sub
For Each r In Target
If r.Value = "う" And WorksheetFunction.CountIf(Range(Cells(r.Row, 4), Cells(r.Row, 6)), r.Value) > 1 Then
Range(Cells(r.Row, 2), Cells(r.Row, 3)) = Array("あ", "い")
End If
Next
End Sub

質問した人からのコメント

2017/9/25 09:32:13

おかげさまで何とか間に合いそうです。
ありがとうございました。

あわせて知りたい

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる