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

• #45176 Fire/SOUL/CD félisten the radish #45173

  Új Válasz 2020-10-28 10:51:09 #45176

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz the radish #45173 üzenetére

  Private Sub CommandButton1_Click()

Dim MyFilename As String
Dim MyWorkBook As Workbook

'Excel fájl útvonala
MyFilename = "D:\gyumolcs.xls"

'Megnyitjuk
Set MyWorkBook = Workbooks.Open(MyFilename)

'A megnyitott munkafüzet "Munka1" nevü munkalapjáról
'beolvassuk az "A1" cella tartalmát és
'nagybetű-helyesen értelmezzük.
'Így mindegy, hogy a cellában hogy szerepel, "Alma" vagy "ALMA" vagy "alma" stb stb.
Select Case UCase(MyWorkBook.Sheets("Munka1").Range("A1"))
Case "ALMA"
Call alma
Case "KÖRTE"
Call korte
Case "SZILVA"
Call szilva
'ha bármi más szerepel a cellában vagy üres,
'akkor figyelmeztető ablak, majd bezárjuk a munkafüzetet
Case Else
MsgBox ("A(z) " + MyFilename + " munkafüzet be lesz zárva.")
MyWorkBook.Close
End Select

Set MyWorkBook = Nothing

End Sub

Private Sub alma()
MsgBox ("Alma makró")
End Sub

Private Sub korte()
MsgBox ("Körte makró")
End Sub

Private Sub szilva()
MsgBox ("Szilva makró")
End Sub

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