keithin の回答履歴

Excel VBAでOutlookで受信したメールの添付ファイルをマイドキュメントに保存し、保存が完了したらールを削除するしたいです。 会社のメールはOutlookマクロが規制されており使用できません。 Excel VBAで実現できますか？ どのようなコードをかけばよいですか？

Excel VBAでOutlookで受信したメールの添付ファイルをマイドキュメントに保存し、保存が完了したらールを削除するしたいです。 会社のメールはOutlookマクロが規制されており使用できません。 Excel VBAで実現できますか？ どのようなコードをかけばよいですか？

初めて質問いたします。 EXCELで見積書と別シートに商品一覧を作成しております。 商品一覧には単価、数量、合計金額で計算式を組んでおります。 商品一覧中数量を入力したものを商品名、単価、数量、合計金額として見積書に反映させたいと思っております。 同座標へは反映できるのですが、商品が数十種ある為、例えば行１と行５で数量入力した場合、見積書には行２～行４までは空白になってしまいます。この間隔を空けずに見積書に反映させることは出来るのでしょうか？ ご教授いただきたくお願い申し上げます。

　営業担当者がどの地域に出かけるか記載された表（予定表）があります。 　行には担当者名。列には日付。セルには住所（○○市）が入力されています。 　それとは別に、新規開拓予定の営業先名簿（営業先名、住所、電話番号等が入力されている）があります。 　「予定表」に記載された住所と「営業先名簿」に記載された住所が一致する場合に「予定表」のセルの色が変化する等、営業担当者に、自分が出かける地域に新規開拓予定の営業先があるということを分からせたいのですが、マクロ等を使用してもかまわないので、なんとかならなでしょうか？ 　予定表は営業担当者が随時（出かけることが決まった時点）入力します。営業先名簿も、随時増減します。 　仮に予定表が 　　Ａ　　　　Ｂ　　　 　Ｃ　　　　　Ｄ　　　　Ｅ　　　　　Ｆ 　　　　　　山田　　 伊藤　　　佐藤　　　清水　　　鈴木 　1/1　　○○市　 △△市　　　　　　　□□市　　 　1/2　 　　　　　　 ○○市　　　　　　　△△市　　○○市 　　. 　 □□市 　 . 1/31 　　△△市　　　　　　 □□市　　　　　　 ○○市 営業先名簿が 　１　山田産業（株）　　△△市○○町1-1　　001-1234-4567 　２　竹下工業（有）　　☆☆市□□町2-2　　002-1234-4567 　とした場合に該当する予定表に色が付く、あるいは、山田産業（株）の数字１が表示される等、営業担当者がわかるような措置をとりたいです。 　わかりずらい説明ですいみません。よろしくお願いします。 　

マクロの中で別のマクロを実行して、それをループさせてます 中のマクロで問題があったとき外のマクロ自体を停止させるのはどうすればいいのですか？ Sub A() Do Application.Run "I" Application.Run "II" Loop End Sub ここから　マクロIの途中で何らかの条件が合えば、 マクロＡを終了するにはどうすれば良いのですか？

EXCELで表を数個並べて作っていますが、どうしても項目数がばらばらなので、それぞれの下端の位置がばらばらです。 どうにかして同じ位置にできないでしょうか？ バージョンは2007です。

Excelのワークシート上にある、オートシェイプの選択方法を教えてください。 オートシェイプは挿入タブの、図から挿入した正方形、矢印、円です。 それぞれすべてを選択した状態にするにはどのようにすればよいのでしょうか。 宜しくお願いします。

大きな時間から小さな時間を引き算すると、所用時間が求められます。 たとえば、終了時間のセルから開始時間のセルを引き算すると所用時間が求められます。 ところが、開始時間は21時で終了時間が翌日の5時の場合は所用時間は8時間ですが、今は5時を29時に置き換えて29時時から21時を引き算しています。 これを、そのまま5時の入力で計算できるようにする方法を教えて下さい。

Sub test1() Dim mystr As String mystr = ActiveWorkbook.Path End Sub これだと、現在のアクティブブックのファイル名以外のパスが取得できるのですが、 mystr = ActiveWorkbook.Parent.Path にすると、なぜか C:\Program Files (x86)\Microsoft Office\Office14 が返ります。 ActiveWorkbook.Path の返り値が C:\新しいフォルダー だとしたら、 C: のみが取得されるコードが知りたいのですが、 ActiveWorkbook.Parent.Path ではダメなようなので、正しいコードを教えてください。

Excelの条件付き書式で、 思った範囲にセルの塗りつぶしを設定出来ず困っています。 現在、貼付の画像のような形の表を作っています。 休日一覧に記載されている日付と同じ日付があれば、 左表の日付と曜日欄を赤色で塗りつぶし、 更にその下の枠内を黄色で塗りつぶしたいと考えています。 しかし現状では、貼付画像のように、 塗りつぶされないセルが生じています。 現在、条件付き書式で設定している数式は、 赤色の塗りつぶしと黄色の塗りつぶし共に、 =MATCH(A$1,$Q$2:$Q$13,0)>0 を入力しています。そして、 赤色の適用先…$A$1:$O$2 黄色の適用先…$A$3:$O$5 としています。 どうすればうまくセルを黄色で塗りつぶすことが出来るのかわからず 困り果てて書き込み致しました。 Excel初心者のため、とんちんかんな数式や質問かもしれず申し訳ありませんが、 皆様、ご教示くださいますよう、何卒よろしくお願い致します。

A1セルの値をシート名にするマクロは以下のとおりだと思います。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub では、E6セルの値をシート名にすることは可能でしょうか？ よろしくお願いします。

　営業担当者がどの地域に出かけるか記載された表（予定表）があります。 　行には担当者名。列には日付。セルには住所（○○市）が入力されています。 　それとは別に、新規開拓予定の営業先名簿（営業先名、住所、電話番号等が入力されている）があります。 　「予定表」に記載された住所と「営業先名簿」に記載された住所が一致する場合に「予定表」のセルの色が変化する等、営業担当者に、自分が出かける地域に新規開拓予定の営業先があるということを分からせたいのですが、マクロ等を使用してもかまわないので、なんとかならなでしょうか？ 　予定表は営業担当者が随時（出かけることが決まった時点）入力します。営業先名簿も、随時増減します。 　仮に予定表が 　　Ａ　　　　Ｂ　　　 　Ｃ　　　　　Ｄ　　　　Ｅ　　　　　Ｆ 　　　　　　山田　　 伊藤　　　佐藤　　　清水　　　鈴木 　1/1　　○○市　 △△市　　　　　　　□□市　　 　1/2　 　　　　　　 ○○市　　　　　　　△△市　　○○市 　　. 　 □□市 　 . 1/31 　　△△市　　　　　　 □□市　　　　　　 ○○市 営業先名簿が 　１　山田産業（株）　　△△市○○町1-1　　001-1234-4567 　２　竹下工業（有）　　☆☆市□□町2-2　　002-1234-4567 　とした場合に該当する予定表に色が付く、あるいは、山田産業（株）の数字１が表示される等、営業担当者がわかるような措置をとりたいです。 　わかりずらい説明ですいみません。よろしくお願いします。 　

エクセル2013で質問です。 条件　・シート数が何枚になるかは未確定(順次コピーしてシートを増やしていく） 例えば8月1日というシートがあったとします。そこに下記のような品物数量表があります。 　A　　　　B　　　　C １果物　りんご　　8 ２野菜　レタス　　２ ３果物　梨　　　　２ 4果物　りんご　　4　 上記のような表を８月２日、８月３日・・・というシートにも内容違いで順次作っていきます。 １月単位で１BOOKにしていきますが、例えば、日曜や土曜は場合によってはシートを作らない事があります。月によって微妙にシート数が変わります。 これで、最初の1シート目に集計シートをつくって例えば上の8月1日の表のみで考えた場合、 　A　　　　B　　　　C １果物　りんご　　12 ２野菜　レタス　　２ ３果物　梨　　　　２ と種類ごとに合計分類していきたいのですが、シートを増やすごとに集計シートの方の内容も自動で種類ごとに集計していくことは可能でしょうか？可能ならばどのような方法がありますか？

PCのHDに存在するファイルのリストをExcel2010につくりました。 ファイル名に、Hyperlinkを埋め込んで、クリックすることで、当該ファイルを見ることができるようにしたのですが、何故か、６５５３１個のファイルまでしか、HyperLinkを埋め込むことができません。 試しに、先頭の10個のHyperlinkを削除すると、65532番目の行から、10個のhyperlinkを埋め込むことは可能でした。 これは、Excelの制限なのかと思いますが、それならそれで、解除、或は、変更することができるのではないかと考えます。 サジェスチョンをお願い致します。 尚、VBAは、下記のようなものを使っています。 For i = 1 To RowEnd Hyperlinks.Add Anchor:=cells(i,1), Address:=Cells(i, 2).Value & "\" Cells(i, 1).Value, TextToDisplay:=Cells(i, 1).Value Next cells(i,1).value ----- file名 cells(i,2).value ----- path名

PCのHDに存在するファイルのリストをExcel2010につくりました。 ファイル名に、Hyperlinkを埋め込んで、クリックすることで、当該ファイルを見ることができるようにしたのですが、何故か、６５５３１個のファイルまでしか、HyperLinkを埋め込むことができません。 試しに、先頭の10個のHyperlinkを削除すると、65532番目の行から、10個のhyperlinkを埋め込むことは可能でした。 これは、Excelの制限なのかと思いますが、それならそれで、解除、或は、変更することができるのではないかと考えます。 サジェスチョンをお願い致します。 尚、VBAは、下記のようなものを使っています。 For i = 1 To RowEnd Hyperlinks.Add Anchor:=cells(i,1), Address:=Cells(i, 2).Value & "\" Cells(i, 1).Value, TextToDisplay:=Cells(i, 1).Value Next cells(i,1).value ----- file名 cells(i,2).value ----- path名

セルの値を利用して複数の列範囲を選択したいです セルＡ１に　３　と入力されていて、ＡＡ列がアクティブの場合 Range("ＡD:ＡF,ＡJ:ＡL").Select の様に、アクティブ列から３列空けて、３列選択、３列空けて、３列選択の様にしたいです ＡＡ、アクティブ ＡＢ ＡＣ ＡＤ、選択 ＡＥ、選択 ＡＦ、選択 ＡＧ ＡＨ ＡＩ ＡＪ、選択 ＡＫ、選択 ＡＬ、選択 ＡＭ

VBAでシート別でまとめてセルのクリアする方法はあるのでしょうか。 例えば、シート1からシート30のセルB5：F10の数式と値のクリアをする場合は、For文を使ってループする以外にも方法はあるのでしょうか。 ループより速度が速くなる方法があればご教示ください。

すみません。もし教えていただける方がいらっしゃればお願いいたします。以下のようなエクセルのデータがあるとします。 この中で，同じ担当者の最新の日付の行のみを抽出したデータのシートを作りたいのです。以下のデータであれば，2,3,5,6,8,9行目を削除するマクロを作成したいのですが，どのようなマクロを作成ればよいのでしょうか。 A 　 　　B 　 　C 1　 担当者　　　日付　　　金額 2　たなか　　　8/1　　　10,000 3　たなか　　　8/10　　 15,000 4　たなか　　　8/21　　 20,000 5　さとう　　　　8/2　　　 8,000 6　さとう　　　　8/12　　 12,000 7　さとう　　　　8/22　　 15,000 8　やまだ　　　8/1　　　 　9,000　　 9　やまだ　　　8/7　　　 12,000 10やまだ　　　8/15　　 18,000

価格表をA4の横に3分割して作りたいのですが、（1枚で3枚取れるように）左の原稿を真ん中と右に コピーする方法を教えてください。＾

　営業担当者がどの地域に出かけるか記載された表（予定表）があります。 　行には担当者名。列には日付。セルには住所（○○市）が入力されています。 　それとは別に、新規開拓予定の営業先名簿（営業先名、住所、電話番号等が入力されている）があります。 　「予定表」に記載された住所と「営業先名簿」に記載された住所が一致する場合に「予定表」のセルの色が変化する等、営業担当者に、自分が出かける地域に新規開拓予定の営業先があるということを分からせたいのですが、マクロ等を使用してもかまわないので、なんとかならなでしょうか？ 　予定表は営業担当者が随時（出かけることが決まった時点）入力します。営業先名簿も、随時増減します。 　仮に予定表が 　　Ａ　　　　Ｂ　　　 　Ｃ　　　　　Ｄ　　　　Ｅ　　　　　Ｆ 　　　　　　山田　　 伊藤　　　佐藤　　　清水　　　鈴木 　1/1　　○○市　 △△市　　　　　　　□□市　　 　1/2　 　　　　　　 ○○市　　　　　　　△△市　　○○市 　　. 　 □□市 　 . 1/31 　　△△市　　　　　　 □□市　　　　　　 ○○市 営業先名簿が 　１　山田産業（株）　　△△市○○町1-1　　001-1234-4567 　２　竹下工業（有）　　☆☆市□□町2-2　　002-1234-4567 　とした場合に該当する予定表に色が付く、あるいは、山田産業（株）の数字１が表示される等、営業担当者がわかるような措置をとりたいです。 　わかりずらい説明ですいみません。よろしくお願いします。