エクセルのマクロのことについてです。

質問

エクセルのマクロのことについてです。

セル内に入力した日本語でオートフィルタの絞り込み検索をかけるマクロを作りたいのですが、英語ではうまく行っているのですが、日本語ではなぜかうまくいきません。

下記のようにコードを書いているのですが、
どこが間違っているのかご教授いただけませんでしょうか？

Dim nihongo As String

nihongo = Worksheets("絞り込み").Cells(3.4).Value

If nihongo = Empty Then
nihongo = "*"
End If

ActiveSheet.Range("$A$7:$G$100").AutoFilter Field:=4, Criteria1:="=*" & nihongo & "*", Operator:=xlAnd

回答No.4

end-u · ベストアンサー

ご提示のコードが元コードをそのままコピー＆ペーストしたものならタイプミスです。
nihongoに格納したいのはD3セルの値ではないのですか？
>.Cells(3.4)
これでは.Cells(3)、つまりC1セルの値が格納されています。
.Cells(3, 4)...です。

>If nihongo = Empty Then
でも判定はしてくれます。（ただし長さ0文字列""もTrue判定します）
空白セルだったら
If IsEmpty(nihongo) Then
のほうがしっくりきますけどね。

お礼

こんな凡ミスしているとは全く気付きませんでした・・・。
本当にありがとうございました！感謝の気持ちでいっぱいです。

無事思い通りの挙動するようになりました！

回答No.3

D-Matsu

追記。

Option Explicitは「変数の自動定義を不可能にする」宣言で、コードの先頭に一回書いてあればいいです。
これの効果は、Dimで宣言した変数でないものが出てくるとエラーにしてくれるというもので、「したほうがよい」じゃなくて「絶対にしなさい」という類のものです。
＃なのにデフォルトでは付かないんですよねー

関数・サブルーチンの定義位置は、そのシートでしか使わないものなら標準モジュールに置く事もないでしょうね。

お礼

分かりやすい説明ありがとうございます。
次からは Option Explicitを使うようにします。

ありがとうございました。

回答No.2

D-Matsu

IsEmptyをCellsにかけて

if IsEmpty(Worksheets("絞り込み").Cells(3.4)) = True then
nihongo = "*"
else
nihongo = Worksheets("絞り込み").Cells(3.4).Value
end if

とするか、あるいは文字列長で判断して

if Len(nihongo) = 0 then
nihongo = "*"
end if

とするか。
たぶんどっちでも行けると思いますがお好きな方で。

回答No.1

bin-chan

> If nihongo = Empty Then

If IsNull(nihongo) Then
か
If IsEmpty(nihongo) Then
にしてみてください。

あと、Option Explicit宣言してますかね？

お礼

分かりづらい質問で回答してくれるか不安だったのですが、
真っ先に回答してくださり、大変ありがとうございました。
Option Explicitも次回から使うようにします。

補足

回答いただき、大変ありがとうございます。

If IsNull(nihongo) Thenと
If IsEmpty(nihongo) Thenの
いずれも試してみましたが、うまくいきませんでした。

Option Explicit宣言はしていませんが、した方がよいのでしょうか？

少し調べてみましたが、使い方がよく分らず、

sub関数の直前にOption Explicit　を置いてみましたが、
結果変わらずでした。

本当に初心者なので、今の状況を上手く説明できずに申し訳ございません・・・。

ちなみに関数は標準モジュールフォルダに入れて使ってもいんでしょうか？
該当のシートで記入した方がいいのでしょうか？