ja7awu の回答履歴

こんばんはよろしくお願いします。 エクセル2000で、日付が入力されているセルの表示を 7月4日の場合、「 7月 4日」と表示させるにはどうしたらよいのでしょうか？ (つまり十の位に半角スペースが入ってる状態です。) 同様に通し番号も９までの数字も「１」ではなく「　１」と表示させるにはどうすればよいのでしょうか？ いつもありがとうございます。

　　　A1　　　　　　　　　　　　　A2　　　 １　2003年３月13日　　　　　　　 9 ２　2003年３月13日　　 　　　　　3 ３　2003年３月14日　　 　　　　　5 ４ 2003年３月14日 　　　　　　8 ５ 2003年３月14日 　　　　　　8 上記のような図で3月13日の９の数や3月１４日の８の数を数えたいのですが、関数式をお教え願います。

Access2000です。 入力するとすぐに集計をしたいのですが、 フォームフッターの集計用テキストボックス （=sum([フィールド名])が設定されている) は、レコードを保存しないと、再計算されないようです。 そこで、入力して、フォーカスを喪失するときに DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 を実行して、レコードを保存しているのですが、 デバッグのとき、エラーが発生しますし、 （デバッグ中は、VBAエディタが表示されるため） また、メニューの実行のコマンドは物足りないので、 指定したフォームのレコードを保存する方法は、 他にないでしょうか？ よろしくお願いいたします。

アクセスのクエリでレコードをスコアの大きい順に並べ替えて、オートでナンバーを振り順番をつけたいのですが、可能でしょうか？ご解答宜しくお願い致します。

こんばんは、ＡＣＣＥＳＳ初心者です。 ＡＣＣＥＳＳのＶＢＡで、あるデータ処理を行うプログラムを作成しました。 処理件数が多いため、現在処理中の件数をフォーム上に表示させてあげようと、 テキストボックスを配置し、そこへカウンタの値をセットしようと思います。 （カウントアップしているサマをユーザーに見せたい） しかし、ただセットするだけではダメのようで、 再表示的なこと？をしてあげないと表示されない感じなのですが、 処理中にテキストボックスの最新の値を常に表示させるには 何か方法があるのでしょうか？ よろしくお願いします。

エクセルＶＢＡを使い検索する方法を教えて下さい。 作業登録というシートは 　　　Ａ　　　　　　Ｂ １　作業名　　作業完了月日　　 ２　○○ ３　×× ４　△△ ・ ・ と日々５件ぐらい追加され年間では５００件ぐらいつまり５００行くらい使います。 また作業入力というシートは 　　　Ａ　　　　Ｂ　　　　Ｃ　　　Ｄ １　作業日　作業名　完了　継続 ２　12/23　　○○　　　　　　○ ３　12/23　　××　　　○ ・ ・　12/24　　△△ ・ と当日の作業を作業登録シートから作業名をコピー入力し、夕方その作業が終われば完了に○、終わらなければ継続に○を入力します。翌日になれば、最終入力行から前日と同様に入力し夕方になれば完了・継続欄に入力と毎日このような処理をし、１年間このシートに入力するため１万行ぐらいになります。 ここからが質問ですが 作業登録シートにコマンドボタンを置きクリックしたら作業入力シートで完了欄に○がついている作業名があったらその行の日付を作業完了月日の該当する欄に表示させ、かつ該当作業名セルを奇数月は赤色、偶数月は黄色に塗りつぶしたいのです。 月締めの検収時、作業入力シートでオートフィルを使い終わっている作業名を検索し処理していますが、もっと早く処理したいのです。ちなみに同じ作業名はありませんし、継続作業は完了するまで何日（連続とは限らない）も作業します。また終わった作業は再び実施しません。 よろしくお願いします。

こんにちは。 Excelについて質問したいことがあります。 今、１行飛ばしごとに数字の入った列があります。 例えば、１列目の１行目に２、１列目の２行目に ＃NUM!、１列目の３行目に６、１列目の４行目に ＃NUM!、１列目の５行目に３、・・・・とこんな感じです。 ここで、他の列に数字データだけ抜き出した列にしたいんですけど、 ２列目の１行目に２、２列目の２行目に６、２列目の３行目に３、・・・とこんな感じです。 自分でいろいろ試してみたけど出来ませんでした。 どなたか、式入力の解かる方教えてください。 お願いします。

お世話になっております。 現在、EXCEL2000を使用しております。 ツール＞オプション＞計算方法　を「手動」にし、VBAで 任意に再計算を行っています。 このとき、計算方法が「自動」の時の再計算中と同じよ うに、再計算の進捗状況をタスクバーに表示させたいの ですが、どうしたらよいかご存知の方いらっしゃいまし たら教えてください。 宜しくお願いします。

お世話になっております。 現在、EXCEL2000を使用しております。 ツール＞オプション＞計算方法　を「手動」にし、VBAで 任意に再計算を行っています。 このとき、計算方法が「自動」の時の再計算中と同じよ うに、再計算の進捗状況をタスクバーに表示させたいの ですが、どうしたらよいかご存知の方いらっしゃいまし たら教えてください。 宜しくお願いします。

