ne peut pas affecter à la matrice de vba

Je suis en train de mettre en œuvre le code suivant et obtenez l'erreur -

cant attribuer à la matrice

Où est l'erreur ? Notez que si je tape Dim arrf() As Variant au lieu de Dim arrf(5) As Variant j'obtiens l'erreur -

incompatibilité de type

Public Function calc(ByVal value As Integer, ByVal num As Integer) As Variant()
Dim arr(5) As Variant
Dim x As Double
If value >= num Then
x = value - Application.RoundDown(value / num, 0) * num
arr(0) = x
arr(1) = num - arr(0)
arr(2) = Application.RoundUp(value / num, 0)
arr(3) = 1
arr(4) = Application.RoundDown(value / num, 0)
arr(5) = 1
Else
x = num - Application.RoundDown(num / value, 0) * value
arr(0) = x
arr(1) = value - arr(0)
arr(2) = Application.RoundUp(num / value, 0)
arr(3) = 1
arr(4) = Application.RoundDown(num / value, 0)
arr(5) = 1
calc = arr
End If
End Function
Sub cellsfunc()
With Application
.DisplayAlerts = False
.EnableEvents = False
.ScreenUpdating = False
End With
Dim lastrow As Integer
Dim counter As Integer
Dim arrf(5) As Variant
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
For counter = 2 To lastrow Step 2
arrf = calc(Cells(4, counter), Cells(4, counter + 1))
Next counter
With Application
.DisplayAlerts = True
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

merci d'avance à tous les assistants

  • vous avez besoin d'ajouter une condition où num est égal à 0, sinon vous aurez une erreur dans la ligne x = value - Application.RoundDown(value / num, 0) * num depuis que vous essayez de diviser être zéro
  • pour voir où est l'erreur, sélectionnez Pause Dans le Module de Classe dans les Options Générales de cpearson.com/excel/BreakInClassModule.aspx
InformationsquelleAutor shay | 2016-09-18
  1. 9

    Vous avez arrf déclaré comme un taille fixe tableau:

    Dim arrf(5) As Variant

    Un tableau de renvoi de fonction ne peut pas retourner un tableau de taille fixe seulement un processus dynamique. Vous avez juste besoin de la déclarer un tableau dynamique:

    Dim arrf() As Variant
    InformationsquelleAutor Comintern
  2. 0

    Il y a un problème dans votre fonction calc() : il ne renvoie une valeur quand il passe par l' else, et pas le if

    Il devrait probablement être ceci:

    Public Function calc(ByVal value As Integer, ByVal num As Integer) As Variant()
Dim arr(5) As Variant
Dim x As Double
If value >= num Then
x = value - Application.RoundDown(value / num, 0) * num
arr(0) = x
arr(1) = num - arr(0)
arr(2) = Application.RoundUp(value / num, 0)
arr(3) = 1
arr(4) = Application.RoundDown(value / num, 0)
arr(5) = 1
Else
x = num - Application.RoundDown(num / value, 0) * value
arr(0) = x
arr(1) = value - arr(0)
arr(2) = Application.RoundUp(num / value, 0)
arr(3) = 1
arr(4) = Application.RoundDown(num / value, 0)
arr(5) = 1
End If
calc = arr ' <------- THIS
End Function
    InformationsquelleAutor Thomas G
  3. 0

    Si vous utilisez un tableau typé dans le script VBA toujours utiliser ReDim.. taille de l'initialisation. Vous pouvez utiliser un tableau typé dans un dictionnaire de la valeur ou partout comme un variable.

    Public Function readData(ws As Worksheet, arr As Scripting.Dictionary) As Boolean
Dim iRow as long 
Dim key as String 
Dim sVal() As String
ReDim sVal(0 to 1) as String 
For iRow=2 to 1000
key = ws.cells(iRow,1)
sVal(0) = ws.Cells(iRow, 5)
sVal(1) = ws.Cells(iRow, 6)
call arr.Add(key, sVal)
Next
readData=true 
End Function
Public Function writeData(ws As Worksheet, arr As Scripting.Dictionary) As Long
Dim iRow as long 
Dim key as String 
Dim sVal() As String
ReDim sVal(0 to 1) as String 
For iRow=2 to 1000
key = ws.cells(iRow,1)
If arr.Exists(key) then
sVal = arr.Item(key)
ws.Cells(iRow, 5) = sVal(0)
ws.Cells(iRow, 6) = sVal(1)
End If
Next
writeData=true 
End Function
    InformationsquelleAutor Whome
  4. -1

    Vous devez déclarer aarf comme une variante pas un tableau. Le VBA convertira pour vous.

    Dim arrf As Variant

    InformationsquelleAutor