ªð¦^¦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­Ó¿ï¶µ
twbts20121004querytablebackground.jpg
2012-10-4 13:25
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD