mitarashi の回答履歴

VBAで散布図を作成し，そのグラフの要素をクリックすると，その要素の値が表示されるようなプログラムを作成したくて，いろいろ調べ作成しています．散布図を作成するまではできましたが，要素をクリックすると数値が表示される，部分がうまくできず，苦戦しています．何かいい方法があれば教えて頂きたいです．初心者なもので，分からないことばかりですが，お願いします．

VBAで散布図を作成し，そのグラフの要素をクリックすると，その要素の値が表示されるようなプログラムを作成したくて，いろいろ調べ作成しています．散布図を作成するまではできましたが，要素をクリックすると数値が表示される，部分がうまくできず，苦戦しています．何かいい方法があれば教えて頂きたいです．初心者なもので，分からないことばかりですが，お願いします．

いつもお世話になっております。 今回は、大量のグラフを作る際に動作が異常に遅いため質問させて頂きました。 http://okwave.jp/qa/q8384381.html 下記リンクにあるように、グラフを作成しています。 Function GlaphSetting() 'グラフ色などの設定 Dim C As ChartObject On Error Resume Next For Each C In ActiveSheet.ChartObjects C.Chart.Axes(xlCategory).TickLabels.Orientation = xlVertical '縦書き調整 C.Chart.ChartGroups.GapWidth = 70 '幅を70に C.Chart.ChartArea.Font.Size = 9 '全部のフォントサイズ C.Chart.PlotArea.Interior.ColorIndex = xlNone 'プロットエリア色なし C.Chart.PlotArea.Border.ColorIndex = xlNone '枠線なし C.Chart.Axes(xlValue).HasMajorGridlines = False 'メモリ見えなくする C.Chart.Axes(xlValue).MinimumScale = 0 'メモリ最小値 Next End Function 実行すると、データ量により物凄く遅くなります。 （グラフの数は14、項目数52）※今のところの最大量 実行すると、5分程度はかかるでしょうか・・・ ためしにメッセージボックスを使い、 ストップウォッチで計ってみました。 データ処理　　　　　：2秒 その他の処理　　　：2秒 グラフ作成処理　　：1分12秒 グラフの編集　　　 ：4秒 でした。 グラフの作成処理をどうにか早くできないでしょうか？ 回答よろしくお願い致します。

エクセルのA列に「フォルダ場所+ファイル名.pdf」のリストを作成し、 PDFファイルを開き、印刷し、閉じるマクロを作成しましたが、全く印刷されません。 エラーが出て止まることなく、次々進んでいるのですが、肝心の印刷が実行されていません。 ネット検索で見つけたものをアレンジしたのですが、高度すぎて苦戦しています。 エクセルシートの内容は、 セルA2～には、フォルダ場所+ファイル名.pdf　　例）C:\work\test1.pdf C2には印刷実行数（ファイルの数） を置いています。 どなたかご存知の方いらっしゃいましたら、どうか教えてください。 よろしくお願いいたします。 ---------------------------------------------------- Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub PDF() Dim AA, BB, CC, DD Dim AAA, BBB Dim i As Long For i = 1 To Range("C2").Value AA = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /t " BB = Range("A" & i + 1).Value CC = Application.ActivePrinter DD = AA & """" & BB & """" & " " & """" & CC & """" Debug.Print DD Set AAA = CreateObject("WScript.Shell") Set BBB = AAA.exec(DD) Sleep 1000 On Error Resume Next BBB.Terminate Set BBB = Nothing Set AAA = Nothing Next i End Sub

お世話になります。 今回は特に初歩的な内容で申し訳ありません。 Excel2000です。 添え付けの画像の様な表があるとします。データの内容は 全く関係ありません。 こういうテーブルのデータを基に、画像中の『ドロップアイテム』の データを基に、『やくそう』は何件で何％…といった円グラフを 作成したいのです。 途中に、計算用の別シートなども入ってきてもかまいません。 ただし、元の表データはどんどん追加、変更されたとしても、自動で 円グラフも更新されるようにしたいと思っています。 (完全に自動でなくとも、VBAでボタンを押したら…というのでも可です) ご教授いただけましたら幸いです。 よろしくお願いいたします。

選択範囲で定数(数値)が含まれているセルを表示する自作関数を 作成したいと考えていますがうまく動いてくれません。 以下のサンプルコードを実行すると選択した範囲全てが表示されてしまいます。 初心者で申し訳ないですがご教示下さい。 ■ 標準モジュールソース --------------------------------------- Function SAMPLE(SelectRange) For Each c In SelectRange.SpecialCells(xlCellTypeConstants, xlNumbers) MsgBox c.Value Next End Function --------------------------------------- → 再現方法：A1に「1」と入力して、B1セルに「=SAMPLE(A1:A2)」と入力 よろしくお願いします。

