merlionXX の回答履歴

Ｅｘｃｅｌで列方向に結合したセルを検索し、結合セルの先頭の行番号を 取得する方法を考えていますが、良いアイディアが浮かびません。 ＶＢＡで良い方法、又はサンプルがありましたら教えて下さい。

ＩnputBoxで2重の検索をしたいのです。 1回目はＣ列、2回目はＤ列より入力されたデータを検索します。 両方のデータがあった行を指定した別の行へコピペしたいのですが・・・・。 この記述だとうまく作動しません。 どなたかわかる方お知恵を貸してください。 Sub test() Dim Keyword Dim Keyword2 Dim Fnd '入力されたキーワードを変数Keywordに入れる Keyword = InputBox("キーワードを入力してください") Keyword2 = InputBox("キーワード2を入力してください") '[既にあるデータの範囲]からキーワードを検索し、検索結果のセルをオブジェクト変数Fndにセットする Set Fnd = [既にあるデータの範囲].Find(Keyword) 'もし、キーワードが見つからなかったら If Fnd Is Nothing Or Fnd.Offset(, 1).Value <> Keyword2 Then MsgBox "データはありません" 'もし、キーワードが見つかったら Else 'キーワードが見つかったセルを含む行全体を、[別の指定した行]にコピペ Fnd.EntireRow.Copy [別の指定した行] End If End Sub

ページのフッダー＆ヘッターの設定ではなく、シートのセルに［ページ数/総ページ数］を入れたい。 １シートにつき１ページ分の範囲のみ記入されたシートが複数シートあります。 「総シート数＝総ページ数」、「１シート＝１ページ」でシートの並び順にページ数とする時に、それぞれのシートのセルに［ページ(シート)数/総シート数］と入れたい場合は、どのように設定すればいいでしょうか？

Excelを開くと「このブックには、ほかのデータソースへのリンクが含まれています。」と出る時、 文字通りどこかにリンクが張られてるんだと思いますが、 それがどこにあるかすぐに見つけられる方法は何かあるんでしょうか？ あちこちに関数が入力してあったり、シートが多数あったりすると探すのに骨が折れます。 何かパッと見つけられるイイ方法があれば教えて下さい。

次の課題を考えています。初心者ですのでよろしくお願いします。 課題　Excel2007のシートに複数のテキストボックスを作成して、このテキストボックス内の文字（テキスト）をExcelのセルまたはWordにコピーしたいと考えています。OSはWin7です。 方法　Windows XP SP2とワード2003の場合に関して、下記URL http://okwave.jp/qa/q4673231.html に説明があったので、これを参照して 1　Excel2007ファイルを名前をつけて保存　→　Webページで保存 ２　保存されたｈｔｍｌファイルをブラウザで開き、それを名前をつけて保存（テキストファイル選択） しかしながら保存されたテキストファイルをメモ帳で開いてみてもテキストボックス内の文字は保存されていません。 Webページで保存した場合、filesフォルダ内にテキストボックスがそのままイメージで保存されているので、この方法ではむずかしいのかもしれないと思っていますが、なんとかWebページ保存の方法でテキストボックス内の文字を抽出したいと考えていますので、どなたかよろしくお願いします。

ＩnputBoxで2重の検索をしたいのです。 1回目はＣ列、2回目はＤ列より入力されたデータを検索します。 両方のデータがあった行を指定した別の行へコピペしたいのですが・・・・。 この記述だとうまく作動しません。 どなたかわかる方お知恵を貸してください。 Sub test() Dim Keyword Dim Keyword2 Dim Fnd '入力されたキーワードを変数Keywordに入れる Keyword = InputBox("キーワードを入力してください") Keyword2 = InputBox("キーワード2を入力してください") '[既にあるデータの範囲]からキーワードを検索し、検索結果のセルをオブジェクト変数Fndにセットする Set Fnd = [既にあるデータの範囲].Find(Keyword) 'もし、キーワードが見つからなかったら If Fnd Is Nothing Or Fnd.Offset(, 1).Value <> Keyword2 Then MsgBox "データはありません" 'もし、キーワードが見つかったら Else 'キーワードが見つかったセルを含む行全体を、[別の指定した行]にコピペ Fnd.EntireRow.Copy [別の指定した行] End If End Sub

