エクセルの学校：全文検索：Hyper Estraier：表示形式　数値　通貨

Results of 1 - 1 of about 78 for 表示形式　数値　通貨 (0.011 sec.)

表示形式 (6901), 数値 (16333), 通貨 (231)

[[20160217115409]]: #score: 11548; @digest: 417ba1a0a217811031eb68be67587b57; @id: 69938; @mdate: 2016-02-19T01:41:18Z; @size: 6286; @type: text/plain; #keywords: 間cd (27437), 動te (25546), ーcd (22510), textbox5 (21877), keycode (15964), vbkeyreturn (11922), 日記 (11880), returninteger (9524), keydown (9170), textbox4 (8922), operator (8322), 仲間 (7625), xland (7313), 入日 (6600), autofilter (6069), textbox3 (5931), criteria1 (5774), 目( (5367), msforms (4049), textbox2 (3961), field (3942), 列目 (3593), トボ (3313), textbox1 (2890), selection (2861), テキ (2606), commandbutton3 (2598), キス (2408), 適用 (2081), 力後 (2050), 金額 (1882), ーカ (1872); 『VBAで検索フォーム作成中です』（たけさん）
いつもお世話になってます現在、検索フォームを作成しています。金額 textbox5 16列目(P)の部分で検索されますが、結果がフィルタされません。入日記 textbox4 の部分までですと結果は検索されます。全ての部分を入力するわけではなく、ブランクもあります。金額部分の表示形式は標準です。ご指導お願いします。検索データメーカーCD textbox2 17列目(Q) 適用 textbox1 10列目(J) 仲間CD textbox3 18列目(R) 入日記 textbox4 3列目(C) 金額 textbox5 16列目(P) CommandButton1 検索 CommandButton2 検索窓の値クリア CommandButton3 全てクリア(フィルタを解除) Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) 'TextBox5入力にEnterキーで検索する 'Enterキーで次のコントロールに移動する If KeyCode <> 13 Then Exit Sub CommandButton1_Click Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=17, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAnd '適用 Selection.AutoFilter Field:=10, Criteria1:="=*" & TextBox2.Value & "*", Operator:=xlAnd 'メーカーCD Selection.AutoFilter Field:=18, Criteria1:="=*" & TextBox3.Value & "*", Operator:=xlAnd '仲間CD Selection.AutoFilter Field:=3, Criteria1:="=*" & TextBox4.Value & "*", Operator:=xlAnd '入日記 Selection.AutoFilter Field:=16, Criteria1:="=*" & TextBox5.Value & "*", Operator:=xlAnd '金額 '再計算 Application.CalculateFull End Sub Private Sub CommandButton1_Click() '検索します Rows("1:1").Select 'すべての列の1行目のセル範囲選択 Selection.AutoFilter 'オートフィルタ 'オートフィルタでテキストボックスに入った値を検索する Selection.AutoFilter Field:=17, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAnd '17列目適用 Selection.AutoFilter Field:=10, Criteria1:="=*" & TextBox2.Value & "*", Operator:=xlAnd '10列目メーカーCD Selection.AutoFilter Field:=18, Criteria1:="=*" & TextBox3.Value & "*", Operator:=xlAnd '18列目CD Selection.AutoFilter Field:=3, Criteria1:="=*" & TextBox4.Value & "*", Operator:=xlAnd '3列目入日記 Selection.AutoFilter Field:=16, Criteria1:="=*" & TextBox5.Value & "*", Operator:=xlAnd '16列目金額 End Sub Private Sub CommandButton2_Click() 'フィルタ結果をクリアする Selection.AutoFilter If ActiveSheet.AutoFilterMode = False Then Range("A2").AutoFilter End If 'テキストボックスをクリアする Sheet1.TextBox1.Value = "" Sheet1.TextBox2.Value = "" Sheet1.TextBox3.Value = "" Sheet1.TextBox4.Value = "" Sheet1.TextBox5.Value = "" Range("P1").Select End Sub Private Sub CommandButton3_Click() 'テキストボックスをクリアする Sheet1.TextBox1.Value = "" Sheet1.TextBox2.Value = "" Sheet1.TextBox3.Value = "" Sheet1.TextBox4.Value = "" Sheet1.TextBox5.Value = "" End Sub Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'テキストボックス2（メーカーCD）を入力後、テキストボックス1（適用）へ移動 If KeyCode = vbKeyReturn Then 'Enterキーで移動 TextBox1.Activate End If End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'テキストボックス1（適用）を入力後、テキストボックス3（仲間CD）へ移動 If KeyCode = vbKeyReturn Then 'Enterキーで移動 TextBox3.Activate End If End Sub Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'テキストボックス3（仲間CD）を入力後、テキストボックス4（入日記）へ移動 If KeyCode = vbKeyReturn Then 'Enterキーで移動 TextBox4.Activate End If End Sub Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'テキストボックス4（入日記）を入力後、テキストボックス5（金額）へ移動 If KeyCode = vbKeyReturn Then 'Enterキーで移動 TextBox5.Activate End If End Sub ＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 金額ならば、カンマ区切りとか、頭に¥記号を付けていたりしませんか? TextBox5.Value の値と表示している文字列が一致していないのでは? （???） 2016/02/17(水) 14:17 ---- ???さんありがとうございます。おっしゃる通りで、他の検索値は全て文字列で、金額部分は通貨でした。書式設定が通貨の場合はどの様に検索値を指定すればいいのでしょうか?? （たけさん） 2016/02/17(水) 14:58 ---- シートの方はそのままで。フィルタ指定で「TextBox5.Value」を使っている部分を、「Format(TextBox5.Value, "¥¥#,##0")」としてみてください。（???） 2016/02/17(水) 15:16 ---- ???さん何度もありがとうございます数値の場合はどうなりますか?? なぜか、上手くフィルタしてくれません (ー_ー)!! （たけさん） 2016/02/17(水) 16:50 ---- 数値比較の場合、前後の*を外しましょう。（範囲指定の場合は、Criteria2を追加） Selection.AutoFilter Field:=16, Criteria1:=Format(TextBox5.Value, "¥¥#,##0") 123と1234を"123*"とはできない、って事です。 ">=123" and "<=1234" のように、範囲指定は可能です。（???） 2016/02/17(水) 17:29 ---- ???さん早々のお返事感謝します。早速やってみました!!!できました。感謝です。「123と1234を"123*"とはできない、って事です。」の部分がまだ整理しきれてませんが。。。今夜、もう一度復讐します。ありがとうございました!!! （たけさん） 2016/02/17(水) 17:34 ---- ???さん何度も申し訳ないです。上記でtextBox5の金額のフィルタはできました。 Selection.AutoFilter Field:=16, Criteria1:=Format(TextBox5.Value, "¥¥#,##0") ↑↑↑ にした場合、金額(16列目)がブランクで他の項目を入れた(例えば)場合に、フィルタが動作しません。（例えばメーカーコードのみを絞り込む、金額は全て）全て隠れて??しまいます。言いたい事がうまく伝わらずにすいません。（たけさん） 2016/02/18(木) 13:35 ---- TextBox5.Value が、空欄や数字でない場合はフィルタしない、とか? （???） 2016/02/18(木) 15:10 ---- ???さん空欄や数字以外のものは確認しましたが、ありません。。。フィルタされているのですが、結果が隠れてしまっている感じです。。。うーん、うーん（たけさん） 2016/02/18(木) 17:10 ---- いや、ですから TextBox5.Value の入力が具体的な数字でない場合は、フィルタ自体を掛けないようにするということで。（???） 2016/02/18(木) 17:39 ---- ???さんお返事、遅くなりました。読解力、なくてすいません。フィルタ自体をかけない!!!納得です。 IF文で、無事に解決できました。ありがとうございました!!! （たけさん） 2016/02/19(金) 10:41 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201602/20160217115409.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