> はたしてこんなのはマクロで可能なのでしょうか？ VBA の質問なら、自分でどこまでやって何を調べたかを提示 した方が良いのでは？ # 丸投げが好まれないのは当然ありますが、一方で回答者は # 質問者のスキルが予測できます。回答の仕方も変わってくる # ということです。 ■ ポイント 1. シェープがワードアートかどうか？ Type プロパティーの値が msoTextEffect かどうかで判定。 2. シェープがグループ化されているか GroupItems.Count がエラーになるかどうかで判定。 3. シェープの多重グループ化 単一シェープの情報取得サブプロシージャを作成して、 その中で 上述2. のグループ化判定を行い、グループ化 されていれば再帰処理すれば良い。 分からない部分はネットや参考書で調べ、適当に希望どおりの 動作となるよう作り込んでみて下さい。 以下ソースはシート名
windows2000(SP4)＆Microsoft Office XPで.xlsxファイルを開くために 互換機能パックをインストールしたのですが動かなかった！ ■Word/Excel/PowerPoint 用 Microsoft Office 互換機能パック http://www.microsoft.com/ja-jp/download/details.aspx?id=3 ここから"FileFormatConverters.exe"をダウンロードしてインストール。 2014/07/02 追記 上の互換機能パックをインストール後、SP3を適用すれば良いみたいです。 ■Microsoft Office 互換機能パック Service Pack 3 (SP3) http://www.microsoft.com/ja-jp/download/details.aspx?id=27836 ファイル名
複数のバージョンのExcelが共存していると、どのバージョンで作業するかの指定方法が問題となります。デフォルトでは、最後にインストールしたバージョンのものがWindowsに拡張子の関連付け登録されるので、これで開くことになります。 Excel2003,2007も同様の方法で共存できます。 前ページの方法でMicrosoft Excelは複数のバージョンを共存状態で利用することができます。ただし、正規の方法ではないので「サポート範囲外」となります。 Excel2003,2007の共存利用については、このページの最後に説明を追加しました。 例えば「Excel2000」と「Excel2002」がインストールされている場合 通常は「Excel2000」を使うという場合、この作業を行なわないと面倒です。先に「Excel2000」を開いておいて、目的のワークブックファイルをドラッグ＆ドロップしたり、「
ツイート 変数は大きく分けて2種類あります。 1つは値を格納する変数、もう1つはオブジェクトへの参照を格納する変数です。 後者をオブジェクト変数といいます。それぞれの変数の特徴や代入方法については 「VBA最初の一歩（その5）変数と宣言」を参照してください。 ■オブジェクトの参照と解除 ここでは、オブジェクト変数について取りあげます。次のサンプルをご覧ください。 ●サンプル1● Sub Sample1() Dim objIE As Object Dim buf As String Set objIE = CreateObject("InternetExplorer.Application") '--(1) objIE.Visible = False objIE.navigate "http://vbae.odyssey-com.co.jp/column/" Do While objIE.b
サービス終了のお知らせ NAVERまとめは2020年9月30日をもちましてサービス終了いたしました。 約11年間、NAVERまとめをご利用・ご愛顧いただき誠にありがとうございました。
※本サイトではアフィリエイト広告を利用しています。記事内および商品リンクにはプロモーションが含まれる場合があります。 バージョンによる動作の違い VBAのマクロを使用する場合、Excelのバージョンによってはマクロの動作に違いが生じることがあります。 たとえばExcel 2007以降で追加されたプロパティは、Excel 2003以下では認識できません。使用する関数によっては引数が変更されている場合もあります。 つまり上位バージョンでは正常動作するコードが下位のバージョンでは動作しない可能性があるのです。 複数バージョンのExcelが混在するような環境では、マクロを実行する前にExcelのバージョンを取得し分岐処理を入れるのが良いでしょう。 Excelのバージョン番号の取得方法 ExcelのバージョンはApplicationオブジェクトのVersionプロパティで取得できます。 Sub ho
新しい職場で働き始めてしばらくは、どんなキャリアの人でも慣れない環境に苦労するものだ。そのなかで職場の上司や先輩、前任者から引き継がれたExcel文書に悪戦苦闘させられている人も少なくないだろう。その代表例が、すべてのセルを小さな正方形に整え方眼紙に見立てて罫線を引き、複雑に組み合わされたセル結合がいくつもある通称「Excel方眼紙」によって作られた文書ファイルだ。 いまの会社で働き始めて6年目の直子さんは、春の配置換えで移動した先で使用する社内での申請や確認文書をデータで引き継いだとき、Excel方眼紙によって作成されたファイルが引き継ぎに向いていないと思い知らされた。組織変更によって項目がいくつか変わったため、新たな仕組みに合わせようとファイルに変更を試みたが簡単にはいかなかったのだ。 「Excel方眼紙で作られた文書はセル結合に見た目以上の意味がないから、ファイルを見ても変え方が
ワークシートの最終セル（最終行、最終列）を取得する… VBAをはじめた人は誰しも最初に引っかかる問題ではありますが、幸いにもインターネットで検索するといくつもの解決法が見つかります。 ところが…動いたり動かなかったり、想定外の動作をすることがあります。そもそもいくつもの解決法があること自体おかしい、いったい本当の答えはどれ？この際、白黒はっきりさせようじゃないかというのがこのページの趣旨です。 <S1> ワークシートの最大行、最大列を取得する MaxRow = Rows.Count MaxCol = Columns.Count まず基本からですが、ワークシートの最大行、最大列を取得するコードです。もちろんこれ自体は最終行、最終列を取得するものではありません。 Rowsはワークシートの行全体をあらわすオブジェクトで、Columnsは列全体をあらわすオブジェクトです。そのメソッドCountは数
Excel で形式を選択して貼り付けを行う場合は、次のようなダイアログから形式を選択します。 Excelで貼り付けを行う場合にも「形式を選択して貼り付け」を行うと上記のようなウィンドウが表示されますが、これと同じことをVBA上で行うことが出来ます。 形式を選択して貼り付けを行う場合には、貼り付けたい場所にあるRangeオブジェクトに対して「PasteSpecial」メソッドを使います。(PasteメソッドはWorksheetオブジェクトに対してでしたが、PasteSpecialメソッドはRangeオブジェクトに対して行いますので注意して下さい)。 Range("A1").Copy Range("B2").PasteSpecial Paste:=xlPasteAll, _ Operation:=xlPasteSpecialOperationNone
Excel で、シートのコピーやグラフのコピーをした時など、気付かない内に コピー元のブックとの間にリンクが設定されてしまうことがあります。 このようなブックは開くたびに、リンクの更新のメッセージが出てきて鬱陶しいです。 また、別の部署から送って貰ったファイルなどでは、存在しなリンク先となってしまいます。 これを手作業で全てのシートのリンクを解除するのは面倒です。 これはアクティブなブックの外部リンク (Excel ファイルのみ) を、全て値 に変換するマクロです。 以下のコードを標準モジュールに貼り付けてください。 Sub myBreakLink() 'アクティブブックの外部 ExcelBookへのリンクを全て値に変換する 'Excel2002 のみ (2003/11/03 pPoy) Dim strLinks As Variant Dim i As Long, cnt As
解説記事内の画像はExcel 2016のものですが、操作方法は下記のバージョンで同じです。 Excel 2016, 2013, 2010 図のような、1行おきに色の付いた表を作りたい場合、 それこそ色を付けたいセルを地道に範囲選択して、［塗りつぶしの色］ボタンでセルに色を塗るのもひとつの方法です。 ですが、［塗りつぶしの色］ボタンで色を塗るということは、「選択したセルを、今後はこの色で」という指定をしていることになるので、 表の途中の行を削除すると、 たちまち1行おきの色違いが崩れる結果に。 じゃぁ、［ホーム］タブの［テーブルとして書式設定］なら、地道に一行おきに範囲選択する必要もなく簡単に設定できるし、行を削除しても1行おきの色違いが崩れることはないじゃん♪、と思うのですが、 表自体が、たくさんのデータを集めたデータベースってほどのものでもないので、データベースを管理しやすくするためのテ
ＶＢとＥｘｃｅｌの連携システムを作成しております。 しかし、ＥｘｃｅｌのＶＢＡは初めてなので、いろいろと調べながらやっております。が、どうしても分からないので、ご教授願います。 ある条件を満たした時に、セルを範囲選択して、すぐ下に張りつけてる処理を書きました。貼り付ける事はできたのですが、貼り付けた範囲のセルの幅と高さが貼り付けられていない為、プレビューすると、コピーした部分の高さと幅が異なってしまい、改ページの位置がずれてしまいます。 コピー＆ペーストの際に、セルの幅と高さもコピー＆ペーストすることはできないのでしょうか?
テキスト文書をExcelで開き、加工して名前をつけて保存するというマクロを作成しました。 ファイル名は毎回同じ名前で上書（置換）保存する為、上書確認メッセージが表示されます。 今はユーザーに「上書する」ボタンを選択させています。自動化させたいのですが方法が分かりません。 尚、そのファイルは別のファイルからVlookup関数で参照している為、名前は毎回同じ名前で保存させたいのです。 自動でファイル名をつける・すでにある名前と同じ名前で保存する方法は、ないでしょうか？ （今は「ActiveWorkbook.SaveAs FileName:="C:\dbg952.xls"」コマンドを使っています。「ActiveWorkbook.Save」という上書コマンド ＋ 名前をつける） よい方法がありましたら教えて下さい。よろしくお願い致します。お忙しい所申し訳ありません。 あなたが知りたいことは、ブック
おけましておめでとうございます。 本年もよろしくお願いします。 で、本題ですが、 （Win95でExcel2000とPowerPoint2000を使用） EXCELのデータベースの表を順々にPowerPointのテキストボックスへ コピーして印刷するためにVBAを作成したいと思ってます。 （印刷形式がPowerPointのため） ここには作成できるんですが、両者のVBAをどのように 連携させるかわかりません。 よろしくご教授ください。 また、PowerPointのVBAでマクロの記録を使わず、オブジェクト名 （("Text Box 1")とか）を知る方法もあわせてよろしくご教授ください。
Excelで結合したセルにオートフィルで連続した値を入れたいのですが (A1)と(A2)を結合して 「=Sheet2!B1」 (A3)と(A4)を結合して 「=Sheet2!B2」 と入力し オートフィルで (A5)と(A6)の結合に 「=Sheet2!B3」 としたいところ 「=Sheet2!B5」 になってしまいます。 うまく説明できないのですがいい方法があれば教えてください。 どうぞよろしくお願いします。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く