Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57548 / 76738

←次へ　｜　前へ→


	【23926】Re:開かれていない別のブックのシートの...

Hirofumi - 05/4/7(木) 19:00 -


	引用なし

	パスワード

>Test2()を実行したら、同じシート名が表示されます。（１行目は*つき）
>なぜなんでしょうね？もし心当たりがあれば、投稿ねがいます。
>

ゴメン、急いで書いたのでバグって居ました
　　
　　For i = 0 To UBound(vntData)
　　　　vntData(i) = "*" & vntData(i) & "*"
　　Next i
　　For i = 0 To UBound(vntName)
　　　　vntData(i) = "*" & vntName(i) & "*"
　　Next i

この部分を以下の様に修正して下さい
　　
　　For i = 0 To UBound(vntData)
　　　　vntData(i) = "*" & vntData(i) & "*"
　　Next i
　　For i = 0 To UBound(vntName)
　　　　vntName(i) = "*" & vntName(i) & "*"
　　Next i

此れは、何をしようとしているのかと言うと
Test2の結果は、２行に成り
上の行は"Menu"のシートのセルに書かれているシート名
下の行は、"設備点検.xls"のシートで、"Menu"のシートのセルの値とvbTextCompare
の比較で合致したシート名で、上下段とも、セルの値の前後に"*"を付けて表示しています
StrComp関数のvbTextCompareの比較と言うのは、
同じ文字の全角、半角、大文字、小文字は全て同じ文字と見なされます
詰まり、上下段を見比べて何が違っているのか見て下さいと言う意味でUpした物です
一寸見で、解らない物でも、全角、半角が違っている等はよく有る事なので？
また、最悪、StrComp関数のvbTextCompareの比較で上手く行くなら遅く成りますが
此れをFunctionにして、セルの値をちゃんとしたシート名に変換して、其の値を使って
シートを指定すれば善いかと思います

　

0 hits

▼

【23886】開かれていない別のブックのシートの追加 okb 05/4/6(水) 14:15