mu2011 の回答履歴

こんにちは。 特定の名前のワークシートを削除するのにいちいち Worksheets("機種").Delete Worksheets("条件").Delete Worksheets("対象").Delete などと削除するシートの枚数分.Deleteを書かずに for nextのような構文を使用して削除したいと思います。 このときの書き方をお教えください。 よろしくお願いいたします。

結合されたセルのデータを、マクロを使って一括削除したいです。 ex 結合セル　（A1：B1）、（A2：B2）、（C3：E3）　　 上のような結合セルを一度に削除するには、どんなコードを組めばいいのでしょうか？ つまり、A1のセルからE3のセルまで、一括削除したいです。 宜しくお願いします。

■EXCEL2010のマクロについて■ マクロ－シート(マクロ管理シート)を作成後、そのファイルを開くと(マクロ管理シート1)で表示されてしまい、 参照元がないということで、エラー 1004が出てしまいます。 ただし、ドロップ＆ドラッグすれば、(マクロ管理シート)が表示されることもあります。 知り合いに頼んで確認してもらいましたが、その時は、ドロップ＆ドラッグでも(マクロ管理シート1)が表示されたそうです。 どうすればよいのでしょうか？ 知り合いにもらったマクロを元にいじっていますので、よくわからない部分もありますが どうぞよろしくお願いいたします。 以下、マクロです。 Sub 作成_Click() Dim fpath As String Dim fs As Object Dim out As Object Dim i As Long Dim myArray() As String Dim title As String fpath = ActiveWorkbook.Path Set fs = CreateObject("Scripting.FileSystemObject") Set out = fs.CreateTextFile(fpath & "\sitelist.csv", True) For i = 5 To 105 title = Cells(i, 1) Mar = Cells(i, 2) Email = Cells(i, 3) URL = Cells(i, 4) msg = Cells(i, 5) category_miumiulink = Cells(i, 6) category_inavi = Cells(i, 7) other_link = Cells(i, 8) passwd = Cells(i, 9) keyword = Cells(i, 10) Name = Cells(i, 11) temprate = Cells(i, 12) jyanru = Cells(i, 13) If title = "" Then Exit For End If csv = "" csv = csv & Chr(34) & title & Chr(34) & "," csv = csv & Chr(34) & Mar & Chr(34) & "," csv = csv & Chr(34) & Email & Chr(34) & "," csv = csv & Chr(34) & URL & Chr(34) & "," csv = csv & Chr(34) & msg & Chr(34) & "," csv = csv & Chr(34) & category_miumiulink & Chr(34) & "," csv = csv & Chr(34) & category_inavi & Chr(34) & "," csv = csv & Chr(34) & other_link & Chr(34) & "," csv = csv & Chr(34) & passwd & Chr(34) & "," csv = csv & Chr(34) & keyword & Chr(34) & "," csv = csv & Chr(34) & Name & Chr(34) & "," csv = csv & Chr(34) & temprate & Chr(34) & "," csv = csv & Chr(34) & jyanru & Chr(34) Call out.writeline(csv) Next i MsgBox "作成お疲れ様でした♪" End Sub

Ｅｘｃｅｌを使用しているとき、数字に（）…たとえば（１２３４）と入力した時に-(1234)となるのは何故なのですか？ また、そうならないようにするにはどうしたらいいのでしょうか？ 詳しい方、よかったら教えてください。

