|
途中から見られている方には何のことかわからないへんなブログですが、視力障害者がエクセルの表を作る事が簡単に出来るようなエクセルファイルを作ったので、その製作した過程と方法、それにブログを書きながら検証しもっと良いものを作ろうと思っています。
上記から始まっています。
今回は表の項目と確認とその表を聞きやすくするためセルの結合方法です。セルの結合は作っている下記のファイルでは
ここからダウンロードして試してください。
セルに直接関数を入れて結合させましたが、マクロで出来ないか考えたら今回の方法を思いつきました。
項目は、店名・洗濯機、冷蔵庫、掃除機の４項目
データーを室蘭・登別・伊達の３データーです。
今回のマクロは
'項目数チェック
For i = 1 To 16
If Cells(1, i) = "" Then GoTo 100 Next i 100
a = i - 1 MsgBox ("項目の数は、" & a & "です。") For i = 1 To a b = b & "。" & Cells(1, i) Next i MsgBox (b) '各店の在庫
For i = 1 To 3 b = "" For j = 2 To 4 b = b & Cells(1, j) & "。" & Cells(i + 1, j) & "。" Next j MsgBox (Cells(i + 1, 1) & "の在庫は" & b) Next i End Sub
項目は１６しか作れないようにしているので１６まで
For i = 1 To 16
If Cells(1, i) = "" Then GoTo 100 Next i 始めにiが１なのでCells(1, １)は店名 データがあるので
上に戻りiが２になりCells(1, ２)は洗濯機データがあるので
上に戻りiが３になりCells(1, ３)は冷蔵庫データがあるので
上に戻りiが４になりCells(1, ４)は掃除機 データがあるので
上に戻りiが５になりCells(1, ５)は なデータが無いので
データーが無ければ１００番地に行きなさい。
If Cells(1, i) = "" Then GoTo 100
a = i - 1
iは５なので１減らしてこれでa=４になりました。
次にこの項目数を利用してデーターを結合
項目行のデーターを結合するのが
For i = 1 To a
b = b & "。" & Cells(1, i) Next i 始めにiが１なのでb=""＋。 ＋Cells(1, １)は店名 を結合 b="。店名"
上に戻りiが２になりb="。店名＋。 ＋Cells(1, １)は洗濯機 を結合
b="。店名。洗濯機"
項目数分を繰り返しb="。店名。洗濯機。冷蔵庫。掃除機 ”
'各店の在庫以降はこれの応用です。
上記に今回のエクセルファイルがあります。
マクロを有効にしてファイルが開いたらマクロボタンと表に有るので
そこをクリックしてください。
開いたメッセージボックスの部分を視力障害者のかたが通常使う音声ソフトが読み上げるので表の内容がわかります。句点は通常マルとは読みませんので聞きやすくするために使っています。また結合で１２と３４では１２３４となるので句点をつけることで１２。３４とふたつのデーターとして読み上げてくれます。
データー入力や今回の項目数の確認など組み合わせると視力障害者の方でも表が出来ます。キー操作と頭の中で表が作れる神業のかたがその操作方法をインターネットで公開していました。すごすぎますが、私の考えているのは、どなたでも簡単にパソコンが操作できるようにと思っています。車のオートマチック、テレビのリモコン、携帯電話など便利なものが出来ています。私の尊敬する方は、始めにハートウェアーということを提唱されました。ハードウェアーとソフトウェアーのほかに、これも大事であると言う事ですが、ほんのちょっぴりハートウェアーが出来たかなと思っています。
|
- >
- Yahoo!サービス
- >
- Yahoo!ブログ
- >
- 練習用
コメント（1）
