layy の回答履歴

Accessクエリ及びVBAを実行してXLSにファイルをエクスポート 環境 Windows Vista Access2007 質問 以下のような作業をマクロかVBAで自動化したいと考えています。 マクロまたはVBAでどのように設定すればよいかお手数をかけて恐れいりますが ご教示いただければ幸いです。 ★使用するテーブル ５０テーブル ５０のテーブルから店名を条件に該当するテーブルを一覧表をテーブル作成 クエリで作成済み テーブル一覧表　（例） テーブル名　　　　　店名　　　　　　　　件数 テーブル１　　　　　三鷹店　　　　　　　　　１ テーブル２　　　　　三鷹店　　　　　　　　　２ テーブル３　　　　　吉祥寺店　　　　　　　 ４ テーブル４　　　　　吉祥寺店　　　　　　　 ５ テーブル５　　　　　立川店　　　　　　　　　２ テーブル６　　　　　立川店　　　　　　　　　３ テーブル７　　　　　立川店　　　　　　　　　２ テーブル８　　　　　荻窪店　　　　　　　　　１ ★自動化したい手順 １　条件の店名が”三鷹店”で該当する各テーブルをxlsのシートごとにエクスポート (xlsのファイル名は三鷹店） ２　条件の店名が”吉祥寺店”で該当する各テーブルをxlsのシートごとにエクスポート (xlsのファイル名は吉祥寺店） ３　条件の店名が一覧表からなくなったら終了 ★補足 DoCmd.TransferSpreadsheetを使用してなんとかならないかと試行錯誤したのですが Table NameでSQLステートメントを使用してエクスポートするデータを指定することが できないため苦戦しています。VBAの知識はあまりありませんが、教えていただければ 自分で調べながら試してみますのでよろしくお願いします。　

教えてください。 MS　Accessでのテーブル、フォーム、レポートなどを作成し、T顧客管理や、F顧客管理、R顧客管理の名前をつけました。 中には、ウィザードで作ったものもあります。 そこで、名前が違っている事に気づき、ある、レポート（レポートウィザードで作成したもの）を名前を「R顧客リスト」に変更しました。 しかしながら、それを「開く」と開いたウィンドウのタイトルバーには前の名前が付いています。 しかし、デザインビューで開くと名前が変わっています。 これはなぜでしょうか。ウィザードで作ると名前が変更できなくなるのでしょうか。

下記のような表がいくつか存在した場合に、 毎回、特定の位置のみを降順で並べかえるマクロを 作成したいと考えております。 ここでいうと、“集計”より下で、“総計”より上の データを降順にしたいと考えております。 ただ、現在“果物”や“出席”となっている名称は表によって異なりま すし、 データの範囲も毎回変わります 大変お手数ですが、どなたかご教示頂けますと幸いです。 --------------------------------------------------------------- 果物　　　集計　　　　　　出席　　　集計 ぶどう　　１　　　　　　　しろう　　４ みかん　　３　　　　　　　たろう　　１ メロン　　２　　　　　　　はなこ　　３ りんご　　４　　　　　　　じろう　　２ 総計　　１０　　　　　　　ごろう　　２ 　　　　　　　　　　　　　みちこ　　１ 　　　　　　　　　　　　　総計　　１３ ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ 果物　　　集計　　　　　　出席　　　集計 りんご　　４　　　　　　　しろう　　４ みかん　　３　　　　　　　はなこ　　３ メロン　　２　　　　　　　じろう　　２ ぶどう　　１　　　　　　　ごろう　　２ 総計　　１０　　　　　　　たろう　　１ 　　　　　　　　　　　　　みちこ　　１ 　　　　　　　　　　　　　総計　　１３ --------------------------------------------------------------- ■“果物”部分のみマクロの記録で作成したもの Sub Macro1() Range("A2:B5").Select Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal End Sub

すいません　VBAど初心者、猛勉強中の者です。 前回と同じようなご質問になりますが、応用が加わると途端に手が止まってしまいました。 どなたか教えて頂けませんでしょうか。 ※子供と大人に好きな果物、さらに好きな季節を調査をした結果です。 　　 A列　　B列　　　　C列 1行：子供　 りんご　　　1.春 2行：大人　 バナナ　　　2.夏 3行：大人　 バナナ　　　夏物 4行：子供　 りんご　　　秋 5行：大人　 りんご　　　3.秋 6行：子供　 りんご　　　4.冬 7行：大人　 バナナ　　　春　　　 8行：子供　 りんご　　　4.冬 9行：大人　 りんご　　　2.夏 ・・・以下1000行まで続く というデータがあるとして、A列が「子供」かつB列が「りんご」と回答した人数は 出来たのです、以下の人数を出すことができません。 ■教えて頂きたい内容 A列が「子供」かつB列が「りんご」、かつC列が"春"または"夏"の文字列を含む人数 以下のソースですと人数が「0人」となり正確にカウント出来ません。 前回と同じような内容で恐縮ですが、応用が加わると途端に手詰まりになってしまいます。 度々の質問で申し訳ございませんがどうぞよろしくお願い致します。 --------------------------- Sub CounterMacro() Dim Counter As Integer Dim EndCount As Integer Dim Child_Apple As Integer Dim Child_AppleSeason As Integer Counter = 1 EndCount = Worksheets("Sheet1").Range("A1").End(xlDown).Row + 1 Child_Apple = 0 Child_AppleSeason = 0 Do While Counter < EndCount If Worksheets("Sheet1").Range("A" & Counter).Value = "子供" Then If Worksheets("Sheet1").Range("B" & Counter).Value = "りんご" Then Child_Apple = Child_Apple + 1 End If If Worksheets("Sheet1").Range("C" & Counter).Value = "*春* or *夏*" Then Child_AppleSeason = Child_AppleSeason + 1　'■←教えて頂きたい内容 End If End If Counter = Counter + 1 Loop MsgBox "「子供」かつ「りんご」" & Child_Apple & "人 " & "「子供」かつ「りんご」かつ「春まはた夏」" & Child_AppleSeason & "人 " End Sub

業務の関係で検索できるよう依頼を受けました。 先ほども質問させてもらいましたが、私の説明不足でしたので、再度説明させてもらいました。 質問につきましては添付の画像を使い説明させてもらいます。 C3とC4に数値を入力すると、C7とC8に数値を表示できるようにしたいと考えています。 元データはI4からM11となります。 高さはIだけですが、許容衝撃はJのMAXもしくはKのMIINの中の数値と合致したらとなりますので、 C3・C4の数値がIとJもしくはKの数値が合致したら返すようにしたいと考えています。 わたしくのエクセル知識が足りてないのでご教授をお願い致します。

業務の関係で検索できるよう依頼を受けました。 先ほども質問させてもらいましたが、私の説明不足でしたので、再度説明させてもらいました。 質問につきましては添付の画像を使い説明させてもらいます。 C3とC4に数値を入力すると、C7とC8に数値を表示できるようにしたいと考えています。 元データはI4からM11となります。 高さはIだけですが、許容衝撃はJのMAXもしくはKのMIINの中の数値と合致したらとなりますので、 C3・C4の数値がIとJもしくはKの数値が合致したら返すようにしたいと考えています。 わたしくのエクセル知識が足りてないのでご教授をお願い致します。

システム開発の案件で、SEとして働いています。 現在は10名程度のチームで、リーダが2人おり、 私などは、その指揮配下にいます。 そのリーダの仕事のやり方に、「何故私にはできないのか」と 私自身が悩むことが多いです。 リーダの主な印象としては、以下の通りです。 １．決断が早く、理由についても筋が通っている ２．視野が広く、課題の認識や、その課題に対しPJ関係者や顧客を巻き込み共有する ３．必要であれば、関係者を集めて会議を実施し、自身が主導で決める ２．と３．については、特に私には不足しており、どうすれば こういったリーダシップが取れるのか、悩んでいます。 （コミュニケーション能力かもしれません） 向き不向きや、システム開発経験の深い下積みの有無なども影響するのでしょうか・・？。 上記の力を得るために、どういったことを訓練、実践すれば良いかなど アドバイスを頂けると助かります。

すいません　VBAど初心者、猛勉強中の者です。 前回と同じようなご質問になりますが、応用が加わると途端に手が止まってしまいました。 どなたか教えて頂けませんでしょうか。 ※子供と大人に好きな果物、さらに好きな季節を調査をした結果です。 　　 A列　　B列　　　　C列 1行：子供　 りんご　　　1.春 2行：大人　 バナナ　　　2.夏 3行：大人　 バナナ　　　夏物 4行：子供　 りんご　　　秋 5行：大人　 りんご　　　3.秋 6行：子供　 りんご　　　4.冬 7行：大人　 バナナ　　　春　　　 8行：子供　 りんご　　　4.冬 9行：大人　 りんご　　　2.夏 ・・・以下1000行まで続く というデータがあるとして、A列が「子供」かつB列が「りんご」と回答した人数は 出来たのです、以下の人数を出すことができません。 ■教えて頂きたい内容 A列が「子供」かつB列が「りんご」、かつC列が"春"または"夏"の文字列を含む人数 以下のソースですと人数が「0人」となり正確にカウント出来ません。 前回と同じような内容で恐縮ですが、応用が加わると途端に手詰まりになってしまいます。 度々の質問で申し訳ございませんがどうぞよろしくお願い致します。 --------------------------- Sub CounterMacro() Dim Counter As Integer Dim EndCount As Integer Dim Child_Apple As Integer Dim Child_AppleSeason As Integer Counter = 1 EndCount = Worksheets("Sheet1").Range("A1").End(xlDown).Row + 1 Child_Apple = 0 Child_AppleSeason = 0 Do While Counter < EndCount If Worksheets("Sheet1").Range("A" & Counter).Value = "子供" Then If Worksheets("Sheet1").Range("B" & Counter).Value = "りんご" Then Child_Apple = Child_Apple + 1 End If If Worksheets("Sheet1").Range("C" & Counter).Value = "*春* or *夏*" Then Child_AppleSeason = Child_AppleSeason + 1　'■←教えて頂きたい内容 End If End If Counter = Counter + 1 Loop MsgBox "「子供」かつ「りんご」" & Child_Apple & "人 " & "「子供」かつ「りんご」かつ「春まはた夏」" & Child_AppleSeason & "人 " End Sub

すいません　VBAど初心者、猛勉強中の者です。 前回と同じようなご質問になりますが、応用が加わると途端に手が止まってしまいました。 どなたか教えて頂けませんでしょうか。 ※子供と大人に好きな果物、さらに好きな季節を調査をした結果です。 　　 A列　　B列　　　　C列 1行：子供　 りんご　　　1.春 2行：大人　 バナナ　　　2.夏 3行：大人　 バナナ　　　夏物 4行：子供　 りんご　　　秋 5行：大人　 りんご　　　3.秋 6行：子供　 りんご　　　4.冬 7行：大人　 バナナ　　　春　　　 8行：子供　 りんご　　　4.冬 9行：大人　 りんご　　　2.夏 ・・・以下1000行まで続く というデータがあるとして、A列が「子供」かつB列が「りんご」と回答した人数は 出来たのです、以下の人数を出すことができません。 ■教えて頂きたい内容 A列が「子供」かつB列が「りんご」、かつC列が"春"または"夏"の文字列を含む人数 以下のソースですと人数が「0人」となり正確にカウント出来ません。 前回と同じような内容で恐縮ですが、応用が加わると途端に手詰まりになってしまいます。 度々の質問で申し訳ございませんがどうぞよろしくお願い致します。 --------------------------- Sub CounterMacro() Dim Counter As Integer Dim EndCount As Integer Dim Child_Apple As Integer Dim Child_AppleSeason As Integer Counter = 1 EndCount = Worksheets("Sheet1").Range("A1").End(xlDown).Row + 1 Child_Apple = 0 Child_AppleSeason = 0 Do While Counter < EndCount If Worksheets("Sheet1").Range("A" & Counter).Value = "子供" Then If Worksheets("Sheet1").Range("B" & Counter).Value = "りんご" Then Child_Apple = Child_Apple + 1 End If If Worksheets("Sheet1").Range("C" & Counter).Value = "*春* or *夏*" Then Child_AppleSeason = Child_AppleSeason + 1　'■←教えて頂きたい内容 End If End If Counter = Counter + 1 Loop MsgBox "「子供」かつ「りんご」" & Child_Apple & "人 " & "「子供」かつ「りんご」かつ「春まはた夏」" & Child_AppleSeason & "人 " End Sub

アクセスを勉強しはじめた初心者です。 csv形式のデータをアクセスのテーブルとして取り込みたいのですが、日付データがうまく取り込めません。 csvでは日付データが「20110101」という形式になっているためだと思うのですが、これをアクセスに日付「2011/1/1」として取り込むことはできないのでしょうか？ csvをエクセルで開いて書式を修正すればできたのですが、csvファイルがたくさんあるため、アクセス側でなんとかできないかと思っています。 よろしくおねがいします。

ａｃｃｅｓｓで二つの条件が一致するものを アクセスで原材料管理を行っていて 以下の二つのテーブルがあります 日別使用原材料テーブル 日付 製品コード 材料コード 2/1 Ａ Ａ－１ 2/1 Ａ Ａ－２ 2/1 Ｂ Ａ－１ 2/2 Ｃ Ｂ－２ 2/2 Ａ Ａ－１ 2/3 Ｄ Ｃ－３ 日別不足材料テーブル 日付 材料コード 不足材料 2/1 Ａ－１ 10 2/1 Ａ－１ 2 2/2 Ａ－１ 5 2/2 Ｂ－２ 1 この二つのテーブルがありこの二つのテーブルを一つにまとめたいと思います 具体的には以下のテーブルを作りたいのです 日別製品別材料不足テーブル 日付 製品コード 材料コード 不足材料 2/1 Ａ Ａ－１ 10 2/1 Ｂ Ａ－１ 2 2/2 Ａ Ａ－１ 5 2/2 Ｃ Ｂ－２ 1 日付毎に 足りない分だけの材料を製品毎に表示させたいのですが 日別の製品別に足りない材料を結合する方法がわからないので よろしくお願いいたします。

ＤＢ２のテーブルで日付がＩＮＴ型で入っている箇所がありますが取得できません。 データの形がＹＹＹＹＭＭＤＤという風に入っています。型はＩＮＴです。 今日の日付のデータを取得したいのでcurrent_dateを使えばいいと思うのですが、current_dateは日付型ですよね（直指定以外で・・・） 変換をしようと思うのですが、ＩＮＴ型に変換できません・・・ そもそもできないのでしょうか？VARCHAR_FORMATとかは使えないのでしょうか？

下記のような表がいくつか存在した場合に、 毎回、特定の位置のみを降順で並べかえるマクロを 作成したいと考えております。 ここでいうと、“集計”より下で、“総計”より上の データを降順にしたいと考えております。 ただ、現在“果物”や“出席”となっている名称は表によって異なりま すし、 データの範囲も毎回変わります 大変お手数ですが、どなたかご教示頂けますと幸いです。 --------------------------------------------------------------- 果物　　　集計　　　　　　出席　　　集計 ぶどう　　１　　　　　　　しろう　　４ みかん　　３　　　　　　　たろう　　１ メロン　　２　　　　　　　はなこ　　３ りんご　　４　　　　　　　じろう　　２ 総計　　１０　　　　　　　ごろう　　２ 　　　　　　　　　　　　　みちこ　　１ 　　　　　　　　　　　　　総計　　１３ ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ 果物　　　集計　　　　　　出席　　　集計 りんご　　４　　　　　　　しろう　　４ みかん　　３　　　　　　　はなこ　　３ メロン　　２　　　　　　　じろう　　２ ぶどう　　１　　　　　　　ごろう　　２ 総計　　１０　　　　　　　たろう　　１ 　　　　　　　　　　　　　みちこ　　１ 　　　　　　　　　　　　　総計　　１３ --------------------------------------------------------------- ■“果物”部分のみマクロの記録で作成したもの Sub Macro1() Range("A2:B5").Select Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal End Sub

フィールド内に入力されている文字列から、「ひらがな」や「英語」が入力されているレコードの抽出について質問です。 ※[ニックネーム]のフィールドは、英数カナ文字が混在しています。 ======================== （テーブル） [ID] 　[ランク] 　[ニックネーム]　 1　　　　　A　 　　 123456789 2　　　　　B　 　　 akb48　　 3　　　　　A 　　 　ああああ　　　 4　　　　　B　 　　 987654321　　　　 5　　　　　C 　　 　かかか123　　 6　　　　　B　 　　 112233　　　 7　　　　　C 　　 　445566　　　　　 8　　　　　A 　　 　778899xyz　　　 ======================== ☆上記のテーブルから、[ニックネーム]に「ひらがな」が 含まれるレコードの抽出をする。 ======================= [抽出結果] [ID] 　[ランク] 　[ニックネーム]　 3　　　　　A 　　 　ああああ　　　 5　　　　　C 　　 　かかか123　　　 ======================== ☆上記のテーブルから、[ニックネーム]に「英語」が 含まれるレコードの抽出をする。 ======================= [抽出結果] [ID] 　[ランク] 　[ニックネーム]　 2　　　　　B　 　　 akb48　　　 8　　　　　A 　　 　778899xyz ======================== 上記のように、クエリでの条件を指定して抽出結果を表示させたいのですが、 どうすればよろしいでしょうか？ また、クエリだけでは出来ない場合は、SQLで教えていただければ 幸いでございます。 お手数お掛けしますが、何とぞ宜しくお願い致します。

今、業務の関係でエクセルにて検索するいい関数がないか探しています。 A～Eがあり、それぞれには数値（高さや厚みなど）のみを入力しています。 A1の数値とB1もしくはC1の数値が合致するとD1及びE1の数値を表示させるようにしたいのですが、 私の知識不足でいい関数が見つかりません。 いいのがあれば教えてもらいたいと考えています。 宜しくお願いします。

私は今経済学部で就職活動をしています。 ITパスポートのことを履歴書に書こうと思うのですが、書くこと自体あまり意味のないものなのでしょうか？ 一応資格を取ったので書こうと思っていたんですが。 書くとしたら、そのままITパスポートと書けば通じるのでしょうか？ 正式名称みたいなものはあるのですか？ わかる方ご教授をお願いします。

アクセス2007でプルダウンで検索したい項目を選んで検索ボタンを押すと検索結果が出るという機能のフォームを作成しました。 保存形式は実際に使うユーザーがACCESS　2003を使っているので2003で保存しました。 それで実際使ってみた結果、2007では検索できるのですが2003だとフォームは開けても検索ボタンをクリックしても反応しないという状態になりました。 この原因は何なのでしょうか？

Excel2007のVBAでセルを一セル一セルずつ読み込む方法はわかりました。 ですが、縦と横に複数あるセルをまとめて読み込みデータベースに書き込む方法がわかりません。 例えば、 (1)縦4、横4あるセルをまとめてコピーしてデータベースに書き込む方法 (2)データベースからまとめて読み込んで縦4、横4にまとめて出力する方法 などです。 以上、お手数ですがよろしくお願いします。

初めてご質問させていただきます。よろしくお願いいたします。 EXCELで以下のIF関数を使用しています。 U1セルには=NOW()関数で時間が表示されています。 要するに、９時１５分から１１時までの間で、１５分間隔で大小関係を比較するセルを変更して、その結果に応じてA判定、またはB判定、または空欄のいずれかが選択されるIF関数になっています。 お伺いしたいことは以下の２点です。 (1)　各条件式で共通部分が必ず３つあります。最初のA判定とB判定の条件式を見ていただきたいのですが、HOUR($U$1)=9,MINUTE($U$1)>=15,MINUTE($U$1)<30が共通です。この共通している部分を くくり出して一つにまとめる事はできないのでしょうか？ (2)　以下のIF関数をもっと短くエレガントに記述することはできなのでしょうか？ 以上２点、ご回答よろしくお願いいたします。 =IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=15,MINUTE($U$1)<30,C3>B3),"A",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=15,MINUTE($U$1)<30,C4<B4),"B",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=30,MINUTE($U$1)<45,D3>C3),"A",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=30,MINUTE($U$1)<45,D4<C4),"B",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=45,MINUTE($U$1)<=59,E3>D3),"A",IF(AND(HOUR($U$1)=9,MINUTE($U$1)>=45,MINUTE($U$1)<=59,E4<D4),"B",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=0,MINUTE($U$1)<15,F3>E3),"A",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=0,MINUTE($U$1)<15,F4<E4),"B",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=15,MINUTE($U$1)<30,G3>F3),"A",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=15,MINUTE($U$1)<30,G4<F4),"B",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=30,MINUTE($U$1)<45,H3>G3),"A",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=30,MINUTE($U$1)<45,H4<G4),"B",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=45,MINUTE($U$1)<=59,I3>H3),"A",IF(AND(HOUR($U$1)=10,MINUTE($U$1)>=45,MINUTE($U$1)<=59,I4<H4),"B",""))・・・括弧省略

パイオニアのPDP-433HD-Sに適合するテレビスタンドを探しています。 このたびテレビを買い換えるにあたり、古いテレビをTVゲーム用に 置いておくことにしたのですが、元々壁掛けにしていたため、 テレビスタンドが無く、立てられません。 ネットで探してみたのですが、背が高く（80～100ｃｍ）、キャスターが 付いているようなものしか見当たらず、標準で付属しているような 10～20cmの高さのものがありません。 また、テレビ自体が古いので43インチなのに35kgもあります。 重さに耐えられて、高さが10～20cmぐらいのスタンドをご存じないでしょうか？ もしくは、そういったサイトを教えていただけないでしょうか？ 宜しくお願い致します。