![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VB初心者です。 Excelからデータをグリッドに取り込んでグリッドで計算しているのですが、x(i, j) = MSFlexGrid1.TextMatrix(i, j)
の文がいろいろ入力してみたのですが、エラーが出てしまいます。
それと計算するときに最初のセルを(3,3)などにしたい時にどうすれば良いのかわかりません。 教えていただければ幸いです。よろしくお願いします。
Dim goukei(10) As Double
Dim x(20, 10) As Double
For i = 1 To 20
For j = 1 To 10
x(i, j) = MSFlexGrid1.TextMatrix(i, j)
Next j
Next i
For j = 1 To 10
goukei(j) = 0
Next j
For i = 1 To 20
For j = 1 To 10
goukei(j) = goukei(j) + x(i, j)
Next j
Next i
For j = 1 To 10
Text1.Text = goukei(j)
Next j
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
VB6ですか?
こういう場合エラーメッセージをちゃんと書きましょう
たぶん「型が一致しません」だと思うのですが・・・
TextMatrix(i, j) で得られるのはString型の値です。
代入先がDouble型ですので数値に変換できなければ上記のエラーが発生します
Private Const OffsetR = 3
Private Const OffsetC = 3
Private InText as String
Dim goukei(10) As Double
Dim x(20, 10) As Double
For i = 1 To 20
For j = 1 To 10
InText = MSFlexGrid1.TextMatrix(i + OffsetR, j + OffsetC)
'InTextが数値に変換可能か調べる
If IsNumeric(InText) Then
x(i, j) = CDbl(InText)
Else
x(i, j) = 0
End If
Next j
Next i
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのクエリの値を変換(代入...
-
vba 時間の引き算 例えば 15:00...
-
Designer.vbは直接コードをいじ...
-
VBAでOutlookを終了させたい Ex...
-
印刷要求順番と印刷出力順番が...
-
Windows上のプログラム。「予め...
-
PDFファイルを印刷し終了するには
-
メディアプレーヤーの情報をE...
-
VB.NETでSPREADの設定方法
-
Visual Studio 「AnyCpu」について
-
VBSで起動したアプリが前面表示...
-
一通ずつ処理したい(アウトル...
-
デザイナの表示(Visual Studio...
-
VBAで不特定枚数印刷をしたいで...
-
VBでExcel印刷する時のプリンタ...
-
Windowsの起動時間
-
"ctrl" + "f" を、ボタンを押し...
-
VB5で依存ファイルが最新で...
-
OLEPRO32.DLLが見つかりません
-
Javaアプレットを起動するJREの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのクエリの値を変換(代入...
-
画像を二次元フーリエ変換
-
カラーコード 濃くしたい
-
経過日数を調べたい
-
VB2010で、時刻と時間の計算に...
-
電卓の作成 VB
-
DateDiff関数の怪!?
-
VBで時間計算の方法
-
Matlabで群遅延特性
-
VB2013での時間帯判定で困って...
-
擬似マインスイーパー
-
秒数を入力すると○時間○分○秒と...
-
Visual Basicで多角形を描くプ...
-
matplotlibで任意の角度の円弧...
-
ウェーブレット変換に関して
-
VBの時間残計算プログラム
-
プログラム作成 計算
-
時間領域と周波数領域
-
階乗の逆数を計算するFunction...
-
FORTRANの課題
おすすめ情報