zap35 の回答履歴

はっきりいってVBAやったことないです。 でも、作ってくれって言われて、次のことがしたいです。 Excel２００３で、住所の漢字と振り仮名のシートを作り、検索のマクロをつくり、そのマクロを自動起動させたい。 検索にはコンボボックスで漢字の住所の一覧を出し、振り仮名を表示ボタンでプロンプトで検索結果を表示したいです マクロの作成も、ＶＢｅｄｉｔｏｒの利用もまったく初めてです。 Ｅｘｃｅｌは表の作成や式の入力、グラフ作成など一通り使用できます。 全盲なので、できるだけ、キーボード操作を教えてください。 よろしくお願いします。

A1～A9までの9つのセルに、A9からA1へと下からデータが連続して埋まっていきます。 この範囲で値の入っている最上のセルの値を返す関数は作ることができませんでしょうか？ 行は100行くらいになる予定です。 最下の行を返す関数は見つけました。同じように作れないでしょうか？ 　　=INDEX(A:A,COUNT(A:A)) よろしくお願いします

初心者のため、表現等に不備がございましたらお許し下さい。 マニュアルで「表示しない」の設定を行ったセル（行）のデータは無視して、表示されているセルのデータのみ足し算したいのですが、このような関数はございますでしょうか？（※オートフィルタ使用しません。）回答例として「オートフィルタ＋SUBTOTAL」は拝見したのですが、任意の非表示セルを無視する方法が分からず苦慮しております。初歩的なのかもしれませんが、ご教授頂きたく宜しくお願い致します。

Excel2000を使用しています。 150101（平成15年1月1日）と表示されている和暦の数字を西暦20030101となるように変換したいんですが・・・ データ量が少なければ手で修正しますが、膨大なデータ量なのでできたら一気に変換できないものかと思い質問させていただきました。 教えて下さい、よろしくお願いしますっっっ！！

EXCELでマクロを作成しています ユーザーフォームを使用し、コンボボックスでセルを選択し、その選択したセルにテキストボックスから文字を入力できるようになっています。 選択したセルが空白ならそのままテキストボックスの文字を挿入し、 もし選択したセルにすでに文字が入力されている場合は、すでに入力されている文字＋テキストボックスの文字、という風にしたいと思っています。 例：選択したセル　　「ガソリン代」 　　テキストボックス「高速代」 　　→　『ガソリン代高速代』 　その次も同じセルを選択した場合　　 　　テキストボックス「電車代」 　　→　『ガソリン代高速代電車代』 このような感じです。 文字をどこかに代入してテキストボックスの文字と＆で結んで入れてやれば良いのかもしれませんがつまづいております。 ぜひ助けていただければうれしく思います よろしくお願いします。

こんばんわ。愚かな質問なのですが・・ 最近エクセルに毎日の就業時間、それに対する賃金を残しているのですが、計算式が分からなくて困っています。 出勤の場合は「1」、休みは「0」として、これに固定日当を掛けます。それに残業代を時間分追加して日当なのですが、諸事情で残業代から30分は賃金に反映されません；； 例えば2時間15分残業した場合、2.25-0.5となります。3時間45分の場合 なら3.75-0.5って原始的に頭で計算してから入力しているのですが・・ 時間に関する式はあるのでしょうか？ その日の残業時間をそのまま入力すればそこから自動で30分をカットしてくれて、出勤が「0」の場合マイナスにならないような計算式が理想なのですが・・ ちなみに今は、出勤+残業時間（上記暗算含む）*単価のような小学生並みの計算式なのですが・・ どうぞご指導宜しくお願い致します。

タイトルにありますとおり ある数値が何個目にあるか調べる方法 または関数がないか悩んでおります＾＾； 文章だけではわかりにくいので以下に例を示します。 　　Ａ　Ｂ　Ｃ　Ｄ　 １　２ ２　０ ３　１ ４　８ ５　２ ６　９ ７　５ ８　３ 　 このような表があったとします。 Ａ列に適当な数字が並んでいます。 Ａ列で３が何個目にあるか？という場合は ＭＡＴＣＨ関数でMATCH(3,A1:A8)で８と表示されると思います。 調べたい数値が1個だけしか存在しない場合はいいのですが 複数ある場合、ＭＡＴＣＨ関数だとうまくいきません。 例えば、Ａ列の２を調べる場合は1行目と5行目にあるため使えません。 このような場合、使えそうな関数、またはＭＡＴＣＨ関数でも便利な活用方法など ご存知の方いらっしゃいましたら、ご教示いただけませんでしょうか＾＾；

EXCELでマクロを作成しています ユーザーフォームを使用し、コンボボックスでセルを選択し、その選択したセルにテキストボックスから文字を入力できるようになっています。 選択したセルが空白ならそのままテキストボックスの文字を挿入し、 もし選択したセルにすでに文字が入力されている場合は、すでに入力されている文字＋テキストボックスの文字、という風にしたいと思っています。 例：選択したセル　　「ガソリン代」 　　テキストボックス「高速代」 　　→　『ガソリン代高速代』 　その次も同じセルを選択した場合　　 　　テキストボックス「電車代」 　　→　『ガソリン代高速代電車代』 このような感じです。 文字をどこかに代入してテキストボックスの文字と＆で結んで入れてやれば良いのかもしれませんがつまづいております。 ぜひ助けていただければうれしく思います よろしくお願いします。

新横浜－こだま→東京－こまち→秋田と乗り継ぐ場合、特急料金の乗り継ぎ割り引きになりますか？

職場でエクセルファイルを使っているのですが、決して難しい使い方ではなく、ワードのように文章を打ち込むような文書を作る時などに利用する事が多いです。 例えば送付状で例をあげると、送付状によくある挨拶などの文章はすでに入力してある状態で、住所や宛名だけを印刷する時にその都度打ち込んで使っているのですが、その住所や宛名の部分にだけ色をつけていると、エクセルファイルを開いた瞬間に入力箇所がぱっとわかって使いやすいですよね？ 今は一番薄い黄色でその部分に色付けしている状態なのですが、これを印刷すると(モノクロ印刷)、薄く黄色に色づけした部分が若干グレーがかって印刷されてしまいます。 そこでご質問なのですが、入力箇所に色をつけても、印刷には反映させない方法ってあるのでしょうか？

職場でエクセルファイルを使っているのですが、決して難しい使い方ではなく、ワードのように文章を打ち込むような文書を作る時などに利用する事が多いです。 例えば送付状で例をあげると、送付状によくある挨拶などの文章はすでに入力してある状態で、住所や宛名だけを印刷する時にその都度打ち込んで使っているのですが、その住所や宛名の部分にだけ色をつけていると、エクセルファイルを開いた瞬間に入力箇所がぱっとわかって使いやすいですよね？ 今は一番薄い黄色でその部分に色付けしている状態なのですが、これを印刷すると(モノクロ印刷)、薄く黄色に色づけした部分が若干グレーがかって印刷されてしまいます。 そこでご質問なのですが、入力箇所に色をつけても、印刷には反映させない方法ってあるのでしょうか？

Private Sub Workbook_BeforePrint(Cancel As Boolean) If (ActiveSheet.Name = "sheet1") And ((Range("D6").Value = "")) Then Cancel = True MsgBox ("名前を入力してください") Range("D6").Select ElseIf (ActiveSheet.Name = "sheet2") And ((Range("C11").Value = "")) Then Cancel = True MsgBox ("受付時間を入力してください") Range("C11").Select End If End Sub 今上記のコードで印刷制御をしていますが これに追加をしたいのですが 例えば上記の条件を満たしてsheet1を印刷した後 sheet1のA70:Y70の範囲(この部分には関数が入ってます)をCopyして sheet3のA1:Y1に値のみで貼り付けて 最後にsheet1のA1を選択して終了 次に同じ様に 条件を満たしてsheet2を印刷した後 sheet2のA70:Y70の範囲(この部分にも関数が入ってます)をCopyして 今度はsheet3のA2:Y2に 値のみで貼り付ける (→ここが重要なんですが、この部分はもしsheet3のA1に情報が入力されてたら、sheet3のA2:Y2に貼り付ける、 A1が空白ならsheet3のA1:Y1に貼り付けるという風に、貼り付ける初めの部分をA1:Y1として、情報が入力されていたらその下の行の情報の入力されてない範囲に貼り付ける・・・という形にしたいのですが) そしてsheet2のA70:Y70の範囲をdeleteして 最後にsheet2のA1を選択して終了 印刷ボタンを押してsheetを印刷した後、この部分を自動で実行するようにVBAで追加を組めるでしょうか？ 素人なのでよく分かってないんですが、回答お願いします

たとえば、 「○×さんて、どういうひと？」 と聞かれたときに、 「あいつは使えない奴だよ」とか 「しょうもない奴だ」 「仕事が出来ないやつだ」 「不器用な奴だ」 という言い回し以外に、どのようなものがありますか？ いままで勝手に 「あいつは食えない奴だ」 という表現と思っていたのですが、調べると ずるがしこくて油断できない奴という意味だったようで、びっくりしました。

複数の書式設定がうまくできません。たとえば、Ａ１がＢ１を参照しているとしたとき、Ｂ１に「abc」という文字列が入るとすればＡ１のセルには「abcこれは文字列です」と表示し、Ｂ１に「1」という数字が入るときには「１これは数字です」と表示したいのです。ついでにＢ１に何も入力されていないときにはＡ１に「未入力」と表示しておきたいのですが・・・ＩＦ関数とユーザー定義だけで対処できますでしょうか？自分なりにやってみたら、Ｂ１に文字を入力しようとするとエラーメッセージが出てしまって困っております。。。。

Excelの関数の使い方についての質問です。 以下のようなファイルを作成しています。 ************************* 　日 　支出 1日 　\2000 2日 　\1000 3日 　\5000 4日 　\600 　・　　　・ 　・　　　・ 　・　　　・ ************************* "支出"という列の中から最大値（最高支出金額）を見つけ、その最大値を返した日付け（＝最も支出金額が高かった日）をあいているセルに表示（"日"という列から日付をひっぱってくる）させるにはどのような関数（またはマクロ）を組めばいいのでしょうか？？

Private Sub Workbook_BeforePrint(Cancel As Boolean) If (ActiveSheet.Name = "sheet1") And ((Range("D6").Value = "")) Then Cancel = True MsgBox ("名前を入力してください") Range("D6").Select ElseIf (ActiveSheet.Name = "sheet2") And ((Range("C11").Value = "")) Then Cancel = True MsgBox ("受付時間を入力してください") Range("C11").Select End If End Sub 今上記のコードで印刷制御をしていますが これに追加をしたいのですが 例えば上記の条件を満たしてsheet1を印刷した後 sheet1のA70:Y70の範囲(この部分には関数が入ってます)をCopyして sheet3のA1:Y1に値のみで貼り付けて 最後にsheet1のA1を選択して終了 次に同じ様に 条件を満たしてsheet2を印刷した後 sheet2のA70:Y70の範囲(この部分にも関数が入ってます)をCopyして 今度はsheet3のA2:Y2に 値のみで貼り付ける (→ここが重要なんですが、この部分はもしsheet3のA1に情報が入力されてたら、sheet3のA2:Y2に貼り付ける、 A1が空白ならsheet3のA1:Y1に貼り付けるという風に、貼り付ける初めの部分をA1:Y1として、情報が入力されていたらその下の行の情報の入力されてない範囲に貼り付ける・・・という形にしたいのですが) そしてsheet2のA70:Y70の範囲をdeleteして 最後にsheet2のA1を選択して終了 印刷ボタンを押してsheetを印刷した後、この部分を自動で実行するようにVBAで追加を組めるでしょうか？ 素人なのでよく分かってないんですが、回答お願いします

