hige_082 の回答履歴

下記のマクロを作成しました。 1.Sheet1のA列の数字を１つずつ検索して、sheet2にその数字があれば、sheet2のそのセル赤くする。 全部あればすべてのセルが赤くなり、無いところがあれば白いままというマクロ 2.sheet1羅列を検索してsheet2に無い場合、逆にsheet1のその数字（検索してなかった数字）を黄色にする。 困っていることは、何も数字の無いところが全部黄色になってしまいます。 sheet1の空白のところは処理せずにそのまま白くあって欲しいのですがどのようにすればいいでしょうか？ ●sheet1のA列に下記のような数字が羅列(200行程)しています。 238062 238075 238096 238210 91518 238230 123456 789123 456789 ●sheet2のA列に下記のような数字が羅列しています。 91518 238062 238075 238096 238210 Sub 赤色付け() Set WS1 = Worksheets("Sheet1") Set WS2 = Worksheets("Sheet2") Dim RowPos As Integer Dim i As Integer For RowPos = 1 To 200 If WorksheetFunction.CountIf(Range(WS2.Cells(1, 1), WS2.Cells(200, 1)), WS1.Cells(RowPos, 1)) > 0 Then i = WorksheetFunction.Match(WS1.Cells(RowPos, 1), Range(WS2.Cells(1, 1), WS2.Cells(200, 1)), 0) WS2.Cells(i, 1).Interior.ColorIndex = 3 ELSE WS1.Cells(RowPos, 1).Interior.ColorIndex = 6 End If Next End Sub

MSのエクセルで質問です。もうずっと以前からネットで検索したりいろんな本を見ても解決しなかった以下の二点について質問です。 一つはエクセルでたとえばテキストボックスや四角のオブジェクトをまずCtrl＋Cキーでコピーして別のシートにCtrl＋Vキーで貼り付けたとします。 するとオブジェクトの位置が貼り付け先のシート内でセルを選択した位置が絶対座標になるようで、どうしても元のシートとまったく同じ位置に貼り付ける事ができません。例えば環境設定みたいなところで一番左上のセルを絶対座標に設定し、シートをまたがってすべてのオブジェクトをコピー元のオブジェクトがあったのとまったく同じ位置に先のショートカットキーでポンポンとオブジェクトを貼り付ける事はできないでしょうか？ もう一つの質問ですが、シートをまたがってオブジェクト内の文字の検索や置換はエクセルはできないのでしょうか？（セル内の文字ならできる事は知っています） もし上記二つ解決できればものすごい作業効率上がるので知っている方いましたらぜひお願いします！

