end-u の回答履歴

すいません、Excel(2000)で入力作業をする際、例えば行を1.2.3と指定して、A3でEnterでB1、B3でEnterでC1、・・・・と移動できるように使っていた場合で、矢印キーやマウスでセルをクリックした場合、指定した範囲が解除され、また範囲を指定し、入力セルまでEnterキーなどで移動しなければいけない状態によくなってしまいます。そのような状況にならないように、矢印キーやセルをクリックしても指定範囲が解除されないように固定したいんですが、出来ないのでしょうか？

恐れいります。実はあまり詳しくないのですが・・・ BASP21を使ってメール転送を行うのは可能でしょうか。 たとえばですが、ACCESSでメールを取り込んで、データベースに登録されているアドレス宛に一斉送信・・ こんなのができると幸せなんですが。 自動で取り込んで自動で送信なんてことができるものなのか。 お知恵を拝借できれば。 よろしくお願いします。

すいません、Excel(2000)で入力作業をする際、例えば行を1.2.3と指定して、A3でEnterでB1、B3でEnterでC1、・・・・と移動できるように使っていた場合で、矢印キーやマウスでセルをクリックした場合、指定した範囲が解除され、また範囲を指定し、入力セルまでEnterキーなどで移動しなければいけない状態によくなってしまいます。そのような状況にならないように、矢印キーやセルをクリックしても指定範囲が解除されないように固定したいんですが、出来ないのでしょうか？

Excel VBAでショットカットキーをコードで登録することは可能でしょうか？ また、CTRL-rは通常、左のセルをコピーする機能ですが、これに割り当てた場合、割り当てたマクロが優先されると思いますが、別機能が割り当てられているかどうか判断する方法はありますか？

必要に迫られ、数日前から関数やマクロなるモノを勉強しながら奮闘中です。 範囲可変のグラフを作りたく、以下のサイトを参考にしながら試行錯誤してるのですが、応用が効きません。。 http://www2.odn.ne.jp/excel/waza/graph.html#SEC13 http://okwave.jp/qa2138388.html どれも、ある固定位置を起点として、増えた範囲までの全てのエリアをグラフ化してるようなのですが、 やりたいのは、任意のデータ範囲を自由に（Windowをスライドするように）グラフ化したいのです。 データの量が大量で全部表示すると見えなくなるため、 指定したい範囲をパラメータとして与えることで、その範囲だけを切り出したようなグラフにしたい。です。 例えば、 A5:B100　に以下データが入ってたとして、 （A列は上から連番でダブリなし。実際には時間=tになる） A,B ----- 1,a ←(A5,B5) 2,b 3,c ←ここから 4,d 5,e 6,f 7,g 8,h ←ここまでをグラフ化 9,i ： ここで、あるパラメータ用のセルに、 開始位置=3、終了位置=8という値を指定すると、 A列から3と8を見つけ出し、その範囲のグラフを作る。 3と8なので、グラフの範囲としては、A7:B12。 （実際には、列はもっと多いですが） できれば"エクセル技道場"のような範囲指定関数＋グラフ設定のほうが良いです。 （今回マクロも少しかじったのでマクロでも何とかなるカモ・・(^^;） すみませんが、よろしくお願い致します。

イントラ内のファイルに対して命令を実行するマクロを作成したいと思っています。 イントラに入る為には、ユーザー名とパスワードが必要なのですが、VBAではどのように記述すればよいかわかりません。 どう記述すればいいのでしょうか？

必要に迫られ、数日前から関数やマクロなるモノを勉強しながら奮闘中です。 範囲可変のグラフを作りたく、以下のサイトを参考にしながら試行錯誤してるのですが、応用が効きません。。 http://www2.odn.ne.jp/excel/waza/graph.html#SEC13 http://okwave.jp/qa2138388.html どれも、ある固定位置を起点として、増えた範囲までの全てのエリアをグラフ化してるようなのですが、 やりたいのは、任意のデータ範囲を自由に（Windowをスライドするように）グラフ化したいのです。 データの量が大量で全部表示すると見えなくなるため、 指定したい範囲をパラメータとして与えることで、その範囲だけを切り出したようなグラフにしたい。です。 例えば、 A5:B100　に以下データが入ってたとして、 （A列は上から連番でダブリなし。実際には時間=tになる） A,B ----- 1,a ←(A5,B5) 2,b 3,c ←ここから 4,d 5,e 6,f 7,g 8,h ←ここまでをグラフ化 9,i ： ここで、あるパラメータ用のセルに、 開始位置=3、終了位置=8という値を指定すると、 A列から3と8を見つけ出し、その範囲のグラフを作る。 3と8なので、グラフの範囲としては、A7:B12。 （実際には、列はもっと多いですが） できれば"エクセル技道場"のような範囲指定関数＋グラフ設定のほうが良いです。 （今回マクロも少しかじったのでマクロでも何とかなるカモ・・(^^;） すみませんが、よろしくお願い致します。

