Variant の使い方について

VBA初心者です。
VBAのプログラミングについて質問があります。

以下のプログラムを作ってみたのですが、
下の２行の部分で問題が起こっているらしいです。

具体的には

実行時エラー'13':
型が一致しません。

というエラーです。

本当にどうすればよいのかわからず困っています！

ご回答お願いします。

VBA
1Dim result_x As Variant
2                Dim result_y As Variant
3                
4                
5                result_x = select_helper(x)
6                result_y = select_helper(y)
7      
8                Dim i As Integer
9                
10                For i = 1 To 3
11                    Dim cellx As Integer
12                    Dim ii As Integer
13                    ii = i - 1
14                    Dim celly As Integer
15                    
16           //以下の2行でエラーが出ているらしいです。
17                    cellx = CInt(result_x(ii))
18                    celly = CInt(result_y(ii))
19           //ここまでの２行です。
20                    
21                    Cells(cellx + 5, y) = 絞り込み出力(CStr(Cells(cellx + 5, y)), i)
22               
23                    Cells(x + 5, celly) = 絞り込み出力(CStr(Cells(x + 5, celly)), i)
24                    Next i

VBA
1Private Function select_helper(x As Integer) As Variant

行動規範の内容に同意します

回答1件

ベストアンサー

select_helper の関数内は具体的にどんな処理をしていますか？
CInt の結果がエラーになるということで、result_x もしくは result_y が数値変換できない文字になっているのではないでしょうか？

ブレイクポイントを置いてデバッグするか Debug.Print を使ったりして、result_x , result_y の中身を確認してみましょう

実際の処理では、事前にIsNumericを使って数値に変換できる値かどうか評価してから CInt を行う手順にすればよいでしょう
（数値に変換できない場合にどうするかは、処理の目的に応じて決めてください）

投稿2017/06/09 13:11

takito

総合スコア3111

Shion_Ichikawa

2017/06/10 06:17 編集

Private Function select_helper(x As Integer) As Variant Dim cell_1 As Integer Dim cell_2 As Integer Dim cell_3 As Integer Select Case x Case 1 cell_1 = 2 cell_2 = 3 cell_3 = 4 Case 2 cell_1 = 1 cell_2 = 3 cell_3 = 4 Case 3 cell_1 = 1 cell_2 = 2 cell_3 = 4 Case 4 cell_1 = 1 cell_2 = 2 cell_3 = 3 End Select Dim a(2) As Variant a(0) = cell1 a(1) = cell2 a(2) = cell3 End Function

Shion_Ichikawa

2017/06/10 06:16

これがselect_helper内のコードです。いまからプリントをしてみたいと思います！