2017年06月13日
ExcelVBA入門スクロールバーの使用方法
===[PR]=====================================================
月額1,980円〜使えるスマホ【UQmobile】
◇番号そのままお乗換え可能!
◇当サイト限定初期費用&送料無料!
◇0円端末など豊富なラインナップ!
詳しくは↓↓
https://px.a8.net/svt/ejp?a8mat=2TIIN2+9W1A2Q+2CPQ+1BNBJN
=====================================================[PR]===
![](https://www27.a8.net/svt/bgt?aid=170505182598&wid=003&eno=01&mid=s00000010979008011000&mc=1)
![](https://www12.a8.net/0.gif?a8mat=2TIIN2+9W1A2Q+2CPQ+1BP19T)
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
![](http://blogranking.fc2.com/ranking_banner/b_02.gif)
![にほんブログ村 IT技術ブログ ソフトウェアへ](//it.blogmura.com/software/img/software88_31.gif)
にほんブログ村
スクロールバーの使用例
![AXスクロール1.png](/yoshimatsuex/file/undefined/AXE382B9E382AFE383ADE383BCE383AB1.png)
上記の挿入からスクロールバーを選択してシート状に配置します。
![AXスクロール2.png](/yoshimatsuex/file/undefined/AXE382B9E382AFE383ADE383BCE383AB2.png)
プロパティの「LinkedCell」を「F1」にします。
また赤枠の「Max」が「32767」、「Min」が「0」になっていますね。
これは最大値が「32767」で「最小値」が「0」ということです。
![AXスクロール3.png](/yoshimatsuex/file/undefined/AXE382B9E382AFE383ADE383BCE383AB3.png)
デザインモードを解除してスクロールバーの下側を押している状態です。
F1の数値が0から増加していき一番下まで行くと32767になります。
プロパティの「Max」・「Min」の数値を変えることにより変化する数値を設定できます。
これもVBAで実現してみましょう。
![AXスクロール4.png](/yoshimatsuex/file/undefined/AXE382B9E382AFE383ADE383BCE383AB4.png)
Private Sub ScrollBar1_Change()
Range("F1") = ScrollBar1.Value
End Sub
上記内容で実現できます。
![](https://www21.a8.net/svt/bgt?aid=160826403810&wid=001&eno=01&mid=s00000001642004015000&mc=1)
![](https://www10.a8.net/0.gif?a8mat=2NR2G3+DE94S2+CO4+NWJXT)
WordPressやEC-CUBEを簡単ワンクリックインストール!
マルチドメイン対応レンタルサーバー【シックスコア】
![](https://www11.a8.net/0.gif?a8mat=2NR2G3+DE94S2+CO4+NTRMQ)
月額1,980円〜使えるスマホ【UQmobile】
◇番号そのままお乗換え可能!
◇当サイト限定初期費用&送料無料!
◇0円端末など豊富なラインナップ!
詳しくは↓↓
https://px.a8.net/svt/ejp?a8mat=2TIIN2+9W1A2Q+2CPQ+1BNBJN
=====================================================[PR]===
![](https://www12.a8.net/0.gif?a8mat=2TIIN2+9W1A2Q+2CPQ+1BP19T)
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
![](http://blogranking.fc2.com/ranking_banner/b_02.gif)
![にほんブログ村 IT技術ブログ ソフトウェアへ](http://it.blogmura.com/software/img/software88_31.gif)
にほんブログ村
スクロールバーの使用例
![AXスクロール1.png](/yoshimatsuex/file/undefined/AXE382B9E382AFE383ADE383BCE383AB1.png)
上記の挿入からスクロールバーを選択してシート状に配置します。
![AXスクロール2.png](/yoshimatsuex/file/undefined/AXE382B9E382AFE383ADE383BCE383AB2.png)
プロパティの「LinkedCell」を「F1」にします。
また赤枠の「Max」が「32767」、「Min」が「0」になっていますね。
これは最大値が「32767」で「最小値」が「0」ということです。
![AXスクロール3.png](/yoshimatsuex/file/undefined/AXE382B9E382AFE383ADE383BCE383AB3.png)
デザインモードを解除してスクロールバーの下側を押している状態です。
F1の数値が0から増加していき一番下まで行くと32767になります。
プロパティの「Max」・「Min」の数値を変えることにより変化する数値を設定できます。
これもVBAで実現してみましょう。
![AXスクロール4.png](/yoshimatsuex/file/undefined/AXE382B9E382AFE383ADE383BCE383AB4.png)
Private Sub ScrollBar1_Change()
Range("F1") = ScrollBar1.Value
End Sub
上記内容で実現できます。
![](https://www10.a8.net/0.gif?a8mat=2NR2G3+DE94S2+CO4+NWJXT)
WordPressやEC-CUBEを簡単ワンクリックインストール!
マルチドメイン対応レンタルサーバー【シックスコア】
![](https://www11.a8.net/0.gif?a8mat=2NR2G3+DE94S2+CO4+NTRMQ)
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/6366421
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック