| |
初心者です。配列変数を勉強しようとしたら、最初からつまづいてしまいました。
どなたか、配列につてご教授願います。
『やりたいこと』
句読点の入っている文章の、句読点間の文字数を取得する。
『教えてほしいこと』
下記コードで（Ａ）（Ｂ）のＭｅｇｂｏｘで確認したところ、正しい値を取得していましたが、1.〜2.の文字数の計算値がうまくいきません。
どうも配列への値の格納方法が間違っているようなんですが、どうしたらいいのか分かりません。
（下記文章でテストしました）
東京、埼玉は雨。神奈川は曇り、山間部では
Option Explicit
Option Base 1
Sub 句読点()
Dim i As Integer, j As Integer
Dim k As String, 句読点 As Integer
Dim 文章 As Integer, 文字数() As Integer
文章 = Len(ActiveCell)
For j = 1 To 文章
k = Mid(ActiveCell, j, 1)
If k = "、" Or k = "。" Then
句読点 = 句読点 + 1
ReDim 文字数(句読点) As Integer
文字数(句読点) = j
' MsgBox 句読点 ' (A)確認用・・句読点の個数
' MsgBox 文字数(句読点) '(B)確認用・・文頭から句読点までの文字数
End If
Next
' （Ｃ）再確認位置
MsgBox 文字数(1) - 1 '1.文頭から最初の句読点までの文字数・・・ＮＧ
For i = 2 To 句読点
MsgBox 文字数(i) - 文字数(i - 1) - 1 '2.句読点間の文字数・・・ＮＧ
Next
MsgBox 文章 - 文字数(句読点) '3.最後の句読点から文末までの文字数・・・ＯＫ
'文字数(i)にしたらＮＧ
End Sub
『結果と原因究明』
(A)と(B)で句読点の個数と、その位置が文頭から何文字目かを確認したところ
文字数（１）は３
文字数（２）は８
文字数（３）は１５
で、正しい値を取得していました。
ところが、1.の計算結果は「−１」で、私が想定した「３−１＝２」という結果が
得られません。2.も同じでした。そこで（Ｃ）の位置に
For i = 1 To 句読点
MsgBox 文字数(i)
Next
を入れて、文字数（ｉ）の内容を確認したところ
結果は ０、０、１５ で
想定した ３、８、１５ は得られませんでした。
最初は、（Ａ）（Ｂ）の値が正常だったので、配列からの値の取り出し方が間違っているのかと思ったんですが、
そもそも正しい値が配列に格納されていないことが分かりました。
ただ、これをどう修正したらいいのか、よく分かりません。
どなたか、ご教授願います。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/5/25(金) 18:40 -
