mu2011 の回答履歴

●質問の主旨 A列の入力を欠いた最終行の特定セルの取得及び転記について ご教示ください。 ●質問の詳細 下記の要領で現金出納帳を作成しています。 １． 項目は以下の通りです。 　A 　　　　B 　　　　C 　　　　　D 　　E 　　　　　　　F 日付 摘要１ 摘要２ 収入金額　　支出金額 残高金額 ２． 下の行に向かって１．の具体的内容を入力していきます。 ３． 同じ日に複数の項目がある場合、その日の先頭項目のみA列に 日付を入力し、２番目の項目には、日付を入力しない。 ４． 当月の一番最後に入力されている項目のF列の残高金額をもって、 次月の残高（繰越残高）とする ５． 当月の残高（繰越残高）は、雛型シートを用意し、 そのシートのF3セルに入力する。 ※ 一日に必ず複数の項目を入力するため、最終行には 日付の入力を欠いていることがほとんどです。私案のコードでは 「最終日」の１番目の残高は拾えても、「最終日」の最終行を 拾うことができません。コードをどのように書き換えたらよろしい でしょうか？ ●私案のコード Sub 繰越_Click() Dim i As Integer '既存のシート数を取得 i = ThisWorkbook.Worksheets.Count '最終シートをコピーして後ろに挿入 Worksheets(i).Copy after:=Worksheets(i) '月リストからシート名を取得してシート名変更 Worksheets(i + 1).Name = Sheets("月リスト").Cells(i + 1, 1).Value '新しく作成したワークシートについて以下の処理を行う With ActiveWorksheets '当月の残高を次月に繰り越す （残高が記入されている最終行,F列の値を次月シートのF3セルに代入する） Range("F3") = Worksheets(i).Range("A1045876").End(xlUp).Offset(0, 5).Value End With End Sub 使用機種はWindouws Vista Excel2007です。当方はVBA初心者です。 　　

エクセルで、E列に文字を入力した際にB列に、J列からM列に文字を入力した際にC列に入力した日付を自動的に入力されるようなマクロを教えてください。 自分で探した限りでは Private Sub Worksheet_Change(ByVal Target As Range) Dim r, rng As Range Set rng = Intersect(Target, Columns("E:E")) 　　If Not rng Is Nothing Then 　　　　For Each r In rng 　　　　　　If r.Value = "" Then 　　　　　　　　r.Offset(, -3).ClearContents 　　　　　　Else 　　　　　　　　r.Offset(, -3).Value = Date 　　　　　　End If 　　　　Next r 　　End If End Sub までしか出来ませんでした。 しかも複数条件を指定する方法もわかりません・・・・。 ぜひともお詳しい方、ご伝授くださいませ

お世話になります。 xp／エクセル2003使用です。 口座引き落としのデータ作成作業を行なっています。 請求金額の文字数を半角10文字に揃える 作業をしています。 （例） 【元のデータ】　　　【半角10文字のデータ】 112350　　　　　　　####112350 　23100　　　　　　　#####23100 　 8400　　　　　　　######8400 元のデータから半角10文字のデータを作成する作業を 手作業で行なっているのですが、 エクセルで使える関数はありますでしょうか？ なお、上記の例の#の代わりに０（ゼロ）は使用しない形でお願いします。 （エクセルの書式設定で文字列は今回使いたくないので） また、マクロも使わない方法を探しています。 よろしくお願いします。

エクセル2007で、図形（矢印）を挿入すると印刷プレビューや実際の印刷では画面でみた位置と異なった位置に移動しています。最近OSをWIN7にしましたが関係あるでしょうか？対処方法を　お教えください。

Excelでセルに文字を入力して、セルの幅より長い場合、 右のセルに何も入っていないと、自動的に入り込みます。 止めるにはどうしたらよいのでしょうか？ とあるリストを作成中ですが、住所とかURLとか長いものがありまして、 その右に何も入ってないセルがあると自動的に全部表示されてしまいます。 折り返したり、小さく表示されたりするのは、嫌なのです。 単純に途中で切れて表示されるようにしたいのですが、 良い方法は無いでしょうか？

エクセルの作成表をコピペすると格子まで印刷されます 格子は印刷不要です、どうすれ、印刷されずにすみますか？

購入品関係の年間集計金額表を作っています。 初心者ですので専門的言葉がわからないので説明下手になると思います。 すみません・・・ 毎月ごとにシートが別になっていてそのシート４月～３月までのデータが会社の専用ソフトで 勝手に品名、金額、購入者などを織り込んだ表が自動作成されるのですが、 これを一括りにまとめたシートを作成しています。 やっと関数が出来たのですが隣のセルにコピーすると月も(シート名)次の月に変えることは出来ないでしょうか？ 文章だと説明出来ないので実際使ってる関数を出します。 例： =SUMIF('4月'!$D:$D,"*電池*",'4月'!$E:$E)) この関数がB1にあってC1、D1・・・にコピーさせると５月、６月・・・にしたいというものです。 「電池」となってる条件はB2、B3・・・と長々30種目ほどあって、月を1つづつ変えるのは 気が遠くなってしまいます。 あと、 =SUMIF('4月'!$D:$D,"*電池*",'4月'!$E:$E)) この関数を↓方向にコピーさせると合計範囲の「E:E」がF:F、G:G・・となるように出来る方法も 知りたいです。 どなたか詳しい方よろしくお願い致します。

Excelでデータ抽出処理を以下のようにしたく、関数でできませんか？ １、Sheet1には以下のようなデータになっており、 　　同じ取引先のデータも含んでいます。 　　<取引先>　　<商品名>　　　<数量>　　<金額>　　<重要フラグ> 　　　Ａ社　　　みかん　　　　　10　　　　23,000　　　　0 　　　Ａ社　　　もも　　　　　　5　　　　12,000　　　　1 　　　Ｂ社　　　ぶどう　　　　　3　　　　8,000　　　　　　1 　　　Ｃ社　　　みかん　　　　　5　　　　11,500　　　　0 　　　Ｃ社　　　バナナ　　　　　5　　　　9,000　　　　　1 　　　Ｄ社　　　すいか　　　　　8　　　　21,500　　　　0 　　　Ｄ社　　　メロン　　　　　15　　　　39,000　　　　　1 ２、このSheet1のデータをSheet2に需要フラグ="1"のデータのみ抽出したいです。 　　Sheet2表の最下に合計行も追加した。 ３、このSheet1のデータをSheet3に取引先毎に集計したデータを表示したいです。 　　Sheet3表の最下に合計行も追加した。 　できれば関数でできればいいのですが、 　何かよい方法はないでしょうか？よろしくお願いします。 　 　関数でできなければ、ＶＢＡの標準モジュールでもやりたいですが、 　どなたかご教授よろしくお願いします。

Windows xpを使用しています。エクセルの文中に◎を入れたいのですが、今のところ『にじゅうまる』で変換しています。このような記号のようなものを入れる場合、△ ○←『さんかく』と『まる』以外でもっと簡単に早く入れられる方法は無いものでしょうか？素人で申し訳ありません。

エクセル2007を使用しています。 2000項目程のリストの新旧の洗い出しをしています。 (1)「旧」の方にも記載されていて、「新」の方にも記載されているもの。 (2)「旧」の方には記載されていて、「新」の方には記載されていないもの。 (3)「旧」の方には記載されていなくて、「新」の方には記載されているもの。 の3つに分けたいのですが、簡単にできる関数などないでしょうか？ 現状、一つ一つ検索機能を使って調べています。 何か良い方法ございましたら、ご教示くださいませ<m(__)m>

