end-u の回答履歴

データベース形式の表にB列にデータがあれば C列～E列の範囲を、B列の会社名を名前にして定義していきたいので すが、教えていただけないでしょうか？ リストで使ったり、グラフにする範囲に利用する等、範囲を名前に しておきたいのです。よろしくお願いします。 A列=No. B列=会社名 C列=データ1 D列=データ2 E列=データ3 F列=メモ

いつもお世話になっております。 こんな質問しました。 http://okwave.jp/qa3973267.html http://okwave.jp/qa3973335.html なんとか、自動記録とＯＫｗｅｂの受け売りで、 やってみました。 でも、もう限界です。 教えて下さい。 【困っていること】 １．保管するファイル名を固定でなく、 見積書.XLSのH13（固定）の値で、 ファイル名を付けて保存したい。 ２．台帳.XLSのT2:AG2のコピー先で、 全てが選択されている状態のため、 リンクが全項目になっている。 先頭の項目だけにしたい。T2のコピー先のみ。 ３．リンクを固定でなくて、 ファイル名、表示名をT2（固定）の値、 もしくはコピー先（可変）の値でしたい。 今は、見積書.XLSとSEC01-20080001となっているのを、 可変に、例、SEC01-20080100.XLSとSEC01-20080100にしたい。 現在のコード（一部）は以下です。 Range("A1").Select ChDir "H:\2008\見積" ActiveWorkbook.SaveAs Filename:= _ "H:\2008\見積\見積書.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Windows("台帳.xls").Activate Range("T4").Select Selection.Copy Range("T2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("S3").Select Application.CutCopyMode = False Selection.Copy Range("S1").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("T2:AG2").Select Application.CutCopyMode = False Selection.Copy Cells(ActiveSheet.Rows.Count, 4).End(xlUp).Offset(1).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="見積書.xls", _ TextToDisplay:="SEC01-20080001" Cells(ActiveSheet.Rows.Count, 4).End(xlUp).Offset(1).Select ActiveWorkbook.Save 宜しくお願い致します。

Excel2007を用いて、Microsoft Query経由でMy SQLに接続してデータを取得して表示しています。その際に、SQL文を発行して条件を絞ったうえでSELECTしています。 このSQL文なのですが、都度都度ウィザードを立ち上げて入力するのではなくて、セル参照のような形で自動的に、セルをいじると自動的にSQL文が変更されてデータも更新されるようにすることは可能ですか。 （もしくは、だーっと並んでいるデータから =SQL(???) というような関数でデータを抽出できる関数を提供しているアドインなどをご存知でしたら教えてください。）

Excelでボタンにハイパーリンクを付ける際に、ロールオーバー効果のようにカーソルが来ると色が変わるというようなことができないでしょうか？ 宜しくお願いします。

エスセルでビポットテーブルで作成した表のようなものがあるのですがビポットだと項目と内容について項目に該当するところが１つにまとまってしまいますがこれを全部の内容について表示させるにはどうしたらいいでしょうか？　 具体的には Aさん　aaa 10 (Aさん）vvv 23 Bさん　eee 30 (Bさん）　qq 50 のようなイメージで（）の中が表示されていないのですがこちらに上にある方Aさんとかをコピーして全部の内容(上記の場合vvvなどの横）に名前を入れたいというものです。　Aさんなどの名前はランダムで人数が多くvvvに当たるところは500個程度あり人の名前もvvvに当たるところも日々ないよう更新するため都度違います。　うまく説明できていないところもあるかもしれませんが宜しくお願いいたします。　

ExcelVBAに関する質問です。 シート上にある表とグラフがあり、グラフ上にテキストボックスで表の合計値を表示させています。 その方法は以下の通りです。 1.表の[合計値]を求めるセルを作る。 2.シート上の見えない部分(例.グラフの裏側など)で、合計値に単位を付加する。 (例.セルC15に[=C10&"kwh"]と入力) 3.テキストボックスの数式バーに上で単位を付加したセルを入力する。 (例.数式バーに[=C15]と入力) 表とグラフを含めて75行で１日分となるので、毎日75行分をコピー＆ペーストして当日分の入力欄を作成しているのですが、表内の合計欄などはコピーすると参照セルがコピー先のセル番地に反映されるのですが、テキストボックス内のセル番地は反映されません。 これを一つ一つ直すのは大変なので、マクロなどを使ってボタン一つで直す(またはそのようなテキストボックスを作成できる)様にしたいのですが、VBAでテキストボックス内の数式バーをコントロールすることは可能なのでしょうか？ また同様にグラフのデータ範囲もコピー先に自動的に反映されないので、これもコントロールできる方法があれば教えて頂きたいと思います。 拙い知識で考えられる方法としては、 １．グラフ裏の見えないセルに、テキストボックスの参照先となるセル番地を記入(=[前日の参照番地]+75) ２．1日分のデータ範囲をコピーすると自動的に参照先のセル番地もコピー先に反映される ３．マクロを起動するとテキストボックスの数式バーに【"="&[当日の参照先セル]】と入力される (または上記の様に入力されたテキストボックスを作成する) グラフの方の対処方法は思いつきません。 ただグラフについてはボタン押しでグラフを作成する様にすればいいと思うのですが、シート上の体裁が崩れてしまうのでやりたくないのが実情です… 識者の方、よろしくお願い致します。

【エクセルで一発検索機能】エクセルにテキストボックスとボタンを設置し、テキストボックスに単語を入力、ボタンを押すと、ファイル内でその単語を探し、単語が見つかった場合はそこのセルに飛ぶ・・というしくみはつくれるでしょうか？ 作り方をおわかりの方、教えてください。よろしくお願いします。

お世話になります 実行可能か、わからず質問させて頂きます。 ■概要 ・CSVファイルをエクセルファイルにインポートしたいです ■設置 ・ユーザーフォームにテキストボックス、参照ボタン、実行ボタン を生成 ■動き ・参照ボタンをクリックするとダイアログボックスでCSVを選ぶ ・選んだあて先がテキストボックスに記載される ・実行ボタンでCSVをエクセルのシートに貼り付け （このとき貼り付ける列はVB内で決めておきたい、1,4,5,6,9列を貼り付けるなど） わかる方ご教授よろしくお願い申し上げます

ExcelVBAに関する質問です。 シート上にある表とグラフがあり、グラフ上にテキストボックスで表の合計値を表示させています。 その方法は以下の通りです。 1.表の[合計値]を求めるセルを作る。 2.シート上の見えない部分(例.グラフの裏側など)で、合計値に単位を付加する。 (例.セルC15に[=C10&"kwh"]と入力) 3.テキストボックスの数式バーに上で単位を付加したセルを入力する。 (例.数式バーに[=C15]と入力) 表とグラフを含めて75行で１日分となるので、毎日75行分をコピー＆ペーストして当日分の入力欄を作成しているのですが、表内の合計欄などはコピーすると参照セルがコピー先のセル番地に反映されるのですが、テキストボックス内のセル番地は反映されません。 これを一つ一つ直すのは大変なので、マクロなどを使ってボタン一つで直す(またはそのようなテキストボックスを作成できる)様にしたいのですが、VBAでテキストボックス内の数式バーをコントロールすることは可能なのでしょうか？ また同様にグラフのデータ範囲もコピー先に自動的に反映されないので、これもコントロールできる方法があれば教えて頂きたいと思います。 拙い知識で考えられる方法としては、 １．グラフ裏の見えないセルに、テキストボックスの参照先となるセル番地を記入(=[前日の参照番地]+75) ２．1日分のデータ範囲をコピーすると自動的に参照先のセル番地もコピー先に反映される ３．マクロを起動するとテキストボックスの数式バーに【"="&[当日の参照先セル]】と入力される (または上記の様に入力されたテキストボックスを作成する) グラフの方の対処方法は思いつきません。 ただグラフについてはボタン押しでグラフを作成する様にすればいいと思うのですが、シート上の体裁が崩れてしまうのでやりたくないのが実情です… 識者の方、よろしくお願い致します。

ワークシート上の名前を定義された特定の個所（結合セル）を選択すると、その部分が黄色く変わるマクロです。 一応、動くのですが、例えば印刷範囲を選択などしてしまうと印刷範囲すべてが黄色くなってしまいます。 If Target.Count >1 then Exit Sub だと、結合セルに名前を定義しているので、一ヶ所だけ選択しても色が変わらなくなります。 　　　If Selection.Areas.Count >1 then Exit Sub だと、一遍に連続した範囲を選択してもAreasは１ですからだめです。 　　　Range( "会社名,日付,物件,電話番号,売上高,店名,担当者")の6つの名前を定義された結合セル範囲のなかのどれか一ヶ所だけが選択された場合のみ作動するようにするにはどう書けばよいのでしょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set Rng = Range( "会社名,日付,物件,電話番号,売上高,店名,担当者") If Intersect(Target, Rng) Is Nothing Then Exit Sub Rng.Interior.ColorIndex = 2 Selection.Interior.ColorIndex = 6 End Sub

使用しているExcelは2007です。 Excelのコード表示の中で 左端に表示されるVBAProjectの下に Microsoft Excel Objectsのツリー状があって シートの上に田の字のついたものがある中 Excelマークのついたものも、混ざっていました。 この田の字がついたシートでVBAが入っているものも あれば、無いものもあり、無いものは消したいのですが 解放することができません。 これを消すにはどのようにすれば、いいのですか？ また、excelマークも解放したいのですが、できません。 こちらも消すには、どのようにすればいいのですか？ そして、どうしてこれのみ、excelマークで表示されているのかも 分りません。 上記3点について、どなたかご教授ください。

回転させた図を任意の場所に配置させたいのですが、EXCEL2007になってからShapeRange.Top/Leftに負の値が設定できなくなってしまったようで、任意の場所に配置できなくなってしまいました。 幸いIncrementTopやIncrementLeftには負の値が設定可能なようなのですが、Excel2003の場合とExcel2007の場合で動作が違うことには変わりなく、Excel2003ではTop/Leftの設定だけで済んだものがExce2007ではTop/Leftである程度の基準位置を設定したあと、さらにIncrementTop/IncrementLeftで補正の必要があるように思います。 こんなやり方をしないと図の配置はできないのでしょうか? 具体的には、マクロにて横長や縦長の長方形の図形を挿入し、位置を指定するのですが、図を回転した場合でもTop/Leftは、回転前の図のTop/Leftを設定するので、横長の図を90度回転させ縦長にした場合には、Leftに0を設定しても、回転後の結果の図は左端にはよっておらず、(元の図の横幅－元の図の縦幅)÷２の分だけ空いてしまいます。 なので、EXCEL2003では求められた空きの分だけLeftに負の値を設定するだけでよかったのですが、EXCEL2007ではLeftに負の値が設定できなくなっており、左端に寄せる事が不可能になっています。 以下、現象確認のための簡単なサンプルのマクロを示します。 '縦長の場合です ActiveSheet.Pictures.Insert("C:\TEMP\BITMAP.BMP").Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 700 Selection.ShapeRange.Width = 100 Selection.ShapeRange.Rotation = 90# Selection.ShapeRange.Top = Range("B2").Top Selection.ShapeRange.Left = Range("B2").Left '横長の場合です ActiveSheet.Pictures.Insert("C:\TEMP\BITMAP.BMP").Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 100 Selection.ShapeRange.Width = 700 Selection.ShapeRange.Rotation = 90# Selection.ShapeRange.Top = Range("B2").Top Selection.ShapeRange.Left = Range("B2").Left 内容はなんでもいいのでBITMAP.BMPという図のファイルを用意してください。 上記マクロは"B2"のセル位置が図形の左上を原点とするようにしたいのですが、全く違うところに図が配置されます。

VBS2年目のプログラマーです。 Excelで図形オートシェイプ内のテキストが検索できないので、 マクロを作成してみようと思いましたが2点問題が発生しましたので 解決方法または実現方法をご教授ねがいます。 （目標マクロ機能概要） (1)InputBoxで検索文字列を入力 (2)検索文字列と一致するテキストを持つ図形を選択 (3)検索文字列と一致する次の図形を検索するかをMsgboxから選択 　(この時、一致する図形は選択されている状態であってほしい) (4)(3)で次の図形を検索しない、または図形をすべて検索するとマクロ終了 （問題) １．機能概要(2)の選択される図形が現在のExcel画面外にある場合、画面が移動しないため、どこに検索ヒットした図形があるか使用者がわからない ２．機能概要(3)で、Msgbox実行時に図形選択が表示されず現在どの図形を選択しているのか使用者がわからない 問題1は、autoshapeオブジェクトのtop,left属性などを 使うしかないのかなとぼんやり考えています。 以下、コードです。 お忙しいところ、申し訳ありませんが 以上、よろしくお願いします。 ************************** Sub GetShapesText() Dim wk_shp As Shape 'オートシェイプ格納変数 Dim wk_search_str As String '検索文字列変数 '*** 検索文字列入力処理 *** wk_search_str = InputBox("検索する図形オートシェイプのテキストを入力してください。", "オートシェイプ内テキスト検索") If (Len(wk_search_str) = 0) Then '検索文字列が未入力の場合は、マクロ終了 Exit Sub End If '*** オートシェイプ検索処理 *** For Each wk_shp In ActiveSheet.Shapes If InStr(wk_shp.Name, "Line") = 0 Then 'オートシェイプが線(Line)以外の場合のみ以下を処理 If (InStr(wk_shp.TextFrame.Characters.Text, wk_search_str) > 0) Then 'オートシェイプのテキストに検索文字列が含まれる場合のみ以下を処理 wk_shp.Select '検索ヒットしたオートシェイプを選択 wk_next_search_flg = MsgBox("次を検索しますか？", vbYesNo) If (wk_next_search_flg = 7) Then '次を検索しない場合は、検索を終了 Exit For End If End If End If Next End Sub **************************

お世話になります。 表題の件の通りなのですが ピポットを作る元データに日付を使っておりその部分をグループ化しようとすると「選択対象をグループ化することはできません」と出てしまいます。 一ヶ月分をコピーして別シートに貼り付けるとグループ化してくれるのですが何か特定条件が必要なのでしょうか？ 該当列の表示形式を日付で色々やってみたのですが・・・・・ どうぞよろしくお願いします。

Excel2007のVBAからShell関数で外部実行プログラムを起動します。 外部実行プログラムは画像データをクリップボードへデータを出力後、自動で終了します。 Shell関数とWin32APIを使用して外部プログラムを実行し、プログラムが終了するまで待つように処理して、 クリップボードから指定する複数の結合したセルへ画像を貼り付ける事は出来たのですが、 画像がセルの左上を基準に貼り付けられます。 この画像を、セルの中央に位置調整したいのですが可能なのでしょうか？ また画像の回転（１度単位）は可能でしょうか？ '指定セルへクリップボードの内容を貼り付け ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("H53") 画像ファイルなどを読み込む訳ではないため、画像データ自体に名前がありません。 手動で位置調整は可能ですが、自動化出来ないかと色々調べ試してみたのですが、思う様に実現できません。 セルの結合は５行、列は結合していません。 どなたか御存知でしたら回答下さい。

オートフィルがうまく働かないのです。 そうなるのは、ある特定のエクセルファイルだけです。 新規に作成すれば、きちんと動作するので、設定ではない気がします。 お金計算するファイルだけです。 エクセル2002ではその機能があるはずですが、、、 通常 １ ２ ３ を選んでドラッグすると、 ４ ５ ６ となりますが、 そのファイルは、どこのセルでも、 １ ２ ３ の後、 ドラッグしている時には右側に １ ２ ３ と表示されますが、 ボタンを放すと、一番最初の１が有効になり全部１になります。 １ １ １ となります。 Ctrlキーを押したままでも症状は同じです。 新規作成のファイルではならないのですが、、、、？？？ 今までずっと、手入力していましたが、どうしても疑問の為、質問します。 わかる方いらっしゃいますでしょうか？

エクセルで文字を入力すると、 『図が太すぎます。入りきらない部分は切り捨てます』と必ず出てきます。 実際は、切り捨てられることもなく、入力した時も消した時も表示され、印刷も通常です。（この警告が２～３回出て、OKを何度か押すと消えはします） 昨日、かなり重いファイルを開いてから、入力する度に出てくるのですが、何か原因があるのでしょうか・・・？？