ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°ÝCall «ü¥Oªº¸ê®Æ¤¬¥Î

[µo°Ý] ½Ð°ÝCall «ü¥Oªº¸ê®Æ¤¬¥Î

½Ð°ÝCall «ü¥Oªº¸ê®Æ­n¦p¦ó¤¬¥Î¡C

¦p¡G
sub SubA()

FileName1 = "X1.xlsm"
SheetNumber = 5
call SubB
end sub

Sub SubB()
Windows(FileName1).Activate     
Sheets(SheetNumber).Select
End Sub

½Ð°Ý¦¹®Éªº FileName1 »P SheetNumber ­n¦p¦ó±qSubA ±a¤J SubB

ÁÂÁ¡ã

¸Õ¥X¨Ó¤F¡A

Call Sub(FileName1, SheetNumber)

§Y¥i¡ã

TOP

¦^´_ 2# cji3cj6xu6
  1. Option Explicit
  2. Sub SubA()
  3.     Dim FileName1 As String, SheetNumber As Integer
  4.     FileName1 = "X1.xlsm"
  5.     SheetNumber = 5
  6. SubB FileName1, SheetNumber
  7. End Sub
  8. Sub SubB(°Ñ¼Æ1 As String, °Ñ¼Æ2 As Integer)
  9.     Windows(°Ñ¼Æ1).Activate
  10.     Sheets(°Ñ¼Æ2).Select
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂg¤jªººë½T»yªk¡ã

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD