入力ボックスを表示する

0
    JUGEMテーマ:PC関連

    ユーザーに入力させるダイアログを指定のX・Y位置に表示します。
    デフォルト値は「0」としました。

    Sub Sample79() 
    Dim I As Integer
    I = InputBox("数値を入力して下さい", "数値", 0, 2000, 1000)
    If I = 0 Then Exit Sub
    MsgBox "入力値は「" & I & "」です"
    End Sub
     

    広告リンク


    コメント
    コメントする








       
    この記事のトラックバックURL
    トラックバック



    calendar

    S M T W T F S
     123456
    78910111213
    14151617181920
    21222324252627
    28293031   
    << July 2019 >>

    スポンサードリンク

    広告リンク

    広告リンク

    selected entries

    categories

    archives

    recent comment

    • 互換性チェックのメッセージが表示される
      salomon speedcross
    • 列記号の上、行番号の横に+や-の記号が表示されるようになった
      stussy clothing
    • 「2017年 窓の杜大賞」候補としてノミネート
      levis jeans
    • 数値を小数点位置で揃えるには(その1)
      Levis
    • 入力後矢印キーで修正すると入力モードが解除される
      stussy sweatshirt
    • 2016年間総合ダウンロードランキング100位以内
      lebron shoes
    • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
      salomon shoes
    • 画面上は色が付いているのにカラーで印刷できない
      nike air max 90
    • プレビューウィンドウを表示していると不具合が発生する
      pandora jewelry
    • ユーザー定義関数のコメントを表示する
      yeezy boost 350

    links

    profile

    search this site.

    others

    mobile

    qrcode

    recommend

    powered

    無料ブログ作成サービス JUGEM

    本日 昨日