Xen の回答履歴

ご教授お願いいたします。 Excel2002のワークシート上にボタンを配置しています。 セル（例えばA6）の値を取得して，配置しているボタン名にすることはできますでしょうか。 初歩的な質問だと思うのですが，よろしくお願いいたします。

はじめまして最近Excelvbaを勉強し始めた初心者です。 早速質問なんですが例えば↓ 東京　150　200 大阪　230　100 大阪　100　 50 大阪　100　300 福岡　250　300 沖縄　500　100 こんな表があるとします。 大阪のように同じ名前が連続した時に↓ 東京　150　200 大阪　230　100 大阪　100　 50 大阪　100　300 小計　430　450 福岡　250　300 沖縄　500　100 このように大阪の下に小計欄を作成して 合計を求めたいのですが、 連続する可能性のある言葉は把握しています（複数あり） Excelvbaで出来ますか？ 僕なりに考えてみたんですが無理でした・・・ どなたか詳しい方、知恵を貸して下さい。 お願いいたします。

お世話になっております。 VBからのMDBの帳票印刷の事で悩んでおります。 データベースとしてMDBを使用しているので、MDBのレポートのプレビュー を表示しようとしました所、下記のコードで実現することができました。 Dim oleAccess As Access.Application Set oleAccess = GetObject(App.Path & "\data.mdb") Call oleAccess.DoCmd.OpenReport(ReportName, acPreview) oleAccess.DoCmd.Maximize oleAccess.Visible = True 開発環境では問題なくプレビューの表示ができたのですが、 このプログラムを、ACCESSの入っていない環境で、ACCESSランタイムをインストール して実行すると、印刷時に「エラー429 ActiveXコンポーネントはオブジェクトを作成 できません」とのエラーが出て、印刷だけができません（その他の動作は正常です）。 エラー内容から、ACCESSオブジェクトの作成に失敗していると思うのですが、 Access.Application型を使わずに、ACCESSのプレビュー・印刷をする方法は無いのでし ょうか？（たとえば、DAO.DataBase型でMDBを開いて印刷する方法など・・・） 以前にも同じような質問をさせて頂いたのですが、私の力不足のため、再度ご質問させて頂きます。 どんな事でもいいので、アドバイスを頂ければ幸いです。 よろしくお願い致します。

はじめまして最近Excelvbaを勉強し始めた初心者です。 早速質問なんですが例えば↓ 東京　150　200 大阪　230　100 大阪　100　 50 大阪　100　300 福岡　250　300 沖縄　500　100 こんな表があるとします。 大阪のように同じ名前が連続した時に↓ 東京　150　200 大阪　230　100 大阪　100　 50 大阪　100　300 小計　430　450 福岡　250　300 沖縄　500　100 このように大阪の下に小計欄を作成して 合計を求めたいのですが、 連続する可能性のある言葉は把握しています（複数あり） Excelvbaで出来ますか？ 僕なりに考えてみたんですが無理でした・・・ どなたか詳しい方、知恵を貸して下さい。 お願いいたします。

エクセルで棒グラフを作成をしたいと思っているのですが、 値が「20000」 「50」 「10」 「80」　などと、かけ離れている場合、「20000」に目盛が合ってしまい、その他の比較が全然出来ないようなグラフになってしまいます。 そんな値のデータでもきれいに作れるようなグラフはないでしょうか？ ご存知の方、教えて頂けると助かります。是非宜しくお願いします。

コンポでA,Bの区分表示され Aを選ぶとコンポ２に A区分のみa1,a2が表示される ようにしたいです コンポ１--------->コンポ２ 区分　　　　　　　商品名 A　　　　　　　　　a1 A　　　　　　　　　a2 B　　　　　　　　　b1 B　　　　　　　　　b2 さて コンポ１の 更新後処理 で”マクロ1” を指定し そのマクロでは アクション＝再クエリ としますが 再クエリの対象をコンポ２ にしたいのですが ？ マクロでデザイン画面では アクションの欄と コントロール名の欄しかありません とすると コンポ２を再クエリしたいとき どう、記述するのでしょうか

