ja7awu の回答履歴

一枚のシートに動的に複数のコンボボックスとコマンドボタンを生成しようとしています。 標準モジュールのループでコントロールを生成していますが、一周は上手く回るのですが、２週目から コンボボックス作成MakeComboの中のここでおちると記載している部分でエクセルのアプリケーションエラーに なってしまい、エクセルが落ちてしまいます。 With clsExcel.objWs 'コンボボックスの位置を指定 Dim cmbPos As Range Set cmbPos = .Range(.Cells(k, 4), .Cells(k, 4)) 'コンボボックスを作成 Set m_objOLE_C = .OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False,DisplayAsIcon:=False, _ Left:=cmbPos.Left, Top:=cmbPos.Top, Width:=63, Height:=15) End With Dim objCmb As ComboBox Set objCmb = clsExcel.objWs.OLEObjects(m_objOLE_C.name).Object objCmb.Locked = False With objCmb '--コンボボックスに初期値をセット .AddItem "計", 0 .AddItem "推", 1 .AddItem "確", 2 .AddItem "積", 3 '-------------------------------------------- ' For j = 0 To 3 ' If strData = .List(j) Then ' .ListIndex = j '<-----ここでおちる ' Exit For ' End If ' Next j '-------------------------------------------- End With Set cmbPos = Nothing Set objCmb = Nothing Set m_objOLE_C = Nothing End Sub