こんにちは、色々試しているのですが、うまくいかずに悩んでいます。 コマンドを実行すると、名前を付けて保存のダイアログ画面を表示させるＶＢＡを作りたいです。 ただし、 (1)保存せずに、ダイアログを表示させる状態で停止させる。 (2)ダイアログ表示時、ファイル名欄に”売上集計表yyyy年mm月”というファイル名が入っている。（yyyyとmmは変数。コマンド実行時に入力する事でファイル名もそれに対応する。） 以下の様にVBAを組んだのですが（他にも色々組んでいますが、うまく動いている個所は省いてます。）、上記(1)(2)共に思い通りに動いてくれません。分かるかたがいましたら、よろしくお願いします。 Sub 保存() ' ' Macro1 Macro Dim rtn Dim myD As String, msg As String, fn As String, x As String Dim wb As Workbook, ws As Worksheet line: ' 年月の入力処理 rtn = Application.InputBox("入力する月を西暦YYYYMM形式で入力してください。" _ & vbNewLine & "例）2011年7月⇒201107", Type:=1) If rtn = False Then Exit Sub myD = Left(rtn, 4) & "/" & Right(rtn, 2) & "/01" If Not IsDate(myD) Then MsgBox "存在しない年月です！", vbCritical GoTo line Else If MsgBox(Format(myD, "yyyy年mm月") & "で間違いないですか？", vbYesNo + vbQuestion) = vbNo Then Exit Sub End If End If 'ファイルの保存 ChDir "C:\Users\（ユーザー名）\Desktop\新しいフォルダー" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\（ユーザー名）\Desktop\新しいフォルダー\売上集計表保存" & "Year(myD)" & "年" & "Month(myD)" & "月" & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub

パスワードがかかっているエクセルのファイルが大量にあり、 パスワードもなにかわかっていてるのですが、いちいち開くときにパスワードを入力するのが大変です。 (ちなみに、パスワードはすべて同じです。) そこで、一括してパスワードを解除するファイルがあれば教えて頂きたいです。 よろしくお願いします。

エクセルVBA初心者です。 色々調べてやっているのですが、どうもうまく動いてくれず・・・質問させて頂きます。 ”入力”という名前のシートと、1～12の数字が名前のシート（”1”、”2”・・・・”12”）の合計13個のシートがあります。 実行する事で、以下の操作を一括で実行してくれるVBAを組みたいです。 (1)『入力する月を入力してください。』というダイアログを表示する。 　　『西暦YYYY年MM月』という形で入力できるようにする。 　　『ＯＫ』ボタンを押す事で(2)へ進む。『キャンセル』で実行処理中止。 (2)年と月を入力して『ＯＫ』ボタンを押すと、『『西暦YYYY年MM月でよろしいですか？』の質問を表示する。 　『ＯＫ』ボタンを押す事で(3)へ進む。『キャンセル』で実行処理中止。 　月の入力が1～12以外だった場合は『月は1～12の範囲で入力して下さい。』と表示して(1)へ戻る。 (3)”入力”シートのB4～B503、F4～F503をそれぞれ、(1)で入力した月のシート（(1)で1と入力したら”1”のシートへ）のB4～B503、F4～F503へ形式の値のみコピーする。 (4)ファイル名を『売上集計表YYYY年MM月』という名前で保存する。 大変失礼な質問のしかたとは思いますが、勉強不足かつ急いで作成したいので、分かる方がいましたら是非御伝授頂きたいです。よろしくお願いします。

エクセルVBA初心者です。 色々調べてやっているのですが、どうもうまく動いてくれず・・・質問させて頂きます。 ”入力”という名前のシートと、1～12の数字が名前のシート（”1”、”2”・・・・”12”）の合計13個のシートがあります。 実行する事で、以下の操作を一括で実行してくれるVBAを組みたいです。 (1)『入力する月を入力してください。』というダイアログを表示する。 　　『西暦YYYY年MM月』という形で入力できるようにする。 　　『ＯＫ』ボタンを押す事で(2)へ進む。『キャンセル』で実行処理中止。 (2)年と月を入力して『ＯＫ』ボタンを押すと、『『西暦YYYY年MM月でよろしいですか？』の質問を表示する。 　『ＯＫ』ボタンを押す事で(3)へ進む。『キャンセル』で実行処理中止。 　月の入力が1～12以外だった場合は『月は1～12の範囲で入力して下さい。』と表示して(1)へ戻る。 (3)”入力”シートのB4～B503、F4～F503をそれぞれ、(1)で入力した月のシート（(1)で1と入力したら”1”のシートへ）のB4～B503、F4～F503へ形式の値のみコピーする。 (4)ファイル名を『売上集計表YYYY年MM月』という名前で保存する。 大変失礼な質問のしかたとは思いますが、勉強不足かつ急いで作成したいので、分かる方がいましたら是非御伝授頂きたいです。よろしくお願いします。

