ベストアンサー Excelに音 2003/02/26 21:32 (A)*(B)>100 答えのセルが100以上の時にＢｅｅｐおんを自動的になる様にしたいのですが・・・ みんなの回答 （1） 専門家の回答 質問者が選んだベストアンサー ベストアンサー maruru01 ベストアンサー率51% (1179/2272) 2003/02/27 09:55 回答No.1 こんにちは。maruru01です。 VBA（マクロ）でするしかないと思います。 VBAで、ビープ音は、Beepステートメントを実行して鳴らします。 If Range("A1").Value >= 100 Then Beep End If こんな感じです。 質問者 お礼 2003/03/01 19:05 ありがとうございます。 ＶＢＡってむずかしいですね！ 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ [技術者向] コンピュータープログラミング・開発Visual Basic 関連するQ&A かなりやっかいなんですが、Ｅｘｃｅｌに音 条件で音をだすのは出来たんですが、 Celｌs（1、1）.Ｖａｌｕｅ＞100 Then Ｂｅｅｐ ・・・みたいな。 セルに数字を入れれば（Ｅｎｔｅｒをおせば）鳴るんですけど、 このセル、自動的に数字が入るようになっているんです。 今まで、IF関数を使って”記号”とか出していたので、当然鳴ると思っていたのですが・・・鳴らないんです。 ENTERをおしたようにセルに入ったデーターに反応させる方法ないでしょうか？ Excel VBAでＢＥＥＰ音を鳴らす方法を教えて Excel VBA初心者です。 Ｗorksheetの９行目 ”Ａ９からＡＺ９”間のいづれかのセルに”当たり”の文字があれば、１０秒間、音の大きさも調整できるＢＥＥＰ音を鳴らす方法を教えてください。 使用環境は、 Win8.1でEXCELは2010を使用しています。 （追伸） なお、もし可能ならば、 同様に 9行目（Ａ９：ＡＺ９）のいづれかのセルに ”当たり” があれば ”ファンファーレ”のような【効果音】をならし、 ”はずれ” があれば ”Beep音”を鳴らす方法がわかれば ”ＢＥＳＴ回答” に選ばせていただきます。 エクセルで出来ますか？ こんにちわ 一つのセルに計算の答えが最高１０にして、次のセルも最高１０とそれ以上の数はその次のセルに分ける事が出来るでしょうか？ たとえば 答えが２５の場合 A１セルに１０ B2セルに１０ C1セルに５、答えが１５の場合 Ａ１セルに１０ Ｂ１セルに５と表示させたいのです 又 答えが７の場合 Ａ１セルに７ Ｂ１セルには何も表示されない と言う風にしたいのですが可能でしょうか。 ネットワークエンジニアとは？技術職の未来を考える OKWAVE コラム エクセルで音を鳴らす エクセルに為替の数値をリアルタイムで入るようにしております。（Ｄ1とします。） そして、その数値がＡ1以下、またはＢ1以上になった時、ビープ音が なるようにしたかったので、初心者なりに下記のように入れてみました。 Private Sub Worksheet_Calculate() If Range("D1") >= Range("B1") Or Range("D1") <= Range("A1") Then Call Beep(500, 200) End If End Sub これでエクセルを起動すると「実行時エラー13 型が一致しません」 と出てしまいます。 デバッグを押すとIf Range("D1") >= Range("B1") Or Range("D1") <= Range("A1") Then のところが黄色くなっています。 デバッグではなく終了と押すと普通に作動はするのですが、 毎回実行時エラーになるので辛いです。 どの部分を訂正すればよいのでしょうか。 よろしくお願いいたします。 ExcelのVBで音を鳴らしたい ExcelのVBを始めたばかりのものです。計測器をGPIBで接続して自動計測を行おうとしていますが、計測終了を知らせるため、音を鳴らそうと思っています。N88basicではBeepで簡単に音を鳴らせたのですが、ExcelのVBではBeepで音が鳴りません。音を出す方法をご教示ください。 PC Dell SX280 Excel XP OS XP Pro GPIB Agilent USB→GPIB VISA使用 エクセル 関数で出来ますか？ こんにちわ 一つのセルに計算の答えが最高１０にして、それ以上の数は別のセルに分ける事が出来るでしょうか？ たとえば 答えが１５の場合 Ａ１セルに１０ Ｂ１セルに５と表示させたいのです 又 答えが７の場合 Ａ１セルに７ Ｂ１セルには何も表示されない と言う風にしたいのですが可能でしょうか。 エクセルでの、関数を教えてください。 エクセルでの、関数を教えてください。 A1セルの数値の条件に応じた計算結果をB2セルに自動表示させたいです。 A1セルの数値が0～499の時は、B2セルに「7500」と表示 A1セルの数値が500～1999の時は、B2セルに「A1*15」の計算結果を表示 A1セルの数値が2000～3999の時は、B2セルに「A1*14」の計算結果を表示 A1セルの数値が4000～4999の時は、B2セルに「A1*13」の計算結果を表示 A1セルの数値が5000～7888の時は、B2セルに「A1*11」の計算結果を表示 A1セルの数値が8000～9999の時は、「A1*9」の計算結果を表示 A1セルの数値が10000以上の時は、「A1*8」の計算結果を表示 詳しく教えていただけると助かります。 よろしくお願いします。 エクセルについて エクセルの使い方を教えてください。 例えばＡ１からＪ１０までデータが入力されているとして、 Ａ２０のセルに「＝Ａ１」と入れるだけで、 Ｂ２１のセルに自動的に「Ｂ１」が出るようにすることは出来ますでしょうか？ 後から変更でＡ２０のセルに「＝Ａ５」と入れるだけで、 Ｂ２１のセルに自動的に「Ｂ５」が出るようにＢ２１に反映されるようには出来ますでしょうか？ EXCELの計算結果によって音を出したりはできますか？ こんにちは。 エクセルの計算結果の数値が一定以上ならサウンドを出したりさせる方法はありませんでしょうか？ 例えば、C1=A1-B1 の様な計算式を設定しておくとして、C1の数値が10以上なら音を出して知らせる、というような事をしたいと思っています。 A1 B1 C1 100 80 20 ←この場合計算結果のセルC1の数値が10以上なので音が出る EXCELの標準機能だとできないと思うのですが、何かしらの方法を使って実現することはできますでしょうか？ エクセルで2つの条件から答えを出す エクセルで2つの条件から答えを出す方法があるでしょうか？例えばA1のセルに東京 B1のセルに大阪とプルタブで選択するとC1に自動的に10,000円。A1のセルに東京 B1のセルに京都とプルタブで選択するとC1に自動的に12,000円。数字は50種類くらいを最初から設定。どなたか、よろしくお願いします。 Excel：列中に特定の文字列を表示するセルが出たらBeep音を鳴らす 商品の品番の確認作業にエクセルを使っています。 作業の効率化にエクセルVBAを使いたいのですが、うまくいきません。 具体的な使用目的は以下の通りです。 納品された商品には製造メーカーのバーコードがついています。それをエクセルに読み込んで予定通りの商品であるか確認作業を行います。 まず、エクセルシートのA列にメーカーコードを入力しておきます、B列のセルをアクティブにした状態でメーカーのバーコードを読み取ります。するとセルにメーカーコードが自動入力されます。この文字列がA列の文字列と一致した場合にはC列のセルにOKの文字が出るように設定しています。コードが一致しない場合はNGが出ます。 現在はOKかNGかを目で確認しているのですが、商品数が多いので、NGの場合にBeep音が出るようになっていれば作業が早くなります。 過去の質問例を調べて、VBAのAMI関数を使うとBeep音を鳴らせることはわかりました。たとえば、セルC1にNGと表示された場合にBeep音を鳴らす、というところまではできたのですが、列CのいずれかのセルにNGと表示された場合にBeep音を鳴らす、という設定ができません。 わかる方アドバイスお願いします。 ちなみに、セルC1にNGと表示された場合にBeep音を鳴らすには以下のように設定しました。 標準モジュール Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long シートのモジュール Private Sub Worksheet_Change(ByVal Target As Range) If Range("C1") = "NG" Then Call Beep(2000, 500) End If End Sub エクセルについて エクセルについて Ａ Ｂ １ あ ９ ２ い ２ ３ え １ ４ お ５ ５ あ ７ ６ あ ２ ７ う ４ ８ え ３ 「Ａ１」「Ａ５」「Ａ６」セルの「あ」に対する「Ｂ１」「Ｂ５」「Ｂ６」セルの 合計(ここでは１８）を、別セル（例えば「Ｃ１」セル）に自動的に計算するには どうしたらいいんでしょうか？ AIは使う人の年齢や市場にも影響する？人工知能の可能性 OKWAVE コラム エクセル・マクロについて 以下のマクロはセルA1～A100にて1が表示されると音(Beep)が鳴るというものです。これを下記(1)(2)ができるように修正したいです。ご教示お願いします。 (1)音(Beep)と同時にセルA1～A100のどのセルにて1が表示されたかわかるようにしたいです。メッセージボックスなどにて表示させるにはどのように修正すれば良いですか？ 例.A12で1が表示されたら音が鳴りメッセージボックスにA12と表示される。続いてA55で1が表示されたら音が鳴りメッセージボックスにA55と表示される、みたいに・・・。 (2)音がBeepですが、これ以外に音を変更させることは可能ですか？ 音は何でもいいです。（ピーとかポロンなど） ※このマクロはシート右クリック→コードの表示で開いた所に打ち込んでいます。 Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Variant Dim r As Range Dim c As Variant On Error GoTo EndLine i = Null Set r = Target.DirectDependents For Each c In Range("A1:A100").Cells If Not Intersect(r, c) Is Nothing Then i = c.Value Exit For End If Next c Application.EnableEvents = False If i = 1 Then Beep End If Set r = Nothing EndLine: Application.EnableEvents = True エクセル関数で計算の答えをわけたい。 普通の引算で、答えがマイナスの場合は一つのセルの中に、プラスの時は別のセルに出すことは可能でしょうか？ もし、A1, 300 - B1, 350 は- 50, この答えはA2 にでるように。逆にA1, 350 - B1 300 は50, この中に時の答えはB2 にでるようにしたいのですが、何か方法を知ってる方がいましたらよろしくお願いします。 エクセルで音を出したい エクセルである数値になった時に音を出したいのですが・・・ 過去の回答を参考にしてみたのですが、（NO.4） http://oshiete1.goo.ne.jp/qa4235161.html これでたしかに音は出るのですが、私の場合、A3のセルにはA1-A2という数式をいれており、A1とA2には他のサイトから為替の数値をリアルタイムで入るようにしております。その為、エンターを押さないのでA3が希望の値になっても音が鳴ってくれません。 エンターなどを押さなくてもA3の値が希望の数値になった時、音がなるようにはできないでしょうか。 よろしくお願いいたします。 エクセルは2002です。 Excelでちょっと面倒な関数式なんですけど・・・ 私はwindowsXPのOSでExcel2003を使用しています。 ちょっと面倒な表を頼まれてしまって困っています。 例えば、A1のセルに1143,250などの金額を入力するとB1のセルに 430,000と表示されるようにしたいのですが・・・A1のセルの金額の38 ％で出た答えから千円以下切り捨てをしている金額です。 出来ればその％も別のセルに入力すれば自動で変わると便利です。 38％の時だけではなく40％の時もあるので・・・ 表現が分かりにくいかも知れませんけど、詳しい方おられましたら よろしくお願いします。 エクセル２０００の計算式について エクセル２０００の計算式について Ａ１に入力する値が、5000未満の時→Ｂ１セルに、0 が Ａ１に入力する値が、5000以上10000未満の時→Ｂ１セルに、500 が Ａ１に入力する値が、10000以上15000未満の時→Ｂ１セルに、1000 が Ａ１に入力する値が、15000以上20000未満の時→Ｂ１セルに、1500 が Ａ１に入力する値が、20000以上25000未満の時→Ｂ１セルに、2000 が 表記されるような、Ｂ１セルの「計算式」を教えていただけませんか？ 「ＩＦ関数」を組み合わせる事で解決するのでしょうか？ 関数の組み合わせ方法が、解りません… Windwos2000でBEEP音を止めたい！ 普通、Windows2000ではBEEP音が出ないと思うのですが、 ある時から急にエラー時などにBeep音がなるようになりました。 この音を止めたいのですが、どなたか知っていませんでしょうか？ よろしくお願いします。 スピーカーはささっていません。 エクセルにおいて、０が、－０と表示されてしまう 数式の入ったセルで、数式は単純に、A-B というものですが、その答えが０の時に、他の列には０と出るのですが、あるセルにだけは、－０と出るのです。どうしてなのでしょうか？よろしくお願いします。 エクセルの関数について 8通りの場合が考えられて その中で該当する答えを入力するようにしたいのですが 私では分かりません。 1つ目 D1セルの値がE1セル値より5枚以下少なく 且つ G1セルの値の数字がプラスの時 以上の時は 結果Aとする 2つ目 D1セルの値がE1セル値より5枚以上少なく 且つ G1セルの値の数字がプラス10点以上の時 以上の時は 結果Bとする 3つ目 D1セルの値がE1セル値より少なく 且つ G1セルの値の数字がマイナス10点以内の時 以上の時は 結果Aとする 4つ目 D1セルの値がE1セル値より少なく 且つ G1セルの値の数字がマイナス10点以上の時 以上の時は 結果Cとする 5つ目 D1セルの値がE1セル値より多く 且つ G1セルの値の数字がプラスの時 以上の時は 結果Dとする 6つ目 D1セルの値がE1セル値より5枚以上多く 且つ G1セルの値の数字がマイナス10点以内の時 以上の時は 結果Eとする 7つ目 D1セルの値がE1セル値より多く 且つ G1セルの値の数字がマイナス10点以内の時 以上の時は 結果Cとする 8つ目 D1セルの値がE1セル値より多く 且つ G1セルの値の数字がマイナス10点以上の時 以上の時は 結果Fとする このときに、H1セルに8つの答えの中から該当する物を選び結果AからFを自動的に入れるようにしたいのですが、H1にはどのような関数を入れれば良いでしょうか？ 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市（長野県）在住でスキーやスノボをする方の用具 カテゴリ [技術者向] コンピューター プログラミング・開発 Microsoft ASPC・C++・C#CGIJavaJavaScriptPerlPHPVisual BasicHTMLXMLCSSFlashAJAXRubySwiftPythonパフォーマンス・チューニングオープンソース開発SEOスマートフォンアプリ開発その他（プログラミング・開発） カテゴリ一覧を見る OKWAVE コラム 突然のトラブル？プリンター・メール・LINE編 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ 友達って必要？友情って何だろう 大震災時の現実とは？私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ！負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
ありがとうございます。 ＶＢＡってむずかしいですね！