Excel VBAで、セルの値を配列に代入する処理を、よくやります。 arr=Range("$A1:$C1000").value とかですね。これに関して、オートフィルタで絞り込んだ結果の可視セルだけを、配列に代入するということは、やっぱり出来ないのでしょうか。

いつもお世話になっております。 今回は、大量のグラフを作る際に動作が異常に遅いため質問させて頂きました。 http://okwave.jp/qa/q8384381.html 下記リンクにあるように、グラフを作成しています。 Function GlaphSetting() 'グラフ色などの設定 Dim C As ChartObject On Error Resume Next For Each C In ActiveSheet.ChartObjects C.Chart.Axes(xlCategory).TickLabels.Orientation = xlVertical '縦書き調整 C.Chart.ChartGroups.GapWidth = 70 '幅を70に C.Chart.ChartArea.Font.Size = 9 '全部のフォントサイズ C.Chart.PlotArea.Interior.ColorIndex = xlNone 'プロットエリア色なし C.Chart.PlotArea.Border.ColorIndex = xlNone '枠線なし C.Chart.Axes(xlValue).HasMajorGridlines = False 'メモリ見えなくする C.Chart.Axes(xlValue).MinimumScale = 0 'メモリ最小値 Next End Function 実行すると、データ量により物凄く遅くなります。 （グラフの数は14、項目数52）※今のところの最大量 実行すると、5分程度はかかるでしょうか・・・ ためしにメッセージボックスを使い、 ストップウォッチで計ってみました。 データ処理　　　　　：2秒 その他の処理　　　：2秒 グラフ作成処理　　：1分12秒 グラフの編集　　　 ：4秒 でした。 グラフの作成処理をどうにか早くできないでしょうか？ 回答よろしくお願い致します。

いつもお世話になっております。 今回は、大量のグラフを作る際に動作が異常に遅いため質問させて頂きました。 http://okwave.jp/qa/q8384381.html 下記リンクにあるように、グラフを作成しています。 Function GlaphSetting() 'グラフ色などの設定 Dim C As ChartObject On Error Resume Next For Each C In ActiveSheet.ChartObjects C.Chart.Axes(xlCategory).TickLabels.Orientation = xlVertical '縦書き調整 C.Chart.ChartGroups.GapWidth = 70 '幅を70に C.Chart.ChartArea.Font.Size = 9 '全部のフォントサイズ C.Chart.PlotArea.Interior.ColorIndex = xlNone 'プロットエリア色なし C.Chart.PlotArea.Border.ColorIndex = xlNone '枠線なし C.Chart.Axes(xlValue).HasMajorGridlines = False 'メモリ見えなくする C.Chart.Axes(xlValue).MinimumScale = 0 'メモリ最小値 Next End Function 実行すると、データ量により物凄く遅くなります。 （グラフの数は14、項目数52）※今のところの最大量 実行すると、5分程度はかかるでしょうか・・・ ためしにメッセージボックスを使い、 ストップウォッチで計ってみました。 データ処理　　　　　：2秒 その他の処理　　　：2秒 グラフ作成処理　　：1分12秒 グラフの編集　　　 ：4秒 でした。 グラフの作成処理をどうにか早くできないでしょうか？ 回答よろしくお願い致します。

VBAでリストを作成したあと B列　昇順 C列　昇順 D列　ユーザー設定リスト という順番で並び替えるにはどうしたらよいでしょうか？