Private Sub Workbook_BeforePrint(Cancel As Boolean) If (ActiveSheet.Name = "sheet1") And ((Range("D6").Value = "")) Then Cancel = True MsgBox ("名前を入力してください") Range("D6").Select ElseIf (ActiveSheet.Name = "sheet2") And ((Range("C11").Value = "")) Then Cancel = True MsgBox ("受付時間を入力してください") Range("C11").Select End If End Sub 今上記のコードで印刷制御をしていますが これに追加をしたいのですが 例えば上記の条件を満たしてsheet1を印刷した後 sheet1のA70:Y70の範囲(この部分には関数が入ってます)をCopyして sheet3のA1:Y1に値のみで貼り付けて 最後にsheet1のA1を選択して終了 次に同じ様に 条件を満たしてsheet2を印刷した後 sheet2のA70:Y70の範囲(この部分にも関数が入ってます)をCopyして 今度はsheet3のA2:Y2に 値のみで貼り付ける (→ここが重要なんですが、この部分はもしsheet3のA1に情報が入力されてたら、sheet3のA2:Y2に貼り付ける、 A1が空白ならsheet3のA1:Y1に貼り付けるという風に、貼り付ける初めの部分をA1:Y1として、情報が入力されていたらその下の行の情報の入力されてない範囲に貼り付ける・・・という形にしたいのですが) そしてsheet2のA70:Y70の範囲をdeleteして 最後にsheet2のA1を選択して終了 印刷ボタンを押してsheetを印刷した後、この部分を自動で実行するようにVBAで追加を組めるでしょうか？ 素人なのでよく分かってないんですが、回答お願いします

Sub 範囲指定() 　　A下 = Range("A65536").End(xlUp).Row 　　B下 = Range("B65536").End(xlUp).Row 　　If A下 > B下 Then 　　　仮下 = A下 　　Else 　　　仮下 = B下 　　End If 　　If 仮下 > 4 Then 　　　下 = 仮下 　　Else 　　　下 = 4 　　End If 　　Range(Cells(4, 3), Cells(下, 3)).Select 　　Range("C3").Copy.Paste End Sub もっと良い方法が有ると思うのですが、どうしたら良いでしょうか。

例えば、１００点満点で、90点以上は10、80点以上は9、70点以上は8、60点以上は7、50点以上は6、40点以上は5、30点以上は4、20点以上は3、10点以上は2という基準で、55なら6というように関数を使って表示させるにはどうしたらよいでしょうか。本で、VLOOKUP関数とIF関数のところを読んで、やろうと思いましたがうまくいきません。具体的なやり方を教えてください。よろしくお願いします。

はじめまして、みなさま失礼致します。 今、緊急にエクセルで困っていることがありまして、 詳しい方のお知恵をお借りしたく、書き込みさせていただきました。 エクセルにこのような表があります。 　　　　Ａ １　○○株式会社 ２　△△商事 ３　○○株式会社 ４　□□有限会社 ５　○○株式会社 ・ ・ ・ (以下１００行ほど続きます) この列で、「もっとも多く記入した会社」の、 「記入数」を割り出し、(上の表なら、「３」←○○株式会社)、 簡潔に１セルで表示できる関数を下のセルに入れたいのですが、 どのような関数を入れたら良いのか、 本を読んでも読んでもわからず、四苦八苦して困っております。 なるべく簡潔にしたい表なので、 １セルで計算できれば大変嬉しいのですが、 １セルで表示できる関数はありませんでしょうか？ 時間があまりなく、エクセルに詳しい方から もしお知恵をいただけましたら、本当に心から感謝です。 １セルでの関数が無理でしたら、簡潔であれば どんな形でも構いませんので、ご教授いただけませんでしょうか？ どうかよろしくお願いいたします。