Új hozzászólás Aktív témák

• #28706 poffsoft veterán

  Új Válasz 2015-09-18 18:49:29 #28706

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  sziasztok,
  van egy makró, amiben tömböt használok.
  Ezt a tömböt minden futtatásnál fel kell töltenem (amúgy konstansok lesznek a futás alatt)
  Ezt hogyan lehetne valódi konstansokkal megoldani, hogy ne kelljen minden futáskor feltöltenem?
  (a General szekcióban gondoltam, hogy a teljes modulra érvényes állandók legyenek)
  Feltétel, hogy a tömbhöz hasonlóan indexekkel tudjak hivatkozni rájuk.
  Azt tudom, hogy tömböt ott nem tudok deklarálni, de megoldásom nincsen...

  Sub Keretek(ByVal Target As Range)
  Dim i As Long
  Dim lean() As Long
  Dim omax As Long, omin As Long, omed As Long, oTh As Long
  Dim negy As Long
  
  negy = 4
  omax = 6
  omin = 1
  omed = 2
  oTh = 5
  ReDim lean(1 To 2, 0 To omax + 1) As Long
  For i = 0 To omax + 1
  Select Case i
  Case 0
  lean(1, i) = xlDash 'szaggatott
  lean(2, i) = xlHairline 'hajszál
  Case 1 To omin
  lean(1, i) = xlContinuous 'foly
  lean(2, i) = xlThick 'vastag
  Case omin + 1 To omed
  lean(1, i) = xlContinuous 'foly
  lean(2, i) = xlMedium 'közepes
  Case omed + 1 To oTh
  lean(1, i) = xlContinuous 'közepes
  lean(2, i) = xlThin 'vékony
  Case Else
  lean(1, i) = xlNone 'folyamatos
  lean(2, i) = xlThin 'vékony
  End Select
  
  Next i
  
  '.....
  End Sub

  Másik gondom, hogy rendszeresen felugrik egy hibaablak, hogy "körkörös hivatkozások" vannak (ami amúgy nem igaz, de elhiszem az excelnek, hogy úgy gondolja), és ez munka közben elég zavaró.

  Ezt hogyan lehetne letiltani ? Remélem, nem csak globálisan az összes hibaüzenet letiltásával, mert az nem lenne szerencsés megoldás...

  

Új hozzászólás Aktív témák