ExcelVBAに関する質問です。 ExcelVBAに関する質問です。ExcelVBAではデフォルトのマウスカーソルの大きさを変更（例えば2倍に大きくするなど）すること可能なのでしょうか？ マウスカーソルが特定のボタンに触れたとき、マウスカーソルが大きくなるようなプログラムを、VBAで作成したいと考えております。 VBAに関して知識のある方、是非お力を貸していただきたいです！ ・自分で考えたこと マウスカーソルの大きさを変更する手段は２つあると考えました。 １,マウスカーソルをデフォルトのn倍にすること ２,マウスカーソルをデフォルトから、n倍の大きさのマウスカーソルの画像に置き換えること 前者については、調べた中では難しそうだと感じました。 後者に関しては、javaやVBなどの言語でマウスカーソルを特定の画像に置き換えることが可能であることがわかりました。 ただ、VBAである特定の条件になった時に、マウスカーソルをデフォルトから特定の画像に変更するプログラムのサンプルは見つかりませんでした。 （VB.Netだとhttp://d.hatena.ne.jp/RIREX/20120507/1336397369にあるような例が見つかりました） ・回答していただきたいこと（1が難しいと感じた場合でも、他の1つでも回答していただけると嬉しいです） 1.特定のボタン上にきた時に（注意：左右クリックはしない）、マウスカーソルが大きくなるようなプログラムの具体的なサンプルを教えていただきたいです！ やってほしい度合い：★★★★★ 2.VBAにおいてマウスカーソルをデフォルトからn倍にする方法はあるのか？マウスカーソルの座標とは切り離して、実行すればマウスカーソルの大きさが変更されるプログラムの具体的なサンプルを教えていただきたいです！ やってほしい度合い：★★ また、仮にVBAで特定の画像を読み込み、デフォルトカーソルをその画像と変更できる場合の画像は、例えばどのような形式のファイルで、どの様にパスを設定すれば良いかも簡単に教えていただけると嬉しいです！ ・注意 　「マウスカーソルをデフォルトから、他の形に変更したい」のではなく、「マウスカーソルの大きさをExcelVBAのプログラム上で変更したい」です！

ExcelVBAに関する質問です。 ExcelVBAに関する質問です。ExcelVBAではデフォルトのマウスカーソルの大きさを変更（例えば2倍に大きくするなど）すること可能なのでしょうか？ マウスカーソルが特定のボタンに触れたとき、マウスカーソルが大きくなるようなプログラムを、VBAで作成したいと考えております。 VBAに関して知識のある方、是非お力を貸していただきたいです！ ・自分で考えたこと マウスカーソルの大きさを変更する手段は２つあると考えました。 １,マウスカーソルをデフォルトのn倍にすること ２,マウスカーソルをデフォルトから、n倍の大きさのマウスカーソルの画像に置き換えること 前者については、調べた中では難しそうだと感じました。 後者に関しては、javaやVBなどの言語でマウスカーソルを特定の画像に置き換えることが可能であることがわかりました。 ただ、VBAである特定の条件になった時に、マウスカーソルをデフォルトから特定の画像に変更するプログラムのサンプルは見つかりませんでした。 （VB.Netだとhttp://d.hatena.ne.jp/RIREX/20120507/1336397369にあるような例が見つかりました） ・回答していただきたいこと（1が難しいと感じた場合でも、他の1つでも回答していただけると嬉しいです） 1.特定のボタン上にきた時に（注意：左右クリックはしない）、マウスカーソルが大きくなるようなプログラムの具体的なサンプルを教えていただきたいです！ やってほしい度合い：★★★★★ 2.VBAにおいてマウスカーソルをデフォルトからn倍にする方法はあるのか？マウスカーソルの座標とは切り離して、実行すればマウスカーソルの大きさが変更されるプログラムの具体的なサンプルを教えていただきたいです！ やってほしい度合い：★★ また、仮にVBAで特定の画像を読み込み、デフォルトカーソルをその画像と変更できる場合の画像は、例えばどのような形式のファイルで、どの様にパスを設定すれば良いかも簡単に教えていただけると嬉しいです！ ・注意 　「マウスカーソルをデフォルトから、他の形に変更したい」のではなく、「マウスカーソルの大きさをExcelVBAのプログラム上で変更したい」です！

お世話になっております。 EXCEL2013で作ったシートの可視セル部分のみに「名前の定義」を設定する方法を教えてください。 「名前の定義」で設定した範囲をACCESSでインポートしたいと考えているのですが、 可視セルのみに名前の定義を付ける方法が分かりません。 よろしくお願いします。

お世話になっております。 EXCEL2013で作ったシートの可視セル部分のみに「名前の定義」を設定する方法を教えてください。 「名前の定義」で設定した範囲をACCESSでインポートしたいと考えているのですが、 可視セルのみに名前の定義を付ける方法が分かりません。 よろしくお願いします。

