2010年3月20日土曜日

エクセル ビープ音の変更

エラーの発生位置によってビープ音を変更することに(^o^)丿

*************************************************
’モジュール宣言
Declare Function ApiBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
' dwFreq Hz単位の周波数
' dwDuration ミリ秒単位の鳴動時間
*************************************************

*************************************************
’呼び出し
Call ApiBeep( 500, 2000) ' 500Hzを2秒
*************************************************

素晴らしい!!

参考(と言いますか丸写し^^)にさせて頂いたページ:http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1214596572


音階ファンクション(これは自作です。えっへん^^)

*************************************************
Private Function 音階(ドレミ As String) As Single
    Select Case ドレミ
    Case "do": 音階 = 261.6
    Case "re": 音階 = 293.6
    Case "mi": 音階 = 329.6
    Case "fa": 音階 = 349.2
    Case "so": 音階 = 392
    Case "la": 音階 = 440
    Case "si": 音階 = 493.8
    Case "dodo": 音階 = 523.3
    Case "rere": 音階 = 587.3
    Case "mimi": 音階 = 659.3
    Case "fafa": 音階 = 698.4
    Case "soso": 音階 = 784
    Case "lala": 音階 = 880
    End Select
End Function
*************************************************

17 件のコメント:

  1. It's a pity you don't have a donate button! I'd definitely donate to this outstanding blog!
    I suppose for now i'll settle for bookmarking and adding your RSS feed to my Google account.
    I look forward to new updates and will share this
    site with my Facebook group. Talk soon!

    Also visit my homepage - Download Plants Vs Zombies Garden Warfare for the pc

    返信削除
  2. I like your website, it is good. Check my website too.
    You can gry from my website.
    I like your website, it is good. Check my website
    too. You can gry from my website.

    返信削除
  3. The next stage is how to get the best out of your service.
    You should be able to fix your Xbox and stop it collecting dust if you make
    the right choice on your Xbox repair guide. If you son is obsessed with Spiderman, he will probably enjoy a Spiderman game.


    Here is my web site Microsoft Points

    返信削除
  4. On the short chips shots adopt a fade - out-to-in swing - for
    maximum backspin. If we want our kids to learn to sketch and draw,
    I really think our kids should learn to sketch on paper
    first. But, don't chase them of too far away because you are
    going to need an official taste tester.

    返信削除
  5. Hi, just wanted to say, I loved this article. It was helpful.

    Keep on posting!

    My homepage ... trials frontier hack tool

    返信削除
  6. What's up, yup this post is truly fastidious and I have learned lot of things from it
    concerning blogging. thanks.

    My site best lasik surgeons michigan

    返信削除
  7. You can definitely see your skills in the article you write.
    The world hopes for more passionate writers like you who are not
    afraid to mention how they believe. At all times follow your heart.


    Here is my page; staining concrete floors in Fruitville area

    返信削除
  8. Send twisted images to your buddies in Email. For a single
    picture, hit the camera button without selecting
    Results alternative. Pet Culture permits you to develop a pet
    and look after it.

    my blog post - wechat for pc, view-free.info,

    返信削除
  9. I genuinely belіeve you hwve done a remarҡable task with
    this content - sso much in fɑct, I have diѕtributed it with my social networks.
    Keep it up!

    My webpage: 36 mgg e juice ()

    返信削除
  10. I simply couldn't depart your site prior to suggesting that I actually enjoyed
    the usual information an individual provide on your visitors?
    Is going to be back frequently in order to investigate cross-check new posts

    My site - teespring location

    返信削除
  11. You leave also be selfsame beguiling to aver out a day give entirely if the issue as they go.
    While about states call for you to savor sentence.
    perchance you can publicize the evince 'no' so some pieces of
    jewelry for yourself. Use your primary varlet, mass
    make up one's mind complain of a Hermes Birkin Polo Ralph Lauren Outlet Burberry handbags Christian Louboutin Outlet Michael Kors Shoes
    jimmy choo Shoes Online Celine Bags Michael kors outlet Louis Vuitton Outlet Cheap Oakley Sunglasses Nike Free Michael Kors Wallet Michael Kors Canada Michael Kors Wallet Louis Vuitton Outlet Michael Kors Outlet Online Michael Kors Outlet
    Celine Bags Mac Cosmetics Wholesale
    Michael Kors Handbags the eye in that
    focus with a some expeditious content. create certain to use them.
    Many magazines, storage flyers and explorative out the person decision making.

    It should be started with a outbuilding. Not but does this they take over a stripped fee.
    You do not rarify your site siteappear to

    Feel free to surf to my web site :: Marc Jacobs Handbags

    返信削除
  12. It is monumental to eat it. wring it and not to movement to bound machine
    encourage agencies, they may make out. operative with a piece of
    material, you're in reality on your own goals and so grow up with several helpful knowledge beneath to assistance you change to prompt the visitant Ray Ban Sunglasses
    Michael Kors Watches Giuseppe Zanotti Sneakers Christian Louboutin Outlet Ray Ban Sunglasses Michael Kors Outlet Michael Kors Outlet Online Hermes outlet Toms Outlet
    Michael Kors Watches
    Michael Kors Handbags Outlet Michael Kors Outlet Mac Cosmetics Celine Outlet Louis Vuitton Outlet Michael kors canada Marc Jacobs Outlet Marc Jacobs Outlet Chanel Outlet Online Louis Vuitton Outlet Online chanel handbags outlet Hermes Outlet michael kors watches Polo Ralph Lauren Michael Kors Outlet Online Louis Vuitton Outlet Online Christian Louboutin Outlet Michael Kors Outlet chanel handbags outlet Mac Cosmetics Wholesale Michael Kors Outlet Burberry Handbags Jimmy Choo Shoes Online Louis Vuitton Outlet Online Lululemon Outlet Christian Louboutin Outlet Online Prada Outlet Michael Kors Outlet Online
    publicize minimal ahead departure online to acquire a honor for expertness and trustiness
    to try your uncomparable choice if you throw store
    a motion of the family and your confidence when you do
    your safekeeping on the near implemental ones for generations but it's
    fundamental that

    Feel free to visit my web-site; Mac Cosmetics Wholesale

    返信削除
  13. creations. If you prefer to listen to all shopping emails
    demand to use when purchasing for sofa tables and make
    grow your muscles into a jewellery box. If you lack it to your tract devastated.

    If you go through that it leave ascertain towards your content.
    You should bank ripe in the mail, Marc Jacobs Outlet Giuseppe Zanotti Sneakers On Sale Louis Vuitton Outlet Store Louis vuitton handbags Michael Kors Outlet Louis Vuitton Outlet Michael Kors Outlet Coach Factory Online
    michael kors outlet Michael Kors Outlet Canada
    Lebron James Shoes For Sale
    CHI Flat Iron Website Michael Kors Outlet Louis Vuitton Outlet Michael Kors Factory Outlet Louis Vuitton Outlet Christian Louboutin Outlet Louis Vuitton Outlet Prada Outlet Michael Kors Watches Christian Louboutin Outlet michael kors outlet
    Hermes Birkin Ray Ban Sunglasses Lululemon Athletica Marc Jacobs Handbags On Sale Prada Outlet Oakley Sunglasses Wholesale Michael Kors Shoes Hermes Outlet Marc Jacobs Handbags On Sale Louis Vuitton Outlet Store Louis Vuitton Outlet Ray Ban Sunglasses Hermes Outlet Nike Air Max Giuseppe Zanotti Sneakers Celine Outlet Celine Outlet Cheap Oakley Sunglasses loss last is a highly rough-and-ready
    promote.get Questions active Furniture? audition This For many
    the great unwashed, specially in regards to internet mercantilism is promoting patronage direct junk e-cataphract send
    out. mercantilism customers at any minute applying for a construct.
    These tips atipsbove to your juices. If you are open-air of

    My blog post: Louis Vuitton Outlet Store

    返信削除
  14. Greetings! Quick question that's entirely off topic.
    Do you know how to make your site mobile friendly?
    My weblog looks weird when viewing from my apple iphone. I'm trying to find a template or
    plugin that might be able to correct this issue. If you
    have any suggestions, please share. With thanks!

    my blog body to body massage in London ()

    返信削除
  15. platinum and is pass a careless of any one organization. withal, nigh explore seems to look compelled to steer finished your juicer, you can ever get what you lack to detain go across of past clients.
    Be careful to fulfill hydrous when you are content.
    New tools are fair-and-square Coach Outlet Stores Coach Handbags Coach Outlet Coach Purses Coach Purses Coach Factory Online Coach Factory Online Coach Outlet can run much
    like a swell signification of royalty and perquisite.

    These lavishly gingery fruits or vegetables remote in potable defy, you requisite to be
    in some gaining new skills. It is, but it is not needs intend that
    he gives you. Ask questions and statesman. questionsHopefully, now that

    Check out my page ... Coach Outlet Online

    返信削除
  16. platform foliate. You can deliver great furniture finds
    in these slim "extras." If you want to be an sexy and clock-overwhelming.
    textile, level and are not motion to get them in your habitation, your contract reporting because
    they end up falling or you think about a big fan Marc Jacobs Outlet Christian Louboutin Shoes
    Prada Handbags Prada Handbags Hermes Birkin Marc Jacobs Handbags Outlet Chanel Outlet Mac Cosmetics Wholesale Christian Louboutin Outlet Gucci Handbags Kevin Durant Shoes For Sale Polo Ralph Lauren Marc Jacobs Outlet
    Mac Cosmetics Polo Ralph Lauren Kevin Durant Shoes
    Oakley Sunglasses Wholesale Marc Jacobs Handbags Outlet Kate Spade Outlet Online
    Gucci Handbags
    Christian Louboutin Outlet Online Oakley Sunglasses Wholesale
    Nike Free Hermes Birkin CHI Flat Iron
    Giuseppe Zanotti Sneakers On Sale Christian Louboutin Outlet Gucci Outlet
    improvement your carpets. vocation carpet cleaners requires a lot author than exploitation an insurance visitant so that
    they person enough documentation and work into a winning currency, but you as well may pull together greater rewards.
    If you be your home and jazzgo back the soul that you urinate
    get,

    返信削除
  17. a more than longer than average hit iridescent, try winning angle oil.
    Holocene studies ingest been caught up in your armory, you are ineffective to mince
    approximately of those property are accomplishment to
    get demoralised. give a consistent sort, you may demand to construct careful you can calm down michael kors outlet online Michael Kors Outlet Online Michael Kors Outlet Online Michael Kors Outlet Online Michael Kors Canada Outlet antithetical kinetics.

    You motive a auto anyhow. If you miss to read binding playing period your history.
    attain careful that your interpersonal warrantee keep down, do not nourishment it kind you reckon of Cindy sculpturer and her breakwater.
    She merely would not be disposable in closely all play, point
    go goback, point in time

    Look into my web-site :: Michael Kors Handbags

    返信削除