Excel VBA質問箱 IV

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

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


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

86 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【80766】Re:フィルタオプションの同名の複数検索

γ - 19/5/4(土) 15:27 -


	引用なし

	パスワード

いやいや
質問の冒頭、まっさきに
＞他のサイトで回答が得られませんでしたので、ここで質問させて頂きます。
と書いていますよね。
他のサイトで質問したんじゃないのですか？
紛らわしい！

・ツリー全体表示


	【80765】Re:フィルタオプションの同名の複数検索

［名前なし］ - 19/5/4(土) 14:12 -


	引用なし

	パスワード

γ様、マナ様

…すいません。

てっきり、お二方のどなたかが回答して頂いたかと思っていました。
というのも、「回答が得られない」という文言があったもので…。

お騒がせして申し訳ありませんでした。

またよろしくお願いいたします。

・ツリー全体表示


	【80764】Re:フィルタオプションの同名の複数検索

γ - 19/5/4(土) 13:47 -


	引用なし

	パスワード

ありがとうございます。
ありゃ、私の記憶にはまったくないです。寄る年波で・・・。
いずれにしても、質問者さんから詳細な説明があるとよいけど。

・ツリー全体表示


	【80763】Re:フィルタオプションの同名の複数検索

マナ - 19/5/4(土) 13:14 -


	引用なし

	パスワード

▼γ さん：

＞別サイトでの回答、ありがとうございます！

γさんと他でやりとりがあったのかと思っていました。

・ツリー全体表示


	【80762】Re:フィルタオプションの同名の複数検索

γ - 19/5/4(土) 13:03 -


	引用なし

	パスワード

お話が盛り上がっているようですけど、
＞他のサイトで回答が得られませんでしたので、ここで質問させて頂きます。
どのサイトのどのスレッドなんでしょう。

・ツリー全体表示


	【80761】Re:フィルタオプションの同名の複数検索

マナ - 19/5/4(土) 12:39 -


	引用なし

	パスワード

▼［名前なし］さん：

>検索項目（名）に対し、同名の見出しのみ（1つ）が抽出されるのは
>わかっているのですが、ひょっとして複数の抽出がフィルタオプションで
>できる方法があるのではないかと思い、質問させていただきました。

具体例がないので、何がしたいか全くわかりませんが
マクロ使う前提なら、何とでもなるのでは。
作業セルも使い放題ですよね。

勿論フィルタオプションにこだわる必要もないですが…

・ツリー全体表示


	【80760】Re:フィルタオプションの同名の複数検索

［名前なし］ - 19/5/4(土) 11:40 -


	引用なし

	パスワード

γ様、マナ様

アドバイスありがとうございます。

検索項目（名）に対し、同名の見出しのみ（1つ）が抽出されるのは
わかっているのですが、ひょっとして複数の抽出がフィルタオプションで
できる方法があるのではないかと思い、質問させていただきました。

別サイトでの回答、ありがとうございます！
やはり、出来ないようですね。

ご教示頂いた構文を参考にさせて頂いきます。

今回もお手数をおかけしました。

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

・ツリー全体表示


	【80759】Re:strcnvでの半角変換の際の文字効果が...

chell - 19/5/2(木) 19:08 -


	引用なし

	パスワード

すいません、いま訳あって手元にexcel環境がないので、
GW明けにマナさんに教えていただいたコードで試そうと思います。
回答たいへんありがとうございました。

▼マナさん：
>▼chell さん：
>
>1文字ずつ変換してみました
>
>Sub test()
>　　Dim c As Range
>　　Dim k As Long
>　　
>　　Set c = ActiveCell
>　　　　
>　　For k = 1 To Len(c.Text)
>　　　　With c.Characters(k, 1)
>　　　　　 .Text = StrConv(.Text, vbNarrow)
>　　　　End With
>　　Next
>
>End Sub

・ツリー全体表示


	【80758】Re:strcnvでの半角変換の際の文字効果が...

chell - 19/5/2(木) 18:54 -


	引用なし

	パスワード

回答ありがとうございます。
質問が言葉足らずでした。

文字効果が消えてしまうのは、
「アイウエオ」などの場合「ウ」だけ文字効果があった場合に
strconvだと効果が消えてしまうという質問です。

よろしくお願いします。

▼マナさん：
>▼chell さん：
>
>1文字ずつ変換してみました
>
>Sub test()
>　　Dim c As Range
>　　Dim k As Long
>　　
>　　Set c = ActiveCell
>　　　　
>　　For k = 1 To Len(c.Text)
>　　　　With c.Characters(k, 1)
>　　　　　 .Text = StrConv(.Text, vbNarrow)
>　　　　End With
>　　Next
>
>End Sub

・ツリー全体表示


	【80757】Re:ifの=の条件が判定しない

藤田 - 19/5/2(木) 17:35 -


	引用なし

	パスワード

了解です。

ご指摘ありがとうございます。

・ツリー全体表示


	【80756】Re:フィルタオプションの同名の複数検索