OS:windows2000 pro アクセスバージョン：access2000 アクセスのレポートで、あるテーブルの中のデータをすべて1ページ内に表示させたいと考えています。 データは病院の検査結果なのですが、検査日別に３レコードがあります。 ＩＤ　氏名　検査日　　　　　身長　体重 　1　Ａさん　2005/01/01　　170　　60 　2　Ａさん　2004/01/01　　169　　65 　3　Ａさん　2003/01/01　　168　　63 これをレポートで、過去３検査分という形で１枚で印刷したいのですが、やり方がわかりません。 よろしくお願いいたしますm(_ _)m

アクセス2002を使っています。[年月日]と[内容]のフィールドがあります。新しいレコードに本日の年月日と、前回の最後レコードの内容をコマンドボタンを押すだけで入力したいのですが、（前　Do　ボタン） コマンドボタンのプロパテイのイベントのクリック時にプロシジャーでどう書けばよいのですか？教えてください。 VB初心者です。よろしくお願いします。

ExcelのグラフでY/数値軸を左右に表示したいと考えています。 データは１種類しかありません。 つまり、同じ数値軸をグラフの左右に表示したいのですが、よい方法はありますか？

マクロ初心者ですよろしくお願いします。 毎月システムからデータを切り出し、ピポットテーブルで表を作成しております。 毎月同じピポットを作っているのでマクロ登録をしたいのですが、他のシート（ブック）で使用するとエラーが出てしまいます。 シート（ブック）の名前が違ってもマクロを使用する方法はありませんでしょうか？ 質問の意味がわかりにくいかもしれませんがよろしくお願いします。

マクロ初心者ですよろしくお願いします。 毎月システムからデータを切り出し、ピポットテーブルで表を作成しております。 毎月同じピポットを作っているのでマクロ登録をしたいのですが、他のシート（ブック）で使用するとエラーが出てしまいます。 シート（ブック）の名前が違ってもマクロを使用する方法はありませんでしょうか？ 質問の意味がわかりにくいかもしれませんがよろしくお願いします。

エクセルのコントロールボックス（○の中に小さい・を入れるやつ）で2つの内1つを選択しするパターンを5つ作りたくて、10個のボックスを貼り付けたのですが、いずれか1つしかチェックできません。方法はあるのでしょうか？よろしくお願いします。

　早速ですが困っています。。。 質問）エクセルシート(1)のＡ列のセル毎に１～３０００までの数字を入力しました。　エクセルシート(2)のＡ列のセルに上からランダムに数字を入力した際、その数字をクリックするとシート(1)のＡ列に入力した同じ数字のセルにリンクする様（例えばシート(2)Ａ１３のセルに『２３４』を入力　→　シート(1)のＡ列記載の『２３４』のセルにリンク）、シート(2)のＡ列に一括でリンクを設定したいのですがどの様に良いのか教えて下さい。 　宜しくお願い致します。

パワーポイント2002のタイトルスライドについてお尋ねします。 新規作成から最初のスライドのデザインを「balance」にしました。 文字をタイトルに入れると自動的に真ん中に入力されます。 「中央揃え」になっています。しかし、「両端揃え」や「左揃え」にしても文字は少し動くだけで、ほとんど真ん中にあります。 これはなぜでしょうか？どうしてプレースフォルダの左に文字が揃わないのでしょうか？ なにか方法はありますか？ デザインを何も指定しないと左に揃うのですが。

名簿の名前だけを一人一人ピックアップして、Ａ１のセルに入れて、連続して自動印刷はできますか。 使っているソフトは、ＥＸＣＥＬ２００３です。 宜しくお願いいたします。

