ªð¦^¦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 : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD