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

• ulrik19 tag

  #5972

  #5971 Delila_1

  2010-01-12 10:20:25

  Új Válasz

  Ú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

  

  ulrik19

  tag

  #5971 Delila_1

  #5971 Delila_1

  Még egy apróság:
  Ha tabulátorokkal tagolod a makrót, sokkal áttekinthetőbb lesz, az esetleges hibákat is könnyebb megtalálni benne. Érdemes megjegyzéseket beírni az egyes sorokhoz a későbbi módosítás megkönnyítéséhez. Valahogy így:

  Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  
  If CheckBox1.Value = True Then
  Application.Run ("masolas_adat")
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")
  Else
  'Application.Run ("masolas_adat") Nem kell, ha a CheckBox1 jelöletlen
  Application.Run ("reogitesreceiving")
  Application.Run ("reogitesvisual")
  Application.Run ("reogitesquicktest")
  Application.Run ("reogitesfct")
  End If
  
  Application.ScreenUpdating = True
  End Sub

  Még egy kis szőrözés (bocsi érte)

  1) elegendő lenne így is:

  Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  
  If CheckBox1.Value Then
  masolas_adat
  End If
  
  reogitesreceiving
  reogitesvisual
  reogitesquicktest
  reogitesfct
  
  Application.ScreenUpdating = True
  End Sub

  2) de ha mégis szükséges az application.run, akkor nem muszáj zárójelet használni az argumentumnál, mert nincs visszatérési érték. (de ez már tényleg csak szőrszálhasogatás )

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