![](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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画像を二次元フーリエ変換
-
VBの時間残計算プログラム
-
Accessのクエリの値を変換(代入...
-
vba 時間の引き算 例えば 15:00...
-
Visual Studio 「AnyCpu」について
-
Designer.vbは直接コードをいじ...
-
タスクスケジューラでPerlが動...
-
C++初心者です。 debug asserti...
-
フォームの最前面が効かない
-
VB.Net リビルド 意味不明なメ...
-
アウトルックが起動しているか...
-
Visual Basicでの平方関数について
-
VBAでOutlookを終了させたい Ex...
-
EXCEL VBAから他アプリケーショ...
-
「読み込み違反」が起きたとき...
-
意味不明の実行時エラーで困っ...
-
Windows10のVBAでDirectX 8が使...
-
vbaでPDFファイルが印刷されない
-
Windows PowerShellでC言語を実...
-
Windows上のプログラム。「予め...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB2013での時間帯判定で困って...
-
matplotlibで任意の角度の円弧...
-
経過日数を調べたい
-
Accessのクエリの値を変換(代入...
-
カラーコード 濃くしたい
-
秒数を入力すると○時間○分○秒と...
-
電卓の作成 VB
-
画像を二次元フーリエ変換
-
c言語またはVBのSin Cos Tan
-
C言語のプログラム
-
Access2000で電卓プログラム。
-
2進数を10進数にする方法
-
Excelで文字を数値に変換する方...
-
VB2010で、時刻と時間の計算に...
-
階乗の逆数を計算するFunction...
-
あと何日or何日目?を計算する方法
-
擬似マインスイーパー
-
自動車ローンの計算式について
-
世界測地系から東京測地系へ変換
-
単位計算のアルゴリズム
おすすめ情報