ランタイムエラー13

Question

私は複数の投稿やフォーラムを読んでいる、いくつかの本当に簡単なコードを使用して、いくつかのトラブルに実行していますが、問題を見つけることができるようには見えません。

Sub ownership() 
Dim row, column, x, y As Integer 
For row = 2 To 42 
    For column = 4 To 18 
    For x = 2 To 16 
    For y = 5 To 45 
    If ActiveWorkbook.Sheets("orka").Cells(3, row).Text = Left(ActiveWorkbook.Sheets("values").Cells(x, y).Text, ActiveWorkbook.Sheets("orka").Cells(2, row).Value) Then ActiveWorkbook.Sheets("orka").Cells(column, row).Text = "X" 
    Next 
    Next 
    Next 
Next 
End Sub 

どうもありがとう 秒

Answer 1

これは、.Textが読み取り専用のプロパティであるためです。代わりに.Valueを使用してください。あなたは

Dim row, column, x, y As Integer 

0として変数を宣言するときは、しかし、この

MsgBox Range("A1").Text

はVBAでもこの

Option Explicit 

Sub ownership() 
    Dim row As Integer, column As Integer, x As Integer, y As Integer 

    For row = 2 To 42 
     For column = 4 To 18 
      For x = 2 To 16 
       For y = 5 To 45 
        If ActiveWorkbook.Sheets("orka").Cells(3, row).Value = _ 
        Left(ActiveWorkbook.Sheets("values").Cells(x, y).Text, _ 
        ActiveWorkbook.Sheets("orka").Cells(2, row).Value) Then _ 
        ActiveWorkbook.Sheets("orka").Cells(column, row).Value = "X" 
       Next 
      Next 
     Next 
    Next 
End Sub 

を試してみて行うことができます

Range("A1").Text = "Blah Blah"

と言うことはできません

この場合、最後の変数yのみがIntegerとして宣言され、残りはVariantと宣言されます。正しい方法は私が上に述べたようにそれを宣言することです。

HTH