こんにちは。 あるシステムから登録状況をExcelへ出力する作業をしていて、 その出力された表がわかりづらいので、見やすい表にしたいです。 システムから表の出力方法を変更することは出来ないようなので、 出力後に改編するしか無いのですが、うまいやり方が思いつきません。 【出力された表の状態】 　　氏名　　　　　　該当コード　 許可　　　 該当コード　　　許可・・・・・ 日本　　 太郎　　　　　101　　　　○ 　　　　　 102　　　　　　○ 大和　　 撫子　　　　　102　　　　○　　　　　　104　　　　　　○ Smith　Richard　　　　 103　　　　○ 【最終的に以下のような表にしたいです】 　　氏名　　　　　　　 101　　　　102　　　103　　　 104・・・・・　 日本　　 太郎　　　　　 ○　　　 　○　　 　　✕　　　　✕ 大和　　 撫子　　　　　 ✕　　　 　○　　 　　✕　　　　○ Smith　Richard　　 　　✕　　　 　✕　　 　　○　　　　✕ この「該当コード」の数が多いので、出力されたままの状態だと非常に見づらいのです。 単純に行列の入れ替えだとうまく行かず…。 「このコードに対しては、誰々が許可を持っている」というのをひと目で把握できると とても助かるので、どうにか下の例のような状態にしたいです。 何かいい方法は無いでしょうか？ お知恵を拝借できればと思います。 どうぞよろしくお願いいたします。

マクロを使って、フォルダ内の画像をエクセルに自動的に貼り付けできるようになりました。 http://okwave.jp/qa/q8357181.html （picopico_7さんありがとうございました。） しかし、出来上がったファイルをメールで他の人に送ると、その人のところではエラーがでて画像が見られません。「リンクされたイメージを表示できません」となります。 ネットで調べたところ、excel2010はリンクをつかって画像を表示するから？ということがわかりました。が、対処方法がわかりません。 どなたか教えて頂けませんでしょうか。 よろしくお願いいたします。 windows7 excel2010

マクロを使って、フォルダ内の画像をエクセルに自動的に貼り付けできるようになりました。 http://okwave.jp/qa/q8357181.html （picopico_7さんありがとうございました。） しかし、出来上がったファイルをメールで他の人に送ると、その人のところではエラーがでて画像が見られません。「リンクされたイメージを表示できません」となります。 ネットで調べたところ、excel2010はリンクをつかって画像を表示するから？ということがわかりました。が、対処方法がわかりません。 どなたか教えて頂けませんでしょうか。 よろしくお願いいたします。 windows7 excel2010

マクロを使って、フォルダ内の画像をエクセルに自動的に貼り付けできるようになりました。 http://okwave.jp/qa/q8357181.html （picopico_7さんありがとうございました。） しかし、出来上がったファイルをメールで他の人に送ると、その人のところではエラーがでて画像が見られません。「リンクされたイメージを表示できません」となります。 ネットで調べたところ、excel2010はリンクをつかって画像を表示するから？ということがわかりました。が、対処方法がわかりません。 どなたか教えて頂けませんでしょうか。 よろしくお願いいたします。 windows7 excel2010

いつも大変お世話になっております。 レーダーチャートを大量（100個以上）自動作成しており、 その並び替えをしたいと考えております。 レーダーチャートを並び替える方法として、 タイトルに「札幌」「埼玉」などが含まれているか その順番で一列になるように設定していきたいと思います。 D列に、並べたい項目を記入してあります。 　　D １　北海道 ２　青森 ３　仙台 ４　秋田 ５　　・ ６　　・ ７　　・ 上記の順番で並べ替えをしたいです。 上の例だと、 北海道を含むグラフタイトル　　青森を含むグラフタイトル　　仙台を含むグラフタイトル　　秋田を含むグラフタイトル 北海道を含むグラフタイトル　　青森が含まれるグラフタイトル　　仙台が含まれるグラフタイトル　　秋田グラフタイトル のように並び替えをしたいです。 何か方法はあるでしょうか？ 回答よろしくお願い致します。

いつも大変お世話になっております。 塗りつぶしレーダーチャートを自動で作成しています。 http://okwave.jp/qa/q8339279.html 回答いただいたマクロを参考に作成しております。 そのグラフの並び替えと、 項目数が少ないものに空の項目を足す 方法があれば、教えてください。 画像のように、チャート項目が1つの場合、 数値が入っていても見ることができません。 そのため、空の項目を追加したいと思っています（Excel上には書き加えたくありません） また、レーダーチャートの並び替えですが、 グラフのタイトルを参考に再配置をしたいのです。 グラフのタイトルに”北海道”と入っていたら 順番に並べ、 その後"青森"と入っているものを検索し 順番に並べ・・・ という感じにしていきたいです。 Excelは2003を使用しております。 回答よろしくお願いいたします。