こんにちは。 エクセル関数で条件に該当するレコードのヘッダ（？）を 表示させたいのですが、なかなかうまくいきません。 作成しているのは、ある複数ファイルの履歴管理で、 更新日付と、ファイルのVersionが入力されています。 今回、”ファイル名”の列の隣に”最新版”という列を 挿入しました。 ファイル名｜最新版｜Ver.1｜Ver.2｜Ver.3| ・・・ ----------------------------------------　 ファイルＡ｜Ver.1 ｜12/01| ファイルＢ｜Ver.3 ｜10/10|11/30 |12/24 | ファイルＣ｜Ver.2 ｜09/28|12/24 | 　　・ 　　・ 　　・ 関数を設定したいのは、”最新版”列で、更新日付を 入力したら、その最新の日付のVer名を表示できるように 設定したいと思っています。 　Ex）ファイルＢなら12/24が最終更新日なので、 　　　”最新版”は”Ver.3”と自動的に表示される。 　　　ファイルＡなら12/01が最終更新日なので、 　　　”最新版”は”Ver.1”と自動的に表示される。 ご存知の方、どうぞよろしくお願いしますm(_ _)m

Excel2000を使用しています。 VBAで、ワークシート上にあるテキストボックス内にカーソルがある状態で、Enterキーが押されたときに作動するマクロを作りたいのですが、方法が分かりません（ヘルプや翔泳社のVBA辞典も見たのですが、どうもよく分かりません） ちょうど、gooやYahoo!の検索窓のような感じでマクロを動作させたいのですが、どのようにしたら良いでしょうか？ご存知の方、どうか宜しくお願いいたします。

エクセル2002を使っています。 シート1に 　A列に氏名 　B列に住所 　C列に電話番号　のデータが300件の表があります。 B列を検索してたとえば大阪府があれば、その行（ABC列)をシート２へコピーして抽出したいのです。 　VBAを使ってやりたいのですがどうしたらよいでしょうか?　よろしくお願いします。

エクセルＶＢＡを使い検索する方法を教えて下さい。 作業登録というシートは 　　　Ａ　　　　　　Ｂ １　作業名　　作業完了月日　　 ２　○○ ３　×× ４　△△ ・ ・ と日々５件ぐらい追加され年間では５００件ぐらいつまり５００行くらい使います。 また作業入力というシートは 　　　Ａ　　　　Ｂ　　　　Ｃ　　　Ｄ １　作業日　作業名　完了　継続 ２　12/23　　○○　　　　　　○ ３　12/23　　××　　　○ ・ ・　12/24　　△△ ・ と当日の作業を作業登録シートから作業名をコピー入力し、夕方その作業が終われば完了に○、終わらなければ継続に○を入力します。翌日になれば、最終入力行から前日と同様に入力し夕方になれば完了・継続欄に入力と毎日このような処理をし、１年間このシートに入力するため１万行ぐらいになります。 ここからが質問ですが 作業登録シートにコマンドボタンを置きクリックしたら作業入力シートで完了欄に○がついている作業名があったらその行の日付を作業完了月日の該当する欄に表示させ、かつ該当作業名セルを奇数月は赤色、偶数月は黄色に塗りつぶしたいのです。 月締めの検収時、作業入力シートでオートフィルを使い終わっている作業名を検索し処理していますが、もっと早く処理したいのです。ちなみに同じ作業名はありませんし、継続作業は完了するまで何日（連続とは限らない）も作業します。また終わった作業は再び実施しません。 よろしくお願いします。

エクセルＶＢＡを使い検索する方法を教えて下さい。 作業登録というシートは 　　　Ａ　　　　　　Ｂ １　作業名　　作業完了月日　　 ２　○○ ３　×× ４　△△ ・ ・ と日々５件ぐらい追加され年間では５００件ぐらいつまり５００行くらい使います。 また作業入力というシートは 　　　Ａ　　　　Ｂ　　　　Ｃ　　　Ｄ １　作業日　作業名　完了　継続 ２　12/23　　○○　　　　　　○ ３　12/23　　××　　　○ ・ ・　12/24　　△△ ・ と当日の作業を作業登録シートから作業名をコピー入力し、夕方その作業が終われば完了に○、終わらなければ継続に○を入力します。翌日になれば、最終入力行から前日と同様に入力し夕方になれば完了・継続欄に入力と毎日このような処理をし、１年間このシートに入力するため１万行ぐらいになります。 ここからが質問ですが 作業登録シートにコマンドボタンを置きクリックしたら作業入力シートで完了欄に○がついている作業名があったらその行の日付を作業完了月日の該当する欄に表示させ、かつ該当作業名セルを奇数月は赤色、偶数月は黄色に塗りつぶしたいのです。 月締めの検収時、作業入力シートでオートフィルを使い終わっている作業名を検索し処理していますが、もっと早く処理したいのです。ちなみに同じ作業名はありませんし、継続作業は完了するまで何日（連続とは限らない）も作業します。また終わった作業は再び実施しません。 よろしくお願いします。