エクセル2002　　5000行程の参照シートからVLOOKUPで検索した数値を表にし合計をする作業をしています。参照シートは全てを文字列に設定したものです。☆(゜o゜ （多分0を入れたい為　全てを文字列設定にしています）。 上記シートをVLOOKUPで検索した数値をはりつけると　すべて文字列になっています。 ・元シートのせいか？ ・私の設定方が悪く　何かミラクル設定方法があるのか教えて下さい。 書式設定で標準に戻しても　関数入らず（そのセルさえ文字列になっています） 区切り位置　→　完了で訂正しますが　シート全体を　書式設定　標準にでき　関数が入る方法はないでしょうか？ 修正すると・・・文字列に戻っていたりします。 説明下手で申し訳ありませんが　いい方法があればご教授お願いします。

１行目に毎日の日付を、１列目に従業員の名前を入れた表を作って出張予定の管理をすることにします。各セルには、出張で不在の日は丸印を記入、社内にいる日はブランクのままとします。また、休日は無視した表とします。たとえばAさんが７日間続けて出張をすると、Aさんの行にはある期間に丸が７つ並ぶことになります。 ところでAさんがこの表の全期間の中で、合計「何回」出張に行ったかを関数等を使って求める方法はないでしょうか？丸が１個以上連続で並んでいればその前後のブランクまでの期間が１回の出張と数えるようにしたいのです。うまい処理方法を教えて下さい。関数で合計出張日数位は求められるのですが・・。 どうぞよろしくお願いします。

こんにちは。 Excel２００３を使用しています。 数十枚のシートからなるブックがあります。 シートのタブの名前はAxxxxxxとBxxxxxxの文字列です。 Axxxxxxのシートは不要なので全て削除したいと思います。 そこで、マクロの書き方を教えてください。 Worksheet("A*").Delete では「型が合いません」と怒られます。 よろしくお願いいたします。

実績が３０分以内なら　計算には　実績と同じ数字を もし30分を超える数字なら　計算欄に「０」を表示したいのですが A2にはどんな数字を入れたらいいのでしょうか？

エクセル（2003）で数値の入ったセルを色分けしたいです。 色んなサイトを見て下記を書いてみましたが 数値を入力すると色が変わるのですが 別のところから数値をコピーペーストすると色が変わりません。 マクロでもVBAでもなんでもかまいません。 数値を5種類に分けてセルの色を変える方法を教えていただきたいです。 宜しくお願いいたします。 Private Sub Worksheet_Change(ByVal Target As Range) Dim myNO As Integer With Target If .Count > 1 Then Exit Sub If IsEmpty(.Value) Then Exit Sub If Not Application.Intersect(Target, Range("A1:AX51")) Is Nothing Then Select Case .Value Case Is <= 54: myNO = 3 Case 55 To 79: myNO = 39 Case 80 To 104: myNO = 4 Case 105 To 119: myNO = 33 Case Is >= 120: myNO = 6 End Select .Interior.ColorIndex = myNO End If End With End Sub

したいことは 置換前　：　=Index(A:B,1,1)&" "&Index(A:B,1,2) 置換後　：　=Trim(Index(A:B,1,1)&" "&Index(A:B,1,2)) Trim関数を加えて、両端の空白を除去したいのです。 置換前の式は５００行程埋め込んでいます。 １回の置換でしたいのですが、数字部分は可変なので、わかりません。 １，１　１，２の部分をワイルドカードでできればいいのですが・・・。

合計を　¥1,000,000　として、合計が0の場合は数値を表示したくない場合。 ￥マーク、カンマ区切り、0;-0;　を利用したいのですが、なんと入力すればいいのでしょうか。 既出だったらすみません、どなたかお教えください。

Excel2010のVBAなんですが、処理時間が非常に遅いです。プログラムの中でも遅い部分はセルに入力する部分です。多分24時間ぐらいプログラムを走らせておきましたがそれでも終わっていませんでした。 シートは6個あり、それぞれ関数の計算がされており、シート1からシート3までの計算されたものがシート4に出力され、そのシート4からプログラムで計算してシート5に出力されるコードです。 シート5に出力するデータは、「年」、「月」、「日にち」、「時刻」、「データ1」、「データ2」、「データ3」、「データ4」の8つの項目です。これは全ての行に入力するわけではなく、入力しなくてもいい空白の部分もあります。空白でもいいセルには入力の処理はしないようになっています。 処理時間が遅いというのは、データ量が非常に多いということもあるのですが最初に参照するデータは50万件以上（実際はこれよりはるかにあるのですが区切っています。）あります。 全てのコードはここには記載しませんが、特に遅いセルの入力の部分は、次の通りです。 For～ With Workbooks("ブック名.xlsm").Worksheets("シート5") .Cells(b, 1) = Year(日付) .Cells(b, 2) = Month(日付) .Cells(b, 3) = Day(日付) .Cells(b, 4) = TimeValue(日付) .Cells(b, 5) = Application.Round(データ1, 3) .Cells(b, 6) = Application.Round(データ2, 3) .Cells(b, 7) = Application.Round(データ3, 3) .Cells(b, 8) = Application.Round(データ4, 3) End With Next この部分の処理を早くするにはどうしたらいいでしょうか？ 回答よろしくお願いします。

質問があります ボタンにマクロを登録して、押下するとシート３から特定の列4行のみ全てコピーして（100～500件で変動）、シート1の固定された開始地点からペーストするマクロです 以下のソースは文章で表現した通りのものとなっていますでしょうか？ ------------------------------------------------------------------------------------ Sub ボタン登録コピーペースト () MsgBox "マクロを実行しました" Sheets(3).Select‘コピー元データ（シート３） Range("C:C,M:M,AE:AE,AF:AF").Select ‘4列の変動するデータすべて100～500件 ‘選択します Selection.Copy Sheets(1).Select‘コピー先データ Range("C70").Activate‘まず固定開始位置C70を選択する Selection.PasteSpecial Paste:=xlPasteValuesApplication.CutCopyMode = False ‘4列のデータ数百件すべてコピーする End Sub ------------------------------------------------------------------------------------

ある文字を点の集まりとして表すときに、どの座標を塗りつぶせば良いのかということを知るためにエクセルを活用したいと思うのですが、これについて上手いやり方がありましたら詳しくご教授願います。

■EXCEL2010のマクロについて■ マクロ－シート(マクロ管理シート)を作成後、そのファイルを開くと(マクロ管理シート1)で表示されてしまい、 参照元がないということで、エラー 1004が出てしまいます。 ただし、ドロップ＆ドラッグすれば、(マクロ管理シート)が表示されることもあります。 知り合いに頼んで確認してもらいましたが、その時は、ドロップ＆ドラッグでも(マクロ管理シート1)が表示されたそうです。 どうすればよいのでしょうか？ 知り合いにもらったマクロを元にいじっていますので、よくわからない部分もありますが どうぞよろしくお願いいたします。 以下、マクロです。 Sub 作成_Click() Dim fpath As String Dim fs As Object Dim out As Object Dim i As Long Dim myArray() As String Dim title As String fpath = ActiveWorkbook.Path Set fs = CreateObject("Scripting.FileSystemObject") Set out = fs.CreateTextFile(fpath & "\sitelist.csv", True) For i = 5 To 105 title = Cells(i, 1) Mar = Cells(i, 2) Email = Cells(i, 3) URL = Cells(i, 4) msg = Cells(i, 5) category_miumiulink = Cells(i, 6) category_inavi = Cells(i, 7) other_link = Cells(i, 8) passwd = Cells(i, 9) keyword = Cells(i, 10) Name = Cells(i, 11) temprate = Cells(i, 12) jyanru = Cells(i, 13) If title = "" Then Exit For End If csv = "" csv = csv & Chr(34) & title & Chr(34) & "," csv = csv & Chr(34) & Mar & Chr(34) & "," csv = csv & Chr(34) & Email & Chr(34) & "," csv = csv & Chr(34) & URL & Chr(34) & "," csv = csv & Chr(34) & msg & Chr(34) & "," csv = csv & Chr(34) & category_miumiulink & Chr(34) & "," csv = csv & Chr(34) & category_inavi & Chr(34) & "," csv = csv & Chr(34) & other_link & Chr(34) & "," csv = csv & Chr(34) & passwd & Chr(34) & "," csv = csv & Chr(34) & keyword & Chr(34) & "," csv = csv & Chr(34) & Name & Chr(34) & "," csv = csv & Chr(34) & temprate & Chr(34) & "," csv = csv & Chr(34) & jyanru & Chr(34) Call out.writeline(csv) Next i MsgBox "作成お疲れ様でした♪" End Sub

各セルごとに平成　23　年　12　月　20　日　から　平成　23　年　12　月　25　日と15のセルに入力されたシートですがこれの日数を出すのはどうしたらいいでしょうか 教えてください。EXCEL2007を使用しています。

お世話になります。 MS Excel 2007　を使用しています。 シートのタブ（シート名）の所を右クリックして 「移動またはコピー」を使用し あるエクセルファイル（以下　ファイルA）で作成したシートを 別のエクセルファイル（以下　ファイルB）にコピーしました。 ファイルAにあった時点で ページのレイアウト「印刷範囲の設定」で 任意のセル範囲をA4用紙に収まるよう印刷設定していました。 シートを丸ごとコピーしたのでファイルBでも 当然A4サイズに合う設定のはずだと思い 印刷したところ A4用紙からはみ出してしまいました。 任意のセル範囲は合っているのですが、 右側の2列と下側の2行がはみ出します。 ファイルA・Bともにブック全体のフォントサイズは10をエクセルのオプションで設定 セルの　行の高さは7　列幅は1　で作成しています。 自分なりに何か違いがあるのか確認した所 ファイルBでは列幅が1.47（だったと思います）に変わっていました。 これを1に戻したところ横方向ははみ出さなくなったので 縦方向も行の高さを見てみたのですが、7のままで どこがはみ出す原因になっているのかわからず困っています。 何が関係しているかお分かりになられる方いらっしゃいませんでしょうか？ 後、列幅1のままコピーされない原因または、 原因がわからなくても構いませんのでコピーしても 修正せずにA4サイズに収まるような方法なんかはありませんでしょうか？ よろしくお願いいたします。

エクセル2010です セル内で　例えば 1→2　と入力したいとき　矢印は　みぎと　入力して　変換させる と思います。 キーボード入力が不慣れな人でも→と　簡単に入力してもらいたいのですが なにか　いい方法は　ないでしょうか？ 詳しい方、お願いします。

色々と調べてみたのですが、どうしても自分の やりたいことと違ってしまうので、知恵をお貸しください。 ・シート数が100ある ・最初のシートに目次をつける（100行） ・最初のシート100行を参照して、複数シートのA1セルに順番に記述 １シート目 A B C D E ・ ・ ・ ↓↓↓ ２シートA1セル A ３シートA1セル B ４シートA1セル C ・ ・ ・ このようなことは可能でしょうか？ 参照するのは１つのシートからにしたいです。 どうか、お知恵をお貸しください。

よろしくお願いいたします。 他のソフトより取り出したエクセル（日付）が下記のように入力されています。 A1セル　　＞＞　　3　　（3は昭和、4は平成） A2セル　　＞＞　　430505　（43年5月5日） これらを使い、D5に昭和43年5月5日と表示させるにはどのような数式になるのでしょうか？ また、D8セル＞＞S　　（年号） 　　　　D9セル＞＞43　（年） 　　　D10セル＞＞5　　（月） 　　　D11セル＞＞5　　（日） の表示方法も併せてご教授いただきますようよろしくお願いいたします。