エクセルVBA初心者です。 色々調べてやっているのですが、どうもうまく動いてくれず・・・質問させて頂きます。 ”入力”という名前のシートと、1～12の数字が名前のシート（”1”、”2”・・・・”12”）の合計13個のシートがあります。 実行する事で、以下の操作を一括で実行してくれるVBAを組みたいです。 (1)『入力する月を入力してください。』というダイアログを表示する。 　　『西暦YYYY年MM月』という形で入力できるようにする。 　　『ＯＫ』ボタンを押す事で(2)へ進む。『キャンセル』で実行処理中止。 (2)年と月を入力して『ＯＫ』ボタンを押すと、『『西暦YYYY年MM月でよろしいですか？』の質問を表示する。 　『ＯＫ』ボタンを押す事で(3)へ進む。『キャンセル』で実行処理中止。 　月の入力が1～12以外だった場合は『月は1～12の範囲で入力して下さい。』と表示して(1)へ戻る。 (3)”入力”シートのB4～B503、F4～F503をそれぞれ、(1)で入力した月のシート（(1)で1と入力したら”1”のシートへ）のB4～B503、F4～F503へ形式の値のみコピーする。 (4)ファイル名を『売上集計表YYYY年MM月』という名前で保存する。 大変失礼な質問のしかたとは思いますが、勉強不足かつ急いで作成したいので、分かる方がいましたら是非御伝授頂きたいです。よろしくお願いします。

エクセルで文字検索を簡単にする方法はありますか？ Ｂ列２行目以降に年月日（曜日）・・・同じ年月日（曜日）の行がたくさんある場合もあります。 Ｃ列以降はＢ列に関する文字が入力されています。 検索対象は年月ですが、検索するのに標準コマンドで検索すればよいことかと思いますが、年月日（曜日）がかなり増え、簡単に検索する方法がないかと、ネットなどで調べましたがなかなかヒットしません。 Ｈ１９年４月、５月・・・Ｈ２０年１月、２月・・・・○○年月の文字を１行目に作成し、その文字をクリックすると該当する年月の行の始まりまたは、該当する年月の行のいずれかを表示させる方法はありますでしょうか？ エクセルは２０００です。 参考サイト等ご存じでしたらよろしくお願いします。

今、マクロを使って単純な作業を繰り返したいと思っているのですが、その中でいくつかわからない点があるので質問することにしました。 まず、貼り付けたい元データ（説明上data1と呼びます）が40種類あります。 これらは、すべて異なるファイル名をつけており、1つのフォルダ内に保存しています。 data1上のコピーをしたいと思っている場所は40種類ともすべて同じ場所（セルのH3）です。 これを、まったく新しいエクセルファイル（説明上resultと呼びます）に貼り付けたいと思っています。 このとき、data1の40種類のデータをresultのシート上にA1から順番に縦に並べていきたいと思っています。 この作業をdata1のファイル数である40回繰り返したいと思っているのですが、どうすればいいのでしょうか。 回答をお願いします。

　 毎日の生産管理でエクセル２０００を使用しています。 A列に製品名、B列に生産個数というように入力。 重複したデータが日替わりのように発生していますので、 あとでデータ整理するのが大変です。 　　　A　　　　B　　　　C　　　 D　　　・・・・ １　A製品　　200 ２　B製品　　200 ３　C製品　　250 ４　A製品　　100 ５　D製品　　300 ６　E製品　　120 ７　C製品　　600 ８　B製品　　 50 ・ 教えて！欲しいのは下記のように重複したデータ（製品名）の場合、 既存の製品の行の空白セルに生産個数を自動的に書き込み、整理する方法。 　　　A　　　　B　　　　C　　　　D ・・・・ １　A製品　　200　　100 ２　B製品　　200　　50 ３　C製品　　250　　600 ４　D製品　　300　　 ５　E製品　　120　　 ６　 ７　 ８ ・ いろいろ「エクセル　重複データ」に関する質問を検索したのですが、 これに当てはまる質問を見つけられず、意を決して投稿しました。 マクロ、VBAでも構いませんので、どうかご教授願います。　

