fumufumu_2006 の回答履歴

「入力規則」の「リスト」なんですが、こんな リストを作成することはできますでしょうか？ たとえばこんな社員名簿を作ったとします。 セルＡ1に「男」 セルＢ1に「女」 セルＡ2からＡ10に男性社員の名前 セルＢ2からＢ10に女性社員の名前 この表を使ってセルＣ1に入力規則のリストを作成し「男・女」 を選択できるようにします。 次にセルＣ2にはセルＣ1が「男」なら男性社員、「女」なら女性社員 の名前がリストになるようにします。 ここまでは範囲の名前付け（A2からA10の範囲に「男」、B2からB10 の範囲に「女」と名前付け）とINDIRECT関数を使ってできました。 ここからなんですが 社員の名前は後から増えてもいいように範囲を多くとっています。 セルA2からA10までを男性社員の名前が入るようにしているのですが 実際名前が入力されているのはA2からA5までです。 この場合名前のリスト範囲をA2からA10までにするとA6からA10の 空白のセルまでリスト表示されてしまいます。 そこで =OFFSET($A$2,,,COUNTA($A$2:$A$10)) を併用したいのですが 「挿入」→「名前」→「定義」のところで「男」 の参照範囲を「=OFFSET($A$2,,,COUNTA($A$2:$A$10))」 にするとリストが表示されなくなりました。 説明が下手で長くなってしまいましたが 簡単に言うと セルC1に「男・女」のリストを作成。 セルC2にセルC1が「男」の場合男性社員の名前、 「女」の場合女性社員の名前をリスト表示させ さらに空白のセルはリストに表示させないようにしたいのです。 宜しくお願いします。

Ａ列_Ｂ列＿＿＿_Ｃ列＿＿＿＿Ｄ列＿＿＿＿＿＿Ｅ列＿＿＿＿Ｆ列 １＿日付＿＿＿_名前＿＿＿_商品名＿＿＿＿＿＿＿＿＿累計＿＿ ２＿○/○＿＿＿△△＿＿＿_×××＿＿＿＿＿×××＿＿＿_何個 ３＿○/○＿＿＿△△＿＿＿_●●●＿＿＿＿＿■■■＿___＿何個 ４＿○/○＿＿＿◇◇＿＿＿_■■■＿＿＿＿＿●●●＿＿＿_何個 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿_□□□＿＿＿_何個 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿_◎◎◎＿＿＿_何個 500＿○/○＿＿＿××＿＿＿_◎◎◎ 501＿○/○＿＿＿○○＿＿＿_□□□ 上記のような日計売上表を作っております。 この様な場合Ｅ・Ｆ列の１～７行の範囲を常に固定? 下にスクロールしてもこの指定範囲が表示できるような方法ってあるものでしょうか？よくインターネット画面で、ある枠がスクロールしても一緒に降りてきますよね？そんな風になんて無理なんでしょうか・・・? エクセルバージョンは２００３です。 ＶＢＡ、マクロ、至ってド素人です。 数百行まで入力しますので、累計が常に見えているようにしたいのです。ウィンドウ枠の固定では入力スペースがほとんど無くなってしまいますので他の方法を希望します。

RANK関数では、順位（1,2,3…）で表示することしか出来ませんか？ 金額によって、A,B,C…とランク分けをしたいのですが、どうしたらいいでしょうか。 まず、RANK関数で1,2,3…と表示し、それを更に別の関数でA,B,C…と変換するやり方になりますか？ お詳しい方、ぜひ教えてください。

不特定多数の行数（百列以上）と列数（千列以上）を持ったデータを以下にある結果1を結果2のように列と行を置換したいのですがどうしたらよろしいでしょうか？ もしよろしければ、プログラムを教えていただけたら助かります。 よろしくお願いします。 ///////////結果1//////////////////// A1 B1 C1 →不特定の列数 A2 B2 C2 A3 B3 C3 ↓ 不特定の行数 ///////////結果2/////////////////// A2 A2 A3 B1 B2 B3 C1 C2 C3

Ａ列_Ｂ列＿＿＿_Ｃ列＿＿＿＿Ｄ列＿＿＿＿＿＿Ｅ列＿＿＿＿Ｆ列 １＿日付＿＿＿_名前＿＿＿_商品名＿＿＿＿＿＿＿＿＿累計＿＿ ２＿○/○＿＿＿△△＿＿＿_×××＿＿＿＿＿×××＿＿＿_何個 ３＿○/○＿＿＿△△＿＿＿_●●●＿＿＿＿＿■■■＿___＿何個 ４＿○/○＿＿＿◇◇＿＿＿_■■■＿＿＿＿＿●●●＿＿＿_何個 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿_□□□＿＿＿_何個 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿_◎◎◎＿＿＿_何個 500＿○/○＿＿＿××＿＿＿_◎◎◎ 501＿○/○＿＿＿○○＿＿＿_□□□ 上記のような日計売上表を作っております。 この様な場合Ｅ・Ｆ列の１～７行の範囲を常に固定? 下にスクロールしてもこの指定範囲が表示できるような方法ってあるものでしょうか？よくインターネット画面で、ある枠がスクロールしても一緒に降りてきますよね？そんな風になんて無理なんでしょうか・・・? エクセルバージョンは２００３です。 ＶＢＡ、マクロ、至ってド素人です。 数百行まで入力しますので、累計が常に見えているようにしたいのです。ウィンドウ枠の固定では入力スペースがほとんど無くなってしまいますので他の方法を希望します。

EXCEL VBAのユーザーフォームの配色の変更について教えていただきたいことがあります。 ユーザーフォームを設置しているのですが、プロパティで設定されている「システム」及び「パレット」の各色をＶＢＡコードで表示することは出来るのでしょうか。 プロパティでUserForm1のBackColorを「強調表示」に設定 TextBox1の値を変えたときにTextBox1のBackColorを「強調表示」に変更する。 Private Sub TextBox1_Change() TextBox1.BackColor = RGB(255, 255, 150) End Sub でやろうとしていますが、全く同じ色を作ることができません。 システムやパレットの色をRGB以外のやり方で設定することはできるのでしょうか。 よろしくお願いいたします。

Access2003で小数点第１位未満四捨五入の表示をするにはどうしたらいいのでしょうか？int関数を使用して平均点の四捨五入をしたのですが、整数エラーになります。Roundsも使ったり色々やったのですが、どうやら違うようなので、困っています。助けて下さ～い。

VB6でプログラムを作り、インターネット上にある連番のファイルや連番のページを保存したいと思っています。 インターネット上のファイルをプログラムを使って保存するための方法を教えてください。

エクセルマクロで下のように総量から最大200gずつに仕分けて、 さらにメーカーにおいても仕分けたいのですが、うまくいきませんでした。 メーカー　　品名　　　総量 F　 　　頭痛薬 　　600g F　　　　胃腸薬 　350g T 　　風邪薬 　400g T 　　目薬　 　200g Y 　　痛み止め　　200g ↓ ↓ ↓200gずつ、メーカーによって仕分ける ↓ F　　　　　　　　　T　　　　　　　　　Y 頭痛薬　200g　　 風邪薬　200g　　痛み止め　200ｇ 頭痛薬 200g　　　風邪薬　200g 頭痛薬 200g　　　目薬　　200ｇ 胃腸薬　200g 胃腸薬　150g 前回もいろいろと教えていただいたのですが、またどなたか教えていただけませんか？

よろしくお願いします。 シート１には 氏名　　　　　　　生年月日　　　コード　　　　コード　　　コード 　　　交付番号 安心太郎　　　　S20.12.20　　　　１　　　　　　２　　　　　　３　　　　　1234567890 安全花子　　　　S40.11.11　　　　１　　　　　　　　　　　　　　　　　　　2345678901 道路一郎　　　　S30.10.25　　　　２　　　　　　３　　　　　　　　　　　　3456789012 橋川理恵　　　　S25.12.17　　　　３　　　　　　　　　　　　　　　　　　　4567890123 天気良太　　　　S50.11.28　　　　１　　　　　　３　　　　　　　　　　　　5678901234 という具合に、社員一覧表があるとします。 そして、シート２には コード番号　　　　　名前 　　１　　　　　　　普通自動車免許 　　２　　　　　　　原動機付自転車免許 　　３　　　　　　　大型自動車免許 というようにコード一覧表があるとします。 ここからなのですが、 シート３には「１．普通自動車免許取得者一覧」 シート４には「２．原動機付自転車免許取得者一覧」 シート５には「３．大型自動車免許取得者一覧」 というように、シート１にデータ入力をしたら、 自動的に、コード別に検索して、該当するコードに引っかかる者は、それぞれのコード別シート（シート３～５）に、該当者のデータ１行分（氏名・生年月日・コード・交付番号等）が丸々コピー（転記）されるにはどうしたらよろしいのでしょうか。 関数等を調べましたが、該当するものが見あたらず、 やはり、マクロで行う方法なのかと思ったのですが、 マクロが超初心者のため、やり方や命令文(?)などが全くわからず、困っております。 よろしくおねがいいたします。

よろしくお願いします。 シート１には 氏名　　　　　　　生年月日　　　コード　　　　コード　　　コード 　　　交付番号 安心太郎　　　　S20.12.20　　　　１　　　　　　２　　　　　　３　　　　　1234567890 安全花子　　　　S40.11.11　　　　１　　　　　　　　　　　　　　　　　　　2345678901 道路一郎　　　　S30.10.25　　　　２　　　　　　３　　　　　　　　　　　　3456789012 橋川理恵　　　　S25.12.17　　　　３　　　　　　　　　　　　　　　　　　　4567890123 天気良太　　　　S50.11.28　　　　１　　　　　　３　　　　　　　　　　　　5678901234 という具合に、社員一覧表があるとします。 そして、シート２には コード番号　　　　　名前 　　１　　　　　　　普通自動車免許 　　２　　　　　　　原動機付自転車免許 　　３　　　　　　　大型自動車免許 というようにコード一覧表があるとします。 ここからなのですが、 シート３には「１．普通自動車免許取得者一覧」 シート４には「２．原動機付自転車免許取得者一覧」 シート５には「３．大型自動車免許取得者一覧」 というように、シート１にデータ入力をしたら、 自動的に、コード別に検索して、該当するコードに引っかかる者は、それぞれのコード別シート（シート３～５）に、該当者のデータ１行分（氏名・生年月日・コード・交付番号等）が丸々コピー（転記）されるにはどうしたらよろしいのでしょうか。 関数等を調べましたが、該当するものが見あたらず、 やはり、マクロで行う方法なのかと思ったのですが、 マクロが超初心者のため、やり方や命令文(?)などが全くわからず、困っております。 よろしくおねがいいたします。

よろしくお願いします。 シート１には 氏名　　　　　　　生年月日　　　コード　　　　コード　　　コード 　　　交付番号 安心太郎　　　　S20.12.20　　　　１　　　　　　２　　　　　　３　　　　　1234567890 安全花子　　　　S40.11.11　　　　１　　　　　　　　　　　　　　　　　　　2345678901 道路一郎　　　　S30.10.25　　　　２　　　　　　３　　　　　　　　　　　　3456789012 橋川理恵　　　　S25.12.17　　　　３　　　　　　　　　　　　　　　　　　　4567890123 天気良太　　　　S50.11.28　　　　１　　　　　　３　　　　　　　　　　　　5678901234 という具合に、社員一覧表があるとします。 そして、シート２には コード番号　　　　　名前 　　１　　　　　　　普通自動車免許 　　２　　　　　　　原動機付自転車免許 　　３　　　　　　　大型自動車免許 というようにコード一覧表があるとします。 ここからなのですが、 シート３には「１．普通自動車免許取得者一覧」 シート４には「２．原動機付自転車免許取得者一覧」 シート５には「３．大型自動車免許取得者一覧」 というように、シート１にデータ入力をしたら、 自動的に、コード別に検索して、該当するコードに引っかかる者は、それぞれのコード別シート（シート３～５）に、該当者のデータ１行分（氏名・生年月日・コード・交付番号等）が丸々コピー（転記）されるにはどうしたらよろしいのでしょうか。 関数等を調べましたが、該当するものが見あたらず、 やはり、マクロで行う方法なのかと思ったのですが、 マクロが超初心者のため、やり方や命令文(?)などが全くわからず、困っております。 よろしくおねがいいたします。

WindowsXPのExcel2003を使用しています。 あるデータ（文字列）の先頭の空白を削除して、 文字列を再取得したいのですが、うまくいきません。 例えば、 「 test これはテストです。」 という文字列を 「test これはテストです。」 という風に、頭のスペースのみ削除したいです。 何かいい方法はありますでしょうか？ ちなみに文字列は決まっていません。 find関数等で、"スペース以外の最初の文字位置"などが取得できるといいと思っているのですが。。。 よろしくお願いします。

Accessでのクエリーでの抽出の方法を教えてください。 たとえば「12345678」といったIDをもたせた人のデータが日付ごとにいくつかレコードがある場合に、クエリーのID欄の抽出条件欄には、「12345678」と入力すれば、その人のデータのみが表示されると思います。 そこで、 (1)その中の日付から、最新のものから3つを抽出したい場合。 (2)その中の日付から、2番目に新しいものを抽出したい場合。 において、クエリーの抽出条件になんて書いたらよいのでしょうか？ できましたら、(1)(2)それぞれお答えいただければ幸いです。 どうぞよろしくお願いいたします。

Accessでのクエリーでの抽出の方法を教えてください。 たとえば「12345678」といったIDをもたせた人のデータが日付ごとにいくつかレコードがある場合に、クエリーのID欄の抽出条件欄には、「12345678」と入力すれば、その人のデータのみが表示されると思います。 そこで、 (1)その中の日付から、最新のものから3つを抽出したい場合。 (2)その中の日付から、2番目に新しいものを抽出したい場合。 において、クエリーの抽出条件になんて書いたらよいのでしょうか？ できましたら、(1)(2)それぞれお答えいただければ幸いです。 どうぞよろしくお願いいたします。

