rivoisu の回答履歴

エクセル2000です。 以下のマクロで自前の新しいツールバーが作れ、作動します。 ところがエクセル2007ではうんともすんとも言ってくれません。 エクセル2007で使う場合はどのようにしたらよいでしょうか？ ユーザーフォームで似たようなものを作る方法はわかるのですが、できれば以下の方法を使いたいのです。 Sub 三択メニュー() On Error Resume Next Application.CommandBars("選択します").Delete On Error GoTo 0 Application.CommandBars.Add Name:="選択します", Position:=msoBarFloating With Application.CommandBars("選択します") .Visible = True .Controls.Add Type:=msoControlButton With .Controls(1) .Style = msoButtonCaption .Caption = "⇒メニュー１　" .OnAction = "Msg_1" End With .Controls.Add Type:=msoControlButton With .Controls(2) .Style = msoButtonCaption .Caption = "⇒メニュー２　" .OnAction = "Msg_2" End With .Controls.Add Type:=msoControlButton With .Controls(3) .Style = msoButtonCaption .Caption = "⇒メニュー３　" .OnAction = "Msg_3" End With End With End Sub Sub Msg_1() Application.CommandBars("選択します").Delete MsgBox "追加コマンド１を処理しました。" End Sub Sub Msg_2() Application.CommandBars("選択します").Delete MsgBox "追加コマンド２を処理しました。" End Sub Sub Msg_3() Application.CommandBars("選択します").Delete MsgBox "追加コマンド３を処理しました。" End Sub

たとえば、下記のような表があります。 E 総数量 に対し、A～B期間内の日数を F～の月ごとのカレンダーに数量を反映させる事は出来ますでしょうか。 現在、数式を入れた例をのせましたが、F2 ～ I2 までに入る数式に苦戦しています。現在、数式例を載せましたが、一日の本数が反映するようになってしまいました。 A、Bを読み取る事はできたのですが、下のように、G２＝９３　H２＝６というような結果になるように、どなたか知恵をお貸しください。 m( _ _ )m 　　　A 　　 B 　　　 C 　　　 D 　　　　E 　　　 F 　　 G　　 H　　 I 1 　開始　　終了　期間日数　一日本数　総数量本　7月　 8月　 9月 　10月 2　　 8/1　 9/2 　　　　33 　　　 3 　　　 100　　　　　　93 　6 C2=(DATEDIF(A3,B3,"d")+1) D2=ROUNDDOWN(D3/C3,0) F2=IF(AND(MONTH(G$1)>=MONTH($A3),MONTH(G$1)<=MONTH($B3)),$E3,"") 　　

エクセルを使っている者です。 エクセルを使って、文化祭のシフト表を作っているのですが、 その作業のなかで、セルを何色か使って塗りつぶし、色別に仕事内容を見やすくしました。（行：時間　列：人の名前） そこまではいいんですが、みな平等に仕事を割り当てるため、選択した範囲内で塗りつぶされたセルの個数を色別に数えたいのです。 どんな関数を使えばよいでしょうか？ 塗りつぶされたセルを、しかも色別にカウントする、そんな関数はあるのでしょうか？

お世話になっております。度々すみません。。ユーザー定義で、 あ-1、あ-2、、、い-1、い-2、、、う-1、う-2 というように設定したいのですが、「50音-番号」の順なのですが、ユーザー定義であ-1、あ-2、、、お-1、お-2まで入れてみましたが、ハイフンの後の数字が、並び変わりません。。どのようにしたら設定できますでしょうか？数字は、200くらいになるかもしれません。。よろしくお願い致します。。。。

お世話になっております。度々すみません。。ユーザー定義で、 あ-1、あ-2、、、い-1、い-2、、、う-1、う-2 というように設定したいのですが、「50音-番号」の順なのですが、ユーザー定義であ-1、あ-2、、、お-1、お-2まで入れてみましたが、ハイフンの後の数字が、並び変わりません。。どのようにしたら設定できますでしょうか？数字は、200くらいになるかもしれません。。よろしくお願い致します。。。。

こんにちは。ＶＢＡ入門レベルのものですが教えてください。 以下の内容のデータベースがエクセルに記述済みと仮定します。 ◆シート（２年Ａ組） 　　　 1 　　　 2 　　　 3 　　　 4 A 　　 　 国語　　数学　　英語 B H21.1　　70　　　60　　　55 C H21.2　　80　　　75　　　90 D H21.3　　69　　　87　　　67 E H21.4　　75　　　72　　　57 ◆シート（２年Ｂ組） 　　　 1 　　　 2 　　　 3 　　　 4 A 　　 　 国語　　数学　　英語 B H21.1　　55　　　85　　　87 C H21.2　　62　　　24　　　63 D H21.3　　95　　　59　　　85 E H21.4　　68　　　96　　　56 （以下、縦軸はH21.5、6、7…、シートはＣ組、Ｄ組、Ｅ組…、と続く） このデータベースから、以下の内容で 折れ線グラフを作成したいと考えています。 ・グラフタイトル⇒クラス（２年○組） ・系列⇒教科 ・Ｘ軸⇒年月（H21.△） ・Ｙ軸⇒点数 ただし、例１のように 年月（始～終）、クラス、教科を都度プルダウンセルなどで選択し、 各条件に応じたグラフが得られるようにしたいのです。 （クラスは、例２のように複数クラスを同一グラフ上に見られればなお良しです。） 例1）２年Ａ組における数学のH21.2～H21.5のグラフを作成 例2）２年Ｂ組とＣ組における英語のH21.3～H21.7のグラフを作成 ※クラス名、教科名、年月名、データベース位置やプルダウンセル位置は不変。グラフ出力位置は不変。 私なりにINDEXやMATCH構文などを使いましたがなかなかうまくいきません…。 長々とすみませんが、どなたかご教示をお願いいたします。

osはwindows_VISTA_ビジネスです。 プログラムのファイルを書き換えて上書きしようとすると ファイルC:ProgramFiles\--------を作成できません。 パスおよびファイル名が正しいか確認してください。 と警告文が出て上書きできません。上書きできる方法があるのであれば 何方かご教授お願いします。

エクセルでわからないことがあり どなたか詳しい方いらしたら教えていただけないでしょうか？ 例 年　　　月　　　　日　　　曜日 2009 1 14 水 2009 1 13 火 2008 1 9 金 2008 8 2 木 2007 1 7 水 2007 1 6 火 2006 1 5 月 2006 12 30 火 このようなデータがずっと続いているのですが 横に年度別に並べ替える方法はないでしょうか？ ↓のような感じです。 2009　1 22 水　2008 2　22　水　2007　2　23　水 2009　2 23　水　2008 1 22 水　2007　1　22　水 ピポットテーブルを使うと関数が使いづらくなり余計にタイムロスに なるので申し訳ありませんがテーブル以外の方法でお願いします。

前回同じタイトルで質問させていただいた物を自分なりに本で調べて 作ってみました。しかし壁にぶつかりました。 Cells(Rows.Count, 7).End(xlUp).Offset(rowoffset:=1).Select この式は７列目の一番下の空欄のセルを選択できる式のようですが、 指定した範囲のなかで７列目の一番下のセルを選択したいのですがどうすればいいでしょうか？ つまり列だけじゃなく行も選択したいです。 教えてください。 こんな式を作りました。 　もし式を簡単に効率よくできる方法があればアドバイス下さい。 If Range("G4").Value = SpecialCells Then Range("H4").Select Else Range("G4").Select Range("G4").Copy Windows("Book1.xlsx").Activate Range("G18:G26") = Selection.Areas.Count Cells(Rows.Count, 7).End(xlUp).Offset(rowoffset:=1).Select ActiveSheet.Paste Application.CutCopyMode = False Windows("Book2.xlsm").Activate Range("D4").Select Range("D4").Copy Windows("Book1.xlsx").Activate Cells(Rows.Count, 4).End(xlUp).Offset(rowoffset:=1).Select ActiveSheet.Paste Application.CutCopyMode = False Windows("Book2.xlsm").Activate Range("E4").Select Range("E4").Copy Windows("Book1.xlsx").Activate Cells(Rows.Count, 5).End(xlUp).Offset(rowoffset:=1).Select ActiveSheet.Paste Application.CutCopyMode = False Windows("Book2.xlsm").Activate Range("H4").Select End If

グラフの書き方が判りません、宜しく御願いいたします。 　 　A 　　 B 　　 C 　　 D 　　 E 　　 計 1 1:00 　 1回　　3回　 　2回　 1回 7回 2 2:00　3回　　1回　　3回　　2回　 9回 3 3:00　1回　　1回　　2回　　2回　 6回 4 4:00　2回　　3回　　2回　　3回　10回 このような表で　A列を横軸にし、計を縦軸にして Ｂ、Ｃ、Ｄ列は必要ないので E列のみを内数として縦棒の色違いで示す方法は 如何すれば宜しいでしょうか？ お教え下さい。

お世話になっております。度々すみません。。ユーザー定義で、 あ-1、あ-2、、、い-1、い-2、、、う-1、う-2 というように設定したいのですが、「50音-番号」の順なのですが、ユーザー定義であ-1、あ-2、、、お-1、お-2まで入れてみましたが、ハイフンの後の数字が、並び変わりません。。どのようにしたら設定できますでしょうか？数字は、200くらいになるかもしれません。。よろしくお願い致します。。。。

エクセルで、種類を求める関数はあるでしょうか？わかりませんので、教えてください。宜しくお願いします。

Excelで作成したファイルを、USBメモリを使用して他のPCに移動しました。 そのPCでファイルを開いたところ、【ファイル】～【ヘルプ】のツールバーは表示されているのですが、Excelのメニューやツールバーがでていません。 （一応、【スタート】→【検索】で「Excel」と検索をかけるとソフトは見当たりませんでした。） ExcelソフトがPC上にないので、編集ができないということでしょうか？ よろしくお願いします。

「アルゴリズム」の意味がいまいちよくわかりません。 イメージとしては「プログラム」と言うことでしょうか？ 以前した質問ですが http://okwave.jp/qa4995619.html このようなｖｂａのコードも 「アルゴリズム」と呼べるのでしょうか？ アドバイス宜しくお願い致します。

実績表を作成しています。 １．教えてgoo!等でものっていましたが2月は28日まで、4月、6月、9月、11月は30日までしかありません。その場合、自動表示で日にちのセルは非表示は可能ですが、そのセルの横に曜日を作成したいのですが、１～２８日まではTEXT関数等で表示は可能ですが、29日～31日までの曜日について非表示をさせない方法を数式で作成したいのですが、良い方法を教えて下さい。 ２．その場合に土日の色を変えたいのですが、その方法も教えて下さい。

初めまして。 会社で急にエクセルを扱うことになり、本などを買って勉強中な初心者です。 今の私では難しすぎるので質問させてください。 ---------------------------------------------------------------- C:\AAA\本数集計値.xlsのaシート ......A.....B.....C.....D.....E......F......G......H 1...2009........9 2............3......4......5......6......7......8......9 3 4 5............10....11...12...13...14....15....16 本数集計値.xlsのaシートは上の図のようになっていて、A1に年、C1に月、B2～H2までは日にちを手入力で入力してあります。 ただし、B列には、週の頭として必ず木曜日が入ります。 このファイルには4週分の日付が入力してあります。4週過ぎたら日付だけ変えて再利用しています。 C:\BBB\第XX週本数計測値.xlsのbシート ....A.....B.....C.....D.....E.....F.....G.....H.....I 1..................9 2..................3......4......5.....6......7.....8.....9 3..................xx 4 5..................yy 第XX週本数計測値.xlsのbシートは上の図のようになっていて、C1に月、C2～I2までは日にちが入ります。 こちらも、週の頭は木曜になっています。 XXには"C1"月"C2"日から"I2"日までがその年の第何週目か、を入力してあります。 BBBフォルダには第01週本数計測値.xlsから数字が違うだけのファイルを毎週作っています。 xx、yyには3～5桁の数字が入ります。 ■質問 本数集計値.xlsの各セルに手入力された年月日から、何週目かを取得し、その週のファイルをC:\BBB\から検索し、該当する第XX週本数計測値.xlsのbシートの値、xx、yyを本数集計値.xlsのaシートの同じ日付の所定のセルにコピーしたいのです。(例えば9/3は36週目なので第36週本数計測値.xlsをBBBフォルダから検索し、そのbシートのxx、yyをコピーし、本数集計値.xlsの9/3の真下のセルB3にxx、B4にyyとペーストしたいのです) 長々と書きましたが、こんなことができそうな気がするのですが、 どうかご教授の程よろしくお願い申し上げます。

「アルゴリズム」の意味がいまいちよくわかりません。 イメージとしては「プログラム」と言うことでしょうか？ 以前した質問ですが http://okwave.jp/qa4995619.html このようなｖｂａのコードも 「アルゴリズム」と呼べるのでしょうか？ アドバイス宜しくお願い致します。

こんにちは。VBA入門レベルのものですが、質問させてください。 ブックＡとブックＢを開いた状態にし、 ・ブックＡ⇒ＶＢＡを組む＆データ貼付け先 ・ブックＢ⇒データコピー元 ブックＢの特定セル（例：Ｄ１０）からブックＡの特定セル（例：Ｅ１２）にコピー⇒貼付　する方法を探しています。 なお、ブックＢは、ブック名とシート名が都度変わるので、「ブックＡではない方の開いているエクセルファイルからデータをコピーし、ブックＡに貼付ける」の構文にしたいです。 また、コピペの他に数式（イコール）で飛ぶ方式でもかまいません。 この内容でのＶＢＡの記述方法が分かる方、どなたか教えて頂けますでしょうか。 すみませんがよろしくお願いいたします。 ※エクセル2003です。

VLOOKUP関数を使って 商品名をA1に入力すると、コードを検索するようにしています。 VLOOKUP(A1,'商品1'!$A$2:$C$60000,2,0) と入力しているのですが、 商品名によっては、ヒットしたり#N/Aとなったりします。 商品名を間違えて入力していることはないです。 なにか式に足りないものがあるのでしょうか？ それともデータが多すぎなのでしょうか？ それとも商品名が複雑すぎるのでしょうか？ '商品1'のA列に入力されている商品名は ローマ字と数字とハイフンが混ざった商品名です。 並び替えで昇降順にしています。 '商品1'には60000行ほどのデータがあります

kumasanです 久しぶりに必要にかられてVBAを利用することになりました。 Excel 2002 SP3を利用しています 次のようにセル(2,18)にVlookup関数を利用してセル(M2)の値 を 物品.xlsの中に名前（集中）の中から2列目の値を選択させて います Cells(2, 18).Formula = "= VLookup(M2, 物品.xls!集中, 2, False)" 選択はできています セル（M2）の値がみつかれば例えばその値が出ています 今回は"○"を表示させています みつからない場合は、#N/Aとエラー表示されます さて、ここで、このCells(2,18)にカーソルを持っていき その値をhantei（ Dim hantei As Variant)という変数に 入れようと思い下記のように記載しています 　　Range("R2").Select hantei = Str(Range("R2").Select) しかし、ここでhanteiの中身を表示すると セル（M2）の値がみつかっても「true」なかっても「true」と なって います この変数hanteiにより、この行の削除をするか、次の処理に進 むか 判定させたいのですが・・・ どのようにすれば、この判定ができるか教えていただけません か よろしくお願いします。 なお次のようにエラー表示なしにして「true」「false」にし ても 同じ結果でした Cells(2, 18).Formula = "= IsError(VLookup(M2, 集中物品.xls! 集中, 2, False))" よろしくお願いします。