こちらのカテゴリーにも質問させて下さい。 ＭＳアクセスのフォームで、表示されている表の中でフォーカス（カーソル？）のあるレコード番号（先頭から何番目か）を取得するにはどうしたらいいですか？ ＩＤ番号はオートナンバーになっているので、途中削除されていると、先頭からの番号は狂いますよね。 例えば Ｎo＝Ｒcord．Ｉndex　’先頭からの通し番号 とかって、できないでしょうか？ たぶん、とっても簡単なことなんでしょうが、勉強不足でお願いします

2つのボタンがあります。 (1)日付をいれて、診療日を検索するボタン (2)病棟をいれて、病棟を検索するボタン 教えて頂きたいのは、「10月1日　第３病棟」の様な診療日と病棟の両方が当てはまる項目を検索できるボタンです。 また、診療日を検索している（1)ですが、 「10月1日　10月７日」 など、複数の項目も検索できるボタンにしたいとも思っています。 検索の「and」みたいなものです。 おわかりになる方は、教えて下さい。 あまりVBAは詳しくありませんので、宜しくお願い致します。 ＜1＞ Private Sub CommandButton1_Click() 'マクロ実行画面の凍結 Application.ScreenUpdating = False '変数宣言 Dim 診療日 As Variant '抽出キーの入力指示 診療日 = InputBox 'キャンセルした場合の処理 If 診療日 = Empty Then Exit Sub End If 'オートフィルタがかかっていなかったらかける 'かかっていたら念の為一度解除し再設定 If ActiveSheet.AutoFilterMode = False Then Range("B5:E5").Select Selection.AutoFilter Else Selection.AutoFilter Range("B5:E5").Select Selection.AutoFilter End If Range("B3").Select '「診療日」の列（２列目）で、抽出キーを含むものを抽出 Selection.AutoFilter Field:=1, _ Criteria1:="=*" & 診療日 & "*", Operator:=xlAnd End Sub ＜2＞ (2)は(1)の「診療日」のところが「病棟」に変わっているだけです。

ワードで横向きの表を縦向きにしたいのですが、どうやったら出来るのでしょうか？

本日9:44に、同タイトルで質問をしたものですが、 頂いた回答の通りに実行しているうちに、お答え頂いた 方法と私が実際求めていた方法が違うことに気がつきました。 朝質問したのは、エクセルで日付入力をする場合に、 表示形式はH15.○.○という形式を設定して、ただし 今年の日付ではなく自動的に２年前の日付にするには どうしたらいいかというものでした。 お答え頂いた回答は、A1に今年の日付があるとして、 DATE(YEAR(A1)-2,MONTH(A1),DAY(A1)) この式を入れれば良い、ということでしたが、そうではなく、 たとえばB列全部に対してH15.○.○という表示形式を 設定していれば、9/30と入れれば自動的にH17.9.30に なると思うのですが、これを自動的に２年前の日付に なるようにしたいのです。 以前にもある方に教えて頂いたのに忘れてしまい、 そのとき教えて頂いた方法は、まずB列全体を選択して、 右クリック→「セルの書式設定」→「表示形式」→ 「ユーザー定義」と進んだように記憶しています。 ただその後が思い出せません。 度々すみませんが、ご回答お願い致します。

YES/NOを入力させる為の下記のVBAにおいて、チェックボックス１をチェックすると、アの部分でチェックボックス２の解除を行う関係で？、シート上でチェックボックス２を操作していないのにもかかわらず、勝手にCheckBox2_Click()に入り、命令文イを実行してしまいます。 ただ単にSub CheckBox1_Click()のルーチンの最後までの処理で終わりたいのですが、どうしたらよいのでしょうか。 Private Sub CheckBox1_Click() If CheckBox1 = True Then Sheets("sheet1").Range("A1") = 1 Sheets("sheet1").Range("A2") = 0 CheckBox2 = False・・・ア Else Sheets("sheet1").Range("A1") = "" End If End Sub Private Sub CheckBox2_Click() If CheckBox2 = True Then Sheets("sheet1").Range("A1") = 0 Sheets("sheet1").Range("A2") = 1 CheckBox1 = False Else Sheets("sheet1").Range("A2") = ""・・・イ End If End Sub