必要に迫られ、数日前から関数やマクロなるモノを勉強しながら奮闘中です。 範囲可変のグラフを作りたく、以下のサイトを参考にしながら試行錯誤してるのですが、応用が効きません。。 http://www2.odn.ne.jp/excel/waza/graph.html#SEC13 http://okwave.jp/qa2138388.html どれも、ある固定位置を起点として、増えた範囲までの全てのエリアをグラフ化してるようなのですが、 やりたいのは、任意のデータ範囲を自由に（Windowをスライドするように）グラフ化したいのです。 データの量が大量で全部表示すると見えなくなるため、 指定したい範囲をパラメータとして与えることで、その範囲だけを切り出したようなグラフにしたい。です。 例えば、 A5:B100　に以下データが入ってたとして、 （A列は上から連番でダブリなし。実際には時間=tになる） A,B ----- 1,a ←(A5,B5) 2,b 3,c ←ここから 4,d 5,e 6,f 7,g 8,h ←ここまでをグラフ化 9,i ： ここで、あるパラメータ用のセルに、 開始位置=3、終了位置=8という値を指定すると、 A列から3と8を見つけ出し、その範囲のグラフを作る。 3と8なので、グラフの範囲としては、A7:B12。 （実際には、列はもっと多いですが） できれば"エクセル技道場"のような範囲指定関数＋グラフ設定のほうが良いです。 （今回マクロも少しかじったのでマクロでも何とかなるカモ・・(^^;） すみませんが、よろしくお願い致します。

ExcelのVBAでグラフをChartType = xlXYScatterLinesでグラフを作っています。仮に各列10行でAからＦ列までデータがあるとします。 Set chartObj = ActiveSheet.ChartObjects.Add(170, 170, 280, 170) With chartObj.Chart .ChartType = xlXYScatterLines .SetSourceData Worksheets(1).Range("A1:F10"), _ PlotBy:=xlColumns .HasLegend = False End With 上記のようにしてしまうと、x値がA1:A10で、y値がB1:B10,C1:C10・・・・のプロットが5本作成されてしまいます。 以下のようにするにはどうすればよろしいでしょうか。 第一のプロットはx値をA1:A10, y値をB1:B10としてグラフを作成します。次にこのグラフにx値をC1:C10, y値をD1:D10とした第二のプロットを追加、同様に第三はx値をE1:E10, y値をF1:F10としてプロットを追加したグラフを作成したいのですが、このようなグラフはVBAで作成可能でしょうか。 本番のグラフは行数と列数はいろいろな場合があるので、行数と列数のパラメータに任意の値を代入し、Forループで様々な形態に対応できるものを作りたいと考えています。

strComputer = "atl-dc-01" Set wbemServices = GetObject("winmgmts:\\" & strComputer) Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration") For Each wbemObject In wbemObjectSet WScript.Echo "物理メモリの合計 (kb): " & wbemObject.TotalPhysicalMemory Next こういったプログラムを見つけたのですが・・・Getobjectで書き込みが出来ないエラーが出ます。 調べた結果おそらく権限がないことがいけないかと思いますが・・・どうやって結果を得られるのかわかりません。 あとコミットチャージとかも取得で切ればいいのですが・・・よろしくお願いします。

Office2000の環境で、オートフィルタを使って抽出したデータをそのまま隣の列へコピー？（セル右下にあわせて十を出して左クリック＋左方向へ一列分移動）を行いたいのですが、マクロを実行するとサポートしていませんと表示されます。エクセル２００ではダメなのでしょうか？ 又は、エクセル２０００でも出来るものがありましたら誰か教えてください。

Office2000の環境で、オートフィルタを使って抽出したデータをそのまま隣の列へコピー？（セル右下にあわせて十を出して左クリック＋左方向へ一列分移動）を行いたいのですが、マクロを実行するとサポートしていませんと表示されます。エクセル２００ではダメなのでしょうか？ 又は、エクセル２０００でも出来るものがありましたら誰か教えてください。

「Auto_Open」でマクロを自動実行しています。そうするとVBAを編集するにも一度実行してしまうことになります。VBAの書き方が拙いこともあり実行後にSAVEすると次回エラーで動きません。画面は結構複雑で毎回クリアするのも大変です。何か良い編集方法はありませんか？それともVBAを書き換えるしかありませんか？ Excel VBAは見よう見まねで基礎から学んだことがありません（VBは結構経験あり）。仕事に使っていて今困っています。とりあえず解決策を教えてください。

Excel2000です。 ワークシート、 Sheets("Comment")上のデータにもとづき、自動でセルにコメントを挿入するマクロを書きました。 以下で、正常に作動します。 問題は、TextFrameの自動サイズ調整の部分です。 このままだと、文字列の長さに応じて横にだけ長くなってしまうのです。 かといって、文字列の長さはバラバラなのでサイズを固定するわけにもいきません。 コメントの横幅は一定で、縦の長さだけ文字数に応じて自動で変わるような設定はできないものでしょうか？ Sheets("Comment")上のデータをAlt+Enterでセル内改行させることにより対応はできますが、もっといい方法がないか質問させていただきました。 Lenで文字数を調べ、これに応じて対応させるのは、全角半角が入り混じったデータなので無理そうです。 宜しくお願い申し上げます。 Sub Comment挿入() Dim sa As String, ad As String, tx As String With Sheets("Comment") For i = 2 To 42 sn = .Cells(i, "A").Value 'シート名 ad = .Cells(i, "B").Value 'セルアドレス tx = .Cells(i, "C").Value 'テキスト With Sheets(sn).Range(ad) .AddComment With .Comment .Visible = False .Text Text:=tx .Shape.Shadow.Visible = msoFalse '影無し .Shape.Fill.ForeColor.SchemeColor = 42 '背景を水色 .Shape.Line.ForeColor.SchemeColor = 10 '枠線を赤 .Shape.TextFrame.Characters.Font.Name = "MS UI Gothic" 'フォント指定 .Shape.TextFrame.Characters.Font.ColorIndex = 3 'フォント色を赤 .Shape.TextFrame.AutoSize = True '自動サイズ調整 End With End With Next i End With End Sub

初めまして。 EXCEL2007で、VBAからFORMULA式を使って別ブックを参照するVLOOKUPを埋め込もうとしています。 このとき、対象となる別ブックのシートに、検索値に合致する情報がないと、「シートの選択」ダイアログが出てしまうのですが、これを出さずに、式を生かしたまま「#N/A」扱いにする（＝ワークシート上でVLOOKUPに失敗したときと同じ結果とする）方法はないでしょうか？ いろいろ試したのですが解決策が見つかりませんでした。 実装コードはつぎのような形になってます。 Sheet1.Formula = "=VLOOKUP(B2,'[Book2.xls]Sheet1!$B1:$C255,2,FALSE)" Book2のSheet1のB1:C255に、検索キー[B2]の値があるとき、C列の値を取ろうとしています。 このとき、検索に失敗すると、コード実行中に「シートの選択」ダイアログが出てしまうので、これを回避したいのが質問の主題です。 Application.DisplayAlerts = FALSE でもダメでした。 なにか良いアイデアがありましたらご教唆願います。

たとえば質問No4576980であげたような、特定のキーワードで検索をかけて対象となったデータに対して印刷なり何なりの動きをかけるような一連のプロシージャの組み合わせがあるとします。 このとき、後々検索対処となる配列要素が増えたとします。まだ勉強中ですがReDimを使えば無理やりでも要素は増やせそうな気がしますが、それ以降の一連の動きを追加してやるには何か方法がありますでしょうか？ 例に挙げた質問の中では配列が循環すればいけそうな書き方になっていますが、たとえば印刷先のフォーマットは当然配列の増えた日にできるものであって最初からしてできるものではありませんし、現在いろいろと進めて最初の検索対象配列に対してselect caseで分岐させさらに違う列に対して別の検索配列を適用してデータ行の特定を行っていますので、最初の配列に追加した要素にも同様に2つ目の検索対象となる配列要素を付け加えたい場合もありますし、何より追加分に対してのcase "" ~ 条件式の一文を追加してやらなければ動作がつながりません。

たとえば質問No4576980であげたような、特定のキーワードで検索をかけて対象となったデータに対して印刷なり何なりの動きをかけるような一連のプロシージャの組み合わせがあるとします。 このとき、後々検索対処となる配列要素が増えたとします。まだ勉強中ですがReDimを使えば無理やりでも要素は増やせそうな気がしますが、それ以降の一連の動きを追加してやるには何か方法がありますでしょうか？ 例に挙げた質問の中では配列が循環すればいけそうな書き方になっていますが、たとえば印刷先のフォーマットは当然配列の増えた日にできるものであって最初からしてできるものではありませんし、現在いろいろと進めて最初の検索対象配列に対してselect caseで分岐させさらに違う列に対して別の検索配列を適用してデータ行の特定を行っていますので、最初の配列に追加した要素にも同様に2つ目の検索対象となる配列要素を付け加えたい場合もありますし、何より追加分に対してのcase "" ~ 条件式の一文を追加してやらなければ動作がつながりません。

散布図の軸を入れ替える方法を考えています。（excel2003です。） 散布図は数百枚あり、系列ごとに元データが散在しているので、 元データは触らずに、グラフの軸だけを入れ替えて表示したいのです。 例えば横軸が身長、縦軸が体重の散布図を縦軸を体重、横軸を身長にするイメージです。 xvaluesとvaluesを入れ替えるのだと思い、以下を組んでみたのですが、うまくいきません。 どのように修正すればよいか教えてください。 Sub 軸入替() Dim cht As Chart Dim i As Long, N As Long 　　Dim sxvalues As Object,svalues As Object With ActiveSheet.ChartObjects For N = 1 To .Count Set cht = .Item(N).Chart With cht.SeriesCollection For i = 1 To .Count 　　　　　　　　　sxvalues = .Item(i).XValues　←ここでエラーが出ます。 　　　　　　　　　svalues = .Item(i).Values 　　　　　　　　　.Item(i).Values = sxvalues 　　　　　　　　　.Item(i).XValues = svalues Next End With Next End With End Sub 以上です。

たとえば質問No4576980であげたような、特定のキーワードで検索をかけて対象となったデータに対して印刷なり何なりの動きをかけるような一連のプロシージャの組み合わせがあるとします。 このとき、後々検索対処となる配列要素が増えたとします。まだ勉強中ですがReDimを使えば無理やりでも要素は増やせそうな気がしますが、それ以降の一連の動きを追加してやるには何か方法がありますでしょうか？ 例に挙げた質問の中では配列が循環すればいけそうな書き方になっていますが、たとえば印刷先のフォーマットは当然配列の増えた日にできるものであって最初からしてできるものではありませんし、現在いろいろと進めて最初の検索対象配列に対してselect caseで分岐させさらに違う列に対して別の検索配列を適用してデータ行の特定を行っていますので、最初の配列に追加した要素にも同様に2つ目の検索対象となる配列要素を付け加えたい場合もありますし、何より追加分に対してのcase "" ~ 条件式の一文を追加してやらなければ動作がつながりません。

お世話になります。 現在ＶＢＡにてシステムを構築しようとしていますがその中で ある画像オブジェクトの上にマウスを持って行くとそのオブジェクトの 状況がポップアップされる・・と言う事を考えております。 もう少し具体的に言いますと 設備を配置したＭＡＰ（ＰＣアプリ上）があり、ある設備オブジェクトの 上にマウスを持って行くとその設備の状況をポップアップさせる（案件 名、作業者、作動時間等）。 と言う事は実現可能でしょうか？ また可能であればどの様にコードしてやれば宜しいでしょうか？ 実際にプログラムする人は別の人が担当で私はアプリケーション・システム の仕様を作成しています。 因みに、プログラマはこの方法を知らないみたいです・・ 以上、お手数ですが何卒宜しくお願い致します。