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

°±¤î¦Û°Ê§ó·s¤u§@ªí

°±¤î¦Û°Ê§ó·s¤u§@ªí

ー­Ó¤u§@ªí内¦³¦h­Ó査¸ß,¥Î¸ê®ÆÄݩʳ]©wー¤ÀÁé§ó·s
½Ð°Ý¦p¥Îー­Ó«ö¶s°±¤î¬Yーエ§@ªí内©Ò¦³査¸ß§ó·sÀ³¸ÓÂI¼g,??

  1. Sub test()
  2. Dim ws As Worksheet
  3. Dim qt
  4.     For Each ws In ThisWorkbook.Worksheets
  5.         If ws.QueryTables.Count > 0 Then
  6.             For Each qt In ws.QueryTables
  7.                 qt.BackgroundQuery = False
  8.             Next
  9.         End If
  10.     Next
  11. End Sub
½Æ»s¥N½X
­ì²z¬O¤@­Ó¤@­ÓÃö±¼³o­Ó¿ï¶µ
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD