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

[µo°Ý] ½Ð°Ý¦p¦ó§P©w¿ï¨ú¤F´X­Ó¤u§@ªí?

[µo°Ý] ½Ð°Ý¦p¦ó§P©w¿ï¨ú¤F´X­Ó¤u§@ªí?

§Úª¾¹D¦p¦ó¿ï¨ú¤u§@ªí
¤]ª¾¹D¦p¦óª¾¹D­þ¤@­Ó¤u§@ªí¦b§@¥Î¤¤

¦ý¤£ª¾¹D,¦p¦ó§PÂ_§Ú"¦P®É"¿ï¨ú¤F´X­Ó¤u§@ªí

¦]¬°·í¦P®É¿ï¨ú¤F¦h­Ó¤u§@ªí¤§«á,·|µLªk«Ø¥ß¸ê®ÆÅçÃÒ¥\¯à(¤U©Ô¿ï³æ)
·Q­nÂǥѧPÂ_¦ÓÁ׶}¦¹°ÝÃD!
PKKO

¦^´_ 1# PKKO
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet, S As String
  4.     With ActiveWorkbook.Windows(1)
  5.         'Windows ÄÝ©Ê
  6.         '¦pªG¬O Application ª«¥ó¡A«h·|¶Ç¦^ Windows ¶°¦X¡A¦¹¶°¦X¥Nªí©Ò¦³¬¡­¶Ã¯¤¤ªº©Ò¦³µøµ¡¡C
  7.         '¦pªG¬O Workbook ª«¥ó¡A«h¶Ç¦^ Windows ¶°¦X¡A¦¹¶°¦X¥Nªí«ü©w¬¡­¶Ã¯¤¤ªº©Ò¦³µøµ¡¡C°ßŪ Windows ª«¥ó
  8.         Sheets("Sheet2").Select
  9.         'Sheets(Array("Sheet1", "Sheet2")).Select
  10.         'Sheets(Array("Sheet3","Sheet2", "Sheet1")).Select
  11.         For Each Sh In .SelectedSheets
  12.             S = S & vbLf & Sh.Name
  13.         Next
  14.         MsgBox "¿ï¾Ü " & .SelectedSheets.Count & " ¤u§@ªí" & S & vbLf & vbLf & .ActiveSheet.Name & " §@¥Î¤¤ "
  15.         'SelectedSheets ÄÝ©Ê
  16.         '½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©w¶Ç¦^ Sheets ¶°¦X¡A¦¹¶°¦X¥Nªí«ü©wµøµ¡¤¤©Ò¦³¿ï©wªº¤u§@ªí¡C°ßŪ¡C
  17.     End With
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ¶Wª©¤j¤j·PÁ¦ܷ¥,§¹¬ü¸Ñ¨M1:±oª¾¿ï¨ú¤F´X­Ó¤À­¶ ,2:±oª¾¿ï¨ú¤F¨º¨Ç¤À­¶

    Æg®@!
PKKO

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD