- ベストアンサー
エクセルで組み合わせ数を表示させる方法
- エクセルで組み合わせ数をプログラミングし、結果を表示させる方法を教えてください。
- ウィンドウの大きさを変更して、組み合わせ数を表示するウィンドウが出ますが、一部の組み合わせしか表示されません。すべての組み合わせを表示させる方法を教えてください。
- エクセルで表示される組み合わせ数が一部しか表示されず、すべての組み合わせを表示させたいです。どのようにしたら良いですか?
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- keithin
- ベストアンサー率66% (5278/7940)
関連するQ&A
- excel 2007
Office 2007 を再インストールして以来、 excel 2007 を使うたびに次のような2つのメッセージが出ます。 (1)excel を開いた直後 「マクロ 'LABELPRINTXLAM!OnRibbonLoad' を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。」 このメッセージは、2~3回OKボタン(エンターキー)を押すと出て来なくなります。 (2)セルに入力した直後 「非表示モジュール modLabel 内でコンパイルエラーが発生しました。」 このメッセージも、1回OKボタンを押すと出て来なくなります。 excel 自体はちゃんと使えているようですが、 メッセージのポップアップが出て来ないようにしたいと思っています。 解決方法をお教え下さい。宜しくお願い致します。
- 締切済み
- その他MS Office製品
- エクセル上でVB6を使っています。
エクセル上でVB6を使っています。 時間のかかる計算をしている最中は、 小さいウィンドウを画面中央に出して、処理中であることを知らせたいです。 MsgBox ("計算中です。")と入れるとOKボタンが表示されます。 これだとOKを押されて、メッセージが消えるので、良くありません。 OKボタンを非表示にして、計算が終わったらメッセージを消すことは出来ませんでしょうか?
- ベストアンサー
- Visual Basic
- javaのプログラミングに関する質問です
javaのプログラミングに関する質問です。 ウィンドウ上のボタンを押すことで 「実行しますか?」のような確認のポップアップが出てきて、選択肢「はい」を選ぶと実行、「いいえ」を選ぶと何もせずに戻る といったプログラムを作りたいときはどうすればいいのでしょうか。
- 締切済み
- Java
- EXCEL VBAをWEB上で実行した場合の終了方法
EXCEL VBAをWEB上で実行し終了する(EXCELを表示しているブラウザを閉じる)方法はありますか? ローカルでEXCELを直接実行した場合は、以下の方法で出来るのですが、Web上では動作しません。 Application.DisplayAlerts = False Application.Quit また、×ボタンでブラウザを閉じようとすると「変更を保存しますか・・・」の確認ウィンドウが表示されてしまいます。 内容を参照させるだけなので、終了ボタンを押したら、変更を保存せずに終了したいのですが、ご存知の方いらっしゃいましたらご教授お願いします。
- ベストアンサー
- Visual Basic
- エクセルのプログラムについて質問です
エクセルのプログラムについて質問です B列 の B2に「b1」、B3に「b2」、B4に「b3」 とします。 C列 の C2に「c1」、C3に「c2」、C4に「c3」 とします。 D列 の D2に「d1」、D3に「d2」、D4に「d3」 とします。 そして、b1=20 、 b2=17 、b3=21 また、 c1=22 、 c2=19 、c3=15 さらに、d1=20 、 d2=18 、d3=19 それらの条件で 「b列から1つ、c列から1つ、d列からランダムに1つずつを選び、その選び出された3つの文字の平均値を 19<x<21 の範囲で選び出す」 とします。 このとき「何通りの組み合わせがあるのか」、その「組み合わせ数」を出すことと、「具体的にどのような組み合わせがあるのか」、その組み合わせを表示したいです。(すべてを表示できるパターンと、例としてコンピューターがランダムに選んだ組み合わせ1つのパターン という2通りの表示の仕方で教えていただきたいです) すごく、難しいことだと思いますが、お力を化していただけ無いでしょうか? よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのフォントについて教えてください。
パソコンのWindows内のフォントフォルダ内にはあるフォントがエクセルやワードでは使用できないので使用できる方法を教えてください。エクセルのフォント変更では一部しか表示していないのです。よろしくお願いします。 Windows98SE、エクセルは98です。
- ベストアンサー
- オフィス系ソフト
- エクセル2000 シート見出し及び水平スクロールバーが隠れている
シート見出しと水平スクロールバーがエクセルウインドウの下に隠れていていじる事が出来ません。 ファイルウインドウ枠がエクセルウインドウ枠より 下側へ長いため隠れています。 (1)エクセルのウインドウは最大化 (2)ファイルウインドウは、左上が固定されており 通常なら見えるはずの右下端のズーム▲ポイントを ドラッグ出来ないためサイズ変更ができません。 (3)ツール-シート見出しは、チェック済みOK (4)ウインドウ-再表示はOKです。 (5)ファイルウインドウの最大表示用の拡大ボタンは 表示されておりません。 すみませんが、どなたかわかる方はいらっしゃいますでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルでテキストデータ貼り付け不可
エクセルでインターネット上のテキストデータを定期的に貼り付けていたのですが、 とつぜん、従来どおり、はりつけようとしたところ、 「結合されたセルの一部を変更することはできません」とポップアップ表示され OKボタンをクリックすると、さらに 「データを貼り付けることはできません」とポップアップ表示され テキストデータ貼り付け不可になってしまいました。 1ファイルあたりの容量限界をこえたことによるものでしょうか? ちなみにエクセルの文字数など仕様の限界はその範囲内におさめているのですが。 ファイルの現時点の容量6.645MB エクセル2002 OS win xp 以上、推定される要因とか対策など教えていただければたすかります。 よろしくおねがいいたしますm(_ _)m
- ベストアンサー
- その他MS Office製品
- エクセルのソルバーについて教えてください
いつもお世話になっています。 エクセルでソルバーを実行すると結果を表示するウインドウのところで「シナリオの保存」というボタンがありますが(2003も2007も同様)、これはどのようなときに使用するのでしょうか? ご存知の方がいらっしゃいましたら教えてくださると嬉しいです。どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA UserFormで困っています。
EXCEL VBA UserFormで困っています。 VBAプログラミングで以下のような現象が起こります。 開発環境 WinXP , EXCEL2003 ブックを起動するとメニューが表示され、そこからボタンを押すとuserform1が表示されるというプログラムなんですが、そのボタンを押してuserform1を起動しようとすると『問題が発生したため、 Microsoft Excel Windowsを終了します。・・・ エラー報告を送信する 送信しない』のメッセージが出て起動できない。 UserForm1.Showのステップで一旦止めてステップモードで続行すると正常に動作します。 過去に似た質問を見つけ、そのアドバイスを元に以下を試してみました。 http://okwave.jp/qa/q2001805.html ・エラーの発生行の特定 userform1.showの前に、userform1.label.visible=falseのように、表示、非表示を切り替える命令を出しており、どうやらその表示命令の行でつまづいている事がわかりました。 表示命令を全て消去し実行したところ、現在までは問題なく起動できています。 ・on timeメソッドで時間差をつける ラベルやボタンの表示、非表示命令行をまとめて、 Application.OnTime Now + TimeValue("00:00:01"), "ラベルボタン表示設定" userform1.show といった形で時間差をつけてみました。 結果として、userform1自体は立ち上がるようになったのですが、時間差で実行される"ラベルボタン表示設定"の実行時に「オートメーションエラーです。起動されたオブジェクトはクライアントから切断されました。」と出てくるようになってしまいました。 ラベルはまだ良いのですが、コマンドボタンの表示、非表示は、誤操作を防ぐ手段として非常に重要です。なんとかエラーを出さずにコード通りに起動する方法はありませんでしょうか。
- ベストアンサー
- Visual Basic
お礼
ありがとうございました!!!!!!! 助かりましたぁぁ!!!!!!!!!
補足
'配列格納(まとめても可) b = Sheets("Sheet1").Range(Cells(2, 2), Cells(Cells(65536, 2).End(xlUp).Row, 2)) c = Sheets("Sheet1").Range(Cells(2, 3), Cells(Cells(65536, 3).End(xlUp).Row, 3)) d = Sheets("Sheet1").Range(Cells(2, 4), Cells(Cells(65536, 4).End(xlUp).Row, 4)) e = Sheets("Sheet1").Range(Cells(2, 5), Cells(Cells(65536, 5).End(xlUp).Row, 5)) f = Sheets("Sheet1").Range(Cells(2, 6), Cells(Cells(65536, 6).End(xlUp).Row, 6)) 'High&Low基準策定 xLow = 19 xHigh = 25 'b For bi = LBound(b, 1) To UBound(b, 1) mystr = b(bi, 1) bVal = str2num_convert(mystr) 'c For ci = LBound(c, 1) To UBound(c, 1) mystr = c(ci, 1) cVal = str2num_convert(mystr) 'd For di = LBound(d, 1) To UBound(d, 1) mystr = d(di, 1) dVal = str2num_convert(mystr) 'e For ei = LBound(e, 1) To UBound(e, 1) mystr = e(ei, 1) eVal = str2num_convert(mystr) 'f For fi = LBound(f, 1) To UBound(f, 1) mystr = f(fi, 1) fVal = str2num_convert(mystr) '平均化 aveVal = Application.WorksheetFunction.Average(bVal, cVal, dVal, eVal, fVal) 'MsgBox (CStr(aveVal)) '判定 If aveVal > xLow And aveVal < xHigh Then 'MsgBox ("OK") ptCnt = ptCnt + 1 mytxt = mytxt & b(bi, 1) & "-" & c(ci, 1) & "-" & d(di, 1) & "-" & e(ei, 1) & "-" & f(fi, 1) & vbCrLf Else: 'MsgBox ("NG") End If Next fi Next ei Next di Next ci Next bi '結果 MsgBox ("計:" & CStr(ptCnt) & "通り") MsgBox (mytxt) End Sub となっております。違うページにアップしてもかまわないのですが。。。。いかがでしょうか?? ぜひ、お願いしますぅ!!!