いつもお世話になります。 EXCEL2000を使用しています。 EXCELファイルの中のあるワークシートを開いたときにマクロを自動実行することはできますか? AUTO_OPENだとファイルを開くたびに自動実行されるので、特定のワークシートを開いたときだけマクロを自動実行できるようにしたいのです。 よろしくお願いします。

A,C,D列に商品の製造番号が入っています。中には重複しているものがいくつかあるのですが、E列に全部で何種類の製造番号があるか調べる関数はありますか？

エクセルＶＢＡで作りたいのですが Ａ列に同じ文章が13行、その下に違う文章で13行、又その下に違う文章で13行・・・・・と入っています。この文章の各先頭行だけ集めてUserFormの中のListBoxに表示させたいのです。わかりづらいかもしれませんがよろしくお願いします。 Ａ列 あ あ　　13行 あ ・ ・ い い　　13行 ・ ・ う う　　13行 ・ ・ 　 ListBoxに あ い う え お ・ ・ と表示したいのです。

エクセルＶＢＡで作りたいのですが Ａ列に同じ文章が13行、その下に違う文章で13行、又その下に違う文章で13行・・・・・と入っています。この文章の各先頭行だけ集めてUserFormの中のListBoxに表示させたいのです。わかりづらいかもしれませんがよろしくお願いします。 Ａ列 あ あ　　13行 あ ・ ・ い い　　13行 ・ ・ う う　　13行 ・ ・ 　 ListBoxに あ い う え お ・ ・ と表示したいのです。

エクセル2000を使用している初心者です。 マクロは昨日ここで、ご指導いただいたばかりです。 過去ログを参考にあるホームページから 赤いフォントを数えるマクロを、カレンダーの 年間休日数を数えるためにコピーしました。 １日かかって、動作する様にはなったのですが 私が範囲指定している場所の個数より多く、また シート全体の赤いフォントの個数よりも多い様なので す。以下にコピーしますのでどこがおかしいのか ご指導願えないでしょうか。 Sub 休日検索() Dim myRng As Range Dim myFlag As Byte Dim myBoldCnt As Long, myRedCnt As Long Dim myBoldOrRedCnt As Long, myBoldAndRedCnt As Long For Each myRng In Range("検索範囲")※私の書き換えたのはここだけ myFlag = 0 With myRng If .Font.Color = RGB(255, 0, 0) Then myFlag = myFlag + 1 If .Font.Bold Then myFlag = myFlag + 2 End With If myFlag And 1 Then myRedCnt = myRedCnt + 1 If myFlag And 2 Then myBoldCnt = myBoldCnt + 1 If myFlag And 3 Then myBoldOrRedCnt = myBoldOrRedCnt + 1 If myFlag = 3 Then myBoldAndRedCnt = myBoldAndRedCnt + 1 Next MsgBox "太字" & vbtab & vbtab & myBoldCnt & vbcrlf _ & "赤" & vbtab & vbtab & myRedCnt & vbcrlf _ & "太字または赤" & vbtab & myBoldOrRedCnt & vbcrlf _ & "太字かつ赤" & vbtab & myBoldAndRedCnt End Sub

エクセル2000を使用している初心者です。 マクロは昨日ここで、ご指導いただいたばかりです。 過去ログを参考にあるホームページから 赤いフォントを数えるマクロを、カレンダーの 年間休日数を数えるためにコピーしました。 １日かかって、動作する様にはなったのですが 私が範囲指定している場所の個数より多く、また シート全体の赤いフォントの個数よりも多い様なので す。以下にコピーしますのでどこがおかしいのか ご指導願えないでしょうか。 Sub 休日検索() Dim myRng As Range Dim myFlag As Byte Dim myBoldCnt As Long, myRedCnt As Long Dim myBoldOrRedCnt As Long, myBoldAndRedCnt As Long For Each myRng In Range("検索範囲")※私の書き換えたのはここだけ myFlag = 0 With myRng If .Font.Color = RGB(255, 0, 0) Then myFlag = myFlag + 1 If .Font.Bold Then myFlag = myFlag + 2 End With If myFlag And 1 Then myRedCnt = myRedCnt + 1 If myFlag And 2 Then myBoldCnt = myBoldCnt + 1 If myFlag And 3 Then myBoldOrRedCnt = myBoldOrRedCnt + 1 If myFlag = 3 Then myBoldAndRedCnt = myBoldAndRedCnt + 1 Next MsgBox "太字" & vbtab & vbtab & myBoldCnt & vbcrlf _ & "赤" & vbtab & vbtab & myRedCnt & vbcrlf _ & "太字または赤" & vbtab & myBoldOrRedCnt & vbcrlf _ & "太字かつ赤" & vbtab & myBoldAndRedCnt End Sub