日付の書式設定が変わってしまうことについて エクセル2000でつくったマクロ（下記）をエクセルXPで使用すると、2010/3/25が 25/3/2010とコピーされてしまいます。 セルの書式をアスタリスクなしに設定しなおしても、マクロを実行するとアスタリスクありの書式でコピーされます。 エクセル2000で実行すると、書式が変わることなくコピーできます。 ヘルプを探しましたが、対策を見つけることができませんでした。 ご存知の方ございましたらご教授願います。 OSはXP　HE　SP３、国設定は日本です。 【マクロ】 Private Sub CommandButton1_Click() Dim i As Long Dim Sh1 As Worksheet Dim Sh2 As Worksheet Set Sh1 = ActiveWorkbook.Worksheets("P") Set Sh2 = ActiveWorkbook.Worksheets("D") Application.ScreenUpdating = False Sh1.Range("A35:X36").Value = Sh1.Range("A32:X33").Value　・・・この段階ではSh1.Range("B35")に2010/3/25とコピーされる・・・ Sh2.Unprotect i = Sh2.Range("A25000").End(xlUp).Offset(1).Row Sh2.Cells(i, 1).Resize(2, 8).Value = Sh1.Cells(35, 1).Resize(2, 8).Value・・・この段階でSh2に25/3/2010とコピーされる・・・ Sh2.Select Sh2.Range("A2:H25000").Select Selection.Sort Key1:=Sh2.Range("C2"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin Sh2.Protect Set Sh1 = Nothing Set Sh2 = Nothing Application.ScreenUpdating = True End Sub

MSのエクセルで質問です。もうずっと以前からネットで検索したりいろんな本を見ても解決しなかった以下の二点について質問です。 一つはエクセルでたとえばテキストボックスや四角のオブジェクトをまずCtrl＋Cキーでコピーして別のシートにCtrl＋Vキーで貼り付けたとします。 するとオブジェクトの位置が貼り付け先のシート内でセルを選択した位置が絶対座標になるようで、どうしても元のシートとまったく同じ位置に貼り付ける事ができません。例えば環境設定みたいなところで一番左上のセルを絶対座標に設定し、シートをまたがってすべてのオブジェクトをコピー元のオブジェクトがあったのとまったく同じ位置に先のショートカットキーでポンポンとオブジェクトを貼り付ける事はできないでしょうか？ もう一つの質問ですが、シートをまたがってオブジェクト内の文字の検索や置換はエクセルはできないのでしょうか？（セル内の文字ならできる事は知っています） もし上記二つ解決できればものすごい作業効率上がるので知っている方いましたらぜひお願いします！

EXCELマクロの外部から、マクロの中の変数の値を設定する方法について教えて下さい。 どなたか詳しい方教えて頂けないでしょうか？。 マクロの先頭で、 ・普通にマクロを実行する時には、Flag = 0 ・デバッグをしたい時には、Flag = 1 に設定して、マクロの中でFlagの値によって条件分けをして実行したいのです。 でも、いちいちマクロを開いてFlagの値を変えたくありません。 また、内容は同じでFlag=0のマクロとFlag=1のマクロは用意したくありません。 なぜなら、片方のマクロで修正した内容をもう片方のマクロに反映させなければならず、 間違いの元になる可能性があるからです。 あと、対話式でFlagの値も設定したくありません。 キーの割り当ても検索していたのですが、マクロそのものの登録しか出来ないようですし、 困っています。 詳しい方がおられましたらご回答宜しくお願いします。

excel2003を使用しています。 やりたいことは、２つのセル内の文字を結合する際に改行したいのです。 例えば、Ａ１セル：ＡＢＣＤＥ　Ａ２セル：１２３４５　 Ａ３セル（結果）：　”ＡＢＣＤＥ 　　　　　　　　 　　　　１２３４５” ”～”までがＡ３セルの内容です。 Ａ１セルの文字列数は不特定で、Ａ２セルは５文字限定（必ず５文字ある） できればＡ２セルも不特定でもできれば最高です。 また、Ａ３にて一発結果でなくてもＡ４に一時的な結果を出し、 それからＡ３に結果を表示するでもかまいません。 ご存知の方、ご教授下さい。

Excelを使用していますが、二つの列の項目を一つにまとめる簡単な方法はありますか？ 添付画像のような感じで、Ａ列とＢ列の項目をＣ列にまとめたいです。実際のデータは1000件近くあります。重複している項目は1つのみ抽出し、マクロや関数で処理できればうれしいのですが。 宜しくお願い致します。

A列に文字データが100行まであります。 　　 A　　　　　　　　　　　B 　　 １　ミカンを食べた　　　　　ZZ ２　イチゴを食べた　　　　　XX ３　西瓜を食べた　　　　　　YY ４　ミカンを捨てた　　　　　ZZ ５　西瓜を拾った　　　　　　YY ６　ミカンを無くした　　　　ZZ ７　西瓜を貰った　　　　　　YY ８　イチゴをあげた　　　　　XX それを表のようにB列（任意の列）に置き換えたいです。 イチゴを含むセルはB列にXXをミカンはZZみたいな感じです。 A列のセルには同じ文字列は（今のところ）含みません。 文字の一部を置き換えて変換し、それを繰り返すところまではできましたが、上記のことがができません。 VBAを使って一発で変換したいのですが教えていただけますでしょうか？

VBAの質問(シートのコピーについて) VBAのシートのコピーについてご教授願います。 あるマクロを実行すると、以下のようなシートが作成されます。 シート名：aaaa シート名：bbbb シート名：cccc シート名：dddd 上記シート名のうち、aaaa、bbbb、cccc、ddddを別ワークブックへコピーしたく、以下のように マクロを書いております。 (既に配列strA()にaaaa、bbbb、cccc、ddddが入っております。) Dim strA() As String 　・・・ 　処理　 　・・・ 'シートのコピー For i = 0 To UBound(strA) If i = 0 Then CopySheet = Chr(34) & strA(i) & Chr(34) ElseIf i > 0 Then CopySheet = CopySheet & "," & Chr(34) & strA(i) & Chr(34) End If Next i Sheets(Array(CopySheet)).Copy ---エラーメッセージ--------------- 上記処理を流すと、実行時エラー'9': インデックスが有効範囲にありません。 -------------------------------- しかし、以下のように配列を直接指定すると、正常にコピーされます。 'Sheets(Array(strA(0), strA(1),strA(2),str(3))).Copy 初歩的な問題かもしれませんが、宜しくお願い致します。

エクセル記録マクロの作成の方法 あるネット上でマクロ作成方法では、 ブックのsheet(1)をオートフィルターを利用し、データを抽出した物だけを、シートを追加し張り付けるやり方を、コード上では Selection.CurrentRegion.Select(1) Selection.Copy Sheets.Add Selection.PasteSpecial Paste:=xlValues(2) と記入がありました。 私が自動記録をすると、sheet(1）をコピー時は(1)可視セルのコピーを選択し、貼り付けをするときに(2)値のみにしておこなうと、上記のようなコードで自動記録はおこなわれません。 上記のコードを自動記録操作で作成させるのには、どのような操作記録をおこなったか教えてください。 （(1)についてはアクティブセルのコピーのようだとは理解しました。なぜか理解はできません。）

エクセルです。 一つのセル（Ａ４）に「１０１」と書いてあります。それをVlookup関数で他のシートから一致する情報を取り出しています。次に同じセルに「１０２」とうつと、同じように一致する情報を取り出しています。 そこで、一回、一回、セルに１０２や１０３と打つのではなく、ボタンを押すと次の番号にうつるようなマクロを組みたいと思ってます。 ただ、１０１～１３０　次は、２０１～２３１みたいになってます。 一つのマクロでなくても良いので、よろしくお願いします。 最初は、 Range("A4").select　 セルＡ４を選択　だと思うのですが、この次から分かりません。

表の特定の部分をコピーして、その行列を入れ換えて表示するマクロを作成しました。 Range("G9:J27").Select Application.CutCopyMode = False Selection.copy Sheets("印刷予定").select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True というようなマクロを組んだのですのが、そこから更に追加したい点がありまして。 まずコピーする範囲が毎回変わるので、最終の行を検索して、そこからコピーできるようにしたいのが１点。 あと、はりつけ先の範囲を指定して、表の体裁を整えられればというのがもう1点です。 それぞれについて、何かよい方法がありましたら教えてください。私自身マクロ初心者で、上記も自動でマクロを作成したので、もっとよい方法があるという方もアドバイスを下さい。よろしくお願いします。

次のようなマクロを組みたいのですが．．．。 全くの素人なのでわかりません。 詳しい方、ご回答頂けたらと思います。 エクセルでシート1のA-1～A-5に入力した数値がシート2のA-1～A-5に入力されている基本数値とそれぞれ比較して、「多い」「同じ」「少ない」をシート1のB-1～B-5にそれぞれ表示するマクロ A-1に1月、B-1に2月、C-1に3月．．．というように毎月数値を入力していき、12ヶ月分の数値が埋まった時点でボタンを押すと入力されていた数値がクリアされるマクロ

1つのファイルに2つのシートがあります。 集計結果を反映するシートと元データのシートで別れています。 <元データシート> 品番 品名 　　　バージョン　 数量 11 ABC Soft 　　　　　2000 4 22 XYS Beta 2003 3 23 HU22 hyoukaban 2000 4 45 298 Software 1998 7 22 XYS Beta 2003 11 25 XYS Beta 2008 3 27 XYS Beta 2008 6 <集計結果シート> 品名 バージョン 数量 XYS Beta 2008 3 XYS Beta 2003 14 298 Software 1998 7 ABC Soft 2000 4 HU22 hyoukaban 2000 4 ※表がずれていると思います。 バージョンは4桁の数字です。 マクロを実行して、自動的に元データの情報を集計して 集計結果シートに反映したいと思います。 (1)同じ品名ごとに並べて、同じ品名が見つかった場合はバージョンの新しいものが上になるようにしたいです。 (2)品番は集計結果シートには反映していません。 (3)同じ品名、バージョンで異なる品番がございます。 同じ品名、バージョンであれば品番が異なっても1つに集計することは可能でしょうか。 →(3)だけが理解できていません。(1)と(2)は解決済みです。

マクロ超初心者です。エクセル2003においての質問です。 作成した〔日付順〕のボタンを押すことで並べ替えをしたいと思い，以下のマクロを「記録」から作成したのですが， 9行～153行の間に行を挿入した場合，並べ替えの対象となる行も同じように増えてほしいのですが，常に9行～153行のままで増えてくれません。 可能なら9行より前に行を挿入した場合も同じように可変して欲しいです。 全くのマクロ初心者でどう変えればいいのか分かりません。 また，「記録」から作成したマクロには操作内容が全て存在するようなのですが， 消してもいい不要な部分も分からないので教えて頂ければありがたいです。 よろしくお願いします。 (出来れば以下を書き直して全て貼り付けて頂けるとかなり助かります。) sub　日付順() 　　　Rows("9:153").Select 　　　Selection.Sort　Key1:=Range("I9")，Order1:=xlAscending，Key2:=Range("J9")　_ 　　　　　　，Order2:=xlDescending，Header:=xlGuess，OrderCustom:=1，MatchCase:=　_ 　　　　　　False,Orientation:=xlTopToBottom，SortMethod:=xlPinYin，DataOption1:=　_ 　　　　　　xlSortNormal，DataOption2:=lxSortNormal 　　　Selection.Sort　Key1:=Range("H9")，Order1:=xlAscending，Key2:=Range("B9")　_ 　　　　　　，Order2:=xlDescending，Key3:=Range("M9")，Order3:=xlAscending，Header　_ 　　　　　　:=xlGuess，OrderCustom:=1，MatchCase:=False,Orientation:=xlTopToBottom　_ 　　　　　　，SortMethod:=xlPinYin，DataOption1:=xlSortNormal，DataOption2:=　_ 　　　　　　xlSortNormal，DataOption3:=lxSortNormal End　Sub

エクセルで氏名のリストをもらったのですが、不要なフリガナが 付いています。フリガナだけ消したいのですが、やり方がわかりません。 教えていただけますか。

エクセル　マクロの超初心者です。似たようなQ6Aもありますが、応用できません。どなたかよろしくお願いします。 　A B 　　C 　　　D 　　　　E 　　　F 　　G 1 No 店番　店名　　顧客番号　顧客名　商品　売上金額 2　1　100　日本橋　1234567　浅草太郎　B　　10000 3　2　200　京橋　　2345678　横浜花子　H　　30000 4　3　200　京橋　　3456789　東京次郎　B　　10000 5　4　300　後楽園　4567890　川崎洋子　H　　30000 と以下、1000件程度店番順に並んでいます。 別シートに店番を入力すると、その別シートにその店番だけのデータが 抽出され、表示できるようなマクロを登録したいのです。 ご教授お願いいたします。

はじめまして。このたび登録しました。よろしくお願いいたします。 お世話になります。 仕事で現在EXCELの集計を依頼されているのですがわからないことがあったので質問させていただきます。 シート１に 　　　　＿当月＿＿先月＿＿＿使用量＿＿料金＿＿ Aさん　｜21.2　｜10.2　　｜11.0　　｜　　　　｜ Bさん　｜31.3　｜20.1　　｜11.2　　｜　　　　｜ というのがあります。 最終的に料金のとこに集計したいのですが。 シート２には 　 0.0_|_0.1_|_0.2_|_0.3_|_0.4_|_0.5_|_0.6_| 0.7　・・・ 0 |1.990|2.050|2.111|3.543|4.441|6.534|5.654|5.777・・・ 1 |2.222|2.343|4.444|5.654|5.767|8.878|9.969|10.212・・・ ・ ・ ・ といった具合に金額が入っています。 そこで質問なのですがシート１のAさんの場合使用量が11.0なので行が11番目で列が0.0の場所の金額を入れて集計したいのですが、何通りもパターンを試してもうまくいきませんでした。 この場合集計するのは難しいのでしょうか？ 以上です。よろしくお願いいたします。

●　Excel VBAでの計算処理 超初心者です。いろいろ研究したのですが、よくわかりません。 ＶＢＡに詳しい方、是非をお教えください。VBAでやりたいことは以下のことです。 (1)あるブックのSheet1、Ａ列の項目の特定のキーワード（例えば”数量”）を検索条件にしてデータを検索し、その行の複数の列（例えばＡＡ列からＣＣ列）の数値データに－１を掛けて正の数をすべて負の数にする。 (2)上記(1)の結果を別のブックの”計算結果”というシートに抽出する。 (3)元のブックには”数量”のほかさまざまなキーワードが設定されたデータが混在しています。また、計算の対象となる列のはじまりと終わりは特定できる。しかし、もとのブックの行数（データ件数）は特定できないとします。 イメージとしては、 元のブックにあるデータ） Ａ列　　Ｂ列　　Ｃ列　　・・・・・　ＡＡ列　・・・・　ＣＣ列 数量　　　　　　　　　　　　　　　　５０００　　　　　２３７６ 数量　　　　　　　　　　　　　　　　１２３４　　　　　９９３２ 金額　　　　　　　　　　　　　　　　３００００　　　　２０９９ 結果が抽出されたブックのイメージ（結果は別のブックに抽出される） Ａ列　　Ｂ列　　Ｃ列　　・・・・・　ＡＡ列　・・・・　ＣＣ列 数量　　　　　　　　　　　　　　　　－５０００　　　　　－２３７６ 数量　　　　　　　　　　　　　　　　－１２３４　　　　　－９９３２

次のようなマクロを組みたいのですが．．．。 全くの素人なのでわかりません。 詳しい方、ご回答頂けたらと思います。 エクセルでシート1のA-1～A-5に入力した数値がシート2のA-1～A-5に入力されている基本数値とそれぞれ比較して、「多い」「同じ」「少ない」をシート1のB-1～B-5にそれぞれ表示するマクロ A-1に1月、B-1に2月、C-1に3月．．．というように毎月数値を入力していき、12ヶ月分の数値が埋まった時点でボタンを押すと入力されていた数値がクリアされるマクロ