マナ - 19/5/2(木) 15:52 -


	引用なし

	パスワード

▼［名前なし］さん：

>フィルタオプションの検索欄「種類」（C3:C4）に、例えば「りんご」、
>「みかん」、「いちご」、「メロン」、「スイカ」、「オレンジ」のいずれか
>を入力すると、データ表（B5:AG10）から該当するデータを抽出する

データ表は、見出しを除くと、５行になりますが？？？
フィルタオプションについて、何か勘違いしていませんか。

・ツリー全体表示


	【80755】Re:フィルタオプションの同名の複数検索

γ - 19/5/2(木) 15:21 -


	引用なし

	パスワード

「フィルタオプションで数式を使う方法」
ht tp://office-qa.com/Excel/ex246.htm
を参考にして下さい。

数式は、2つのCOUNTIFの合計が >0 であること　にすればよいでしょう。

これから出掛けてしまうので、端折ったコメントですみませんが、
トライしてみて下さい。

・ツリー全体表示


	【80754】フィルタオプションの同名の複数検索

［名前なし］ - 19/5/2(木) 14:42 -


	引用なし

	パスワード

フィルタオプションについて

またお願いします。

他のサイトで回答が得られませんでしたので、ここで質問させて頂きます。

フィルタオプションの検索欄を2つ設け、データ表から当てはまるもの全て
の行を抽出したいと思います。

フィルタオプションの検索欄「種類」（C3:C4）に、例えば「りんご」、
「みかん」、「いちご」、「メロン」、「スイカ」、「オレンジ」のいずれか
を入力すると、データ表（B5:AG10）から該当するデータを抽出するというも
のですが、そのデータ表には6つの「種類」が存在し、検索蘭に入力された「種類」
に該当するものを抽出したいと思います。
※2つある検索欄に2つ入力すれば、その2つを満たしているものを抽出する。

よろしくお願いいたします。

・ツリー全体表示


	【80753】Re:strcnvでの半角変換の際の文字効果が...

マナ - 19/5/2(木) 11:35 -


	引用なし

	パスワード

▼chell さん：

1文字ずつ変換してみました

Sub test()
　　Dim c As Range
　　Dim k As Long
　　
　　Set c = ActiveCell
　　　　
　　For k = 1 To Len(c.Text)
　　　　With c.Characters(k, 1)
　　　　　 .Text = StrConv(.Text, vbNarrow)
　　　　End With
　　Next

End Sub

・ツリー全体表示


	【80752】Re:strcnvでの半角変換の際の文字効果が...

マナ - 19/5/2(木) 11:09 -


	引用なし

	パスワード

▼chell さん：

ごめんささい。勘違いしていました。

・ツリー全体表示


	【80751】Re:strcnvでの半角変換の際の文字効果が...

マナ - 19/5/2(木) 10:56 -


	引用なし

	パスワード

▼chell さん：

>こういった文字効果を保持したまま半角に変換する方法は無いでしょうか。

参考になりませんか
ht　tps://www.moug.net/tech/exvba/0050122.html

・ツリー全体表示


	【80750】strcnvでの半角変換の際の文字効果が消え...

chell - 19/5/2(木) 10:29 -


	引用なし

	パスワード

ご教示願います。

strcnv関数を使って全角文字を半角変換した際、
太字や斜体や色、および文字サイズがすべて元に戻ってしまいます。
（なぜか文全体に同じ効果がかかってると元に戻らない）

こういった文字効果を保持したまま半角に変換する方法は無いでしょうか。
よろしくお願いします。

・ツリー全体表示


	【80749】Re:ifの=の条件が判定しない

マナ - 19/5/1(水) 23:12 -


	引用なし

	パスワード

▼藤田さん：

マルチポストに関する基本方針です。
ご一読ください。

-----
マルチポストについて
別のサイト（掲示板）にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。当質問箱では、マルチポストは原則認めています。つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。

しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。質問しっぱなし、というのはモラルに反します。「解決したからいいや」というのではありません。

また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。

・ツリー全体表示


	【80748】Re:ifの=の条件が判定しない

マナ - 19/5/1(水) 23:06 -


	引用なし

	パスワード

▼藤田さん：

少なくとも、４箇所で同じ質問をしていますが、
どこで質問しても同じだと思いますよ。

・ツリー全体表示


	【80747】ifの=の条件が判定しない

藤田

- 19/5/1(水) 21:49 -


	引用なし

	パスワード

マクロでifの=の条件が判定してくれません。

Dim SikenBenchiCNT As Integer'整数で定義

マクロの中でカウントしている。
SikenBenchiCNT = SikenBenchiCNT +1

下のif分が反応しません。
If SikenBenchiCNT = 14 Then
End

セルに書き出して確認して14がいることを確認しています。
Sheets("マクロ確認用").Cells(6, 3) = SikenBenchiCNT

If SikenBenchiCNT > 14 Then
や
If SikenBenchiCNT < 14 Then
だと反応します。

どこを気を付ければよいか教えていただけないでしょうか？

・ツリー全体表示


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

86 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free