VisualBasic2005でPDFを操作するプログラムを作ろうとしています。 その際に以下のようなプログラムでCreateObject関数を使用しているのですが、※印の行で 「ActiveX コンポーネントを作成できません。」 のエラーが出てしまっています。 Dim AcroExchAVDoc As Acrobat.CAcroAVDoc Dim AcroExchPDDoc As Acrobat.CAcroPDDoc Dim avPageView As Acrobat.CAcroAVPageView Dim pdPage As Acrobat.CAcroPDPage AcroExchAVDoc = CreateObject("AcroExch.AVDoc")　※ 現在使用しているのは Adobe Reader 8 Adobe Acrobat 8 Professional ですが、原因として何が考えられますでしょうか？ この作業で足止めをくらっており、大変困っています。 誰かご助言をお願いします。

VBS2年目のプログラマーです。 Excelで図形オートシェイプ内のテキストが検索できないので、 マクロを作成してみようと思いましたが2点問題が発生しましたので 解決方法または実現方法をご教授ねがいます。 （目標マクロ機能概要） (1)InputBoxで検索文字列を入力 (2)検索文字列と一致するテキストを持つ図形を選択 (3)検索文字列と一致する次の図形を検索するかをMsgboxから選択 　(この時、一致する図形は選択されている状態であってほしい) (4)(3)で次の図形を検索しない、または図形をすべて検索するとマクロ終了 （問題) １．機能概要(2)の選択される図形が現在のExcel画面外にある場合、画面が移動しないため、どこに検索ヒットした図形があるか使用者がわからない ２．機能概要(3)で、Msgbox実行時に図形選択が表示されず現在どの図形を選択しているのか使用者がわからない 問題1は、autoshapeオブジェクトのtop,left属性などを 使うしかないのかなとぼんやり考えています。 以下、コードです。 お忙しいところ、申し訳ありませんが 以上、よろしくお願いします。 ************************** Sub GetShapesText() Dim wk_shp As Shape 'オートシェイプ格納変数 Dim wk_search_str As String '検索文字列変数 '*** 検索文字列入力処理 *** wk_search_str = InputBox("検索する図形オートシェイプのテキストを入力してください。", "オートシェイプ内テキスト検索") If (Len(wk_search_str) = 0) Then '検索文字列が未入力の場合は、マクロ終了 Exit Sub End If '*** オートシェイプ検索処理 *** For Each wk_shp In ActiveSheet.Shapes If InStr(wk_shp.Name, "Line") = 0 Then 'オートシェイプが線(Line)以外の場合のみ以下を処理 If (InStr(wk_shp.TextFrame.Characters.Text, wk_search_str) > 0) Then 'オートシェイプのテキストに検索文字列が含まれる場合のみ以下を処理 wk_shp.Select '検索ヒットしたオートシェイプを選択 wk_next_search_flg = MsgBox("次を検索しますか？", vbYesNo) If (wk_next_search_flg = 7) Then '次を検索しない場合は、検索を終了 Exit For End If End If End If Next End Sub **************************

VBで同じような質問をされている方はいたのですが、 ACCESS VBAでの方法がよくわからないので、教えてください。 別フォルダにあるmdbからテーブルをコピーしたいのですが、 どのようにしたらいいのでしょうか。 DoCmd.CopyObjectを使うと、コピー先を指定することはできるようですが、 コピー元を指定してコピーする方法を教えてください。 よろしくお願いします。

[ALT]-[ENTER]を使い、セル内を改行した文章があります。 その文章の末尾にある改行のみ削除したいのですが ReplaceやRtrimを使うと、末尾以外の改行も削除されたりして、 思うような結果が得られません。 イメージとしては以下のようにしたいと思っております。 ↓このように表示されているものを ----------------------- 本日は晴天なり。 １．ＡＡＡＡＡ ２．ＢＢＢＢＢ ----------------------- ↓このようにしたい （２．ＢＢＢＢＢ　以降にある改行のみ削除したいです。） ----------------------- 本日は晴天なり。 １．ＡＡＡＡＡ ２．ＢＢＢＢＢ ----------------------- 判りづらい説明で申し訳ありません。 何か良い方法はないでしょうか？

Excelシートでどの行を選択してるのかをVBAで取得したいのです。 １行選択の場合や複数行選択。 あるいは飛び飛びでの選択もあります。 どうやって取得できるのでしょうか？