sheet1に A1　あ A2　い A3　う A4　え sheet2に A1　あ A2　け A3　う A4　え この様な場合にsheet1になくsheet2にある「け」のセルに色を付ける（または、文字の色を変える） ようにしたいのですが… どなたか、よろしくお願いします。 このような場合に、sheet

excelの質問をさせて下さい。 添付の画像を元に相談出来ればと思うのですが、 左側の表を、右側のデータベースを元に クロス集計で埋めたいと考えています。 表は、左部がイベントの参加者 上部がイベント一覧で並べています。 例えば赤いセルに入っているところには、 イベントAに参加したユーザーの評価点を入れたいと考えています （D4＝3、D5＝4、D6＝5、D7＝5、D8＝、空欄　という形です） 上記を求められる関数式を是非教えていただけませんか？

(1)A2に数値が入った場合、A1には「1」 (2)A3に数値が入った場合は、A1には「2」 (3)A4に数値が入った場合は、A1には「3」 とするには、どうすればいいのでしょう？ (1)の数式は　=IF(ISNUMBER(A2),1,"")　ですが、 その後の(2)(3)が続けてどう入力すればよいのか分からなくて、、、 教えていただけますでしょうか？

Windows XP です。 A列に数字が入力されています。 この中には、 Aという数値の数字が複数個 Bという数値の数字が複数個 入力されている可能性があり、それ以外の数字は それぞれ1個づつ入力されています。 このような場合、A、Bだけを抽出する方法を 教えてください。 宜しくお願いいたします。

ThisWorkbookにsheet1からsheet9までの範囲で処理をさせたいと思い Else Worksheets("Sheet1", "sheet3").Select If Not Intersect(Target, Sh.Range("B7:B299")) Is Nothing Then If Target.Value = "" Then Target.Value = "2010/" Application.SendKeys "{f2}"　としますがエラーになります。 色々調べましたが、精根尽き果ててお伺いします。 宜しくお願いします。

ThisWorkbookにsheet1からsheet9までの範囲で処理をさせたいと思い Else Worksheets("Sheet1", "sheet3").Select If Not Intersect(Target, Sh.Range("B7:B299")) Is Nothing Then If Target.Value = "" Then Target.Value = "2010/" Application.SendKeys "{f2}"　としますがエラーになります。 色々調べましたが、精根尽き果ててお伺いします。 宜しくお願いします。

Excelで数字が一列に並んでいるものを、桁数を全て8桁に合わせたいので、 8桁に満たない数は先頭にゼロを付けたいのですが、 これをマクロなどを用いて一気に行うことは可能でしょうか？ 【例】 345067 81775176 56298 43 324051 9291 47290817 7313076 463507 1681788 ↓こうしたい。 00345067 81775176 00056298 00000043 00324051 00009291 47290817 07313076 00463507 01681788 どなたか詳しい方、方法を教えていただけると幸いです。 よろしくお願いいたします。

Excelで、例えば以下のように 92.5⇒0925 95⇒0950 100⇒1000 と、4桁表示=整数部3桁+小数部1桁　/少数以下第2位四捨五入　で表示したいのですが どこでどのように設定すればよいかを教えてください。

ThisWorkbookにsheet1からsheet9までの範囲で処理をさせたいと思い Else Worksheets("Sheet1", "sheet3").Select If Not Intersect(Target, Sh.Range("B7:B299")) Is Nothing Then If Target.Value = "" Then Target.Value = "2010/" Application.SendKeys "{f2}"　としますがエラーになります。 色々調べましたが、精根尽き果ててお伺いします。 宜しくお願いします。

ThisWorkbookにsheet1からsheet9までの範囲で処理をさせたいと思い Else Worksheets("Sheet1", "sheet3").Select If Not Intersect(Target, Sh.Range("B7:B299")) Is Nothing Then If Target.Value = "" Then Target.Value = "2010/" Application.SendKeys "{f2}"　としますがエラーになります。 色々調べましたが、精根尽き果ててお伺いします。 宜しくお願いします。