　 毎日の生産管理でエクセル２０００を使用しています。 A列に製品名、B列に生産個数というように入力。 重複したデータが日替わりのように発生していますので、 あとでデータ整理するのが大変です。 　　　A　　　　B　　　　C　　　 D　　　・・・・ １　A製品　　200 ２　B製品　　200 ３　C製品　　250 ４　A製品　　100 ５　D製品　　300 ６　E製品　　120 ７　C製品　　600 ８　B製品　　 50 ・ 教えて！欲しいのは下記のように重複したデータ（製品名）の場合、 既存の製品の行の空白セルに生産個数を自動的に書き込み、整理する方法。 　　　A　　　　B　　　　C　　　　D ・・・・ １　A製品　　200　　100 ２　B製品　　200　　50 ３　C製品　　250　　600 ４　D製品　　300　　 ５　E製品　　120　　 ６　 ７　 ８ ・ いろいろ「エクセル　重複データ」に関する質問を検索したのですが、 これに当てはまる質問を見つけられず、意を決して投稿しました。 マクロ、VBAでも構いませんので、どうかご教授願います。　

エクセルＶＢＡで以下のようなコードを書いています。 Sub 工事抽出コピペ() Dim Obj As Object With Sheets("工事台帳") Set Obj = .Range("E5:E65536").Find(.Range("E2"), LookAt:=xlWhole) If Obj Is Nothing Then MsgBox "見つかりませんでした。" Sheets("工事別表示").Range("B11:F65536").ClearContents Exit Sub Else .Range("B6").AutoFilter Field:=4, Criteria1:=.Range("E2").Value .Range("F5:J" & .Range("B65536").End(xlUp).Row).Copy End If End With Sheets("工事別表示").Range("工事別明細1", "工事別明細2", "工事別明細3").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub 実行すると、 Sheets("工事別表示").Range("工事別明細1", "工事別明細2", "工事別明細3").PasteSpecial Paste:=xlPasteValues 部分が黄色くなって、 「実行時エラー'450'、引数の数が一致していません。または不正なプロパティを指定しています。」 というエラー表示がでます。 工事台帳シートでオートフィルターをかけ抽出したものが30行あったときに、工事別表示シートは10行ずつの表を作っているので、そこに上から順番にコピペしようとしているのですがうまくいきません。 工事別明細1はB11:F39、工事別明細2はB43:F71、工事別明細3はB75:F103"です。 そもそも、オートフィルターで抽出したものを、分けてペーストすることは可能なのでしょうか? 解決策をおしえてください。 よろしくおねがいします。

エクセルVBAの初心者（昨日から勉強）です。 以下のVBAを作りたいです。 C１からH12までの範囲に半角“-”が入力されています。 しかし、入力ミスで全角“－”が入力される場合が多発していますので、 C1からH12までの範囲内で、全角“－”が入力されたら、エラーを出すチェックツールを作りたいです。 何か知恵をお借りいただけますでしょうか？ 宜しくお願いいたします。

こんにちは　いつもお世話になっています。 エクセル2003を使っています。 A列に人名の文字列があります。左端に半角のスペース、文字列の中に全角のスペース、右端にスペースはありません。文字の個数は人名のため様々です。 ここで、左端の半角スペースだけを削除したいのです。 Ltrim関数というのが当てはまるのでしょうか。 半角スペースの削除の方法を教えてください。

A1　 B1 C1 1 ○　　　3 2 × 13 3 × 44 4 ○　　　4 5 ○ 5 A列に色んな数字が入っています。A1セルの数がC列の数字の中にあれば、B1に○、なければ×を表示させるにはどうすればいいのでしょうか。MATCH関数を使うのだと思っているのですが・・・。 順番にA1の数がC列にあれば○、A2の数がC列にあれば○A3の数がC列にあれば○とA列にもC列セルに大量の数字があります。一気に処理できないでしょうか。

エクセル２００７で、列を変えて、氏名と電話番号を入力しました。氏名で並び替えをすると、当然 電話番号と、一致しなくなります。 氏名番号と一致して、並び替えは、できないのでしょうか。 よろしく　お願いします。