アクセス2000　初心者です。 [伝票テーブル.TBL] にデータがあります。　フィールド　は　 [日付]　と　[売上] です。 [日付] について　年別でなく　年度別の　売上　合計　と　件数　を　集計　をしたいのです。（４月１日から３月３１日まで） （1）レポートを使う場合 ウイザードを使って、グループレベルを　[日付] にする。そこで　グループ間隔の設定　の中に、"年"　と　"四半期"　しかありません。　"年度"　がないので、困っています。 （２）クエリを使う場合 選択クエリで　年度　の　式: を作ってみようとして年度: if(month([日付])<4,year([日付])-1989,year([日付])-1988）などと、何も分からずにやってみましたが、予想どおりうまくいきませんでした。 関数は、何を使うのでしょうか？ [ とか　" が間違っていますか？ これで、できた選択クエリ　を　[年度]について、クロス集計クエリウイザードで処理したらできるのではないかと思っていますが、間違いでしょうか？もっとよい方法があるでしょうか？ よろしくお願い致します。

EXCEL2002のマクロについて教えて下さい。 元々はEXCEL97で作成したファイルなのですが、EXCEL97、2000上では不具合はないのですが、2002になるとシート全体が選択された状態で画面が固まったようなメモリ不足のような状態に陥ってしまいます。ちなみにマクロ処理はオープン時に行っています。 ================================================ Workbooks("ファイル名").Sheets("シート名").Select ================================================ 上のようなシート全体を指定する部分が原因らしく、この命令（複数）をコメントでつぶすと正常に処理されます。 （上記命令をコメントでつぶしているため一部の処理は未処理） 原因はEXCEL2002の不具合でしょうか。パッチが出ていたりするのでしょうか。 何度もシートを選択しているのが悪いのでしょうか？？ しかし97、2000では問題ありませんでした。 2003ではほかの命令を使用しなくてはいけないのでしょうか？？ わかる方教えてください。宜しくお願い致します。

エクセルのツールバーなど、一切が消えてしまい、再表示できなくなってしまいました。 ファイル　編集　ツール　などの表示も消えました。 画面に表示されるのは、ワークシートの行と列の部分だけです。 元に戻す方法はないのでしょうか？

sheet1，sheet2，sheet3とあります。 そのうちsheet3だけを毎回「data.csv」のcsv形式で保存して画面を閉じ、 元のWorkbookは上書き保存しつつ画面は閉じないようなマクロを作成したいのですが。 よろしくお願いします。

お世話になります。 タイトルのままなんですが、 ＶＢＡでフォルダのフルパスを取得したいのですが出来るでしょうか？ ファイルのフルパスは FN = Application.GetOpenFilename で取得出来たのですが 同じ様に　ダイアログから選択する様に出来るでしょうか？

こんにちは。皆さまのお力を貸してください！！ 会社のパソコンで使っているAccessについてです。 今まではファイル→外部データの取り込み→インポートでファイルの種類をExcleにするとインポートできたのですが、何故かこのファイルの種類の中にExcleが出てこなくなってしまったんです。他にもテキストファイルやHTMLドキュメントもありません(もう一台のパソコンで比べてみました)。 再インストールをやってみましたが状況は変わりませんでした。Access初心者の私に考えつく方法はこれくらいしかなかったのですが。 何とか元のようにするにはどうしたらよいのでしょうか？ ちなみにOSはWin98でOffice97を使っています。 何とぞよろしくお願いします。

こんにちは。 こんなことができないかなと思うのですが、できないのでしょうか？ たとえば、表題に書いたように、その列に入力する数字はすべてがxxxx000というように、必ず最後に０が３つつくというような場合、たとえば、２５０００を入力したかったら、25と入力するだけで、そのセルの値が自動で25000になるというような設定はできないでしょうか？ もちろん、四則演算なので、たとえば、A1に25と打ってとなりのB1に=A1*1000と入力しておけば、そしてそれをずっとコピーしておけば、A列に数字を入力すれば、Ｂ列にその数字に000をつけたものが表示されるというのはわかるし、まぁ、それでもかまわないじゃないか、なにが文句があるんだと言われると、返す言葉もないのですが。。 でも、もし方法があるのなら、知りたいのです。 教えてくださいませ。よろしくお願いします。

2,222,222.22の数字があったとします。 小数点以下で、２桁まで表示したいのですが、でも、小数点以下が、１位、２位で、「0」の場合は、表示したくありません。 先の質問で、書式を、「0.？？？」のアドバイスをもらいました。これで、一応出来るのですが、整数の場合、「．」が付きます。 まあ、これぐらいは、しょうがないのですが、千の位の「，」がないので、付けることは、出来ないでしょうか？ したいことは、 2222222.　→2,222,222. 2222222.02→2,222,222.02　　です。

Excel2000をWindows98SecondEdition上で使用しています。 久しぶりにexcelを使ってみたところ、おかしな事が起こりました。新規作成したシートや過去に保存したファイルを開いてセルに数値を打ち込むと、なぜか一桁小さい数値が入力されてしまいます。例えば1024を入力すると102.4になってしまいます。どのセルに数値を打ち込んでも同じことが起こってしまいます。 初期設定を故意に変更したことは今までありません。セルの書式設定の表示形式は標準のままです。 よろしくお願いします。

こんにちは。 こんなことができないかなと思うのですが、できないのでしょうか？ たとえば、表題に書いたように、その列に入力する数字はすべてがxxxx000というように、必ず最後に０が３つつくというような場合、たとえば、２５０００を入力したかったら、25と入力するだけで、そのセルの値が自動で25000になるというような設定はできないでしょうか？ もちろん、四則演算なので、たとえば、A1に25と打ってとなりのB1に=A1*1000と入力しておけば、そしてそれをずっとコピーしておけば、A列に数字を入力すれば、Ｂ列にその数字に000をつけたものが表示されるというのはわかるし、まぁ、それでもかまわないじゃないか、なにが文句があるんだと言われると、返す言葉もないのですが。。 でも、もし方法があるのなら、知りたいのです。 教えてくださいませ。よろしくお願いします。

Win98SE／ACCESS2000を使っています。 仕事用の入力フォームをさくせいし、そのフォームが起動時にたち上がるように設定をしました。 そのフォームのウィンドウが常に小さいウィンドウで開かれるのですが、最大化の状態で開かれるようにしたいのですが、方法はあるのでしょうか？

ものすごく基本的な質問です。 エクセルの表の年月日欄に、西暦で入力したいのに、手元には昭和・平成の元号の資料しかない時、元号のまま入力しても、セルにはちゃんと西暦が表示されたことがありました。 これでいいんだと思い、次の行に移ったところ、今度は平成のまま表示されてしまい、困ってしまいました。 多分、関数の使い方がわかっていないおバカな自分のせいだな、とは思うのですが、どなたか教えて下さい。

エクセルで２つのテキストボックスがあります。 ひとつは行を数値で入力。 もうひとつは列をアルファベットで入力。 列のアルファベットを数で表示したいのです。 （例） 行のテキストボックスに3 列のテキストボックスにAAと 入力してボタンを押すと MSGBOXで(3,27)と表示させたいのですが どうすればいいのでしょうか？

この数日、Excelファイルをダブルクリックして開くと、 同時に、新しいBOOK1.xlsというファイルが作成されてしまいます。 どうしてでしょうか？ 何か操作をした覚えはないのですが・・・・ Windows XP,Excel2000です。 よろしくお願いします。

お世話になります。 タイトルのままなんですが、 ＶＢＡでフォルダのフルパスを取得したいのですが出来るでしょうか？ ファイルのフルパスは FN = Application.GetOpenFilename で取得出来たのですが 同じ様に　ダイアログから選択する様に出来るでしょうか？

あんまり詳しくないので表現がわかりずらかったらすみません。 昨日まで開けたExcelのファイルの内１つだけが開けなくなってしまいました。ダブルクリックして開こうとするとExcelは開くんですがファイルが開きません。非常に手間のかかった資料なので何とかして元に戻したいです。他のファイルは問題なく開きます。皆様よろしくお願いします。

ひとつのエクセルブックに複数のワークシートがあって、それぞれのシートの見出し(デフォルトでsheet1とか2とか入っているところです)に名前をつけています。(例)東京支店、名古屋支店、大阪支店...等 今、シートの順番が作成順なのですが、これをシートの見出しの文字から、一発で昇順や降順に並べ替える方法はありますか? 参考書によると手作業では１枚ずつシートの順番の並べ替えができるようですが、シート枚数が多いためお尋ねしています。 よろしくお願いしします。

エクセル２０００で名簿を作成し、それぞれ誕生日を「Ｈ２．４．１２」のように日付書式で入力しています。名簿順はランダムです。 オートフィルタで、たとえば今日（４月１２日）誕生日の人を抽出するのに、「＊４．１２と等しい」と入力しても抽出されません。「＊１１以上　アンド　＊１３以下」とやっても駄目です。 特定年月日の人を抽出する時は、生年月日を入力すればいいのですが、今日（４月１２日）が誕生日の人を抽出する方法を教えていただけないでしょうか。 出来れば、たとえば４月生まれの人だけ抽出する方法も併せて教えていただければありがたいです。

小数点の切り捨てをしたくてクエリーで 以下の計算をしてみました。 =Int([個数]*[単価]) ところが以下の数値で計算させると結果が 50232となると思うのですが50231となってしまいます。 数量：460　単価：109.2 結果：50231（電卓で計算すると50232） 結果が小数点になるときは問題ないようです。 使い方が間違っているのでしょうか。 こういう場合Int関数を使うのが誤りなのでしょうか？ だとしたら他に当てはまる関数があるのでしょうか？ ちなみにテーブルの定義としては 数量：長整数型（小数点以下桁数０） 単価：単精度浮動小数点型（小数点以下桁数０） となっていますが小数点は表示されています。