layy の回答履歴

マクロの記述で以下のことを行いたいと思っているのですが、わかる方ご教示お願いいたします。 ある値より下の値は別シートに移動したい。 例：値が「300」であれば、それ以下の値「299以下～」を別シートに移す すいませんがよろしくお願いいたします。

OSはXPで、Excel2003を使用しています。 下記のマクロですと、Key列に任意の文字があって、Key2列に任意の文字が入っていなくても抽出されますが、 その逆、Key列に任意の文字がなくて、Key2列に任意の文字が入っている場合は抽出されません。 前者の場合も、後者の場合も抽出される様にするには、どの様にすれば良いか教えて下さい。 ***** Sub test() Dim Key As String Dim Key2 As String Key = Application.InputBox("抽出列の番号を入れて下さい") Key2 = Application.InputBox("抽出列の番号を入れて下さい") Worksheets.add After:=ActiveSheet, Count:=1 ActiveSheet.Name = "BBBB" Sheets("AAAA").Activate Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=Key, Criteria1:="*" Selection.AutoFilter Field:=Key2, Criteria1:="*" Selection.CurrentRegion.Copy Sheets("BBBB").Activate Range("A1").PasteSpecial Paste:=xlAll Selection.CurrentRegion.Select End Sub ******* 説明不足な所がございましたら追記致します。 何卒よろしくお願い致します。

顧客管理データベースシステムを作成しようとしているのですが、 データベースの要素に複数データが入る場合の管理方法が 分からず困っています。 一例を挙げると、複数の電話番号を持つ人にも対応するように データベース設計をしようとした場合、どのようにするのが ベストなのかが分かりません。 電話番号1,電話番号2といったような要素を用意して、 データベースを検索するときには両方を参照する以外に 手は無いのでしょうか？ それとも顧客番号と複数電話番号検索用IDのようなものを対応させ、 電話番号データベース(電話番号ID、電話番号1、電話番号2、電話番号3) のようなものを用意することで調べるのでしょうか？ 正直、どちらもデータベース要素が3つ以上の場合に融通が利かなかったり まだるっこしい感じがしたりするのですが、代替手段を良く知りません。 何か良い方法ございましたら、ご教示願えませんでしょうか？

ただ今ＨＳＰ３をかじる程度なのですが、もっと実用的なプログラム言語の習得の為に、ＪＡＶＡやＣ言語、ＰＨＰ等などの本格的な言語を覚えたいと思っております。 何をしたいのかによると思うので、アドバイスよろしくお願い致します。 やりたいこと ・ＷＥＢの検索結果から任意の言葉を抜き出してデータベースを作る ・データを活用したサイトを作成する ・将来的には、掲示板やチャットなども挑戦したい お詳しい方からすると、やろうと思えばどれでもできる、とか言われそうですが（＾＾；） 一番敷居が低いと思われる初心者向けなのは、どんな言語でしょうか？ どうぞよろしくお願いします。

お世話になります。 VB6で、複数行入力出来るテキストボックスを作成しました。 そのテキストボックスの横幅は、最大30文字（60byte）まで入力出来ます。 ですが、あくまでフォーム上で伸縮させていた為、中途半端に折り返しされます。 【例】 iiiiiiiiiijjjjjjjjjjiiiiiiiiiijjjjjjjjjjiiiiiiiiiijjjあ jjjjjjj （↑計62バイトなので、本来であれば2行目に改行されてしまったjjjjjjjの左5文字を1行目に表示させたい） その行は特定のバイトを超えたらその場で強制的に改行！というソースを追加したいです。 その為には、常にテキストボックスの入力バイト数を監視するようにしなければならないと思いますが、なるべく動作や容量が重くならないような方法はありますでしょうか？

OSはXPで、Excel2003を使用しています。 下記のマクロですと、Key列に任意の文字があって、Key2列に任意の文字が入っていなくても抽出されますが、 その逆、Key列に任意の文字がなくて、Key2列に任意の文字が入っている場合は抽出されません。 前者の場合も、後者の場合も抽出される様にするには、どの様にすれば良いか教えて下さい。 ***** Sub test() Dim Key As String Dim Key2 As String Key = Application.InputBox("抽出列の番号を入れて下さい") Key2 = Application.InputBox("抽出列の番号を入れて下さい") Worksheets.add After:=ActiveSheet, Count:=1 ActiveSheet.Name = "BBBB" Sheets("AAAA").Activate Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=Key, Criteria1:="*" Selection.AutoFilter Field:=Key2, Criteria1:="*" Selection.CurrentRegion.Copy Sheets("BBBB").Activate Range("A1").PasteSpecial Paste:=xlAll Selection.CurrentRegion.Select End Sub ******* 説明不足な所がございましたら追記致します。 何卒よろしくお願い致します。

Excel2007で複数条件のデータの抽出について教えて下さい。 現在、シートAにデータが入力され、シートBにデータの抽出を行いたいと思います。 シートAの内容は以下の通りです（アルファベットと数字はセルの場所です）： 1行目：　項目欄 2行目以下：　データ詳細 1行目 A1　「日付」　B1「名前」　C1「出社状況」 2行目以下 A2　12/01　　B2　山田　　C2　出社 A3　12/01　　B3　佐藤　　C3　早退 A4　12/01　　B4　木村　　C4　出社 A5　12/02　　B5　木村　　C5　早退 A6　12/02　　B6　山田　　C6　遅刻 A7　12/02　　B7　佐藤　　C7　遅刻 ・・・・・ A列の日付は昇順ですが、B列の人名はランダムに入力されています。 また、日付によっては途中入退社する人もいるので、12/01に名前がなくても、 12/10から名前が入力されている場合（あるいはその逆）もありえます。 シートBは以下の通りです： 1行目　名前 A列：日付 B1　木村　C1　山田　D1　佐藤 ・・・ A2　12/01 A3　12/02 このシートBの　B2に　シートAから　「木村の12/01の出社状況」（つまりC4)に値するデータを 自動的に抽出するような関数を入力したいのですが、どのようにすればよいのでしょうか？ （このB2セルの式をB2:D3に入力していきたいので、絶対値を指定することになると思いますが・・・） IndexやらMatchやらLookupやらを色々試してみたのですが、どうも上手くいきません。 どなたかアドバイスをお願いいたします。

Excelのある列に、例えば顧客番号として10桁の数値（文字列：NULLやALL０を含む）が大量に並んでいるとします。 これらに対しNULLやオールゼロではない場合に、それぞれの桁を下記のような規則に従って置きかえる方法を考えているのですが、何か良い方法はないでしょうか。 ****規則********* １～２桁目 変更前が１の場合５に、２の場合４に、３の場合１に…（以下９、０まで条件あり）置き換え ３～４桁目 変更前が１の場合６に、２の場合３に、３の場合２に…（以下９、０まで条件あり） ５～６桁目 変更前が１の場合７に、２の場合３に、３の場合６に…（以下９、０まで条件あり） ７～８桁目 変更前が１の場合４に、２の場合１に、３の場合８に…（以下９、０まで条件あり） ９～１０桁目 変更前が１の場合５に、２の場合１に、３の場合８に…（以下９、０まで条件あり） ****************** 例えば、 1321231221 という数値（文字列）がある場合、 5136364115 という結果が別のセルにできるような形です。 関数であれば、まずNULLやALL0でない場合に、とIF文で規定し、それぞれの桁を10個のセルに分解して、さらにIF文で10個分岐を組んだ物をそれぞれのセルに適用させ、最終的に再度結合させれば何とかできなくはなさそうですが、数万セルに及ぶのでVBAで次のセル次のセル…とやった方が効率的だと考えます。 ただ、そんなVBAができれば良いのですがなかなか思いつきません…。 どなたかご教示いただけませんでしょうか。

顧客管理データベースシステムを作成しようとしているのですが、 データベースの要素に複数データが入る場合の管理方法が 分からず困っています。 一例を挙げると、複数の電話番号を持つ人にも対応するように データベース設計をしようとした場合、どのようにするのが ベストなのかが分かりません。 電話番号1,電話番号2といったような要素を用意して、 データベースを検索するときには両方を参照する以外に 手は無いのでしょうか？ それとも顧客番号と複数電話番号検索用IDのようなものを対応させ、 電話番号データベース(電話番号ID、電話番号1、電話番号2、電話番号3) のようなものを用意することで調べるのでしょうか？ 正直、どちらもデータベース要素が3つ以上の場合に融通が利かなかったり まだるっこしい感じがしたりするのですが、代替手段を良く知りません。 何か良い方法ございましたら、ご教示願えませんでしょうか？

はじめまして。 Access2003を使っていますが下記２のようなオーダーがきており、うまいやり方が浮かばず困っております。。 ＜処理内容：例＞ １．Access管理している1000件のお客様をＡ～Ｅの担当者に指定された数(A：100人、B：500人、C：200人・・・等）で割り当てる。←ここは今もSQLでランダムで割り当ててます ２．翌月同じ1000件を同じ５人に前回と異なる指定したお客様数で割り当てるが、可能な限り同じお客様に前回と同じ担当者が当たらない考慮をする。（※割当比率に偏りがあり、どうしても被る場合は被っても良い） データのイメージはこのような感じです。 ------------------------------------------------- お客様番号　前回担当者　　今回担当者（欲しい値) 0000000　　　A　　　　　　　　　B～Eの誰か 0000001　　　B　　　　　　　　　AorC～Eの誰か ------------------------------------------------- 営業先の担当決め作業で今まで上記１のランダムで割り当ててたのですが、２の条件が追加しようとしても、どうしても被る場合の考慮などがうまくいかず困っています。。 SQLの記述までなくても、何か良いアイディアレベルでも結構です。 皆さまのお知恵を頂ければ助かります。

Excelのある列に、例えば顧客番号として10桁の数値（文字列：NULLやALL０を含む）が大量に並んでいるとします。 これらに対しNULLやオールゼロではない場合に、それぞれの桁を下記のような規則に従って置きかえる方法を考えているのですが、何か良い方法はないでしょうか。 ****規則********* １～２桁目 変更前が１の場合５に、２の場合４に、３の場合１に…（以下９、０まで条件あり）置き換え ３～４桁目 変更前が１の場合６に、２の場合３に、３の場合２に…（以下９、０まで条件あり） ５～６桁目 変更前が１の場合７に、２の場合３に、３の場合６に…（以下９、０まで条件あり） ７～８桁目 変更前が１の場合４に、２の場合１に、３の場合８に…（以下９、０まで条件あり） ９～１０桁目 変更前が１の場合５に、２の場合１に、３の場合８に…（以下９、０まで条件あり） ****************** 例えば、 1321231221 という数値（文字列）がある場合、 5136364115 という結果が別のセルにできるような形です。 関数であれば、まずNULLやALL0でない場合に、とIF文で規定し、それぞれの桁を10個のセルに分解して、さらにIF文で10個分岐を組んだ物をそれぞれのセルに適用させ、最終的に再度結合させれば何とかできなくはなさそうですが、数万セルに及ぶのでVBAで次のセル次のセル…とやった方が効率的だと考えます。 ただ、そんなVBAができれば良いのですがなかなか思いつきません…。 どなたかご教示いただけませんでしょうか。

はじめまして。 Access2003を使っていますが下記２のようなオーダーがきており、うまいやり方が浮かばず困っております。。 ＜処理内容：例＞ １．Access管理している1000件のお客様をＡ～Ｅの担当者に指定された数(A：100人、B：500人、C：200人・・・等）で割り当てる。←ここは今もSQLでランダムで割り当ててます ２．翌月同じ1000件を同じ５人に前回と異なる指定したお客様数で割り当てるが、可能な限り同じお客様に前回と同じ担当者が当たらない考慮をする。（※割当比率に偏りがあり、どうしても被る場合は被っても良い） データのイメージはこのような感じです。 ------------------------------------------------- お客様番号　前回担当者　　今回担当者（欲しい値) 0000000　　　A　　　　　　　　　B～Eの誰か 0000001　　　B　　　　　　　　　AorC～Eの誰か ------------------------------------------------- 営業先の担当決め作業で今まで上記１のランダムで割り当ててたのですが、２の条件が追加しようとしても、どうしても被る場合の考慮などがうまくいかず困っています。。 SQLの記述までなくても、何か良いアイディアレベルでも結構です。 皆さまのお知恵を頂ければ助かります。

教えてください。 Access２００２でデータベースを作っています。 ふたつのテーブルから選択クエリを作成、そのクエリ内で部分一致のパラメータを設定し、 複数項目（5つ）の検索を行っていましたが、検索のたびに毎回5つのダイアログボックスを クリア（必要項目を入力、入力しないパラメータは「OK」でとばす）するのがめんどくさいと 使用者にいわれ、検索フォームからの検索に変えたいと思っています。 その場合、 　(1)選択クエリを基としたフォームを新規作成し、 　(2)非連結のテキストボックスを５つ作り、それぞれ適当な名前を付け、 　(3)クエリの抽出条件の欄の現在パラメータ設定をしているところを、 　　　　　　[Forms]![フォーム名]![テキストボックス名]に変える だけではできないのでしょうか。。 いろいろWeb上で調べたり、本を読んで見よう見まねでつくってみましたが、出来上がった フォームから検索ボタン（「クエリの実行」ボタン）を押しても、全件が表示されてしまうの です。 パラメータではできているのに・・・。 どなたか、ご教示くださるとうれしいです。 よろしくお願いいたします。

博多に，最近（今年）出来たショッピングモールがあると聞いたんですが， 何ていうところか分かる方教えて下さい！ 多分，海側のほうだったと思うんですが・・。 よろしくお願いします。

処理月 　 |処理日 |値 |番号付与 2010/12/01|2010/12/01|Is Not Null|1 2010/12/01|2010/12/01|Is Not Null|1 2010/12/01|2010/12/02|Is Not Null|2 2010/12/01|2010/12/02|Null | 2010/12/01|2010/12/02|Is Not Null|2 2010/12/01|2010/12/01|Is Not Null|1 2010/12/01|2010/12/05|Is Not Null|3 2010/12/01|2010/12/05|Is Not Null|3 2010/12/01|2010/12/05|Null | 2010/12/01|2010/12/10|Is Not Null|4 2010/12/01|2010/12/10|Null |4 2010/12/01|2010/12/10|Is Not Null|4 2011/01/01|2010/01/05|Is Not Null|1 2011/01/01|2010/01/05|Null | 2011/01/01|2010/01/05|Is Not Null|1 2011/01/01|2010/01/05|Is Not Null|1 処理月に対してスタート 処理日にたいして値があれば番号を自動付与 *処理月の値が変更されれば番号は1から自動付与 分かる方願います

博多に，最近（今年）出来たショッピングモールがあると聞いたんですが， 何ていうところか分かる方教えて下さい！ 多分，海側のほうだったと思うんですが・・。 よろしくお願いします。

もちろん自分でも調べてはいるのですが、急いでいるため、もしどなたか教えてくだされば大変助かります。 この（下記の）Then 以降からがわかりません。 Do Until rs.EOF '該当レコードあり If rs!MCD = "3162" Then '--------------------------------------------- strcriteria = "CAT = '" & rs!CAT & "'" ' --- A rs2.Find strcriteria, 0, adSearchForward If rs2.EOF Then ' Else rs!仕入単価世代1 = rs!仕入単価 rs!仕入単価 = rs2!discount End If '--------------------------------------------- rs!更新日 = Now() rs.Update End If 情報が不足していればお答えします。どうぞ宜しくお願いいたします。 （補足）これより前に入力されているのは以下のものです。 Dim cn As ADODB.Connection Dim cn2 As ADODB.Connection Dim rs As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim strmsg As String Dim lngRet As Long Dim strcriteria As String Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset Set cn2 = CurrentProject.Connection Set rs2 = New ADODB.Recordset rs.Open "商品２_T", cn, adOpenKeyset, adLockOptimistic rs2.Open "商品２_T25discountてすと", cn2, adOpenKeyset, adLockOptimistic

もちろん自分でも調べてはいるのですが、急いでいるため、もしどなたか教えてくだされば大変助かります。 この（下記の）Then 以降からがわかりません。 Do Until rs.EOF '該当レコードあり If rs!MCD = "3162" Then '--------------------------------------------- strcriteria = "CAT = '" & rs!CAT & "'" ' --- A rs2.Find strcriteria, 0, adSearchForward If rs2.EOF Then ' Else rs!仕入単価世代1 = rs!仕入単価 rs!仕入単価 = rs2!discount End If '--------------------------------------------- rs!更新日 = Now() rs.Update End If 情報が不足していればお答えします。どうぞ宜しくお願いいたします。 （補足）これより前に入力されているのは以下のものです。 Dim cn As ADODB.Connection Dim cn2 As ADODB.Connection Dim rs As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim strmsg As String Dim lngRet As Long Dim strcriteria As String Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset Set cn2 = CurrentProject.Connection Set rs2 = New ADODB.Recordset rs.Open "商品２_T", cn, adOpenKeyset, adLockOptimistic rs2.Open "商品２_T25discountてすと", cn2, adOpenKeyset, adLockOptimistic

Accessのフォームで、IDを入力したら、そのIDを持っている人の名前や生年月日などが表示されるようにしたいのですが、分かりません。 いろいろ本も調べたのですが、見つける事が出来ませんでした。 ・・・あまりに初歩的な事だから？ 済みません、助けてください。

「作表条件」というフォームにテキストボックスとして「日付１」、「日付２」を設置しています。 元のテーブルには「日付」という項目があり、「日付１」から「日付２」までのデータを抽出するため、 クエリの条件式に Between Nz([Forms]![作表条件]![日付１],#1800/01/01#) And Nz([Forms]![作表条件]![日付２],#9999/12/31#) と記述しています。 ただ、元のテーブルの日付がNULL値の場合があり、その場合「日付１」および「日付２」が空欄だとNULL値のレコードが抽出されません。 「日付」がNULLの場合でも抽出できるようにするには、どのようにすればよいでしょうか？ どなたか教えてください。